10 'FE03C2A1C701030011D2D4217AF67EEDB04F2A7BF622CDD40922CBD42ACDD4ED5BCBD4E738113E033263F6010300117AF621D2D4EDB0C92BCD100028E92322CDD438D9FE4F2012CD1C5222CDD4
20 '8787478780D60C32D1D418C3FE40200CCD2F5422CDD4ED53CFD418B3FE5C2034CD1C5222CDD4CDDFC6ED5BCFD4732372189D0E00D60338100E08D603380A0E10D60338040E18D603C6032181C7
30 '060009874F09C9FE2E200F3EFE1823E52ACFD4772322CFD4E1C9FE5D201A3EFFCD09C7CD1C5222CDD4CDDFC67ECD09C7237ECD09C7C37CC6FE2D20043E6018F2FE5220043E6118EAFE3C200406
40 'F41806FE3E200C060C3AD1D48032D1D4C37CC62175C7060CBE28092310FACDC000C39B403E0C90473AD1D48018B743634464454666476741614200000000000006040000000000000604000000
50 '00000006040000000000000604CD8A2F2AF8F7110A00E7D229CA7DA7CA36C8FE07CAF3C9FE08CA3EC8FE09281C2929291179C71911C0D4010800F3EDB021010122C8D47D32CAD4FBC93AFBC8FE
60 'FDC0CD00C92159C8CD5C2C21A0C50660C5E5CD4D2C2169C8CD5C2CCD9F283E083263F6CD8A2FED5BF8F7E173237223E5CD592C2161C8CD502CCDE627E1C110D0F3219FFDE511FBC8010500EDB0
70 '2154C8D10E05EDB0AF32CAD4FBC3900021FBC87EFEFDC8F3E5010500119FFDEDB0E136FD18E2C371C8C9C94332700000000000411059464200000047111860781250003ACAD4B7CAFBC83E071E
80 'B8CD930021C8D43520563AC6D477060321C0D45E23561AFEFF280AFEFE200FAF32CAD4185B131A4F131A575918E813722B732323E5FE6028241E00FE612818875F160021A0C5193E0690905ECD
90 '93003C235ECD93001E0D3E0B90CD9300E110B321C9D435201A3AC7D4773E0847CD9600E60F28063D5F78CD9300783CFE0B20ECFD00000000014100110038219AC9CD5C002A0400110001190100
100 '07EB7CFE041A3006C547CB3FB0C1CD4D0023130B78B120EA1100D02100060E800608E51A13070707CB1410F77CE1CD4D00230D20EB11202006FCC5D521DBC978010800FEC1300609FE81300109
110 'C5CD5C00C1E109EBC110E22180002B7DE6013E55280187CD4D007DB420F0CD68CCC37E00D1000800D10000005354040053540000535400010F1F3F3F7F7F7F7F7F7F7F7F7FFFFF8FF0F8FCFCFE
120 'FEFEFEFEFEFEFEFEFFFFF100070F0F1F1C18000000307073F0E38000E0F0F0F838180000000C0ECE0FC70180618191F191816161515171F171515141A1B1E1F1E1B1A1A13AB4D4018000210026
130 'CD560021002011A6D4060CC5D5E51A010800C5CD5600C1E109D113C110ED3AB5D43291C93AB6D43295C9C368CCAF3287D432B8D42AF8F722BCD4EB21DC18CDB1CC21000022F8F72288D42180D4
140 '118CD4010600EDB03A86D4CDD5002184D4FE03200434341806FE07200235353A86D4CDD800B72187D47E2807FE0F2808341805FE01380135CD16CD3A84D4CDB0CECDFCCCED5B80D4197CE67F67
150 '2280D43A84D4C6F0CDB0CECDFCCCED5B82D4197CE67F672282D43A84D4ED44C628CDB0CE2929293E54571E00197C3297C93A84D4ED44C618CDB0CE2929293E5357197C3296C9CD37CD1E013AA4
160 'D4E61020691D3AA3D4FE0638093A91D4FE03284418581E04FE0520093A91D4FE02283518493A81D4E607673A83D4E6076F3AA3D4FE0320243A91D41DB7280EFE02280A7DB72811FE07280D1821
170 '1D7CB72806FE07280218161E0118121E007CFE02380BFE0630071E05FE0438011C7B3285D4FE012849FE06200D3A91D4B7CA3FCCFE0628191838B720073A91D4FE0628C73A85D4FE023ED12001
180 '3D328AC93A85D421B2D4FE022001237E3289C901140011001B2186C9CD5C00CD94CCC346CA0106001180D4218CD4EDB0AF3287D4CD16CD3AA3D4FE04286EAF32CAD42131CC060E3E0E905E23CD
190 '930010F63E1032A5D42180D4118CD4010600EDB03A84D4ED44CDB0CEEB2A80D4CB2ACB1BCB2ACB1B192280D4C610CDB0CEEB2A82D4CB2ACB1BCB2ACB1B192282D4CD37CDCD94CC3AA4D4E61028
200 '0B218CD41180D4010600EDB03AA5D43D20A73E0132CAD4C346CA0007000E000F1F00101010000A0021B8D4347E5FD506000F0F0F4F213A19093E3083CD4D002323ED5B88D4CDB1CC3AB7D4D1BB
210 'C23DCAC9210800CD7DCC211000CD7DCC212820CD7DCC21302055AF6F5F0100080BCD4A0023EBCD4D0023EB78B120F1C9CDB70038132A88D4232288D4EB211C19CDB1CC2ABCD4E7C022F8F7F1C9
220 'D5E521B9D43E3077237723770603C578874F060021F4CC094E2346EB5059E73010EBC110E9D121B9D4010300CD5C00D1C9B7ED52EB3E03C1C5904F060021B9D40934C118C901000A0064003A87
230 'D4EB210000B7C8193D20FCCB2CCB1DCB2CCB1DCB2CCB1DC921C41A3A87D44FB72809473E0BCD4D002310F83E0F91C8473E0ACD4D002310F8C9214218228AD43A84D4C6F8CDB0CECDA6CEED5B80
240 'D4192292D4C6F0CDB0CECDA6CEED5B82D4192294D43A84D4C610CDB0CE229ED4C610CDB0CE22A0D42A92D42296D42A94D42298D40E132A96D4229AD42A98D4229CD40613C53A9DD46F87E6F047
250 '3A9BD467E6F80F0F0F804F0600EB2100CF097E32A2D448CB3FCB19CB3FCB19472100D00906007BE6078787875F7AE607834F097E5FE60F2A8AD4CD4D0023228AD47DFE6C200F7CFE19200A7B32
260 'A4D43AA2D432A3D42A9AD4ED5B9ED419229AD42A9CD4ED5BA0D4B7ED52229CD4C110872A96D4ED5BA0D4192296D42A98D4ED5B9ED4192298D42A8AD4110D0019228AD40DC281CD3A81D4CD96CE
270 '573A83D4CD96CE5F87477A0F0F0FE61F804F06002100CF09D5EB21F7190607C506071A13C6C0CD4D002310F601190009EB0E0909EBC110E7D13A81D492C6B83287C93A83D493C6775F3A88D4E6
280 '07FE0638021ED17B3286C901040011001B2186C9C35C00E6F8D618280230023E08FE48D83E40C9444D2929545D291909C9E63FF5C5D55F1600E61F21DCCE4F0600097B5E47E61FFE1020011478
290 'E6202807210000B7ED52EBEBD1C1F1C90019314A61788EA2B5C5D4E1ECF4FBFE00FEFBF4ECE1D4C5B5A28E78614A3119
300 'KKKNKKKKKMKKKKNKKKKMKKKKKKKKKKKKKMKNKMKKKKKKKKKKKKKKMKKNKKKKKKKKLLLLLLLLKNLLLLLLKKMKLLLLKKKKKMLLKMKNKKKKKKKKKKKKKKKMKKNKKKKKKKKKLLLLLLLLLLLLLLKKLLLLKMKKLL
310 'KNKKKKKMKKKKNKKKKMKKKKKKKKKNKKKKKKKKKKq__aa__qDDDDDDDDCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCq__aa__qqooqqooqDDDbbDDDCCCbbCCCCCCbbCCCCCCbbCCCCCCbbCCCCCCb
320 'bCCCqooqqooqqooqqooqDDDDDDDDDDCDDCDDDDCDDCDDDDCDDCDDDDCDDCDDDDCDDCDDqooqqooqqooqqooqDDDDDDDDCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCqooqqooqoCCCCCDoqCCCCC
330 'DqqCCCCCDqoCCCCCDooCCCCCDoqCCCCCDqqCCCCCDqoCCCCCDopDDDDDDprDDDDDDrrDDDDDDrpDDDDDDpoCCCCCDoqCCCCCDqqCCCCCDqoCCCCCDoKKKQoooqKKqqDDDDKoOCCCCCQoCCCCCCqCCCCCCC
340 'qCCCCCCCoCCCCCCCoCCCCCC_qoooQKKKDDDDqqKKCCCCDOoKCCCCCDoQCCCCCCDqCCCCCCDqCCCCCCDo_CCCCCDo_CCCCCDoCCCCCCDoCCCCCCDqCCCCCCDqCCCCCCoQCCCCCOoKCCCCqqKKqoooQKKKoC
350 'CCCCD_oCCCCCDDqCCCCCCCqCCCCCCCQoCCCCCCKoOCCCCCKKqqCCCCKKKQoooqLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLKMKNKMKKKKKKKKKKKKKKMKKNKKKKKKKK
360 '04>έG!`Ζλ*vφ+Ε>ω<# όxΦϊ 0>ΠW―_Χ(,Φ;λw#λ0υ―==GΧ(οΦA0ΜΦωΦφυx< οΑρ‡‡‡‡°λw#λ78ή0Ρρ<G »&Ο―oGp#< ϋΙ
370 'SETTING ……………………………………………………………………
380 CLEAR 500,&HC1CD:DEFINT A-Z:COLOR 15,1,1:SCREEN 1,2,0:KEY OFF:WIDTH 32
390 DEFUSR=PEEK(-2442)+PEEK(-2441)*256+5593:U=USR(0):DEFUSR=&HC660
400 GOSUB 640:U=USR(9):ON STOP GOSUB 510:STOP ON:POKE &HFBB0,1
410 'TITLE ………………………………………………………………………
420 U=USR(0):VPOKE &H1B00,208:CLS:FOR I=0 TO 3:POKE &HD4A6+I,VAL("&H"+MID$("11A986D5",I*2+1,2)):NEXT:U=USR(7)
430 A$="00150000000000000059554000000000157F9640005400001E75DD5405654000157FDFE407FE40001E5D55D415755000157F95D01FFF9000175D5DD015755540197F9654067E47501DD5DDD4177545901D5F5D641FFD55D0151555541D579750000000001D057D400000000015005500"
440 FOR I=0 TO 13:LOCATE 0,23:PRINT:FOR J=0 TO 15:A=VAL("&H"+MID$(A$,16*I+J+1,1)):VPOKE &H1AE0+J*2,A\4:VPOKE &H1AE1+J*2,A AND 3:NEXT J,I:LOCATE 8,23
450 PRINT "Ϊ°ΌέΈή";:LOCATE 13,0:PRINT "MODE" SPC(38) "GEKISO" SPC(27) "RASING" SPC(37) "SELECT COURSE" SPC(8) "-COURSE" SPC(39) "AND MODE !!" SPC(6) "LIMIT" SPC(59) "TIME" SPC(28) "LAP-TIME"
460 T=T+1AND3:S=STICK(0)ORSTICK(1):T=T OR(S=0):C=C+((S=5)-(S=1))*(T=0)+8AND7:VPOKE6295,65+C:M=M+((S=3)-(S=7))*(T=0)+4AND3:LOCATE6,0:PRINTMID$(" HARD NORMAL EASY  TEST",M*6+1,6):N=NXOR1:IFSTRIG(N)THENPLAY"T255L64V13O7CEG":GOSUB 530 ELSE 460
470 'RACE ……………………………………………………………………………
480 LOCATE 7,8:IF USR(-T*(1+.2*M)*(M<3)-999*(M=3)) THEN U=USR(3):PRINT" TIME  UP " ELSE U=USR(4):PRINT" GOAL !! "
490 FOR I=0 TO 9999:NEXT:GOTO 420
500 'BREAK …………………………………………………………………………
510 STOP STOP:U=USR(8):STOP
520 'COURSE SET ……………………………………………………………
530 RESTORE:FOR I=1 TO C+1:READ A$,X,Y,T,P$:NEXT:FOR I=0 TO 143:POKE &HCF22+16*(I\12)+(I MOD 12),ASC(MID$(A$,I+1,1))-65:NEXT:LOCATE 0,10:PRINT CHR$(27)+"J"
540 A=&HD480:POKE A,128:POKE A+1,8*X+3:POKE A+2,128:POKE A+3,8*Y+3:POKE A+4,48:POKE A+6,N:POKE A+55,4+(M=3)*3:FOR I=0 TO 16:POKE A+38+I,VAL("&H"+MID$(P$,I*2+1,2)):NEXT:U=USR(2)+USR(7):RETURN
550 DATA JGGGGKAAAAAAHAAAAHAAAAAAHAAAAHAAAAAAHAAAAHAAAAAAHAAAAHAAAAAAMGGFDDDFGGGKAAAAAIAAAAAHAAAAAHAAAAAHAAAAAHAAAAAHAAAAAHAAAAAHAAAAAHAAAAAHAAAAAMGGEGGL,10,13,200,322C3A2C8968FE1EBA6A75450F01750F05
560 DATA AAAAJGGKAAAAAAAAHAAHAAAAAAAAHAAHAAAAAAAAHAAMKAAAJGGFDFKAMGGKHAABICMKAAAHHAAAHAAHAAAHMFDDDDDDDDFLABNNINNINNCAAAAAHAAHAAAAAAAAHAAHAAAAAAAAMEGLAAAA,7,13,250,541474FE32C2FE1EBA6A819B0F01980F06
570 DATA JGGGGGGGGKAAHAAAAAAAAHAAHAJGGGGKAHAAHAHAAAAHAHAAHAHAJFDDDDFKHAHAHBNINICHHAHAHAAHAHAHHAHAMGGLAHAHHAHAAAAAAHAHHAMGGGGGGLAHHAAAAAAAAAAHMGGGGGGEGGGL,9,13,380,11115DAB5754FE1EBA6A32C20B0C320F02
580 DATA AAAAAAAAAJEKAAAAAAAAAHAHAAAAAAAJFDFLAAAAAAAHBICAAAAAJGFDFLAAAAAAHABICAAAAAAAHAAHAAAAAAJFDFGLAAAAAAHBICAAAAAAJFDFLAAAAAAAHBICAAAAAAAAMGLAAAAAAAAA,12,2,200,981A61A14111111121C1A1BA0F016A0E0F
590 DATA JGGKAAAAAAAAHAAHAJGKAAAAHAAHAHAHAAAAMGFDDDFLJGKAAABINICAHAHAAJFDDDDDDFLAAHBININNICAAAMGLAHAAMGGKAAAJFDFKAAAHAAAHBICHAAAHAAAMGLAHAAAHAAAAAAAMGEGL,11,13,375,322C3A2C8968FE1EBA6A75450F01750F05
600 DATA AAAAAJKAAAAAAAJGFDDFGKAAAAHABIICAHAAJFDFGLMGFDFKMFDFGKJGFDFLABICAHHABICAAAHAAHHAAHAAAAHAJLMKAHAAAAHAHAAHAHAAAAMFDFGLAHAAAAABICAAAHAAAAAAMGGEGLAA,9,13,430,541474FE32C2FE1EBA6A819B0F01980F06
610 DATA AAAJGGGGKAAAAAAMGKJGLAAAAAAAAHHAAAAAJGGKAHHAJGGKHAAHAHHAHAAHHAAHAHHAHAAHMGFDFLMFDFGLAABICAABICAAAAJLAJKAMKAAAJLAAHHAAMKAJLAAAHHAAAMKMGGGGLMGEGGL,10,13,450,11115DAB5754FE1EBA6A32C20B0C320F02
620 DATA JGKAJGGKAJGKHAHAHAAHAHAHMFDDDFKMFDFLABINICHABICAJGLAMGLJFDFKHAJGKAAHBICHHAHAHAAMGLAHMFDFLJGKAJGLABICAHAHAHAAJFDFKMFDDDFKHBICHABINICHMGLAMEGLAMGL,7,13,600,981A61A14111111121C1A1BA0F016A0E0F
630 'BGM DATA SETTING ……………………………………………
640 A$="O6R-A---g-G---f-F- dERdERdER<dEdE-g-":A$=USR("@&HC1CE\0"+A$+A$+":"):A$=USR(">gARgARC-gARgARd- gARgARD-gARgARd- EEE-R-<G->EEE-R-A- EEE-R-d-E<EFfGgAB A------->R-dERdER <g------->R-dERdER C-------R-FGRFGR E--<E-->E-RDDD<BBGG]0\1:")
650 A$="O5R-E---E-E---E-<B- B-RB-RB-R<B--B---":A$=USR(A$+A$+":"):A$=USR(">>C-------c------- D-------d------- <ggg-R-E-ggg-R-E- BBB-R-A-gDcC<BaAg >E-------R-AR-AR- E-------R-B-RB-R F-------R->C-RC-R <B--E--B-RBBBGGDD]1:"):A$="A>CE<EA>CC-<"
660 B$="gB>E<EgBB-":A$=USR("\2O2"+A$+A$+B$+B$+A$+A$+B$+B$):A$=USR("A>CE<EA>CE<EA>DF<DA>DF<DA>FA<DA>FA<DA>FA<dA>FA<d>EEE->E<BgEEEE->EC<AEggg-R-fG<A>DcC<BaAgAR>CCR<AEEAR>CCR<AEEgRBBRGEEGRBBRGEEFRAARFFFFRAARFA>C<gRBBRgggRDDDDD<BB]2:")
670 A$=USR("\3O3G>CdCdGdG>C<G>Cd<CdGdG>C<G>CdCdG GGG---g-A-g-G-f-G-R<GG-----------]0\4O3R--G>CdCdGdG>C<<G>CdCdGdG>C<G>CE ddd---d-d-d-d-d-D-R<GG-----------]1\5O3R-----G>CdCdGdG>C<dG>C<CdGdG>C<<CCC---c-d-E-F-f-G-R<GG-----------]2:")
680 A$=USR("\9O6FGAB>CDE<GAB>CD----A---D----->D-----------.\10O5DEFGAFGEFGAB>----D---F----->F-----------.\11O6D-<A-FGA-G-F-----F---A----->A-----------.")
690 A$=USR("\6O4GGG---G->c--c--c-- F---------------.\7O4FFF---F- G--G--G-->C---------------.\8O4DDDD---D-F--F--F-- A---------------."):RETURN