1 'Outrun - tape
2 'by Mike Wong
3 '
10 MODE 2: MEMORY &3217
20 x=&BECD:y=x+1
30 FOR n=&BE80 TO &BED8
40 READ a$:a=VAL("&"+a$)
50 POKE n,a:c=c+a:NEXT
60 IF c<>8691 THEN 330
70 INPUT"Inf time (y/n)";a$
80 IF a$="n" THEN 110
90 POKE x,&37
100 POKE y,&30:GOTO 170
110 INPUT "Time limit (10-99 sec):;a
120 a$=STR$(a)
130 POKE x,&30+VAL(MID$(a$,2,1))
140 POKE y,&30+VAL(RIGHT$(a$,1))
150 FOR n=&BEBC TO &BECB
160 POKE n,0:NEXT
170 LOAD"":CALL &BE80
180 DATA 2A,0F,BC,22,D7,BE
190 DATA 21,0E,BC,36,C3,23
200 DATA 36,94,23,36,BE,C3
210 DATA 18,32,AF,CD,D6,BE
220 DATA 3A,D5,BE,3C,32,D5
230 DATA BE,FE,02,C0,21,A9
240 DATA BE,22,5B,34,C9,DD
250 DATA 21,5B,AA,11,00,01
260 DATA CD,EA,A9,21,BC,BE
270 DATA 22,0A,AB,C3,85,AA
280 DATA 21,B0,20,36,00,23
290 DATA 36,00,23,36,00,21
300 DATA 26,21,36,00,21,39
310 DATA 39,22,74,03,C3,00
320 DATA 01,00,CF,53,50
330 PRINT "Error!"

1 ' Outrun-disk
2 ' by Mike Wong
3 '
10 MODE 2:MEMORY &7FFF:z=270
20 FOR n=&8000 TO &8120 STEP 16
30 FOR p=0 TO 15
40 READ a$:b=VAL("&"+a$)
50 POKE n+p,b:c=c+b
60 NEXT:READ x$
70 d=VAL("&"+x$)
80 IF c<>d THEN 260
90 z=z+30:c=0:NEXT
100 INPUT"Infinite time (y/n)";a$
110 IF a$="n" THEN 140
120 POKE &80E1,&37
130 POKE &80E2,&30:GOTO 240
140 INPUT"How many seconds (0-99)";a
150 IF a>10 THEN 190
160 POKE &80E1,&30
170 POKE &80E2,a+&30
180 GOTO 220
190 a$=STR$(a)
200 POKE &80E1,&30+VAL(MID$(a$,2,1))
210 POKE &80E2,&30+VAL(RIGHT$(a$,1))
220 FOR n=&80D0 TO &80DF
230 POKE n,0:NEXT
240 PRINT"Insert OUTRUN disc...":CALL &BB18
250 CALL &8000:END
260 PRINT"Error in line"; z; "-"; z+20:END
270 DATA cd,1c,81,21,0c,80
280 DATA 22,14,01,c3,00,01
290 DATA 31,fa,bf,cd,5c9
300 DATA ee,80,21,85,1c,0e
310 DATA 23,cd,06,81,3e,4c
320 DATA 32,a2,4c,32,591
330 DATA a5,4c,3e,c3,32,fd
340 DATA 4f,21,2d,80,c3,10
350 DATA 81,21,a8,1c,677
360 DATA 0e,13,cd,06,81,3e
370 DATA 4c,32,ba,4c,21,40
380 DATA 80,c3,10,81,56c
390 DATA 21,bb,1c,0e,0e,cd
400 DATA 06,81,3e,4c,32,c7
410 DATA 4c,21,53,80,52b
420 DATA c3,10,81,21,61,80
430 DATA 22,e7,1c,3e,56,21
440 DATA d5,1c,c3,19,5fd
450 DATA 81,21,6f,80,22,2e
460 DATA 1d,3e,7a,21,0e,1d
470 DATA c3,19,81,21,480
480 DATA 7d,80,22,5e,1d,3e
490 DATA 21,21,3e,1d,c3,19
500 DATA 81,21,63,1d,473
510 DATA 0e,0d,cd,06,81,3e
520 DATA 4d,32,6e,4d,21,96
530 DATA 80,22,fe,4f,58d
540 DATA 21,39,20,c3,63,4d
550 DATA 21,7c,1d,0e,11,cd
560 DATA 06,81,3e,4d,4a5
570 DATA 32,8c,4d,21,b1,80
580 DATA 22,fe,4f,3e,61,21
590 DATA 7c,4d,c3,19,631
600 DATA 81,21,aa,1d,11,80
610 DATA a9,01,8f,02,ed,b0
620 DATA 21,80,be,22,653
630 DATA 5c,aa,21,d0,80,11
640 DATA 80,be,01,1a,00,ed
650 DATA b0,c3,d5,a9,7bf
660 DATA 21,ae,20,36,00,23
670 DATA 36,00,23,36,00,21
680 DATA 23,21,36,18,28a
690 DATA 21,39,39,22,96,03
700 DATA c3,00,01,53,50,c3
710 DATA 00,01,21,85,41f
720 DATA 1c,11,85,6c,01,c0
730 DATA 03,ed,b0,c9,21,85
740 DATA 6c,11,85,1c,60c
750 DATA 01,c0,03,ed,b0,c9
760 DATA 06,00,7c,c6,30,57
770 DATA 5d,ed,b0,c9,7bc
780 DATA 22,fe,4f,cd,fa,80
790 DATA c3,85,4c,ed,4f,e9
800 DATA 21,00,01,11,7a2
810 DATA 00,00,0e,41,df,28
820 DATA 81,c9,3c,c0,07,00
830 DATA 00,00,00,00,3a3
840 END