8-Bit Software Online Conversion

Stopping Distances Test - Listing

10 MODE 7 20 PRINTCHR$(147);STRING$(39,",");CHR $(129);CHR$(157);CHR$(141);CHR$(135);"Hi ghway Code Stop'n Distance Test"'CHR$(12 9);CHR$(157);CHR$(141);CHR$(135);"Highwa y Code Stop'n Distance Test"'CHR$(147);S TRING$(39,",") 30 VDU 28,0,24,39,4 40 REPEAT 50 speed%=RND(6) 60 ON speed% GOTO 70,80,90,100,110, 120 70 distance%=40:GOTO 130 80 distance%=75:GOTO 130 90 distance%=120:GOTO 130 100 distance%=175:GOTO 130 110 distance%=240:GOTO 130 120 distance%=315 130 PRINT'" Enter the stopping dista nce (in feet) for ";(speed%+1)*10;" mp h." 140 INPUT enter% 150 IF enter%=distance% THEN PRINT'" CORRECT!" ELSE PRINT"INCORRECT!: Answer was ";distance% 160 UNTIL FALSE