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