10 DEFFNS="Cyclo" 20 ONERROR @%=&90A:IF ERR<>17:MODE0:REPORT:PRINTERL:END 30 MODE7 40 VDU23;8202;0;0;0; 50 A%=257:REM Revolutions Per Mile 60 D%=200 70 R%=1 80 TIME=0 90 PRINT" Cyclo computer By C.J.Richardson"'" ‚Cyclo computer By C.J.Richardson"''" ƒFor 8-Bit Software" 100 PRINTTAB(14,7)"†Press a key" 110 REPEATUNTILGET 120 PRINTTAB(11,6);"Pedal revolution" 130 PRINTTAB(11);"Pedal revolution" 140 PRINT'TAB(15);"Paused";TAB(15)"Paused"; 150 VDU31,0,9,152,10,152 160 PRINTTAB(5,12);"‚Time elapsed :…" 170 PRINTTAB(5,13);"‚Miles covered :…" 180 PRINTTAB(5,14);"‚Average speed :…" 190 PRINTTAB(10,18);"†SPACE to slow down"TAB(12);"†Z to speed up"TAB(12)"†X to pause" 200 REPEAT 210 VDU31,0,6,152,10,152 220 P%=0 230 FORDEL=1TOD% 240 IF INKEY-99 IFP%=0 D%=D%+10:P%=1 250 IF INKEY-98 IFP%=0 IF D%>0 D%=D%-10:P%=1 260 IF INKEY-67 PROCpause 270 NEXT 280 PROCp 290 SOUND1,-5,100,1 300 VDU31,0,6,133,10,134:FORDEL=1TO50:NEXT 310 R%=R%+1 320 UNTILFALSE 330 DEFPROCp 340 T%=TIME/100 350 IF T%=0 ENDPROC 360 H%=T% DIV 3600 370 M%=T% DIV 60-T%DIV3600*60 380 S%=T% MOD 60 390 B=R%/A%:REM MILES COVERED 400 C=B/(T%/3600):REM AVERAGE SPEED 410 PRINTTAB(24,12);STR$H%;":";STR$M%;":";STR$S%;" " 420 @%=&0102020A:PRINTTAB(24,13);STR$B 430 PRINTTAB(24,14);STR$C;" " 440 @%=&90A 450 ENDPROC 460 DEFPROCpause 470 O%=TIME 480 VDU31,0,9,129,10,131 490 PRINTTAB(12,21)"†(L)oad status" 500 PRINTTAB(12)"†(S)ave status" 510 PRINTTAB(12)"†(C)ontinue" 520 REPEAT 530 A$=GET$ 540 UNTILINSTR("LlSsCc",A$) 550 IF INSTR("Ll",A$):X%=OPENIN"CycDat":INPUT#X%,O%,R%,D%:CLOSE#X% 560 IF INSTR("Ss",A$):X%=OPENOUT"CycDat":PRINT#X%,O%,R%,D%:CLOSE#X% 570 PRINTTAB(12,21)SPC100 580 VDU31,0,9,152,10,152 590 TIME=O% 600 ENDPROC