start tok64 d64-GJsdS9
1 POKE53269,0:POKE53280,0:POKE53281,0:PRINTCHR$(142)CHR$(8)"{white}{clear}";
2 c=0:FORa=832TO1023:READx:POKEa,x:c=c+x:NEXT
3 IFc<>7270THENPRINT"{clear}error in sprite data !!":STOP
4 PRINT" **";:FORa=0TO70:PRINT"{black} please wait {white}*";:NEXT:PRINT"**";:b=49152:c=0
5 FORa=0TO695:READx$:h=ASC(LEFT$(x$,1))-48:l=ASC(RIGHT$(x$,1))-48
6 IFh>9THENh=h-7
7 IFl>9THENl=l-7
8 d=h*16+l:POKEb+a,d:POKE55296+a,d:POKE56295-a,d:c=c+d:NEXT
9 IFc<>97259THENPRINT"{clear}error in m/c data !!":STOP
10 REM ----- sprite data ------
11 DATA0,160,0,3,172,0,3,172,0
12 DATA3,252,0,3,92,0,3,92,0
13 DATA3,92,0,3,92,0,3,156,0
14 DATA3,156,0,3,108,0,3,108,0
15 DATA3,92,0,3,92,0,3,92,0
16 DATA3,92,0,3,252,0,3,172,0
17 DATA3,172,0,0,160,0,0,0,0,
18 DATA0,0,0,0,0,0,0,0,0
19 DATA0,0,0,0,0,0,0,0,0
20 DATA0,0,0,63,255,252,165,101,90
21 DATA165,101,90,165,89,90,165,89,90
22 DATA63,255,252,0,0,0,0,0,0
23 DATA0,0,0,0,0,0,0,0,0
24 DATA0,0,0,0,0,0,0,0,0,
25 DATA0,0,0,0,0,0,0,0,0
26 DATA0,0,0,0,0,0,0,0,0
27 DATA0,60,0,0,255,0,0,251,0
28 DATA1,253,128,1,253,128,0,255,0
29 DATA0,255,0,0,60,0,0,0,0
30 DATA0,0,0,0,0,0,0,0,0
31 DATA0,0,0,0,0,0,0,0,0,
32 REM ------ m/c data -------
33 DATAce,fe,cf,d0,72,ad,fc,cf
34 DATA8d,fe,cf,ce,fd,cf,d0,67
35 DATAad,fb,cf,8d,fd,cf,ae,00
36 DATAdc,8a,29,10,d0,07,a9,09
37 DATAa0,06,4c,29,c0,a9,09,a0
38 DATA0b,8d,fc,cf,8c,fb,cf,8a
39 DATA29,01,d0,0d,a9,37,cd,03
40 DATAd0,f0,06,ce,03,d0,ce,05
41 DATAd0,8a,29,02,d0,0d,a9,e1
42 DATAcd,03,d0,f0,06,ee,03,d0
43 DATAee,05,d0,8a,29,04,d0,0d
44 DATAa9,1d,cd,06,d0,f0,06,ce
45 DATA06,d0,ce,08,d0,8a,29,08
46 DATAd0,0d,a9,f1,cd,06,d0,f0
47 DATA06,ee,06,d0,ee,08,d0,ce
48 DATAf8,cf,d0,84,a9,02,8d,f8
49 DATAcf,ce,f7,cf,d0,42,a9,f5
50 DATA8d,f7,cf,ae,1e,d0,8a,29
51 DATA02,f0,08,a9,ee,8d,05,c2
52 DATA20,cb,c0,8a,29,04,f0,08
53 DATAa9,ce,8d,05,c2,20,cb,c0
54 DATA8a,29,08,f0,08,a9,ee,8d
55 DATA12,c2,20,00,c1,8a,29,10
56 DATAf0,08,a9,ce,8d,12,c2,20
57 DATA00,c1,ee,27,d0,4c,00,c2
58 DATA4c,00,c0,ad,03,d0,18,ed
59 DATA01,d0,90,22,a2,ce,8e,12
60 DATAc2,c9,0a,90,07,a2,02,a0
61 DATA01,4c,35,c1,c9,04,90,07
62 DATAa2,01,a0,01,4c,35,c1,a2
63 DATA01,a0,02,4c,35,c1,a2,ee
64 DATA8e,12,c2,49,ff,4c,d9,c0
65 DATAad,06,d0,18,ed,00,d0,90
66 DATA22,a2,ce,8e,05,c2,c9,0c
67 DATA90,07,a2,01,a0,02,4c,35
68 DATAc1,c9,05,90,07,a2,01,a0
69 DATA01,4c,35,c1,a2,02,a0,01
70 DATA4c,35,c1,a2,ee,8e,05,c2
71 DATA49,ff,4c,0e,c1,8e,09,c2
72 DATA8e,fa,cf,8c,16,c2,8c,f9
73 DATAcf,60,a2,18,bd,6d,c1,9d
74 DATA00,d4,ca,10,f7,a9,08,8d
75 DATAf8,cf,a9,ff,8d,f7,cf,ce
76 DATAf7,cf,d0,fb,ce,f8,cf,d0
77 DATAf1,a9,00,8d,04,d4,8d,0b
78 DATAd4,8d,12,d4,60,f0,05,00
79 DATA00,15,0a,30,ff,0f,00,00
80 DATA00,0a,30,54,10,00,00,00
81 DATA0f,30,00,00,00,0f,ea,ea
82 DATAa9,00,8d,27,d0,a0,70,a2
83 DATAff,ee,26,d0,ca,d0,fd,88
84 DATAd0,f5,a9,0c,8d,26,d0,ce
85 DATAf6,cf,a0,ff,a2,31,ec,12
86 DATAd0,d0,fb,ad,04,dc,8d,20
87 DATAd0,8d,25,d0,88,e8,e0,95
88 DATAf0,0d,cc,12,d0,d0,fb,a9
89 DATA00,8d,20,d0,4c,a6,c1,a9
90 DATA00,8d,20,d0,a9,0b,8d,25
91 DATAd0,60,ea,ea,ea,ea,ea,ea
92 DATAea,ea,ea,ea,ea,ea,ea,ea
93 DATAea,ea,ea,ea,ea,ea,ea,ea
94 DATAea,ea,ea,ea,ea,ea,ea,ea
95 DATAea,ea,ea,ea,ea,ea,ea,ea
96 DATAea,ea,ea,ea,ea,4c,88,c1
97 DATAce,fa,cf,d0,08,ce,00,d0
98 DATAa2,01,8e,fa,cf,ce,f9,cf
99 DATAd0,08,ee,01,d0,a0,02,8c
100 DATAf9,cf,ad,01,d0,4a,4a,4a
101 DATA18,e9,04,a8,ad,00,d0,4a
102 DATA4a,4a,18,e9,01,c0,19,b0
103 DATAcc,c0,00,f0,4f,c9,28,b0
104 DATAc4,a2,04,18,69,28,90,01
105 DATAe8,88,d0,f7,85,fb,86,fc
106 DATAa0,00,b1,fb,c9,20,f0,34
107 DATAc9,51,f0,0f,a9,20,91,fb
108 DATAce,ff,cf,f0,55,ce,87,c0
109 DATA20,42,c1,ad,12,c2,c9,ee
110 DATAd0,0c,a9,fb,18,e9,28,90
111 DATA02,c6,fc,4c,7f,c2,a5,fb
112 DATA18,69,28,90,02,e6,fc,85
113 DATAfb,20,87,c2,4c,00,c0,b1
114 DATAfb,c9,20,d0,13,ad,12,c2
115 DATAc9,ee,d0,06,a9,ce,8d,12
116 DATAc2,60,a9,ee,8d,12,c2,60
117 DATAad,05,c2,c9,ee,d0,06,a9
118 DATAce,8d,05,c2,60,a9,ee,8d
119 DATA05,c2,60,ea,ea,ea,ea,ea
120 REM -----------------------
121 hs=0:PRINT"{clear}"TAB(31)"{light green}(c) 1988"
122 PRINT"{home}";:el=ABS((PEEK(49152)-6)/40):POKE53238,el:sc=0
123 PRINTTAB(5)"{down*6}{reverse on}{red}OLO{right}{cyan}O{right*5}{green}P{right*2}{gray}OLO{right}{light blue}O{right*2}L"
124 PRINTTAB(5)"{reverse on}{red}P{right*3}{cyan}P{right*4}{green}P{right}{sh @}{right}{gray}P{right*3}{light blue}P{right*2}{sh @}"
125 PRINTTAB(5)"{reverse on}{red}OLO{right}{cyan}O{right*3}{green}O{right*2}L{right*2}{gray}{sh @}{right*2}{light blue}OLOL"
126 PRINTTAB(5)"{reverse on}{red}P{right*3}{cyan}P{right*3}{green}PP{sh @*2}{right*3}{gray}{sh @}{right}{light blue}P{right*2}{sh @}"
127 PRINTTAB(5)"{reverse on}{red}O{right*3}{cyan}OLO{right}{green}O{right*2}L{right}{gray}LOL{right}{light blue}O{right*2}L{reverse off}{down}{right*3}{light gray}by gabor"
128 PRINTTAB(8)"{reverse on}{light gray}OLO{right*3}{brown}P{right*2}{pink}O{right*3}{156}O{right*2}"
129 PRINTTAB(8)"{reverse on}{light gray}P{right}P{right*2}{brown}P{right}{sh @}{right}{pink}P{right*3}{156}P{right*2}"
130 PRINTTAB(8)"{reverse on}{light gray}OO{right*2}{brown}O{right*2}L{right}{pink}O{right*3}{156}O{right*2}"
131 PRINTTAB(8)"{reverse on}{light gray}P{right}P{right}{brown}PP{sh @*2}{right}{pink}P{right*3}{156}P{right*2}"
132 PRINTTAB(8)"{reverse on}{light gray}OLO{right}{brown}O{right*2}L{right}{pink}OLO{right}{156}OLO"
133 PRINT"{right*9}{down*6}{dark gray}press fire to start";
134 POKE2040,15:POKE53249,132:POKE53269,1
135 FORk=0TO100STEP.06:POKE53248,140+101*SIN(k)
136 IF(PEEK(56320)AND16)=0THENPOKE53269,0:GOTO177
137 POKE53287,INT(RND(0)*14)+1:NEXT:GOTO134
138 POKE2040,15:POKE2041,13:POKE2042,13:POKE2043,14:POKE2044,14
139 POKE53285,11:POKE53286,12:FORq=0TO3:POKE53287+q,13:NEXT:POKE53276,30
140 POKE53248,141:POKE53249,50
141 POKE53250,18:POKE53251,141
142 POKE53252,255:POKE53253,141
143 POKE53254,141:POKE53255,43
144 POKE53256,141:POKE53257,237
145 POKE53239,255:POKE49287,255:POKE53240,2
146 POKE53243,9:POKE53245,9:POKE53244,9:POKE53246,9:POKE53241,1:POKE53242,1
147 PRINT"{dark gray}{home}"TAB(31)"U{sh asterisk*7}I"
148 FORr=1095TO1975STEP40:POKEr,66:POKEr+8,66:POKEr+54272,11:POKEr+54280,11
149 NEXT:POKE2015,74:POKE2023,75:POKE56287,11:POKE56295,11
150 FORr=2016TO2022:POKEr,67:POKEr+54272,11:NEXT
151 PRINTTAB(33)"lives:":PRINT"{down*5}"TAB(33)"round:":PRINT"{down*5}"TAB(33)"hi-sc:
152 PRINT"{down*5}"TAB(32)"{red}f{cyan}l{green}a{gray}s{light blue}h{down*2}{left*2}{light gray}b{brown}a{pink}l{156}l"
153 c=0:GOSUB162:POKE53269,31
154 c=11:GOSUB162:c=12:GOSUB162:c=15:GOSUB162:c=1:GOSUB162
155 c=7:GOSUB162:c=5:GOSUB162:c=13:GOSUB162
156 c1=15:c2=15:GOSUB163:c1=12:c2=12:GOSUB163:c1=11:GOSUB163
157 GOSUB171
158 SYS49152:POKE53269,0
159 IFel=PEEK(53238)THENel=el+1:POKE53238,el:FORp=0TO1000:NEXT:RETURN
160 el=PEEK(53238):IFel=255THEN165
161 GOTO138
162 c1=c:c2=c
163 FORp=0TO20:NEXT:POKE53285,c1:POKE53286,c2:FORr=0TO4:POKE53287+r,c:NEXT
164 RETURN
165 el=0:sc=sc+(t-PEEK(53247)):GOSUB171
166 PRINT"{home}{white}{down*3}{right*8}your score is:"sc
167 FORp=0TO900:IF(PEEK(56320)AND16)<>0THENNEXT
168 PRINT"{clear}{down*3}{right*12}game over"
169 h=INT(hs/256):l=hs-(h*256):POKE52993,h:POKE52992,l:RUN170
170 hs=PEEK(52992)+256*PEEK(52993):GOTO122
171 PRINT"{dark gray}{home}{down*4}"TAB(33)el"{left} "
172 PRINT"{down*5}"TAB(33)ro
173 IFsc>hsTHENhs=sc
174 PRINT"{down*5}"TAB(33)hs
176 RETURN
177 ro=1:t=85:POKE53247,t
178 PRINT"{left*19}{space*20}"
179 PRINT"{home}{down*3}{right*14}{space*9}"
180 PRINT"{home}"TAB(29)"{down*11}{space*8}"
181 GOSUB138:GOSUB171
182 :
183 REM******* egna screens ***********
184 :
185 ro=2:sc=sc+t:t=11:POKE53247,t
186 PRINT"{clear}{right*10}{down*12}{white}egna screens"
187 GOSUB138:GOSUB171
stop tok64
(bastext 1.0)