CLS
NEW
' ------- 10 GOTO Train
10 POKE #700,#ff,#0,#78,#48,#48,#48,#78,#0
20 POKE #708,#ff,#1,#ef,#a9,#a9,#a9,#a9,#af
30 POKE #710,#0,#0,#0,#0,#ff,#ff,#50,#70
40 POKE #718,#a1,#a1,#a1,#e1,#ff,#ff,#50,#70
50 CLS:S=100:D=20000
60 LET[0],0,8,16,24
70 LOCATE 0,15:PRINT CHR$(#E0,#E0,#E0,#E0,#E0,#E0,#E0,#E0,#E0,#E0,#E1);
80 LOCATE 0,16:PRINT CHR$(#E2,#E2,#E2,#E2,#E2,#E2,#E2,#E2,#E2,#E2,#E3);
90 FOR I=0 TO 31:LOCATE I,17:PRINT CHR$(131);:LOCATE I,18:PRINT CHR$(131);:NEXT
100 FOR I=0 TO 3
110 LOCATE [I],17:PRINT CHR$(135);
120 LOCATE [I],18:PRINT CHR$(135);
130 LOCATE [I]+1,17:PRINT CHR$(131);
140 LOCATE [I]+1,18:PRINT CHR$(131);
150 [I]=[I]-1:IF [I]<-1 THEN [I]=31
160 NEXT
170 LOCATE 0,11:PRINT (D/10);"m ";
180 LOCATE 0,12:PRINT S;"km/h ";
190 D=D-S:IF D<0 THEN LOCATE 5,6:PRINT "Overrun! Game Over":GOTO 230
200 IF INKEY()=0 THEN GOTO 100
210 S=S-1:IF S>0 THEN GOTO 100
220 LOCATE 4,6:PRINT "Train stop!! Game Over"
230 LOCATE 4,7:PRINT "Distance is ";D