1 CLS:CGSET1,1:SPRITEON:POKE&H4015,&HF:FORI=0TO7:SPRITEI:ERAI:NEXT:GOSUB43:SC=0:RO=1
2 PALETB&H1,14,33,0,0:PALETB&H2,14,22,0,0:PALETB&H3,14,40,0,0:PALETS&H1,14,22,24,18:PALETS&H2,14,38,40,34:PALETS&H3,14,48,41,9
3 CLS:X=0:Y=150:M=136:N=X:X1=94:Y1=1:SP=X:D=X:E=X:SU=400:S1=X:RX=-2:PALETB&H0,14,48,39,22:ONRO RESTORE50,51,52,53,54
4 READFU,FA:LOCATE7,7:PRINT"COURSE NO.";RO:LOCATE5,15:PRINT"DISTANCE "FA" KM":LOCATE8,10:PRINT"GET READY!":FORI=8TO16STEP2:COLORI,10,1:NEXT:GOSUB29:GOSUB40
5 PALETB&H0,16,48,39,22:FORI=0TO1:DEFSPRITEI,(-(I=1)*3,1,0,0,0)="ˆ‰Š‹":NEXT:SPRITE0,124,Y:SPRITE1,X1,Y1:VIEW:POKE&H2005,M-X:POKE&H2005,0
6 FORI=0TO2:POKE&H1284+I*4,100,214+I,1,104+I*8:NEXT:POKE&H1290,23,220,1,228,150,220,1,228,23+FU/5,220,3,228
7 POKE&H129C,23,220,2,218,150,220,2,218,150-SP/4,220,3,218,23,220,2,208,150,220,2,208,23+FA/5,220,3,208
8 POKE&H4008,191,0,255,9:FORI=0TO2:PAUSE100:POKE&H1280,100,214+1,2,104+I*8:POKE&H4000,132,128,220+(I=2)*140,8:NEXT:W=1
9 N=N-SP/20:N=N-(N<0)*239:IFW>0W=W+1:IFW>30W=0:ERA0
10 POKE&H2005,M-X:POKE&H2005,N:A=A+SP:IFA>200A=0:B=4-B:POKE&H680,136+B,137+B,138+B,139+B
11 S=STRIG(0):SP=SP-(S<>8)*(SP>0):SP=SP-(S=4)*(SP>0)*8
12 SP=SP+(S=8)*(SP<508)*4:POKE&H12A4,150-SP/4,220,3,218:POKE&H4008,100,0,255-SP/2,9
13 S=STICK(0):X=X+((S=2)*(M-X>16)-(S=1)*(M-X<224))*4:SPRITE0,124,Y
14 X1=X1+((S=1)-(S=2))*4
15 IFABS(240-M-120+X)>34POKE&H400C,1,0,120,15:SP=SP-24:FU=FU-SP/60:X=X-SGN(240-M-120+X)*4:IFSP<0SP=0
16 C=C+SP:IFC>500C=0:F=F+1:M=M+D:X1=X1-D:FA=FA-1:SC=SC+ABS(D)+SP/100
17 IFF>E READD,E:GOSUB24:F=0
18 FU=FU-1:POKE&H1298,23+FU/5,220,3,228:IFFU<0CLS:GOTO37
19 POKE&H12B0,23+FA/5,220,3,208:IFABS(124-X1)<12ANDABS(Y-Y1)<12ANDQW<>1POKE&H400C,15,0,255,15:SP=SP-200:X=X-SGN(124-X1)*16:X1=X1-SGN(124-X1)*16:S1=S1+(S1>200)*200:FU=FU-SP/60:IFSP<0SP=0
20 S1=S1+SGN(SU-S1)*10:Y1=Y1-((S1-SP)/20):Y1=Y1+((Y1>239)-(Y1<0))*240:IFRND(50)=1SU=RND(400)+150
21 X1=X1+RX:IFABS(240-M+X-X1+4)>20X1=X1+SGN(240-M+X-X1+4)*4:RX=-RX
22 G=G+S1:IFG>200G=0:H=4-H:POKE&H684,136+H,137+H,138+H,139+H
23 SPRITE1,X1,Y1:GOTO9
24 IFD<>8POKE&H12B4,50,223,3,128,50,223,0,128+D*2
25 C=0:IFD<>8RETURN
26 FORI=Y TO0STEP-2:SPRITE0,124,I:POKE&H4004,0,0,0,0,100,0,255-SP/2,9:Y1=Y1+(Y1>2)*2:SPRITE1,X1,Y1:NEXT:SPRITE0:POKE&H4008,0,0,0,0:CLS:ERA3:SPRITE1
27 GOSUB29:LOCATE3,6:PRINT"ýþýþ GOAL!! þýþý":FORI=0TO200:LOCATERND(20),RND(12)+10:PRINTCHR$(205+RND(3)):PALETB&H0,16,RND(33)+11,RND(33)+11,RND(33)+11
28 POKE&H400C,255,255,255,255:NEXT:FORI=7TO22:LOCATE0,I:PRINT"                    ":NEXT:PALETB&H0,16,48,39,22:POKE&H400C,0,0,0,0:GOTO30
29 LOCATE0,0:PRINT"SCORE ";SC:LOCATE15,0:PRINT"TOP ";HI:RETURN
30 LOCATE5,10:PRINT"COURSE NO.";RO
31 LOCATE5,13:PRINT"FUEL BONUS":FORI=FU TO0STEP-2:LOCATE10,15:PRINT"POINT"FU-I" ":POKE&H4000,0,131,60,8
32 POKE&H1298,23+I/5,220,3,228:NEXT:SC=SC+(FU-I-2):GOSUB29:RO=RO+1:PAUSE150:IFRO<6GOTO3
33 CLS:LOCATE6,3:PRINT"CONGRATULATIONS!!":LOCATE1,7:PRINT"YOU GET A COMPLETE VICTORY!":LOCATE5,9:PRINT"THANK YOU VERY MUCH":LOCATE6,11:PRINT"FOR YOUR PLAYING."
34 LOCATE8,16:PRINT"PRESENTED BY":LOCATE6,18:PRINT"þþ H.TAKEUCHI þþ":QQ=0:WW=0:POKE&H400C,255,255,255,255
35 WW=WW+2+(WW>7)*11:QQ=QQ+1+(QQ>2)*4:COLOR9+WW,18,QQ:PALETB&H0,14,48,RND(33)+11,22:IFSTRIG(0)<>1GOTO35
36 POKE&H400C,0,0,0,0:GOTO38
37 GOSUB29:LOCATE6,10:PRINT"ENERGY EMPTY...":POKE&H4000,191,134,120,8:FORI=0TO150:PALETB&H0,14,RND(33)+11,39,22:NEXT:CGSET1,1
38 LOCATE9,14:PRINT"GAME OVER":PAUSE200:IFSC>HI HI=SC
39 GOTO1
40 PLAY"T2Y0M0V15O2:T2Y0M0V15O2:T2M0O1":PLAY"#F2R0:#C2R0:#D3":PLAY"#F2R0:#C2R0:#D2R0":PLAY"#F2R0:#C2R0:#D3"
41 PLAY"#G6F5#A3:F6#D5C3:#C8":PLAY"#G6:F6:C5C2R0":PLAY"F4F0R0:#D4#D0R0:C4C0R0"
42 PLAY"#F2R0:#D2R0:C2R0":PLAY"#G2R0:F2R0:#F2R0":PLAY"#A2R0:#G2R0:#F2R0":PLAY"B2R0:#A2R0:#F2R0":PLAY"O3C8:F8:F8":POKE&H4015,&HF:RETURN
43 GOSUB29:LOCATE6,3:PRINT"ê êêïíðê ê":LOCATE6,4:PRINT"ìíëîîíêìíë":LOCATE6,5:PRINT"é ééñíòé é"
44 LOCATE8,7:PRINT"ïíðêíðêíðêíðêíð":LOCATE8,8:PRINT"ñíðìíòìí ìí î î":LOCATE8,9:PRINT"ñíòé  éíòéíòéíò"
45 LOCATE6,15:PRINT"PUSH START BUTTON":LOCATE6,20:PRINT"´ 1986 H.TAKEUCHI"
46 PALETB&H0,14,40,39,RND(11)+33:S=STRIG(0):IFS AND1RETURN
47 QW=(S AND2)-1:IFQW=1LOCATE18,11:PRINT"BEGINNER"
48 LOCATE18,11:PRINT"        ":PP=PP+RND(30)+1:IFPP>200PP=0POKE&H4000,220,249,RND(255),12
49 GOTO46
50 DATA500,200,0,50,1,50,-1,50,0,50,8,0
51 DATA500,344,0,12,2,32,0,24,-2,32,0,32,-2,32,0,24,2,32,-2,32,0,32,1,50,8,0
52 DATA500,258,0,8,2,12,0,13,-2,12,2,4,0,8,-2,4,-2,12,0,18,2,8,2,4,2,10,-2,10,3,14,5,4,-3,14,-5,4,-6,4,6,4,5,4,-5,4,2,20,0,20,-2,20,8,0
53 DATA550,337,0,12,1,50,2,20,-5,20,5,20,3,24,-3,20,5,20,-5,20,2,20,-3,20,2,30,-3,10,1,15,-5,20,8,0
54 DATA635,382,3,12,-3,12,-2,30,3,30,7,12,-7,12,3,10,5,20,-6,30,3,50,-3,50,-5,50,-3,50,8,0