10  MODE 7
   20  PRINTCHR$(147);STRING$(39,",");CHR$(129);CHR$(157);CHR$(141);CHR$(135);"Highway Code Stop'n Distance Test"'CHR$(129);CHR$(157);CHR$(141);CHR$(135);"Highway Code Stop'n Distance Test"'CHR$(147);STRING$(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 distance (in feet)  ‚forƒ";(speed%+1)*10;"‚mph."
  140    INPUT enter%
  150    IF enter%=distance% THEN PRINT'"CORRECT!" ELSE PRINT"INCORRECT!: Answer was ";distance%
  160  UNTIL FALSE