10 '[[[ RH-L1 ]]] 20 '/// WR DT 30 CLEAR&H6FFF:CLS:LOCATE8,11PRINT"WAIT 8 SEC" 40 A=&H104:N=5020:I=0:RESTORE5020 50 FORJ=0TO1:READA$:C=0 60 FORK=1TO15STEP2:D=VAL("&"+MID$(A$,K,2)):POKEA,D:A=A+1:C=C+D:NEXT:IF(255ANDC)<>VAL("&"+RIGHT$(A$,2)) THEN150 70 NEXT:I=I+1:N=N+10 80 IFI=7 N=5100:A=&H200 90 IFI=20 N=5240:A=&H330 100 IFI=33 N=5380:A=&H410 110 IFI<42 THEN50 120 '/// MK BG 130 CLS1:CALL&H104:SCREEN0,1:LOCATE2,0PRINT"スコア チャンス サツジンキ タイム":SCREEN0,0 140 CLS:PRINT"LOAD ":END 150 CLS:PRINT"DATA ERROR IN"N" -"J+1:BEEP:END 5000 '/// DATA 5010 '/ $104-$173 5020 DATA A9008590A90285917F,A9248592A9068D0121 5030 DATA 20AD0220A000B190D0,C9FFF040C8C9F0D049 5040 DATA 04E692D0F1A6928E03,06208D0620A290B1BC 5050 DATA 900A9002A2948E00F0,200AB190C8293FD06B 5060 DATA 02A940AAB00BB19091,C88D0720CAD0F7F0FD 5070 DATA C5B190C88D0720CA4C,D0FAF0BAA9908D003A 5080 DATA 20A9008D05208D050D,20A90E8D01206000E5 5090 '/ $200-$2CF 5100 DATA C0D6CAC1D6CBDED676,CADFD6CBC2D6CDDD8C 5110 DATA D6CDC3D4C1DCD4C16C,C458C1E482C1C3FBC2 5120 DATA 82C1C3E556C3EB4231,C1F342C1F00B42C3B7 5130 DATA 1342C38483C1C1C364,9B83C1C1C38B42C1F1 5140 DATA 9342C1AB4AC1CB4A61,C3CCC4C1D3C4C1ED59 5150 DATA 46FFEF02D8DAF00DE5,46FF2D46FF0E04D8A1 5160 DATA D9D9DA4483C1C1C398,5B83C1C1C34B4AC179 5170 DATA 6B4AC16D46C38B42B9,C39342C3F00401C111 5180 DATA 1B01C10B42C1134240,C12458C1435AC34EAC 5190 DATA 040B1F1D15635ACDEA,C84850D06855DA440B 5200 DATA AAE244AAEA44AAC81A,C277D0C277D8017792 5210 DATA E00177CFC2DDD7C25F,DDDF01DDE701DDC120 5220 DATA 0650A0E0F0A0A0FF05,000000000000000000 5230 '/ $330-$3FF 5240 DATA E6FAC6F2D023A91044,85F2A5F32903AAE6CB 5250 DATA F3A9FF8D0840BD406D,040AAABD2B808D0AB7 5260 DATA 4085F4BD2C808D0BBA,40A5FA29010A0A0A27 5270 DATA 859038A5F4E5908DE8,0A4038A5FCE5FB8588 5280 DATA FCA5FDF004E9008500,FDA2EFC918B0038EB0 5290 DATA 2C02C910B0038E2870,02C908B0038E24023A 5300 DATA C901B0038E2002608D,A6F8BD29041869242D 5310 DATA 8D03028D0B026930C5,8D07028D0F0238E955 5320 DATA 348D13028D1B021898,69388D17028D1F02F5 5330 DATA A6F9BD2C0469378DB9,00028D040269288DB3 5340 DATA 08028D0C0238E924EA,8D10028D14026920CB 5350 DATA 8D18028D1C02A5FAF1,2901A21C9D0202CA53 5360 DATA CACACA10F760FF00C4,00FF00FF00FF00FFFC 5370 '/ $410-$49F 5380 DATA 030305050707010120,050707010103030520 5390 DATA 000102070803060520,04004080003060FF53 5400 DATA 2666A6A6A666262630,3D3D3D6D9D9D9D6D68 5410 DATA 0E0C0709A20FA90084,9DA006CA10FAA007BE 5420 DATA B97806D016B9580634,AAB95006D005FEA02C 5430 DATA 06D008B96806F003F8,FEA8068810E2A007CD 5440 DATA B97806195006D01A90,B96806F015B9580643 5450 DATA AABDA006C901D00AB1,BDA806F005A90299A4 5460 DATA 78068810DB602D0D8B,000000000000000000