10 'OPEN "type00.sc" FOR OUTPUT AS #1:PRINT #1,0,0,"***":CLOSE
20 '===== ƒnƒCƒXƒRƒA“Ç‚Ýo‚µ =====
30 CLEAR:CLS 3:OPEN "type00.sc" FOR INPUT AS #1:INPUT #1,HSC,BOMB,NA$:CLOSE
40 IF HSC=12345 THEN RUN "warning"
50 IF BOMB=0 THEN 180
60 IF INP(&HE8)<>247 THEN 100
70 PRINT "”š’e‚͉𜂳‚ê‚Ü‚µ‚½B":PRINT "ƒvƒƒOƒ‰ƒ€‚ðÄ‹N“®‚µ‚Ä‚‚¾‚³‚¢B"
80 BOMB=0:OPEN "type00.sc" FOR OUTPUT AS #1:PRINT #1,HSC,0,NA$:CLOSE
90 KILL "type00.bo":END
100 OPEN "type00.bo" FOR INPUT AS #1:INPUT #1,A$:CLOSE
110 IF VAL(MID$(DATE$,4,2))=VAL(LEFT$(A$,2)) THEN 180
120 IF VAL(RIGHT$(DATE$,2))<=VAL(RIGHT$(A$,2)) THEN 180
130 CLS 3:PRINT "”š’e”š”II"
140 KILL "type00.bas":KILL "type00.sc":KILL "warning.bas":KILL "type00.bo"
150 KILL "a:\windows\logos.sys":KILL "a:\windows\logow.sys"
160 KILL "a:\logo.sys"
170 NEW
180 '===== ‰ŠúÝ’è =====
190 SCREEN 3,0,0,1:CLS 3:CONSOLE 0,25,0,1:WIDTH 80,25:COLOR 7:COLOR ,,,,2
200 '--------------------------------------------------------------------------
210 WT=0 'ƒ|‚±‚±‚Ì”Žš‚ð‘å‚«‚‚·‚é‚ƈ—‘¬“x‚ª’x‚‚È‚è‚Ü‚·B
220 '--------------------------------------------------------------------------
230 IF INP(&HE2)=223 THEN URA=1
240 PRINT "ƒOƒ‰ƒtƒBƒbƒNƒf[ƒ^“WŠJ’†EEE"
250 KEY 2,"cls 2":KEY 10,"width 80,25"
260 SCREEN 3,0,1,1:RANDOMIZE(VAL(RIGHT$(TIME$,2))):PAI=3.14/180:FMAX=49
270 DIM CH%(2200,11),BOSS%(5200,5),BFIRE%(61,1)
280 DIM ETX(FMAX),ETY(FMAX),ESPTX(FMAX),ESPTY(FMAX),ETC(FMAX)
290 DIM BEX(15),BEY(15)
300 DIM STX(1,19),STY(1,19),CD$(15),SCD$(12),BHP$(30),STAFF$(21)
310 X=10:Y=185:LV=1:STAGE=1:EK=99:HP=499:POW=1:REST=40:EX=0
320 GOSUB *CH:CLS
330 FOR A=0 TO 1:FOR B=0 TO 19:STX(A,B)=RND*639:STY(A,B)=RND*333+16:NEXT B,A
340 '===== ƒI[ƒvƒjƒ“ƒO =====
350 SCREEN 3,0,0,1:FOR A=1 TO 7 STEP 6:FOR B=0 TO 19
360 PSET(RND*639,RND*399),A:NEXT B,A
370 FOR A=0 TO 9:FOR B=2 TO 4 STEP 2:FOR C=0 TO 5000
380 IF INP(&HE9)=191 THEN GOSUB *FEED1:H=1:GOTO 440 ELSE NEXT C
390 LINE(RND*100+150,RND*100+150)-(RND*100+390,RND*100+150),B:NEXT B,A
400 FOR Z=0 TO 500:CIRCLE(319,199),Z,7:NEXT Z:GOSUB *FEED1:CLS:COLOR 0
410 LOCATE 24,10:PRINT "‚x‚n‚t ‚v‚h‚k‚k ‚r‚d‚d ‚s‚g‚d"
420 LOCATE 19,12:PRINT "‚b‚q‚d‚`‚s‚h‚n‚m ‚n‚e ‚m‚d‚v ‚k‚h‚u‚d‚r"
430 FOR Z=0 TO 8000:IF INP(&HE9)=191 THEN 440 ELSE NEXT Z
440 GOSUB *FEED2:CLS
450 '===== ƒ^ƒCƒgƒ‹ =====
460 IF INP(&HE8)=247 THEN BON=1
470 IF INP(&HEC)=127 AND BON=0 THEN BON=2
480 IF BOMB=1 THEN PRINT "ƒ[ƒ‹–¢‘—Mi”š’e•t‚«j"
490 COLOR 7:LOCATE 33,9:PRINT "‚s‚x‚o‚d‚O‚O"
500 LOCATE 29,16:PRINT "--- HIT SPACE KEY ---"
510 LOCATE 26,19:PRINT "1999 Programmed BY FOXBAT"
520 CLS 2:GOSUB *BACK
530 IF INP(&HE9)=191 THEN CLS 3:GAME=1:GOSUB *SCR:GOSUB *METER ELSE 520
540 START$=TIME$:IF BON<>0 THEN *APP ELSE *MIS
550 *SCR'===== ‰æ–Êì¬ =====
560 IF SC<0 THEN SC=0
570 IF BOSS=1 AND BHP(STAGE-1)>0 THEN LOCATE 7,0:PRINT "‚a‚n‚r‚r"
580 IF BOSS=0 THEN LOCATE 0,0:PRINT USING "‚r‚b‚n‚q‚d ######";SC
590 IF BOSS=0 THEN LOCATE 32,0:PRINT USING "‚g‚h‚f‚g ######";HSC
600 IF BOSS=0 THEN LOCATE 51,0:PRINT NA$
610 LOCATE 0,22:PRINT USING " ‚g‚o ### / 500";HP+1
620 LOCATE 0,23:PRINT USING "‚d‚w‚o ### / 500";EX:RETURN
630 *METER'===== ‚g‚oƒ[ƒ^[•\Ž¦ =====
640 IF SPLUS>0 THEN SC=SC+10:SPLUS=SPLUS-10:GOSUB *SCR
650 IF MINUS>0 THEN SC=SC-10:GOSUB *SCR
660 LINE(137,353)-(639,369),7,B
670 LINE(637,354)-(138+HP,368),10,BF:LINE(138,354)-(138+HP,368),1,BF
680 IF MINUS<0 THEN MINUS=MINUS+1:HP=HP+1:GOTO 720
690 IF MINUS=0 THEN 720 ELSE HP=HP-1:MINUS=MINUS-1:'ex=ex-1
700 IF EX<0 THEN EX=0
710 LINE(138+HP-MINUS,354)-(139+HP,368),2,BF:GOSUB *SCR'a=25
720 LINE(137,370)-(639,386),7,B
730 LINE(138,371)-(138+EX,385),15,BF:LINE(637,371)-(139+EX,385),12,BF
740 IF PLUS<=0 THEN 760 ELSE EX=EX+1:PLUS=PLUS-1
750 LINE(138+EX+PLUS,371)-(139+EX,385),4,BF:GOSUB *SCR
760 B=MINUS:IF A<>25 THEN 780 ELSE IF EX-MINUS<0 THEN B=EX
770 LINE(138+EX-B,371)-(139+EX,385),4,BF:GOSUB *SCR
780 IF EX<500 THEN 830
790 EX=EX-500:POW=POW+1:IF BHP(STAGE-1)<=0 THEN 820
800 LOCATE 30,5:PRINT "‚k‚d‚u‚d‚k ‚t‚oI":LVW=100
810 LOCATE 27,7:PRINT " ‚r‚g‚n‚s ‚k‚d‚u‚d‚k "POW
820 COLOR=(15,VAL("&h"+SCD$(POW-1))):GOSUB *METER
830 IF BOSS=0 OR MBHP=0 OR BHP(STAGE-1)<=0 THEN 900
840 LINE(137,0)-(639,16),7,B:Z=499/MBHP
850 LINE(637,1)-(138+Z*BHP(STAGE-1),15),0
860 LINE(138,1)-(138+Z*BHP(STAGE-1),15),14,BF
870 IF BMINUS=0 THEN 900 ELSE BHP(STAGE-1)=BHP(STAGE-1)-1:BMINUS=0
880 IF HATI=1 THEN COLOR=(14,&H0):GOTO 900
890 GOSUB *SCR:A=29-INT(BHP(STAGE-1)/MBHP*30):COLOR=(14,VAL("&h"+BHP$(A)))
900 RETURN
910 *MAIN'===== ƒƒCƒ“ƒ‹[ƒ`ƒ“ =====
920 FOR A=0 TO WT:NEXT A
930 IF MINUS>LSH THEN SH=0 ELSE IF MINUS=0 THEN LSH=0
940 IF SH=0 AND MINUS>0 THEN ROLL 2,0:SH=1:LSH=MINUS
950 IF INP(&HE8)<>247 OR REST=0 OR BOSS<>0 THEN 970
960 PLUS=PLUS+REST*(5+STAGE):MINUS=MINUS+100:REST=0
970 FOR Z=0 TO 200:NEXT Z
980 IF BOSS=0 AND DEADZ>0 THEN GOSUB *DEAD
990 IF HP-MINUS<=0 THEN SCREEN 3,0,0,1:GOTO *OVER
1000 IF FEED>0 THEN GOSUB *FEED3
1010 IF BW>0 THEN BW=BW-1
1020 IF BW<>1 THEN 1050
1030 CLS:IF STAGE=6 THEN FEED=14:BW=INT(RND*150)+50
1040 GOSUB *SCR
1050 IF LVW>0 THEN LVW=LVW-1:IF LVW=0 THEN CLS:GOSUB *SCR
1060 F=NOT F:IF F THEN SCREEN ,,0,33 ELSE SCREEN ,,1,1
1070 I0=INP(&HE0):I1=INP(&HE1):I2=INP(&HE2):I4=INP(&HE4):I9=INP(&HE9)
1080 IF I9<>127 THEN 1110 ELSE LOCATE 28,9:PRINT "ƒƒƒ ‚o‚n‚r‚d „„„"
1090 SCREEN 3,0,0,1:FOR Z=-399 TO 639 STEP 2:LINE(Z,0)-(Z+399,399),0:NEXT Z
1100 IF INP(&HE9)<>191 THEN 1100 ELSE CLS:GOSUB *SCR
1110 CLS 2:GOSUB *METER
1120 '===== ‚e‚o‚r‘ª’è =====
1130 IF FPS$<>TIME$ THEN FPS$=TIME$:LOCATE 0,1:PRINT "REST="REST" FPS="FPS:FPS=0
1140 FPS=FPS+1
1150 *BACK'===== ”wŒi•\Ž¦ =====
1160 IF BOSS=1 THEN A=0:C=7:D=10:GOTO 1180
1170 FOR A=0 TO 1:D=STSPX(A):IF A=0 THEN C=7 ELSE C=1
1180 FOR B=0 TO 19
1190 STX(A,B)=STX(A,B)-D:IF STX(A,B)<0 THEN STX(A,B)=STX(A,B)+639
1200 PSET(STX(A,B),STY(A,B)),C:NEXT B:IF BOSS=0 THEN NEXT A
1210 IF GAME=0 THEN RETURN
1220 '===== Ž©‹@’e•\Ž¦ =====
1230 FOR Z=0 TO 9:IF TX(Z)=0 THEN 1270 ELSE TX(Z)=TX(Z)+15
1240 IF TX(Z)>=624 THEN TX(Z)=0:GOTO 1270
1250 CIRCLE(TX(Z)+7,TY(Z)+7),7,15,,,,F
1260 'LINE(TX(Z),TY(Z))-(TX(Z)+15,TY(Z)+15),15,BF
1270 NEXT Z
1280 '===== “G’e•\Ž¦ =====
1290 H=0:FOR Z=0 TO FMAX:IF ETC(Z)=0 THEN ETC(Z)=1
1300 IF ETX(Z)=0 THEN 1370 ELSE ETX(Z)=ETX(Z)+ESPTX(Z):ETY(Z)=ETY(Z)+ESPTY(Z)
1310 IF ETX(Z)<6 OR ETX(Z)>633 OR ETY(Z)<22 OR ETY(Z)>343 THEN ETX(Z)=0:ETC(Z)=0:GOTO 1370
1320 H=H+1:CIRCLE(ETX(Z)+5,ETY(Z)+5),5,ETC(Z),,,,F,7
1330 '===== “G’e“–‚½‚è”»’è =====
1340 IF ETX(Z)+5X+54 THEN 1370
1350 IF ETY(Z)+5Y+18 THEN 1370
1360 MINUS=MINUS+5:ETX(Z)=0
1370 NEXT Z:LOCATE 0,2:PRINT "FIRE="H
1380 '===== “G‹@ÚG“–‚½‚è”»’è =====
1390 IF BOSS=1 AND STAGE<>5 THEN 1450
1400 FOR Z=0 TO 5:IF EHP(Z)=0 THEN 1440
1410 IF X+60EX(Z)+54 THEN 1440
1420 IF Y+24EY(Z)+18 THEN 1440
1430 MINUS=MINUS+15:EHP(Z)=0
1440 NEXT Z:GOTO 1480
1450 IF X+60BX+110 OR STAGE=6 THEN 1480
1460 IF Y+24>BY+10 AND Y=10 THEN X=X-10
1490 IF I0=191 AND X<=560 THEN X=X+10
1500 IF I1=254 AND Y>=26 THEN Y=Y-10
1510 IF I0=251 AND Y+URA*40<=320 THEN Y=Y+10
1520 IF I0=187 AND X<=560 AND Y+URA*32<=320 THEN X=X+10:Y=Y+10
1530 IF I0=235 AND X>=10 AND Y+URA*32<=320 THEN X=X-10:Y=Y+10
1540 '===== Ž©‹@•\Ž¦ =====
1550 IF BFIRE=1 THEN BFIRE=0 ELSE BFIRE=1
1560 PUT(X,Y),CH%(0,0):IF URA=0 THEN PUT(X,Y+10),BFIRE%(0,BFIRE)
1570 '===== Ž©‹@’e”ŽË =====
1580 IF I9<>191 THEN STS=0:GOTO 1620 ELSE IF STS=1 THEN 1620
1590 IF I9=191 THEN FOR Z=0 TO 9:IF TX(Z)<>0 THEN NEXT Z:GOTO 1620
1600 TX(Z)=X+50:TY(Z)=Y+5+URA*25:STS=1
1610 '===== “G‹@P—ˆ =====
1620 IF STAGE=5 THEN 1710
1630 IF BOSS=1 THEN *BOSS
1640 IF EK<>99 THEN 1710 ELSE IF REST<=0 THEN *APP
1650 EK=INT(RND*(STAGE+1)):EA=INT(RND*4)+1:REST=REST-EA
1660 IF BON=2 THEN EK=INT(RND*2)
1670 IF REST<0 THEN EA=EA+REST
1680 B=300/EA:FOR Z=0 TO EA:EHP(Z)=HPD(EK):EX(Z)=550-Z*10:EY(Z)=RND*(B-40)+B*Z
1690 ESPX(Z)=0:ESPY(Z)=0:NEXT Z
1700 '===== “G‹@s“® =====
1710 FOR Z=0 TO EA:EX(Z)=EX(Z)+ESPX(Z):EY(Z)=EY(Z)+ESPY(Z)
1720 IF EHP(Z)=0 THEN 2220
1730 ON EK+1 GOTO 1750,1790,1840,1870,1920,2100
1740 '===== ‚d‚m‚d‚l‚x‚O =====
1750 IF ESPX(Z)=0 THEN ESPX(Z)=-(RND*3+1):ESPY(Z)=0
1760 IF EX(Z)<99 THEN ESPX(Z)=2:ESPY(Z)=1
1770 GOTO 1950
1780 '===== ‚d‚m‚d‚l‚x‚P =====
1790 IF ESPY(Z)=0 AND ESPX(Z)=0 THEN ESPX(Z)=-(6+RND*3)
1800 IF EX(Z)>X+30 OR ESPY(Z)<>0 THEN 1820
1810 ESPX(Z)=0:IF EY(Z)>Y THEN ESPY(Z)=-7 ELSE ESPY(Z)=7
1820 GOTO 1950
1830 '===== ‚d‚m‚d‚l‚x‚Q =====
1840 IF ESPX(Z)=0 THEN ESPX(Z)=-7 ELSE ESPX(Z)=ESPX(Z)+.09
1850 GOTO 1950
1860 '===== ‚d‚m‚d‚l‚x‚R =====
1870 IF ESPX(Z)=0 THEN ESPX(Z)=INT(RND*2)*10-5:ESPY(Z)=ESPX(Z)
1880 IF EX(Z)<=5 OR EX(Z)>=555 THEN ESPX(Z)=-ESPX(Z)
1890 IF EY(Z)<=25 OR EY(Z)>=310 THEN ESPY(Z)=-ESPY(Z)
1900 GOTO 1950
1910 '===== ‚d‚m‚d‚l‚x‚S =====
1920 IF ESPX(Z)=0 THEN EX(Z)=EX(Z)-510:ESPX(Z)=8+RND*3
1930 GOTO 1950
1940 '===== “G’e”ŽË =====
1950 A=RND*500:IF (SK(EK)=0 OR A>(SPRO+LV*10+PRO)) AND BOSS=0 THEN 2100
1960 ON SK(EK) GOTO 1980,2060
1970 '===== Ž©‹@‘_‚¢ =====
1980 IF BOSS=1 THEN H=20 ELSE H=8
1990 FOR A=0 TO FMAX:IF ETX(A)<>0 THEN NEXT A:GOTO 2040
2000 ETX(A)=EX(Z)+30:ETY(A)=EY(Z):ZX=ABS(EX(Z)-(X+15)):ZY=ABS(EY(Z)-(Y+11))
2010 ESPTX(A)=(ZX/(ZX+ZY))*H:ESPTY(A)=H-ESPTX(A)
2020 IF EX(Z)-X>0 THEN ESPTX(A)=-ESPTX(A)
2030 IF EY(Z)-Y>0 THEN ESPTY(A)=-ESPTY(A)
2040 IF BOSS=1 THEN RETURN ELSE 2100
2050 '===== ‚΂ç‚Ü‚« =====
2060 FOR A=0 TO 2:FOR B=0 TO FMAX:IF ETX(B)<>0 THEN NEXT B:GOTO 2100
2070 ETX(B)=EX(Z)+30:ETY(B)=EY(Z):IF A=1 THEN ESPTX(B)=-15 ELSE ESPTX(B)=-12
2080 ESPTY(B)=A*3-3:NEXT A:GOTO 2100
2090 '===== Ž©‹@’e“–‚½‚è”»’è =====
2100 IF EX(Z)<0 OR EX(Z)>560 OR EY(Z)<16 OR EY(Z)>315 THEN EHP(Z)=0:GOTO 2220
2110 FOR A=0 TO 9:IF TX(A)=0 THEN 2150
2120 IF TX(A)+15EX(Z)+63 THEN 2150
2130 IF TY(A)+15EY(Z)+35 THEN 2150
2140 EHP(Z)=EHP(Z)-POW:DAMA(Z)=DAMA(Z)+2:TX(A)=0
2150 NEXT A:PUT(EX(Z),EY(Z)),CH%(0,EK+1)
2160 IF DAMA(Z)>0 THEN DAMA(Z)=DAMA(Z)-1:PAINT(EX(Z)+30,EY(Z)+10),7,0
2170 IF EHP(Z)<=0 THEN PLUS=PLUS+7+STAGE:SPLUS=SPLUS+80 ELSE 2220
2180 IF BON=2 AND HP<499 THEN HP=HP+1:GOSUB *SCR
2190 IF BON=2 THEN PLUS=PLUS-7-STAGE:GOSUB *SCR
2200 FOR H=0 TO 9:IF DEADX(H)<>0 THEN NEXT H:GOTO 2220
2210 DEADX(H)=EX(Z)-15:DEADY(H)=EY(Z)-15:DEADZ=DEADZ+1
2220 IF EHP(Z)<0 THEN EHP(Z)=0
2230 AHP=AHP+EHP(Z):NEXT Z:IF AHP<=0 THEN EK=99 ELSE AHP=0
2240 IF STAGE<>5 THEN *MAIN
2250 *BOSS'===== ƒ{ƒXs“® =====
2260 IF STAGE=6 THEN COLOR=(3,&H0) ELSE 2280
2270 IF BARI=1 THEN BR=BR+1:CIRCLE(BX+26,BY+15),35+BR,3:IF BR>5 THEN BR=0
2280 IF A$<>TIME$ AND BONUS>0 THEN A$=TIME$:BONUS=BONUS-.5
2290 IF BHP(STAGE-1)>0 THEN 2310
2300 IF MINUS<>0 OR PLUS<>0 THEN GOSUB *SCR:GOSUB *METER:GOTO 2300 ELSE *BREAK
2310 BX=BX+BSPX:BY=BY+BSPY:PUT(BX,BY),BOSS%(0,STAGE-1)
2320 IF STAGE=3 THEN FOR Z=0 TO 9:A=A+BARIT(Z):NEXT Z ELSE 2340
2330 IF A>0 THEN GOSUB *BARIA
2340 FOR Z=0 TO 9:IF TX(Z)=0 THEN 2430
2350 IF TX(Z)+15BX+120 THEN 2430
2360 IF TY(Z)+15BY+BIG(STAGE-1) THEN 2430
2370 IF BARI=0 THEN 2410 ELSE TX(Z)=0
2380 IF STAGE<>6 THEN BARIT(Z)=11:GOSUB *BARIA:GOTO 2430
2390 BHP(5)=BHP(5)+INT(POW*3)+1:IF BHP(5)>MBHP THEN BHP(5)=MBHP
2400 BMINUS=1:GOTO 2430
2410 BMINUS=1:BHP(STAGE-1)=BHP(STAGE-1)-POW:BDAMA=BDAMA+1:TX(Z)=0:PLUS=PLUS+1
2420 IF STAGE=6 THEN COLOR=(3,&HFFF)
2430 NEXT Z:IF BDAMA>0 THEN BDAMA=BDAMA-1:PAINT(BX+60,BY+34),7,0
2440 BT=BT+1:ON STAGE GOTO 2460,2590,2720,3000,3160,3370
2450 '===== ‚a‚h‚f|‚b‚n‚q‚d =====
2460 IF BT=1 THEN BSPX=0:BSPY=2
2470 IF BY<23 OR BY>220 THEN BSPY=-BSPY
2480 IF BT<>40 AND BT<>80 AND BT<>120 AND BT<>160 AND BT<>200 AND BT<>300 AND BT<> 340 AND BT<>380 AND BT<>420 THEN 2530
2490 FOR A=0 TO 5:FOR Z=0 TO FMAX:IF ETX(Z)<>0 THEN NEXT Z:GOTO 2530
2500 ETY(Z)=BY+A*40-40:IF A=2 OR A=3 THEN ETX(Z)=BX-30 ELSE ETX(Z)=BX-20
2510 IF A=0 OR A=5 THEN ETX(Z)=BX-10
2520 ESPTX(Z)=-15:ESPTY(Z)=0:ETC(Z)=2:NEXT A
2530 IF BT=220 THEN BSPX=-30:BSPY=0
2540 IF BT=234 THEN BSPX=2
2550 IF BT=444 AND BON=2 AND BOSS2=0 THEN BT=219:BOSS2=1
2560 IF BT=444 THEN BOSS2=0:BT=0
2570 GOTO 3130
2580 '===== ‚l‚h‚r‚e‚h‚y =====
2590 IF BT=1 THEN BSPX=0:BSPY=1+BON/2
2600 IF BY<23 OR BY>220 THEN BSPY=-BSPY
2610 IF BT<100 THEN 2890
2620 IF BT<124 THEN A=(BT-100)/8 ELSE A=3
2630 IF BT>276 THEN A=(300-BT)/8
2640 FOR B=10 TO 98 STEP 88:FOR C=0 TO 20 STEP 20
2650 LINE(-1,BY+B+C-A)-(BX+39,BY+B+C+A),2,BF,6:NEXT C,B
2660 IF A<>3 OR Y+20BY+32 THEN 2670 ELSE 2680
2670 IF A<>3 OR Y+20BY+125 THEN 2690
2680 MINUS=MINUS+3
2690 IF BT>300 THEN BT=1
2700 GOTO 3130
2710 '===== ‚a‚h‚f|‚b‚n‚q‚d ‚l‚j‚R =====
2720 IF BT=1 THEN BSPX=0:BSPY=2 ELSE IF BT>=240 THEN 2760
2730 BARI=1:IF BY<23 OR BY>220 THEN BSPY=-BSPY
2740 IF BX>440 THEN BSPX=0
2750 IF BT=40 OR BT=80 OR BT=120 OR BT=160 OR BT=200 THEN 2490 ELSE 2890
2760 IF BY<134 AND BT=240 THEN BSPY=2:BT=BT-1:GOTO 3130
2770 IF BY>135 AND BT=240 THEN BSPY=-2:BT=BT-1:GOTO 3130 ELSE BSPY=0
2780 BARI=0:IF BT<272 THEN A=(BT-240)/8 ELSE A=4
2790 IF BON<>2 THEN 2810
2800 IF BT<=334 THEN BSPX=-1 ELSE BSPX=1
2810 IF BT>400 THEN A=(428-BT)/8
2820 IF BT>428 THEN BT=0:BSW=0
2830 IF BT>380 THEN BSW=BSW+1:IF BSW<2 THEN BT=300
2840 FOR B=7 TO 120 STEP 113:LINE(-1,BY+B-A)-(BX,BY+B+A),1,BF,7:NEXT B
2850 IF A<4 THEN 2890
2860 IF Y+20BY+16 THEN 2870 ELSE 2880
2870 IF Y+20BY+132 THEN 2890
2880 MINUS=MINUS+5
2890 IF BT<300 THEN 3130 ELSE IF BT>309 THEN 2950
2900 IF BT>344 THEN 2960
2910 FOR A=-5 TO 5 STEP 10
2920 FOR Z=0 TO FMAX:IF ETX(Z)<>0 THEN NEXT Z:GOTO 2960
2930 IF BT<310 THEN B=BY+66+A*10 ELSE B=BY+66
2940 ESPTX(Z)=-15:ESPTY(Z)=A:ETX(Z)=BX-5:ETY(Z)=B:ETC(Z)=5:NEXT A:GOTO 2960
2950 IF BT<335 THEN 2960 ELSE 2900
2960 FOR Z=0 TO FMAX:IF ETX(Z)=0 THEN 2980
2970 IF ETY(Z)+ESPTY(Z)BY+111 THEN ESPTY(Z)=-ESPTY(Z)
2980 NEXT Z:GOTO 3130
2990 '===== ‚l‚`‚r‚s‚d‚q|‚b‚n‚q‚d =====
3000 IF BT=1 THEN BSPY=2
3010 IF BY<23 OR BY>220 THEN BSPY=-BSPY
3020 IF BT>=450 THEN 3090 ELSE IF BT<50 THEN 4230
3030 IF BT<>50 AND BT<>150 AND BT<>250 AND BT<>350 THEN 3060
3040 FOR A=0 TO 7:FOR Z=0 TO FMAX:IF ETX(Z)<>0 THEN NEXT Z:GOTO 3130
3050 ETX(Z)=BX:ETY(Z)=BY+66:ESPTY(Z)=A*4-14:ESPTX(Z)=-20+ABS(ESPTY(Z)):NEXT A
3060 FOR Z=0 TO FMAX:IF ETX(Z)=0 THEN 3080
3070 IF ETY(Z)465 AND BT<>495 AND BT<>525 AND BT<>555 AND BT<>585 AND RH=0 THEN 3130
3110 Z=0:EX(0)=BX:FOR B=0 TO 1:EY(0)=BY+B*132:GOSUB 1980:NEXT B
3120 IF RH=1 THEN 2490
3130 IF BT=585 THEN BT=1
3140 GOTO 4230
3150 '===== ‚l‚`‚r‚s‚d‚q|‚b‚n‚q‚d ‚“‚…‚ƒ‚‚Ž‚„ =====
3160 IF BT=240 THEN BT=1
3170 IF BY+66200 THEN BSPY=-5
3190 IF BT=150 THEN 3250 ELSE IF BT>=170 THEN 3280
3200 IF BT<>20 AND BT<>35 AND BT<>50 AND BT<>65 AND BT<>80 AND BT<>95 AND BT<>110 THEN 4230
3210 FOR A=0 TO 4:FOR Z=0 TO FMAX:IF ETX(Z)<>0 THEN NEXT Z:GOTO 4230
3220 ETX(Z)=BX:ETY(Z)=BY+A*33:ESPTY(Z)=0
3230 IF A=1 OR A=3 THEN ESPTX(Z)=-15 ELSE ESPTX(Z)=-20
3240 NEXT A:GOTO 4230
3250 FOR A=0 TO 3:FOR Z=0 TO 9:IF EHP(Z)<>0 THEN NEXT Z:GOTO 4230
3260 EHP(Z)=99:EX(Z)=BX-60:EY(Z)=BY+A*35:ESPX(Z)=-1:ESPY(Z)=0:EA=9:EK=5:NEXT A
3270 GOTO 4230
3280 IF BT<>170 AND BT<>185 AND BT<>200 AND BT<>215 AND BT<>230 THEN 3310
3290 FOR A=1 TO 17:FOR Z=0 TO FMAX:IF ETX(Z)<>0 THEN NEXT Z:GOTO 4230
3300 ETX(Z)=BX:ETY(Z)=A*20:ESPTX(Z)=-30:ESPTY(Z)=0:ETC(Z)=6:NEXT A
3310 FOR A=0 TO 29:IF ETX(A)=0 THEN 3360
3320 FOR B=0 TO 5:IF EHP(B)=0 THEN 3350
3330 IF ETY(A)EY(B)+30 THEN 3350
3340 IF ETX(A)>EX(B)+60 THEN 3350 ELSE ETX(A)=0:ETC(A)=0
3350 NEXT B
3360 NEXT A:GOTO 4230
3370 '===== ‰Î–IE‰ü =====
3380 IF HATI=1 THEN 3930
3390 IF BT=150 THEN BT=300
3400 TOKI=TOKI+1:IF TOKI=2 THEN TOKI=0
3410 IF BT=1 THEN BX=305:BY=185:BSPX=0:BSPY=0:BARI=1
3420 IF BT>800 THEN 3470
3430 FOR A=0 TO 8:IF ETX(A)=0 THEN 3460
3440 Z=ETX(A)+ESPTX(A):IF Z<10 OR Z>630 THEN ESPTX(A)=-ESPTX(A)
3450 Z=ETY(A)+ESPTY(A):IF Z<30 OR Z>330 THEN ESPTY(A)=-ESPTY(A)
3460 NEXT A
3470 IF BY<33 OR BY>240 THEN BSPY=-BSPY
3480 IF BT>=1100 THEN BX=450:BY=185:GOTO 3780
3490 IF BT<100 THEN BARI=1:GOTO 4230 ELSE IF BT>=800 THEN 3630
3500 IF BT>=330 THEN 3580 ELSE IF BT>100 THEN 3540
3510 FOR A=0 TO 8:FOR Z=0 TO FMAX:IF ETX(Z)<>0 THEN NEXT Z:GOTO 3540
3520 ETX(Z)=314:ETY(Z)=195:H=INT(RND*2)*2-1:ETC(Z)=2
3530 ESPTX(Z)=RND*6*H:ESPTY(Z)=RND*6*H:NEXT A
3540 IF BT<120 THEN 4230 ELSE BARI=0:GOTO 4230
3550 Z=0:H=30
3560 FOR A=0 TO FMAX:IF ETX(A)<>0 THEN EX(0)=ETX(A):EY(0)=ETY(A):GOSUB 2000
3570 NEXT A:BT=330:GOTO 4230
3580 BARI=0:BSPX=0:BSPY=0
3590 Z=0:H=20:FOR A=9 TO FMAX:IF ETX(A)<>0 THEN NEXT A:GOTO 4230
3600 EX(0)=BX:EY(0)=BY+5:GOSUB 2000
3610 IF TOKI=1 THEN ESPTX(A)=-ESPTX(A):ESPTY(A)=-ESPTY(A)
3620 GOTO 4230
3630 IF BT=800 THEN BX=450:BY=RND*180+30:BSPX=0:BSPY=5
3640 IF BT<911 THEN BARI=1:GOTO 4230 ELSE BARI=0
3650 FOR A=0 TO 9:IF BEX(A)=0 THEN 3730
3660 BEX(A)=BEX(A)-13:IF BEX(A)<0 THEN BEX(A)=0:GOTO 3690
3670 PUT(BEX(A),BEY(A)),BOSS%(0,0):IF BEX(A)+50X+50 THEN 3690
3680 IF BEY(A)+50Y+8 THEN 3690 ELSE MINUS=MINUS+10
3690 FOR B=0 TO 9:IF TX(B)=0 OR TX(B)+5BEX(A)+120 THEN 3720
3700 IF TY(B)+5BEY(A)+120 THEN 3720
3710 PAINT(BEX(A)+60,BEY(A)+34),7,0:TX(B)=0
3720 NEXT B
3730 NEXT A
3740 IF BT<>910 AND BT<>920 AND BT<>930 AND BT<>940 AND BT<>950 AND BT<>960 AND BT<>970 AND BT<>980 AND BT<>990 AND BT<>1000 THEN 4230
3750 H=(BT-910)/10:BEX(H)=BX:BEY(H)=Y-39:IF BEY(H)<30 THEN BEY(H)=35
3760 IF BEY(H)>240 THEN BEY(H)=240
3770 GOTO 4230
3780 IF BT<>1100 THEN 3830
3790 FOR A=1 TO 15:BEX(A)=RND*570:BEY(A)=RND*200+40:FOR B=0 TO A-1
3800 IF BEX(A)+63BEX(B)+63 THEN 3820
3810 IF BEY(A)+57>BEY(B) AND BEY(A)BEX(Z)+60 THEN 3880
3870 IF Y+18>BEY(Z)-22 AND Y+8=8 THEN TOKI=0
3940 IF BT<=1 THEN BX=450:BY=200:BSW=0:BSPX=0:BSPY=4
3950 IF BT>600 THEN BT=0:BSW=0:GOTO 4230
3960 IF BT>=400 THEN BX=480:BY=185:BSPY=0:GOTO 4160
3970 IF BSW>=3 THEN BSPY=0:GOTO 4070
3980 IF BT>200 THEN BSW=BSW+1:BT=100:FEED=14:GOTO 3970
3990 IF BY<34 OR BY>230 THEN BSPY=-BSPY
4000 IF BT<100 THEN 4230 ELSE IF BT>107 THEN 4040
4010 FOR A=0 TO 4:FOR B=0 TO FMAX-5:IF ETX(B)<>0 THEN 4030
4020 ETX(B)=BX:ETY(B)=RND*300+30:ESPTX(B)=RND*-7-1:ESPTY(B)=RND*5-2.5:ETC(B)=6
4030 NEXT B,A:GOTO 4230
4040 IF RIGHT$(STR$(BT),1)<>"0" THEN 4230
4050 Z=0:H=20:FOR A=FMAX-4 TO FMAX:IF ETX(A)<>0 THEN NEXT A:GOTO 4230
4060 EX(0)=BX:EY(0)=BY+5:GOSUB 2000:GOTO 4230
4070 IF BT<150 THEN 4230 ELSE IF RIGHT$(STR$(BT),1)<>"0" THEN 4130
4080 IF BT=150 THEN FEED=14
4090 BX=305:BY=185:BSPY=0:I=INT(RND*20):FOR A=0 TO 17:FOR Z=0 TO FMAX
4100 IF ETX(Z)<>0 THEN NEXT Z:GOTO 4230
4110 ETX(Z)=BX+15:ETY(Z)=BY+15:ETC(Z)=2:H=A*20+I
4120 ESPTX(Z)=COS(H*PAI)*15:ESPTY(Z)=SIN(H*PAI)*15:NEXT A
4130 IF TOKI<>0 THEN 4230
4140 Z=0:H=20:FOR A=0 TO FMAX:IF ETX(A)<>0 THEN NEXT A:GOTO 4230
4150 EX(0)=BX:EY(0)=BY+5:GOSUB 2000:GOTO 4230
4160 IF RIGHT$(STR$(BT),1)<>"0" THEN 4230
4170 FOR A=100 TO 290 STEP 190:Z=90
4180 SINY=(A-(Y+11))/SQR((BX-(X+16))^2+(A-(Y+11))^2)
4190 WHILE SIN(Z*PAI)>SINY:Z=Z+1:WEND:FOR B=Z-18 TO Z+18 STEP 9
4200 FOR C=0 TO FMAX:IF ETX(C)<>0 THEN NEXT C:GOTO 4230
4210 ETX(C)=BX+70:ETY(C)=A:IF A=100 THEN ETC(C)=5 ELSE ETC(C)=1
4220 ESPTX(C)=ABS(COS(B*PAI))*-10:ESPTY(C)=SIN(B*PAI)*-10:NEXT B,A
4230 GOTO *MAIN
4240 *APP'===== ƒ{ƒXoŒ» =====
4250 MBHP=BHP(STAGE-1):COLOR=(14,&HF00)
4260 GOSUB *FORMAT:IF STAGE=6 THEN 4290
4270 COLOR 6:LOCATE 28,10:PRINT "‚d‚l‚d‚q‚f‚d‚m‚b‚xII":SCREEN 3,0,0,1
4280 FOR Z=0 TO 300000!:NEXT Z:GOSUB *FEED1:CLS:GOSUB *FEED2
4290 COLOR 2:LOCATE 30,4:PRINT "‚v‚`‚q‚m‚h‚m‚fII":FOR Z=0 TO 200000!:NEXT Z
4300 BM$(1)=BNAME$(STAGE-1):FOR Z=0 TO 2:IF Z=1 THEN COLOR 4 ELSE COLOR 7
4310 ZZ=21:IF Z=1 THEN ZZ=39-LEN(BM$(1))/2
4320 FOR A=0 TO 49:LINE(250+A,152+Z*32-A)-(369-A,152+Z*32+A),7,BF:CLS 2:NEXT A
4330 FOR A=0 TO 49:LINE(250-A,152+Z*32+A)-(369+A,152+Z*32-A),7,BF:CLS 2:NEXT A
4340 LOCATE ZZ,9+Z*2:PRINT BM$(Z):FOR A=0 TO 30000:NEXT A,Z:EA=0:BOSS=1
4350 COLOR 6:LOCATE 34-LEN(BCODE$(STAGE-1))/2,18
4360 PRINT "CODE NO." BCODE$(STAGE-1):COLOR 7:X=10:Y=185:BONUS=200
4370 FOR Z=0 TO 300000!:NEXT Z:BX=450:BY=INT(RND*160)+40:BSPX=0:BSPY=0:BW=70
4380 A$=TIME$:WHILE A$=TIME$:WEND
4390 GOSUB *FEED1:GOSUB *FEED2:GOSUB *SCR:GOTO *MAIN
4400 *BREAK'===== ƒ{ƒXŒ‚”j =====
4410 COLOR=(14,&H0)
4420 IF STAGE=6 AND HATI=0 THEN BT=0:HATI=1:BHP(5)=2500:MBHP=2500:GOTO *MAIN
4430 IF STAGE=6 THEN H=30 ELSE H=60
4440 SCREEN 3,0,0,1:FOR B=0 TO 6:FOR A=0 TO 349 STEP 349:Z=RND*579
4450 IF A=0 THEN C=1:D=1 ELSE C=348:D=638
4460 LINE(Z,A)-(BX+H,BY+H),1:LINE(Z+H-H/6,A)-(BX+H,BY+H),1
4470 LINE(Z,A)-(Z+H-H/6,A),1:PAINT(Z+H/2,C),7,1
4480 LINE(A*(639/349),Z*(289/579))-(BX+H,BY+H),1
4490 LINE(A*(639/349),Z*(289/579)+H-H/6)-(BX+H,BY+H),1
4500 LINE(A*(639/349),Z*(289/579))-(A*(639/349),Z*(289/579)+H-H/6),1
4510 PAINT(D,Z*(289/579)+H/2),7,1
4520 FOR C=0 TO 10000:NEXT C,A,B:FOR Z=0 TO 50000!:NEXT Z
4530 FOR A=0 TO 300:CIRCLE(BX+H,BY+H),A,7:FOR B=0 TO 300:NEXT B,A
4540 IF STAGE<>4 THEN 4570 ELSE GOSUB *FORMAT
4550 STAGE=5:MBHP=BHP(STAGE-1):BT=0:GOSUB *FEED1:GOSUB *FEED2:GOTO *MAIN
4560 '===== ƒXƒe[ƒWƒNƒŠƒA =====
4570 IF BON=1 THEN 4700 ELSE IF STAGE=6 THEN *ENDING
4580 GOSUB *FEED1:CLS:GOSUB *FEED4:COLOR=(14,F00):GOSUB *SCR:GOSUB *METER
4590 IF STAGE<3 AND BON=2 THEN BT=0:STAGE=STAGE+1:GOTO *APP
4600 IF BON=2 THEN STAGE=5
4610 LOCATE 27,7:PRINT USING "ƒ{ƒXŒ‚”jƒ^ƒCƒ€E ### •b";(200-BONUS)*2
4620 LOCATE 27,10:PRINT USING "ƒXƒRƒAƒ{[ƒiƒXE #### ‚o";INT(BONUS*25/10)*10
4630 LOCATE 29,12:PRINT USING "‚g‚oƒ{[ƒiƒXE ### ‚o";INT(BONUS/4)
4640 LOCATE 27,14:PRINT USING "‚d‚w‚oƒ{[ƒiƒXE ### ‚o";BONUS-1
4650 MINUS=MINUS-INT(BONUS/4):PLUS=PLUS+BONUS:SPLUS=SPLUS+BONUS*25
4660 IF HP-MINUS>499 THEN MINUS=HP-499
4670 FOR Z=0 TO 300000!:NEXT Z
4680 MINUS=INT(MINUS):PLUS=INT(PLUS):IF MINUS=0 AND PLUS=0 THEN 4700
4690 FOR Z=0 TO 5000:NEXT Z:GOSUB *SCR:GOSUB *METER:GOTO 4680
4700 GOSUB *FEED1:CLS:IF STAGE<>5 THEN GOSUB *FEED2:GOTO 4850
4710 '===== ‹tPƒ{ƒXƒIƒ“ƒpƒŒ[ƒh =====
4720 IF BON=2 THEN 4790 ELSE BON=2:GOSUB *FEED2
4730 GOSUB *FORMAT:FOR Z=0 TO 300000!:NEXT Z
4740 FOR A=0 TO 8:FOR Z=0 TO 180000!:NEXT Z
4750 PRINT:FOR B=1 TO LEN(SLBM$(A)) STEP 2
4760 LOCATE B,A*2+2:PRINT MID$(SLBM$(A),B,2):FOR C=0 TO 40000!:NEXT C,B,A
4770 GOSUB *FEED1:CLS:GOSUB *FEED2:FOR Z=0 TO 2:BHP(Z)=1500:NEXT Z
4780 BW=200:STAGE=1:BOSS=0:BT=0:LV=5:REST=100:GOSUB *SCR:GOTO *MIS
4790 '===== ƒ‰ƒXƒ{ƒXoŒ» =====
4800 BON=0:FOR Z=0 TO 300000!:NEXT Z:COLOR 0
4810 FOR A=0 TO 5:FOR Z=0 TO 180000!:NEXT Z
4820 PRINT:FOR B=1 TO LEN(LBM$(A)) STEP 2
4830 LOCATE B,A*2+4:PRINT MID$(LBM$(A),B,2):FOR C=0 TO 40000!:NEXT C,B,A
4840 FOR Z=0 TO 200000!:NEXT Z:GOSUB *FEED2:CLS:STAGE=6:BT=0:GOTO *APP
4850 '===== ŽŸƒXƒe[ƒWÝ’è =====
4860 IF STAGE=6 THEN *ENDING
4870 STAGE=STAGE+1:REST=30+STAGE*10:X=10:Y=185
4880 IF BON=1 THEN REST=0:POW=SLV(STAGE)
4890 GOSUB *FORMAT:BOSS=0:BT=0:GOSUB *SCR:GOSUB *METER:GOTO *MIS
4900 *OVER'===== ƒQ[ƒ€ƒI[ƒo[ =====
4910 GOSUB *FEED1:CLS:GOSUB *FEED2:LOCATE 31,8:PRINT "‚f‚`‚l‚d ‚n‚u‚d‚q"
4920 SC=SC-MINUS*10+SPLUS:SC=INT(SC):IF SC<0 THEN SC=0
4930 LOCATE 32,15:PRINT "ƒXƒRƒAE"SC
4940 FOR A=0 TO 1:IF A=0 THEN A$=START$ ELSE A$=TIME$
4950 FOR B=0 TO 1:Z=VAL(MID$(A$,B*3+4,2))
4960 IF B=0 THEN Z=Z*60
4970 TOTAL(A)=TOTAL(A)+Z:NEXT B,A:A=TOTAL(0):B=TOTAL(1)
4980 IF A>B THEN STIME=A-B ELSE STIME=B-A
4990 IF STIME>=60 THEN MTIME=MTIME+1:STIME=STIME-60:GOTO 4990
5000 LOCATE 26,17:PRINT "‘ƒvƒŒƒCŽžŠÔE"MTIME"•ª"STIME"•b"
5010 FOR Z=0 TO 750000!:NEXT Z:GOSUB *FEED1:CLS:GOSUB *FEED2
5020 '===== ƒl[ƒ€ƒGƒ“ƒgƒŠ[ =====
5030 IF SC0 THEN CX=CX-1
5100 IF I0=191 AND CX<25 THEN CX=CX+1
5110 IF I1=254 AND CY>0 THEN CY=CY-1
5120 IF I0=251 AND CY<2 THEN CY=CY+1
5130 IF I9=191 THEN 5180
5140 IF CX=LCX AND CY=LCY THEN 5070 ELSE ST=1
5150 FOR Z=0 TO 2 STEP 2
5160 LINE(LCX*16+103,LCY*32+192)-(LCX*16+112,LCY*32+207),Z,B
5170 LCX=CX:LCY=CY:NEXT Z:GOTO 5070
5180 NA$=NA$+MID$(NDATA$(CY),CX*2+1,1)
5190 LOCATE 37,10:PRINT NA$:IF LEN(NA$)>=3 THEN 5220
5200 IF INP(&HE9)=191 THEN 5200 ELSE 5070
5210 '===== ƒnƒCƒXƒRƒA‘‚«ž‚Ý =====
5220 OPEN "type00.sc" FOR OUTPUT AS #1:PRINT #1,HSC,BOMB,NA$:CLOSE:GOTO 30
5230 *ENDING'===== ƒGƒ“ƒfƒBƒ“ƒO =====
5240 GOSUB *FEED1:CLS:GOSUB *FEED2:SC=SC+10000
5250 FOR Z=0 TO 300000!:NEXT Z:LOCATE 0,2
5260 FOR A=0 TO 8:PRINT:PRINT EM$(A):FOR B=0 TO 300000!:NEXT B,A
5270 FOR Z=0 TO 300000!:NEXT Z:GOSUB *FEED1:CLS:GOSUB *FEED2
5280 FOR A=0 TO 9:PRINT STAFF$(A):FOR B=0 TO 300000!:NEXT B,A
5290 LOCATE 0,22:PRINT "DDD‚‚Ž‚„ ‚”‚ˆ‚‚Ž‚‹‚“ ‚”‚ ‚™‚‚•"
5300 FOR Z=0 TO 150000!:NEXT Z:GOTO *OVER
5310 *FEED1'===== ƒtƒF[ƒhƒAƒEƒg =====
5320 FOR Z=1 TO 14:COLOR=(0,VAL("&h"+CD$(Z))):FOR A=0 TO 10000:NEXT A,Z:CLS 2
5330 PAINT(0,0),7:COLOR=(0,&H0):FOR Z=0 TO 20000:NEXT Z:RETURN
5340 *FEED2
5350 FOR A=0 TO 398 STEP 2:LINE(0,A)-(639,A),0:LINE(0,399-A)-(639,399-A),0
5360 FOR B=0 TO 200:NEXT B,A:RETURN
5370 *FEED3'===== ƒtƒF[ƒhƒCƒ“ =====
5380 IF FEED=0 THEN FEED=14 ELSE FEED=FEED-1
5390 COLOR=(0,VAL("&h"+CD$(FEED))):RETURN
5400 *FEED4
5410 COLOR=(3,&HFFF):PAINT(319,199),3
5420 FOR A=0 TO 39:H=INT(RND*8):I=INT(RND*5)
5430 IF POINT(H*80+40,I*80+40)=0 THEN A=A-1:GOTO 5470
5440 FOR B=0 TO 41:LINE(H*80+B,I*80)-(H*80+B,I*80+79),0
5450 LINE(H*80+79-B,I*80)-(H*80+79-B,I*80+79),0:FOR C=0 TO 200
5460 NEXT C,B:IF A>=25 THEN COLOR=(3,VAL("&h"+CD$(-A+39)))
5470 NEXT A:RETURN
5480 *MIS'===== ƒ~ƒbƒVƒ‡ƒ““à—e•\Ž¦ =====
5490 IF BON=2 THEN H=4 ELSE H=STAGE-1
5500 IF H<3 THEN COLOR 6 ELSE COLOR 2
5510 LOCATE 39-LEN(MIS1$(H))/2,8:PRINT MIS1$(H)
5520 COLOR 7:LOCATE 40-LEN(MIS2$(H))/2,11:PRINT MIS2$(H)
5530 IF BON=2 THEN H=500000!:GOSUB *METER ELSE H=300000!
5540 FOR Z=0 TO H:NEXT Z:BW=70:IF BON<>2 THEN BW=70:GOTO 5570 ELSE CLS
5550 COLOR 4:LOCATE 22,8:PRINT "ƒƒƒ ‚a‚n‚m‚t‚r ‚r‚s‚`‚f‚d „„„":BW=200
5560 COLOR 7:LOCATE 29,12:PRINT "“G‚ð“|‚·‚Æ‚g‚o‰ñ•œII":GOSUB *FORMAT
5570 GOTO *MAIN
5580 *BARIA'===== ƒ{ƒXƒoƒŠƒA•\Ž¦ =====
5590 FOR A=0 TO 9:IF BARIT(A)=0 THEN 5620 ELSE Z=BARIT(A)
5600 IF Z>4 THEN H=1.57:I=4.71:J=BARID(11-Z) ELSE H=4.71:I=1.57:J=BARID(Z)
5610 CIRCLE(BX+64,BY+66),70,6,H,I,J:BARIT(A)=BARIT(A)-1
5620 NEXT A:RETURN
5630 *DEAD'===== “G‹@”š” =====
5640 FOR A=0 TO 9:IF DEADX(A)=0 THEN 5680
5650 IF DEADH(A)>0 THEN PUT(DEADX(A),DEADY(A)+DEADH(A)*2),CH%(0,8+DEADH(A)-1)
5660 DEADH(A)=DEADH(A)+1
5670 IF DEADH(A)=5 THEN DEADZ=DEADZ-1:DEADX(A)=0:DEADH(A)=0
5680 NEXT A:RETURN
5690 *FORMAT'===== “G‹@‹y‚Ñ“G’e‘S‰Šú‰» =====
5700 FOR Z=0 TO FMAX:ETX(Z)=0:ETC(Z)=0:NEXT Z
5710 FOR Z=0 TO 9:TX(Z)=0:EX(Z)=0:DEADX(Z)=0:NEXT Z:DEADZ=0:RETURN
5720 *CH'===== “G‹@ƒf[ƒ^“Ç‚Ýž‚Ý =====
5730 RESTORE 6060:FOR Z=0 TO 5:READ HPD(Z),SK(Z),SPRO(Z):NEXT Z
5740 '===== ƒf[ƒ^“Ç‚Ýž‚Ý =====
5750 FOR Z=0 TO 2 STEP 2:READ BM$(Z):NEXT Z
5760 FOR Z=0 TO 5:READ BNAME$(Z),BCODE$(Z),BHP(Z):NEXT Z
5770 FOR Z=0 TO 1:READ STSPX(Z):NEXT Z:FOR Z=2 TO 6:READ SLV(Z):NEXT Z
5780 FOR Z=0 TO 5:READ BARID(Z):NEXT Z:FOR Z=0 TO 2:READ NDATA$(Z):NEXT Z
5790 FOR Z=0 TO 4:READ MIS1$(Z):NEXT Z:FOR Z=0 TO 4:READ MIS2$(Z):NEXT Z
5800 FOR Z=0 TO 8:READ SLBM$(Z):NEXT Z
5810 FOR Z=0 TO 5:READ LBM$(Z):NEXT Z:FOR Z=0 TO 8:READ EM$(Z):NEXT Z
5820 FOR Z=0 TO 9:READ STAFF$(Z):NEXT Z
5830 FOR Z=1 TO 14:READ CD$(Z):NEXT Z:FOR Z=1 TO 12:READ SCD$(Z):NEXT Z
5840 FOR Z=0 TO 29:READ BHP$(Z):NEXT Z
5850 FOR Z=0 TO 7:READ A,A$:COLOR=(A,VAL("&h"+A$)):NEXT Z
5860 '===== Ž©‹@ƒoƒbƒNƒtƒ@ƒCƒAì¬ =====
5870 FOR A=0 TO 1
5880 FOR Y=0 TO 4:READ A$:FOR X=0 TO 9:B$=MID$(A$,X+1,1):C=VAL(B$)
5890 LINE(X*2,Y*2)-(X*2+1,Y*2+1),C,B:NEXT X,Y:GET(0,0)-(19,9),BFIRE%(0,A)
5900 CLS 2:NEXT A
5910 '===== ƒLƒƒƒ‰ƒNƒ^ì¬ =====
5920 FOR A=0 TO 11:IF A=6 THEN 5980 ELSE READ S:IF A<>0 THEN 5940
5930 IF URA=1 THEN RESTORE 6640:READ S
5940 IF A>=8 THEN H=3:I=2 ELSE H=2:I=1
5950 FOR Y=0 TO S:READ A$:FOR X=0 TO 31:B$=MID$(A$,X+1,1):C=VAL("&h"+B$)
5960 LINE(X*H,Y*H)-(X*H+I,Y*H+I),C,BF:NEXT X,Y:GET(0,0)-(32*H,S*H+I),CH%(0,A)
5970 IF A=4 THEN GET(0,0)-(63,S*2+1),CH%(0,6)
5980 IF A=0 THEN RESTORE 6790
5990 CLS 2:NEXT A
6000 '===== ƒ{ƒXƒLƒƒƒ‰ì¬ =====
6010 FOR A=0 TO 5:READ S:IF A>=5 THEN H=2:I=1 ELSE H=4:I=3
6020 FOR Y=0 TO S:READ A$:FOR X=0 TO 35:B$=MID$(A$,X+1,1):C=VAL(B$)
6030 LINE(X*H,Y*H)-(X*H+I,Y*H+I),C,BF:NEXT X,Y:GET(0,0)-(144,S*H+I),BOSS%(0,A)
6040 CLS 2:BIG(A)=(S+1)*H:NEXT A:RETURN
6050 '===== “G‹@ƒf[ƒ^ =====
6060 DATA 5,1,50, 3,1,20, 10,2,500, 25,1,100, 1,1,900, 20,0,0
6070 '===== ƒf[ƒ^ =====
6080 DATA " ‚` ‚g‚t‚f‚d ‚a‚`‚s‚s‚k‚d ‚r‚g‚h‚o"
6090 DATA "‚h‚r ‚`‚o‚o‚q‚n‚`‚b‚g‚h‚m‚f ‚e‚`‚r‚s"
6100 DATA ‚a‚h‚f|‚b‚n‚q‚d,BS-G101-B1,200, ‚l‚h‚r‚e‚h‚y,BS-NC03-V4,800
6110 DATA ‚a‚h‚f|‚b‚n‚q‚d ‚l‚j‚R,BS-G303-B7,1000
6120 DATA ‚l‚`‚r‚s‚d‚q|‚b‚n‚q‚d,BS-KC10,1700, 0,0,800
6130 DATA ‚a‚t‚q‚m‚h‚m‚f ‚a‚d‚d ‡U ` ‰Î–IE‰ü `,unknown...,2000
6140 DATA 5,2, 3,5,7,7,8, 1,1.1,1.5,2.5,10,100
6150 DATA "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
6160 DATA "a b c d e f g h i j k l m n o p q r s t u v w x y z"
6170 DATA "0 1 2 3 4 5 6 7 8 9 + - * / \ < > ! ? & ' ( ) _ . "
6180 DATA ‚l‚h‚r‚r‚h‚n‚m ‚P,‚l‚h‚r‚r‚h‚n‚m ‚Q,‚l‚h‚r‚r‚h‚n‚m ‚R
6190 DATA ‚e‚h‚m‚`‚k ‚l‚h‚r‚r‚h‚n‚m,‚e‚h‚m‚`‚k ‚l‚h‚r‚r‚h‚n‚m
6200 DATA Œ»ÝNU’†‚Ì“G•”‘à‚ðŒ}Œ‚‚¹‚æB
6210 DATA æ‚Ì퓬‚ÅŒã‘Þ‚ðŽn‚ß‚½“G‚ÌŽc‘¶•”‘à‚ð’ÇŒ‚‚¹‚æB
6220 DATA ‘Oü‚ð‰º‚°Aí—Í‚Ì—§‚Ä’¼‚µ‚ð}‚Á‚Ä‚¢‚é“G•”‘à‚ðŸr–Å‚¹‚æB
6230 DATA ‰äX‚̨—ÍŒ—“à‚æ‚è‚·‚ׂĂ̓G•”‘à‚ð”rœ‚¹‚æB
6240 DATA Žñ—Ì–I‚Æ‚µ‚ÄŽñ—ׂ̂̈ÉÁ‚¦‚æB
6250 DATA ‚²‹ê˜J‚¾‚Á‚½EEE,‚ÆŒ¾‚¢‚½‚¢‚Æ‚±‚낾‚ªAŒN“™‚É‚ÍÁ‚¦‚Ä‚à‚炤B
6260 DATA ŽÀ‚ÍŒN“™‚ª¡‚Ü‚Åí‚Á‚Ä‚¢‚½‹@ŠB‰»˜f¯l‚̳‘Ì‚ÍA
6270 DATA Á‘§•s–¾‚Æ‚³‚ê‚Ä‚¢‚½–¡•ûŠÍ‘à‚¾‚Á‚½‚Ì‚¾B
6280 DATA ŒN“™‚͉½‚à’m‚炸‚É’‡ŠÔ‚ðŽE‚µ‚Ä‚«‚½‚Ì‚¾‚æB
6290 DATA ‚µ‚©‚µ‚±‚ê‚ÍAŽ„‚Ì‹Ø‘‚«‚Ç‚¤‚è‚È‚Ì‚¾EEEB
6300 DATA Œã‚ÍŒN“™‚ðŽn––‚·‚ê‚ÎŽ„‚ÌŒv‰æ‚ÍŠ®¬‚·‚éB
6310 DATA ‚±‚ê‚©‚ç‚ÍŽ„‚ÌÅ‹‚Ì“Á•Ê퓬•”‘à‚ð‚à‚Á‚ÄŒN“™‚ð–•ŽE‚·‚é‚Ì‚ÅA
6320 DATA ‚æ ‚ë ‚µ ‚B
6330 DATA ‚æ‚‚à‚±‚±‚Ü‚Å‚«‚½‚à‚Ì‚¾B,‹M—l“™‚ÍŽ„‚Ì‘S‚Ä‚ð’D‚Á‚Ä‚µ‚Ü‚Á‚½B
6340 DATA ‚±‚ê‚Í‹–‚³‚ê‚´‚锽‹tsˆ×‚Æ‚¢‚¦‚悤B
6350 DATA ‚±‚ÌÅI‹S’{•ºŠí‚ð‚à‚Á‚ÄŽ„Ž©‚炪‹M—l“™‚Ì߂Ɉ”±‚ð—^‚¦‚éB
6360 DATA ,Ž€‚Ê‚ª‚æ‚¢B
6370 DATA ‚‚¢‚ÉI‚í‚Á‚½B
6380 DATA Œ‹‹Ç‹@ŠB‰»˜f¯l‚È‚Çʼn‚©‚ç‹‚Í‚µ‚È‚©‚Á‚½B
6390 DATA ‘S‚Ä‚ÍŽñ—Ì‚ÌŠé‚Ä‚½l—Þ–•ŽEŒv‰æ‚¾‚Á‚½‚Ì‚¾B
6400 DATA ‚±‚Ìí‚¢‚ʼn½‚Ìß‚Ì‚È‚¢‘½‚‚Ì–½‚ªŽ¸‚í‚êA‘½‚‚ÌŠX‚ªÄ‚©‚êA
6410 DATA ‚»‚µ‚Ä‘½‚‚Ì•ºŠí‚ª”j‰ó‚³‚ꂽB
6420 DATA ‚µ‚©‚µ”ç“÷‚È‚±‚Æ‚É‚±‚Ìí‚¢‚É‚æ‚Á‚ÄlŒû‘‰ÁAŠÂ‹«‰˜õAŒR”õŠg’£EEE
6430 DATA ‚±‚ê‚ç‚Ì–â‘è‚Í‰ðŒˆ‚µ‚Ä‚¢‚½‚Ì‚¾‚Á‚½B
6440 DATA Žñ—Ì‚Ì‚â‚낤‚Æ‚µ‚Ä‚¢‚½‚Ì‚Í‚±‚ꂾ‚Á‚½‚Ì‚©‚à‚µ‚ê‚È‚¢B
6450 DATA ‚µ‚©‚µA¡‚Æ‚È‚Á‚Ä‚Í‚»‚Ì^ŽÀ‚ð’m‚éŽÒ‚Í‚¢‚È‚¢EEEB
6460 DATA u‚s‚x‚o‚d‚O‚OvŠJ”ƒXƒ^ƒbƒt,,," ƒvƒƒOƒ‰ƒ€E‚e‚n‚w‚a‚`‚s",
6470 DATA ƒOƒ‰ƒtƒBƒbƒNE‚e‚n‚w‚a‚`‚s,,ƒeƒXƒgƒvƒŒƒCEˆÉ“¡ƒ†ƒEƒSiƒ†ƒEƒS‚³‚ñj
6480 DATA " E•£‘å‰îi‚Å‚©‚ñj"," E‘º£—z‰îi‚Ù‚‚ëj"
6490 '===== Fƒf[ƒ^ =====
6500 DATA 111,222,333,444,555,666,777,888,999,AAA,BBB,CCC,DDD,EEE
6510 DATA AF0,7F0,4F0,0F0,99F,66F,33F,00F,FFF,003,003,003
6520 DATA F10,F20,F30,F40,F50,F60,F70,F80,F90,FA0,FB0,FC0,FD0,FE0,FF0
6530 DATA EF0,DF0,CF0,BF0,AF0,9F0,8F0,7F0,6F0,5F0,4F0,3F0,2F0,1F0,0F0
6540 DATA 3,000,8,BBB,10,0A0,9,555,11,22F,13,AA0,14,F00,15,FF0
6550 '===== ƒLƒƒƒ‰ƒOƒ‰ƒtƒBƒbƒNƒf[ƒ^ =====
6560 DATA 0000000015,0000015557,0000155577,0000015557,0000000015
6570 DATA 0000000001,0000000015,0000001155,0000000015,0000000001
6580 DATA 11,00000000000870000000000000000000,00000000000877700000000000000000
6590 DATA 00000000000087770000000000000000,00000000000008777800000000000000
6600 DATA 00000000000008888880666600000000,00000000000808887788066666000000
6610 DATA 00000000000708777778806666660000,00000000000708888888888888777788
6620 DATA 00000000000801188888887888888800,00000000000801510877777888800000
6630 DATA 00000000000000157077778880000000,00000000000000011188888000000000
6640 DATA 27,00000000000010000000000000000000,00000000000010000000000000000000
6650 DATA 00000000000010000000000000000000,00000000000010000000000000000000
6660 DATA 00000000000010000000000000000000,00000000000010000000000000000000
6670 DATA 00000000000011000000000000000000,00000000000111000000000000000000
6680 DATA 00100000000111000000000000000000,00110000000111000000000000000000
6690 DATA 00110000001111100000000000000000,00111000001111177787700000000000
6700 DATA 001110000011BB737778770000000000,00111000111BBB777778370000000000
6710 DATA 0001111111BBBB777778770000000000,0001111BBBBBBBB77711100000000000
6720 DATA 000111BBBBBBBBBBBBBBBB0000000000,00011BBBBBBBBBBBBBBBBBBBBBB00000
6730 DATA 00011BBBBBBBBBBBBBBBBBBBBBBBBBBB,00111BBBBBB1BBB1B772200000000000
6740 DATA 001117777771BBB17772200000000000,001100077771BB117777200000000000
6750 DATA 00110000071B11177007000000000000,00110000001111000100000000000000
6760 DATA 00100000011110001110000000000000,00000000011100000110000000000000
6770 DATA 00000000111000000011000000000000,00000000110000000001000000000000
6780 DATA 00000000001100000001110000000000,00000000001000000000110000000000
6790 DATA 12,00000000000055555555000000000000,00000000005555111115550000000000
6800 DATA 00000000555555555111115500000000,00000005555555555511551550000000
6810 DATA 00000057755775555515775155000000,00000070777077555515775115000000
6820 DATA 00000500770077555551551115500000,00000557755771111551111115500000
6830 DATA 00000555111111111111111115500000,00000055111111111111111115000000
6840 DATA 00000005111111111111115550000000,00000000551111111111155000000000
6850 DATA 00000000005555555555500000000000
6860 DATA 15,00000000000008888888800000000000,00000000000000888888000000000000
6870 DATA 00000000000000077770000000000000,00000000000000807708000000000000
6880 DATA 00000000080008860068800080000000,00000000088088677776880880000000
6890 DATA 00000000088706766777607880000000,00000000088770766677077880000000
6900 DATA 00000000088770766667077880000000,00000000088706766667607880000000
6910 DATA 00000000088088677776880880000000,00000000080008860068800080000000
6920 DATA 00000000000000807708000000000000,00000000000000077770000000000000
6930 DATA 00000000000000888888000000000000,00000000000008888888800000000000
6940 DATA 14,00000000000666000000000000000000,00000000066600000000000000000000
6950 DATA 00000000634444440000000000000000,00000006344444444400000040000000
6960 DATA 00000063744444444440000440000000,00000637744477444444444440000000
6970 DATA 00000677744477444444444440000000,00006377744444444444444440000000
6980 DATA 00066088844444444444444446000000,06666444444444444444444486666000
6990 DATA 00666477774444448888877886660000,00000087777744448888877886660000
7000 DATA 00000008877774447777880000000000,00000000088888447888000000000000
7010 DATA 00000000000088888000000000000000
7020 DATA 17,00000000000000011000000000000000,00000000000000155100000000000000
7030 DATA 00000000000001533510000000000000,00000000011115378351111000000000
7040 DATA 00000000155553378335555100000000,00000001533333778833333510000000
7050 DATA 00000000153777311388835100000000,00000000153373111538335100000000
7060 DATA 00000000015371115558351000000000,00000000015371715558351000000000
7070 DATA 00000000153373111518335100000000,00000000153777311388835100000000
7080 DATA 00000001533333888833333510000000,00000000155553388335555100000000
7090 DATA 00000000011115388351111000000000,00000000000001533510000000000000
7100 DATA 00000000000000155100000000000000,00000000000000011000000000000000
7110 DATA 16,00000000000780000000000000000000,00000000000778000000000000000000
7120 DATA 00000000000777800000000000000000,00000000000777780006660000000000
7130 DATA 00000000889944888800006660000000,00000009889844888899994436000000
7140 DATA 00000009779744777798989443600000,00000009779744777798898947360000
7150 DATA 00000009999844888897798947764000,00000000998944999988889897736000
7160 DATA 00000000998889999888889898806600,00000888898889999888888989446666
7170 DATA 00000099999889999898777989946660,00000000000988888897779989900000
7180 DATA 00000000000099888897798899000000,00000000000000999977999900000000
7190 DATA 00000000000000000999990000000000
7200 DATA 28,00002222222222222222222222200000,00002222222222222222222222200000
7210 DATA 00002200000000070000000002200000,00002200000000070000000002200000
7220 DATA 00002200000000000000000002200000,00002200000000000000000002200000
7230 DATA 00002200000000000000000002200000,00002200000000070000000002200000
7240 DATA 00002200000000070000000002200000,00002200000000070000000002200000
7250 DATA 00002200000000070000000002200000,00002277000777777777000772200000
7260 DATA 00002200000000070000000002200000,00002200000000070000000002200000
7270 DATA 00002200000000070000000002200000,00002200000000070000000002200000
7280 DATA 00002200000000000000000002200000,00002200000000000000000002200000
7290 DATA 00002200000000000000000002200000,00002200000000070000000002200000
7300 DATA 00002200000000070000000002200000,00002222222222222222222222200000
7310 DATA 00002222222222222222222222200000,00000000000000000000000000000000
7320 DATA 20000022002000200222022220222200,22000200202200202000020000200020
7330 DATA 20200222202020202022022220222200,20020200202002202002020000220000
7340 DATA 22220200202000200222022220202220
7350 DATA 14,00000000000002222200000000000000,00000000000226666622000000000000
7360 DATA 00000000022667777766220000000000,00000000226777777777622000000000
7370 DATA 00000000267777777777762000000000,00000002667777777777766200000000
7380 DATA 00000002677777777777776200000000,00000002677777777777776200000000
7390 DATA 00000002677777777777776200000000,00000002667777777777766200000000
7400 DATA 00000000267777777777762000000000,00000000226777777777622000000000
7410 DATA 00000000022667777766220000000000,00000000000226666622000000000000
7420 DATA 00000000000002222200000000000000
7430 DATA 14,00000000000002222200000000000000,00000000000222222222000000000000
7440 DATA 00000000022222666766220000000000,00000000222226667777622000000000
7450 DATA 00000000222266677777762000000000,00000002222266677777766200000000
7460 DATA 00000002222666777777776200000000,00000002222666777777776200000000
7470 DATA 00000002222666777777776200000000,00000002222266777777766200000000
7480 DATA 00000000222266677777762000000000,00000000226777777777622000000000
7490 DATA 00000000022667777766220000000000,00000000000226666622000000000000
7500 DATA 00000000000002222200000000000000
7510 DATA 13,00000000000000222220000000000000,00000000000002222222000000000000
7520 DATA 00000000000022226622200000000000,00000000000222266766220000000000
7530 DATA 00000000002222667776620000000000,00000000002222266776620000000000
7540 DATA 00000000000000226777620000000000,00000000000000026776620000000000
7550 DATA 00000000000000026776200000000000,00000000000000026766200000000000
7560 DATA 00000000000002226662000000000000,00000000022222666620000000000000
7570 DATA 00000000002226662220000000000000,00000000000022222000000000000000
7580 DATA 13,00000000000000222200000000000000,00000000000222200220000000000000
7590 DATA 00000000000000000000000000000000,00000000000000000000000000000000
7600 DATA 00000000000000000000000000000000,00000000000000000000000000000000
7610 DATA 00000000000000000000000000000000,00000000000000000000020000000000
7620 DATA 00000000000000000000220000000000,00000000000000000002200000000000
7630 DATA 00000002000000000022200000000000,00000000226660000222000000000000
7640 DATA 00000000022226622200000000000000,00000000000222220000000000000000
7650 '===== ƒ{ƒXƒLƒƒƒ‰ƒOƒ‰ƒtƒBƒbƒNƒf[ƒ^ =====
7660 DATA 25,00000000000000093623999998979900,00000000000099993223999983766900
7670 DATA 00000000000999782693388838886000,00000000009997888888388697989000
7680 DATA 00000000999998887777386978693339,00000009938998833333363898893980
7690 DATA 00000099788888867777733839889000,00000997888888663333333978988000
7700 DATA 00997888888736739333398333337780,09988777777367893333389999338889
7710 DATA 99083888933388933333933889387988,00008089993933333577193889977700
7720 DATA 00000006363633335555519389966620,00000006363633331555119389966620
7730 DATA 00008089993933333111193889977700,99083888933388933333933889387988
7740 DATA 09988777777367893333389999338889,00997888888736339333398333337780
7750 DATA 00000997888888663333333978988000,00000099738888867777733839889000
7760 DATA 00000009998998833333363898833980,00000000999998887777386978633339
7770 DATA 00000000009997888888388637380000,00000000000999732663388838886000
7780 DATA 00000000000099993223999983766900,00000000000000093623999998979900
7790 DATA 31,00000000000000000000000000000600,00000000000077688899888860009890
7800 DATA 00000000007777677799999960009890,00000000000099688876777760099990
7810 DATA 00000000000000000988988860098790,00000000000000000098688699987780
7820 DATA 00000000000776999999999698999990,00000000077776888988776798890009
7830 DATA 00000000000996777999996796889990,00000000099999999978867798689000
7840 DATA 00999999977778833978867798869000,09889009999789999999677799889900
7850 DATA 98790098888978899988677933988890,99900099999999999999999311398889
7860 DATA 00000006906906906900093111139999,00000006006006006000931155113926
7870 DATA 00000006006006006000931555513926,00000006906906906900093177139999
7880 DATA 99900099999999999999999377398889,98790098888978899988677933988890
7890 DATA 09889009999789999999677799889900,00999999977778833978867798869000
7900 DATA 00000000099999999978867798689000,00000000000996777999996796889990
7910 DATA 00000000077776888988776798890009,00000000000776999999999698999990
7920 DATA 00000000000000000098688699987790,00000000000000000988688860098790
7930 DATA 00000000000099688876777760099990,00000000007777677799999960009890
7940 DATA 00000000000077688899888860009890,00000000000000000000000000000600
7950 DATA 32,00229999999997777882228889922000,02888887772222222222227778889200
7960 DATA 27777772228888888828892227778820,22222229999999999988900002227772
7970 DATA 00000000000000009888900000002222,00000000000000099999000000000000
7980 DATA 00000000000000986868900099990000,00000000000999868868990900000000
7990 DATA 00099999999888767768890900000000,00999888879887998768889900090000
8000 DATA 09988877798879339876788990989000,99999999999993113987678899888900
8010 DATA 00000060606001151398677898877790,00000060606001551399688888777779
8020 DATA 00000999999900773993999988888888,00099887777799339931006060600000
8030 DATA 00988889999999999315106060600000,00099887777799339937006060600000
8040 DATA 00000999999900113993999988888888,00000060606001151399688888777779
8050 DATA 00000060606001551398677898877790,99999999999993773987678899888900
8060 DATA 09888877798879339876788990989000,00999888879887998768889900090000
8070 DATA 00099999999888767768890900000000,00000000000999868868990900000000
8080 DATA 00000000000000986868900099990000,00000000000000099999900000000000
8090 DATA 00000000000000009888900000002222,22222229999999999988900002227772
8100 DATA 27777772228888888828892227778820,02888887772222222222227778889200
8110 DATA 00229999999997777882228889922000
8120 DATA 32,00000000000000000000000000000990,00000000000000000000000000999999
8130 DATA 00000000000000000000000999886889,00000000000000000099909888767789
8140 DATA 00000000000000000098909887688890,00000000000000000938909876999900
8150 DATA 00000000000000000988999786990000,00000000000000009838988786889900
8160 DATA 00000000008988889898983899988990,00000000000000098898938933398990
8170 DATA 00009999999962298998989397939889,00098868677622977838993998993989
8180 DATA 00988676776229988798333988893989,06666666662299333878993987893939
8190 DATA 66222222222993171387989377739369,00690690693331151138788933397779
8200 DATA 00660660663331555138788899977779,00690690693331575139799833397779
8210 DATA 66222222222993777387989397939369,06666666662299333878993998993939
8220 DATA 00988676776229988798333988893989,00098868677622977838993987893989
8230 DATA 00009999999962298998989377739889,00000000000000098898938933398990
8240 DATA 00000000008988889898983899988990,00000000000000009838988786889900
8250 DATA 00000000000000000988999796990000,00000000000000000938909876999900
8260 DATA 00000000000000000098909887688890,00000000000000000099909888767789
8270 DATA 00000000000000000000000999886889,00000000000000000000000000999999
8280 DATA 00000000000000000000000000000990
8290 DATA 32,00000000000099000000000000000000,00000000000988900000000000000000
8300 DATA 00000000009876890000000000000000,00000000009876890000000000000000
8310 DATA 00000000009876890000000000000000,00000000009876990000000000000000
8320 DATA 00000000099796990000000000000000,00999999088786889900000000000000
8330 DATA 00000989083899983990000000000000,00099989088933398990000000000000
8340 DATA 00988988889317139889000000000000,99999999990115113989000000000000
8350 DATA 00000000000155513989000000000000,00009999990157513939000000000000
8360 DATA 00098888889377739369000000000000,72999833333933397779000000000000
8370 DATA 00988837777899977779000000000000,72999833333933397779000000000000
8380 DATA 00098888889317139369000000000000,00009999990115113939000000000000
8390 DATA 00000000000155513989000000000000,99999999990157513989000000000000
8400 DATA 00988988889377739889000000000000,00099989388933398990000000000000
8410 DATA 00000989383999889900000000000000,00999999388786889900000000000000
8420 DATA 00000000098796890000000000000000,00000000009876890000000000000000
8430 DATA 00000000009876890000000000000000,00000000009876890000000000000000
8440 DATA 00000000009876890000000000000000,00000000000988900000000000000000
8450 DATA 00000000000099000000000000000000
8460 DATA 21,00000000000000003333333300000000,00000000000033333333333300000000
8470 DATA 00000000003333003333333300000000,00003333033300330033333000000000
8480 DATA 00030333033300330000000000000000,00300333033300003300000000000000
8490 DATA 00000330033333033330000000000000,00000330003033003333000000000000
8500 DATA 00000000000000000333330000000000,00000000000033300033330000000000
8510 DATA 00000000000003330000000000000000,00000000003330000000000000000000
8520 DATA 00000000003333330000000000000000,00000000003333330000000000000000
8530 DATA 00000003000333330000000000000000,00000003300033300000000000000000
8540 DATA 00003000330003300000000000000000,00003300033000000000000000000000
8550 DATA 00003330003300000000000000000000,00033333000000000000000000000000
8560 DATA 00333033000000000000000000000000,00330000000000000000000000000000
Text file Source (historic): geocities.com/tokyo/teahouse/3039
geocities.com/tokyo/teahousegeocities.com/tokyo
(to report bad content: archivehelp @ gmail)
|
|
|
|
|