10 '
20 '   ʹ 
30 '   83 10 14   
40 '  BY M.Tamazawa  
50 '  BASIC & ϼݺ  
60 ' &Hd000   &Hd231 
70 '   OLIGINAL No.1 
80 '
90 WIDTH40,25:CONSOLE,,0,1:PRINTCHR$(12):GOTO 870
100 ' ϼݺ  
110 RESTORE 1220:X=0:L=1220:D=&HD000:PRINT"WRITING MASINE NOW!!":LINE1,1
120 X=0:FORI=0TO15:READ A$:A=VAL("&H"+A$):POKED+I,A:X=X+A:NEXT
130 READ A:IF X<>A THEN BEEP:PRINT"BAD DATA LIST";L:END
140 L=L+10:D=D+&H10:IF D=&HD240 THEN RETURN ELSE GOTO 120
150 ' PUT ò 
160 RESTORE 1090
170 FORI=0TO 7:READ A$:C%(I)=VAL("&H"+A$)+&H5900:NEXT
180 FORI=0TO14:D%(I)=PEEK(&HD223+I)+&H5900
190 E1%(I)=RND(1)*256+&H5900:E2%(I)=RND(I)*256+&HD900:NEXT
200 FORI=0TO29:READA$:F%(I)=VAL("&H"+A$)+&HD900:NEXT
210 RETURN
220 ' Ҳ 
230 WIDTH80,25:COLOR7,0,1:PRINTCHR$(12)
240 COLOR1:PRINTSPC(15)"   䇇                       䇇   "
250 COLOR5:PRINTSPC(15)"    畕                    "
260 COLOR4:PRINTSPC(15)"     畕             䇇"
270 COLOR6:PRINTSPC(15)"                           "
280 COLOR2:PRINTSPC(15)"       瀀         ʹ     "
290 LOCATE31,13:PRINT"           "
300 LOCATE31,14:PRINT"4     6"
310 LOCATE31,15:PRINT"           "
320 PUT@A(37,13)-(41,15),D%
330 COLOR6:LOCATE 27,18:PRINT"   1000Km ¯߼ڡ"
340 COLOR5:LOCATE 21,20:PRINT"50Km ϲ  BONUS    Ͻ"
350 COLOR2:LOCATE 28,22:PRINT"PUSH RETURN KEY TO START"
360 IF INKEY$<>CHR$(13) GOTO 360
370 FORI=70TO0STEP-1:BEEP1:PUT@A(I,7)-(I+9,9),F%:BEEP0:NEXT
380 RETURN
390 '  
400 FORJ=0TO15:BEEP1:FORI=1TO7:COLORI:LOCATE33,10:PRINT"START!!":NEXT:BEEP0:NEXT:LOCATE30,10:FORI=&HF7D1TO&HF7D8:POKEI,0:NEXT:RETURN
410 ' ޸ 
420 AD=PEEK(&HD292)-1:FORI=0TO15
430 PUT@A(AD,20)-(AD+4,22),E1%:BEEP1
440 FORJ=0TOI:NEXT
450 PUT@A(AD,20)-(AD+4,22),E2%:BEEP0:NEXT
460 ' ް 
470 CA=CA-1:IF CA<>0 THEN 480 ELSE GOTO 500
480 LOCATE30,10:COLOR 5:PRINT"   FIGHT !!  "
490 FORI=0TO1000:NEXT:RETURN
500 COLOR2:PRINTCHR$(12):LOCATE0,10
510 LOCATE 18,10:PRINT"䇇 䇇    䇇     "
520 LOCATE 18,11:PRINT"                   "
530 LOCATE 18,12:PRINT"             "
540 LOCATE 18,13:PRINT"懇         懇      "
550 FORI=0TO2000:NEXT:GOTO 910
560 '   
570 COLOR4,0,1:PRINTCHR$(12):COLOR7
580 LOCATE0,0:PRINTUSING"SCORE ######";SC*10
590 LOCATE16,0:PRINTUSING"HIGH-SCORE ######";HS*10
600 LOCATE36,0:PRINTUSING"###### Km";KM
610 IFCA>8THENX=8ELSEX=CA
620 FORI=0TOX-1:PUT@A(47+I*4,0)-(50+I*4,1),C%:NEXT
630 LINE(56,12)-(57,94),PSET,4,BF
640 LINE(58+HB*2,12)-(59+HB*2,94),PSET,4,BF
650 COLOR4:RETURN
660 '  
670 READ DO,HB,CL$:IF DO=100 GOTO 710
680 POKE &HD0EA,DO:POKE &HD11D,DO:POKE &HD146,DO
690 POKE &HD297,HB:POKE &HD113,VAL("&H"+CL$):POKE &HD29B,0
700 RETURN
710 ' GOAL 
720 FORJ=1TO3:FORI=1TO7:BEEP1: COLORI
730 LOCATE 21,10:PRINT"䇇 䇇 䇇            "
740 LOCATE 21,11:PRINT"                    "
750 LOCATE 21,12:PRINT"                     "
760 LOCATE 21,13:PRINT"懇 懇             "
770 BEEP0:NEXT:NEXT
780 FORI=0TO1000:NEXT:X=0
790 FORJ=0TO22STEP3:FORI=70TOXSTEP-1
800 PUT@A(I,J)-(I+9,J+2),F%
810 NEXT:X=X+9:NEXT:POKE&HD28C,1:FORI=0TO300:BEEP1:BEEP0:NEXT:GOTO 940
820 ' ްŽ 
830 COLOR6:LOCATE32,12:PRINT" BONUS CAR "
840 FORI=0TO10:FORJ=0TO40:BEEP1:NEXT:BEEP0:NEXT
850 CA=CA+1:FORI=0TO500:NEXT:   RETURN
860 ' MAIN 
870 CLEAR50,&HCFFF:IF PEEK(&HD23F)<>&H90 THEN GOSUB 110
880 DIM C%(7),D%(14),E1%(14),E2%(14),F%(29):DEFINT A-Z
890 DEFUSR=&HD000:HS=0:POKE&HD293,RND(1)*256:POKE&HD294,RND(1)*256
900 '  ò 
910 KM=0:SC=0:CA=3:GOSUB160:GOSUB230
920 POKE&HD295,0:POKE&HD296,0
930 POKE&HD299,0:POKE&HD29A,0
940 RESTORE:GOSUB 670:GOSUB 570:GOSUB 400:GOTO 970
950 GOSUB 670
960 GOSUB 570
970 A=USR(0):X=PEEK(&HD28C)
980 SC=PEEK(&HD295)+PEEK(&HD296)*256
990 KM=PEEK(&HD299)+PEEK(&HD29A)*256
1000 IF HS<SC THEN HS=SC
1010 IF X=1 THEN GOSUB 420:GOTO 960
1020 IF X=2 THEN GOSUB 820:GOTO 950
1030 '  DATA 
1040 DATA 1,15,ff, 3,15,07, 2,13,ff, 1,13,03, 3,13,7f
1050 DATA 2,13,0f, 1,15,7f, 2,13,03, 3,15,ff, 2,13,7f
1060 DATA 3,13,07, 1,15,3f, 3,13,ff, 2,13,0f, 1,11,ff
1070 DATA 3,11,03, 1,11,3f, 2,11,07, 3,09,ff, 1,09,07 ,100,0,0
1080 ' PUT DATA 
1090 DATA 4e,ff,e4,00,4e,ff,e4,00
1100 DATA 00,00,00,c8,ee,57,54,15,14,00
1110 DATA 44,d6,6f,ff,5f,55,41,45,51,40
1120 DATA 00,00,00,31,77,dd,4d,95,95,00
1200 ' ϼݺ ް 
1210 ' &H D000 
1220 DATA CD,90,D1,CD,0A,D1,CD,9F,D1,CD,E5,D0,CD,0F,D1,CD, 2831
1230 DATA 34,D0,CD,1F,D0,CD,CA,D1,3A,8C,D2,A7,C0,18,E4,3A, 2397
1240 DATA 8D,D2,A7,C8,3A,8E,D2,3D,A7,28,04,32,8E,D2,C9,AF, 2178
1250 DATA 32,8D,D2,C9,3A,91,D2,E6,07,C0,CD,7B,D0,CD,29,D1, 2435
1260 DATA 2A,8F,D2,DB,00,FE,EF,28,1E,FE,BF,28,24,CD,C7,D0, 2310
1270 DATA CD,90,D0,3A,8E,D2,47,C5,06,FF,3E,20,D3,40,10,FE, 2135
1280 DATA AF,D3,40,C1,10,F1,C9,2B,22,8F,D2,21,92,D2,35,18, 1997
1290 DATA DC,23,22,8F,D2,21,92,D2,34,18,D2,2A,8F,D2,11,73, 1844
1300 DATA 00,06,03,C5,06,05,36,00,23,10,FB,C1,19,10,F4,C9, 1252
1310 DATA 2A,8F,D2,11,23,D2,06,03,C5,06,05,1A,77,23,13,10, 1089
1320 DATA FA,C1,D5,11,73,00,19,D1,10,EE,21,b2,Fc,06,03,11, 1765
1330 DATA 75,00,3A,92,D2,77,23,36,59,23,3A,92,D2,C6,05,77, 1599
1340 DATA 23,36,99,19,10,EC,C9,2A,8F,D2,11,73,00,06,03,C5, 1453
1350 DATA 06,05,7E,A7,20,08,23,10,F9,C1,19,10,F2,C9,C1,21, 1547
1360 DATA 8C,D2,36,01,C9,DD,21,80,D2,06,03,2A,93,D2,54,5D, 1783
1370 DATA 19,19,7D,84,67,11,81,00,19,22,93,D2,7E,E6,03,DD, 1552
1375 '&H D100 
1380 DATA 77,03,11,04,00,DD,19,10,E2,C9,21,91,D2,34,C9,3A, 1531
1390 DATA 91,D2,E6,3C,C0,DD,21,80,D2,11,04,00,06,03,DD,7E, 1806
1400 DATA 03,DD,77,00,DD,19,10,F6,C9,11,8F,FE,21,17,FE,01, 1777
1410 DATA B0,09,ED,B8,21,6B,F4,06,4A,36,5A,23,10,FB,DD,21, 1770
1420 DATA 80,D2,11,04,00,06,03,DD,7E,00,DD,6E,01,DD,66,02, 1372
1430 DATA FE,01,20,08,7D,FE,6D,28,1A,2B,18,0A,FE,02,20,21, 1247
1440 DATA 7D,FE,A4,28,15,23,DD,75,01,DD,74,02,18,13,DD,19, 1606
1450 DATA 10,D5,C9,3E,02,DD,77,00,18,07,3E,01,DD,77,00,18, 1292
1460 DATA 00,C5,E5,3A,97,D2,47,36,00,23,10,FB,E1,C1,18,DE, 1936
1470 DATA 11,80,D2,21,0F,D2,7E,FE,FF,C8,12,23,13,18,F7,3A, 1849
1480 DATA 91,D2,E6,FF,C0,3A,9B,D2,FE,32,28,18,3C,32,9B,D2, 2298
1490 DATA 11,26,F3,2A,99,D2,23,22,99,D2,CD,E2,D1,36,00,23, 1864
1500 DATA 36,14,12,C9,21,8C,D2,36,02,C9,3A,91,D2,E6,1f,C0, 1799
1510 DATA 11,07,F3,2A,95,D2,23,22,95,D2,CD,E2,D1,13,3E,30, 1865
1520 DATA 12,C9,01,10,27,CD,FE,D1,01,E8,03,CD,FE,D1,01,64, 1948
1530 DATA 00,CD,FE,D1,0E,0A,CD,FE,D1,7D,C6,30,12,C9,C5,37, 2202
1535 '&H D200 
1540 DATA 3F,3E,30,ED,42,38,03,3C,18,F9,C1,09,12,13,C9,00, 1308
1550 DATA 86,F4,03,00,86,F4,02,00,86,F4,03,00,01,60,81,FC, 1620
1560 DATA 00,21,FF,E0,4E,FF,E4,0E,40,F6,99,6F,04,77,D2,66, 2096
1570 DATA 2D,77,0,0,0,0,0,0,0,0,0,0,0,0,0,90             , 308
