10 POKE&HFD9F,&HC9:GOTO1230
20 'TITLE DRAWING ………………………………………………………
30 FORI=0TO13:SOUNDI,ASC(MID$("      ?. 00 f.",I+1,1))-32:NEXT
40 GOSUB240:RESTORE60:FORI=0TO3:READA$:FORJ=0TO31
50 VPOKE16224+I*32+J,VAL("&H"+MID$(A$,J*2+1,2)):NEXTJ,I
60 DATA 02422304088342020f022222474480800000fe0000fc4444fe444444fe040418
70 DATA 0141417F40007F40404F40405F408080000404FC0400FE0000F88080FE808080
80 DATA 101050507D5290141831519210101010008080FE525252929222222242840418
90 DATA 201000FC0078007801FC8484848484FC00FC2020FC444444FE00FE82828282FE
100 A$="0E000000070000004641FC007FC0FE003F8006000C000C000CF000001D"
110 A$=A$+"E00000180000001801803C3903007E3303017673FBFF7661F1FE2C"
120 FORI=0TO55:B$=RIGHT$("0000000"+BIN$(VAL("&H"+MID$(A$,I*2+1,2))),8)
130 FORJ=1TO8:IFMID$(B$,J,1)="1"THENVPOKE6207+I*8+J,A
140 NEXTJ,I:VDP(1)=VDP(1)OR1:FORI=0TO3:FORJ=0TO56
150 PUTSPRITEI,(40+I*48,191-J),B,59+I:NEXTJ,I
160 LOCATE9,22:PRINT"PART ";T$:A=0
170 A=(AMOD15)+1:VPOKE6915,A:VPOKE6919,A:VPOKE6923,A:VPOKE6927,A
180 IFSTRIG(0)THENPLAY"V15T255L64O7CEG"ELSE170
190 FORI=0TO31:VPOKE6912+I*4,209:NEXT
200 VDP(1)=VDP(1)XOR1:GOSUB240:FORI=0TO13
210 SOUNDI,ASC(MID$("       J/ 0 ` ",I+1,1))-32:NEXT
220 'BACKGROUND DRAWING ………………………………………
230 POKE&HE0E8,2-STRIG(1)*4:GOTO330
240 CLS:PRINTSPC(192);STRING$(240,196);STRING$(240,196)
250 FORI=0TO31:VPOKE6816+I,192+(IAND3):NEXT:FORI=0TO63
260 VPOKE6848+I,197:NEXT:LOCATE7,5:PRINT"ΝΝΝΝΝ        ΝΝΝ"
270 A$=STRING$(11,29)+CHR$(31):OZ$="ΔΔΔΔΔΘΔΔΔΔΔ"+A$+"ΔΔΔΔΗΖΙΔΔΔΔ"+A$
280 LOCATE1,13:PRINTOZ$:LOCATE12,17:PRINTOZ$:LOCATE20,10:PRINTOZ$
290 OZ$=OZ$+"ΔΔΔΗΖΖΖΙΔΔΔ"+A$+"ΔΔΗΖΛΖΜΖΙΔΔ"+A$+"ΔΗΖΚΚΚΚΚΖΙΔ"+A$+"ΗΖΖΚΚΚΚΚΖΖΙ"
300 LOCATE2,0:PRINT"ROUND  1     LEFT Ξ Ξ Ξ Ξ Ξ     LIFE  10 ";STRING$(20,207)
310 A=206:B=1:R=1:L=5:K=3:T$="1  –’–ήύ νύ":RETURN
320 'MAIN PROGRAM DAYO …………………………………………
330 GOSUB1960:LOCATE8,0:PRINTUSING"##";R
340 A$="AF78380FAF783C08D100FC01D100FC01":FORI=0TO15
350 POKE&HE004+I,VAL("&H"+MID$(A$,I*2+1,2)):NEXT
360 POKE&HE086,0:IFK=3THENPOKE&HE087,16
370 RESTORE930:FORI=1TOR:FORJ=0TO1:READA$:J=-(A$="C")
380 NEXTJ,I:POKE&HE0CB,56:POKE&HFD9F,&HC3
390 POKE&HE087,PEEK(&HE087)-1:FORI=0TO9:GOSUB1110:NEXT
400 READA$:N=VAL(LEFT$(A$,1)):B=VAL(A$)MOD10:IFN=7THEN390
410 IFA$="C"THEN1070ELSEIFN>5THEN440
420 IFN<4THENA=31+B*16:B=-(N>0)*240ELSEA=31:B=12+B*24
430 C=EC(N):D=EN(N):GOSUB900:GOTO390
440 IFN=6THENONB+1GOTO730,750,770,790,810,830,850,870
450 '?! …………………………………………………………………………………
460 SOUND1,2:SOUND5,1:IFK<3THEN490ELSEPOKE&HE087,1:K=0
470 FORI=3TO6:LOCATE1+K*11+(K=2)*3,15-(K=1)*4+(K=2)*3-I
480 PRINTLEFT$(OZ$,I*23):FORJ=0TO300:NEXTJ,I
490 GOSUB1110:A=63-(K=1)*32+(K=2)*24:C=9:D=28
500 FORI=0TO19:B=40+K*88+(K=2)*24+(IAND1)*8:GOSUB900
510 SOUND9,15:SOUND6,31:NEXT:POKE&HE015,B-4:E=A+20
520 A=31:C=9:D=52:FORI=0TO1000:NEXT:POKE&HE086,0
530 POKE&HE016,252:POKE&HE017,10:FORI=0TO19
540 POKE&HE014,E:GOSUB1110:EP=-EP*(EP<>27):B=RND(1)*241
550 GOSUB900:IFPEEK(&HE087)<20+K*30-(K=2)*20THENNEXT:GOTO490
560 K=K+1:IFK<3THEN470ELSEPOKE&HFD9F,&HC9
570 'ENDING ………………………………………………………………………
580 FORI=1TO5:A=VAL("&H"+MID$("E32C1",I,1))+16:FORJ=0TO7
590 VPOKE11856+J,A:VPOKE13904+J,A:NEXT:FORJ=0TO900:NEXTJ,I
600 PLAY"S0M5000T255L8O5C2FR8FFAR8A4L4GFEDL8CEGO6CER8O5BR8O6CR4C"
610 A=VPEEK(6913)*2:B=VPEEK(6912)*2:FORI=ATO264STEPSGN(264-A)
620 VPOKE6913,I/2:VPOKE6917,I/2:NEXT:FORI=BTO272STEPSGN(272-B)
630 VPOKE6912,I/2:VPOKE6916,I/2:NEXT:FORI=0TO3000:NEXT
640 GOSUB1940:GOSUB1960:CLS:RESTORE1990:LOCATE8,23
650 FORI=0TO7:VPOKE11856+I,31:VPOKE13904+I,31:NEXT
660 READA$:IFA$="S"THENREADA:PRINTSPC(A);:GOTO660
670 IFA$="E"THEN700ELSEFORI=1TOLEN(A$)
680 PRINTCHR$(ASC(MID$(A$,I,1))-1);:SOUND8,15:FORJ=0TO20
690 SOUND0,40-J*2:NEXT:SOUND8,0:NEXT:GOTO660
700 PLAY"V15T155L8O6E4DCR8CR8O5GA4O6CO5B4O6C4.D2E1."
710 IFPLAY(0)THEN710ELSEGOSUB1940:FORI=0TO1:I=-STRIG(0):NEXT:GOTO30
720 'BOSU TEKI ………………………………………………………………
730 FORI=0TO14:A=31:B=36+I*12:C=2+(IAND1):D=4
740 GOSUB900:GOSUB1110:GOSUB1110:NEXT:GOTO390
750 FORI=0TO18:A=31+I*8:B=(IAND1)*240:C=8+(IAND1)
760 D=8+(IAND1)*24:GOSUB900:GOSUB1110:NEXT:GOTO390
770 FORI=0TO15:FORJ=0TO1:A=31:B=J*240+I*16*(J*(-2)+1)
780 C=2+J:D=48:GOSUB900:GOSUB1110:NEXTJ,I:GOTO390
790 A=31:B=240:D=40:FORI=0TO19:C=8+(IAND1)
800 GOSUB900:FORJ=0TO3:GOSUB1110:NEXTJ,I:GOTO390
810 A=31:C=3:D=4:FORI=0TO24:B=PEEK(&HE005)
820 GOSUB900:FORJ=0TO2:GOSUB1110:NEXTJ,I:GOTO390
830 C=8:FORI=0TO19:A=PEEK(&HE004)+RND(1)*24-12:B=(IAND1)*240
840 D=8+(IAND1)*24:GOSUB900:FORJ=0TO4:GOSUB1110:NEXTJ,I:GOTO390
850 A=31:C=12:D=4:FORI=0TO29:B=RND(1)*241
860 GOSUB900:FORJ=0TO1:GOSUB1110:NEXTJ,I:GOTO390
870 B=240:C=6:D=32:FORI=0TO3:A=163-I*40
880 GOSUB900:FORJ=0TO4:GOSUB1110:NEXTJ,I:GOTO390
890 'ENEMY PUTTING ……………………………………………………
900 EP=(EP+1)MOD28:POKE&HE015+EP*4,B:POKE&HE017+EP*4,C
910 POKE&HE014+EP*4,A:POKE&HE016+EP*4,D:RETURN
920 'ROUND DATA ……………………………………………………………
930 DATA C,01,18,07,12,03,16,05,14,51,58,53,56,20,22,24,3,43,3,46,3
940 DATA 7,7,7,7,7,7,C,08,15,45,20,3,22,3,24,3,60,7,7,60,7,7,60,7,7,7,7
950 DATA C,63,04,07,43,46,51,58,3,18,11,20,01,23,04,26,07,29,63,14,17
960 DATA 63,13,18,7,7,7,7,7,7,C,41,48,43,46,62,18,09,48,16,07,46,14,05
970 DATA 44,12,03,42,10,01,62,20,21,22,62,7,7,C,67,42,44,46,53
980 DATA 55,57,67,3,20,3,21,3,22,67,01,03,05,07,09,67,7,7,7,7,7,7
990 DATA C,42,47,61,3,20,43,46,52,57,61,42,47,53,56,01,13,05,17,61
1000 DATA 7,7,7,61,7,7,7,7,7,7,C,43,46,65,20,21,52,57,55,3,3,65,03
1010 DATA 08,53,56,42,47,65,3,2,3,2,3,2,65,7,7,7,7,7,7,C,01,13,05
1020 DATA 17,64,3,20,08,19,64,52,57,20,22,24,64,02,15,08,64,3,20,3
1030 DATA 20,64,7,7,7,7,C,20,3,21,3,66,01,13,05,17,66,51,58,53,56,66
1040 DATA 53,57,20,25,66,3,03,3,17,66,7,7,7,7,C,41,51,43,53,45,55,47
1050 DATA 57,60,63,62,67,61,65,64,66,7,7,7,7,C,8
1060 'CLEAR ………………………………………………………………………
1070 POKE&HFD9F,&HC9:LOCATE11,12:PRINT" CLEAR ! "
1080 PLAY"V15T255L8O6CR64CDER8CR8FF#GG#AR8ER8A":FORI=0TO9999:NEXT
1090 GOSUB1930:LOCATE11,12:PRINT"ΔΔΔΔΔΔΔΔΔ":R=R+1:GOTO330
1100 'CRASH ? …………………………………………………………………
1110 LOCATE7,1:H=PEEK(&HE087):PRINTUSING"### ";H;
1120 PRINTSTRING$(H\5+1,207);SPC(25)
1130 IFPEEK(&HE086)=0ANDPEEK(&HE087)THENRETURN
1140 'CRASH ………………………………………………………………………
1150 L=L-1:POKE&HFD9F,&HC9:VPOKE6164+L*2,32:PUTSPRITE1,,1
1160 PLAY"V15T255L64O4CR64O3GR64O4CR64ER64GFEDC"
1170 FORI=0TO5000:NEXT:GOSUB1930:GOSUB1960:IFLTHEN330
1180 'GAME OVER ……………………………………………………………
1190 LOCATE10,12:PRINT" GAME OVER "
1200 PLAY"V15T255L8O6G.G-16GB4A4EF.F-16FA4G4DC.D16CE4F4BO7CR8CR64C"
1210 FORI=0TO9999:NEXT:GOTO30
1220 'FIRST SETTING …………………………………………………
1230 CLEAR500,&HE000:DIMEN(5),EC(5):COLOR15,5,7:SCREEN1,2
1240 WIDTH32:KEYOFF:DEFINTA-Z:POKE&HFDA0,&H9C:POKE&HFDA1,&HE0
1250 KEY1,CHR$(12)+"SCREEN0"+CHR$(13):KEY2,CHR$(12)+"POKE-609,201"+CHR$(13)
1260 LOCATE6,10:PRINT"BEACH STORY OF TAKO"
1270 LOCATE6,12:PRINT"PLEASE WAIT A MINUTE"
1280 'CHARACTER SETTING ………………………………………
1290 RESTORE1340:FORI=0TO10:READA$:FORJ=0TO31
1300 VPOKE&H3800+I*32+J-(I>7)*192-(I=10)*1504,VAL("&H"+MID$(A$,J*2+1,2))
1310 NEXTJ,I:FORI=0TO63:A=VPEEK(&H3840+I):VPOKE&H3900+I,A
1320 VPOKE&H3940+I,A:NEXT:FORI=0TO31:VPOKE&H3980+I,VPEEK(&H3820+I)
1330 VPOKE14752+I,VPEEK(14560+I):NEXT
1340 DATA 03070F0F3F7FFFFFFF7F3B0302020000C0E0F0F0FCFEFFFFFFFEDCC0C0808080
1350 DATA 0C1E1A0D131F1D2F707BFB8B738974FB307858B0C8F8B8F40EDEDFD1CE912EDF
1360 DATA 06060444C6C2F7E54F6F3F4FD7A80800DCCE565BDF8FC346FCE0F8ECD4545494
1370 DATA 3060D6F6F4E44642673D0F7F4F5754540000C2C3535BDF8FC67CE0FCE2DA2820
1380 DATA 0000000000000E1F177EE7C3400000000000000000071E3C383870FCFF7E3C00
1390 DATA 00000E1F177EE7C34000000000000000000000003C7EFFFC6030381C06000000
1400 DATA 00000000010B1B1D0E07030100000000000000107070A0D0F06090F0E0000000
1410 DATA 387DFFFFFFFF7F7F3F7FFFFFFF7F1F0FF0FCFEFFFFFFFEFCFEFFFFFFFEFEBE1C
1420 DATA 030C10202040404040202010E08A720DC0300844140A0A020204040807514EB0
1430 DATA 00030F1F1F3F3F3F3F1F1F0F1F750D0000C0F0B8E8F4F4FCFCF8F8F0F8AEB000
1440 DATA 000000010D0C011B1B010C0D0100000000000080B03080D8D88030B080000000
1450 'MACHINE LANGUAGE SETTING ……………………
1460 FORI=0TO19:READA$:FORJ=0TO31
1470 POKE&HE09C+I*32+J,VAL("&H"+MID$(A$,J*2+1,2)):NEXTJ,I
1480 DATA AFCD9600A72807D6105FAFCD93003E06CD9600A720085F3E09CD930018073D5F
1490 DATA 3E06CD93002184E0357EE607201D3A38E5A7280D5F3E04CD93003E0D1E00CD93
1500 DATA 0021CBE07E3D20023E387706023E08CD41012A04E0173801241738012C173801
1510 DATA 2D173801257CFEF120013DFEFF2001AF677DFEB020013DFE1E20013C6F2204E0
1520 DATA 2208E010C8AFCDD8002185E046779028253C2022210CE03ED1BE280723232323
1530 DATA BE20133A04E0D610773A05E02377AF23771EF0CD93002100E036D1232336FC23
1540 DATA 2323237DFE86CA19E27E0F0FA720102B2B7ED608FE10DA55E1772323C35BE13D
1550 DATA 20162B2B347EFEC0CA55E1E63F06E64F0A23867723C35BE1D60330142B342BCA
1560 DATA 55E1233E0FA62320043E04AE77C35BE1D60230172B353A05E0BE7E233007E608
1570 DATA 0FF61018023E1877C35BE1A720102B2B7EC606FEC0D255E1772323C35BE13DCA
1580 DATA 6BE1D60330052B35C39AE1D602300C2B06E74E0A2B772335C39AE1A7200D2B2B
1590 DATA 34347EFEC0D255E1C3D5E13DC25BE12B2B7EC60477FEC0D255E1C3D5E1ED5B04
1600 DATA E00600CD61E27DD68428033286E0ED5B0CE00634CD61E27DD684200DED5B10E0
1610 DATA CD61E27DD684CA89E22B36D1232336FC3E061E1FCD93003E091E0FCD93002187
1620 DATA E034C389E22114E07E2CFED128169330012FFE0C300E2C7E2DA828087E923001
1630 DATA 2FFE0CD87DC6036FFE84C818DB01800011001B2104E0CD5C00C9CD7E00110020
1640 DATA 21FF03CD4A00CB4D20010FCB5520020F0F47CB38B0CD4D00EB3EF7CD4D0023EB
1650 DATA 7CB5C82B18DD210800CDDBE2211000CDDBE2212820CDDBE2213020CDDBE2C955
1660 DATA AF6F5F0100080BCD4A0023EBCD4D0023EB78B120F1C91100200600C501080021
1670 DATA 09E3CD5C000E0809EBC110EFC947475727C7C71717
1680 'B.G.M. DATA SETTING …………………………………
1690 A$="55005F6B006B008F7F006B71006B5F0055005F6B008F7F8F5500475500"
1700 A$=A$+"5F6B0055004055005F6B005F00555F007F6B7F5F55005F00000000"
1710 FORI=0TO55:POKE&HE538-I,VAL("&H"+MID$(A$,I*2+1,2)):NEXT
1720 'ENEMY MOVING DATA SETTING …………………
1730 A=0:B=0:FORI=0TO63:A=SIN(.1*I)*32:B=A-B
1740 POKE&HE600+I,VAL("&H"+RIGHT$(HEX$(B),2)):B=A:NEXT
1750 FORI=0TO240:POKE&HE700+I,103+SIN(.05*I)*55+SIN(.2*I)*17:NEXT
1760 'BACKGROUND CHARACTER SETTING …………
1770 DEFUSR=&HE296:DEFUSR1=&HE2F2:U=USR(0)+USR1(0):DEFUSR=&HE2C2
1780 FORI=0TO3:READA$:FORJ=0TO31
1790 VPOKE1536+I*32+J,VAL("&H"+MID$(A$,J*2+1,2)):NEXTJ,I
1800 FORI=0TO31:VPOKE9728+I,251:NEXT:FORI=1TO4
1810 FORJ=0TOVAL(MID$("4323",I,1)):VPOKE9720+I*8+J,245:NEXTJ,I
1820 FORI=0TO71:VPOKE9760+I,5-(I>7)*6-(I>15)*90+(I>47)*70+(I>55)*9:NEXT
1830 A$="3030626262626262878F8F818181878FFF1F6F8F9FBFAF3F"
1840 FORI=0TO23:VPOKE9832+I,VAL("&H"+MID$(A$,I*2+1,2)):NEXT:U=USR(0)
1850 DATA 0000000000FF00000000000FF00000000000FF0000000000000000F00F000000
1860 DATA 00000000000000000000000000000000FFFFFFFFFFFFFFFF010123237777FFFF
1870 DATA 000020207276FFFF8080C4C4EEEEFFFFFF0808080808080880E0787E3F000000
1880 DATA 01071E7EFC000000FFFF0044EEFFFFFF7EFBFFD7FFDF7E5A006CFEFAFE7C3810
1890 'ENEMY INFORMATION ………………………………………
1900 A$="808832116840204248":FORI=0TO5:EC(I)=VAL(MID$(A$,I*3+1,1))
1910 EN(I)=VAL(MID$(A$,I*3+2,2)):NEXT:GOTO30
1920 'SOUND SETTING …………………………………………………
1930 FORI=0TO13:SOUNDI,ASC(MID$("       J/ 0 ` ",I+1,1))-32:NEXT:RETURN
1940 FORI=0TO13:SOUNDI,ASC(MID$("      ?. 00 f.",I+1,1))-32:NEXT:RETURN
1950 'ALL SPRITE ERASING ……………………………………
1960 FORI=0TO31:POKE&HE004+I*4,209:POKE&HE006+I*4,252
1970 VPOKE6912+I*4,209:VPOKE6914+I*4,252:NEXT:RETURN
1980 'ENDING MESSAGE ………………………………………………
1990 DATA –σδίε”›ίœί“πž!"",S,74,α›λ!–ηίπκζ—η!λ“ϊ›ε—ί!δߘπα,S,37
2000 DATA α›κ—“—ίώτκ—ίαω!!QBSU!2,S,42,£—“—ίώ!ξώ€!›ϋηδ!Ž”ω”“απž’
2010 DATA S,106,===!TUBGG!???,S,79,QSPHSBN!!CZ!!B/NBFEB,S,44
2020 DATA QMBO!!CZ!!U/ZBNBNPUP,S,44,IFMQ!!CZ!!N/NJZBNPUP,S,60,E