10 DV=PEEK(186):POKE53269,0
20 ML=198*256:BO=194*256:BL=BO+6
30 WG=49152:MV=WG+3
40 SYSBL,"F.MUNCHKIN",DV,8*256
50 SYSBL,"D.PAPILLIONS.DMC",DV,16*256
59 FORX=0TO64:POKE832+X,0:NEXT
60 FORX=0TO53:POKE832+X,255:POKE832+X,255:NEXT:FORX=0TO3:POKE2040+X,13
61 POKE53287+X,6:NEXT:POKE53270,200
62 POKE53275,15:POKE53269,00
63 POKE53271,15:POKE53277,15
70 POKE53248,160:POKE53249,162
71 POKE53250,96:POKE53251,162
72 POKE53252,224:POKE53253,162:TI$="000000"
75 DIMA(1023):FORX=0TO249:A(X)=X+1024:NEXT
76 FORX=0TO249:Y=RND(1)*250:A=A(Y):A(Y)=A(X):A(X)=A:NEXT
77 IFTI>100THENSP=1
90 POKE53272,18:FORX=0TO3:SYSMV,X,0,0,0,0:NEXT:SYSWG,0
91 GOTO100
92 IFT>TITHEN92
93 RETURN
100 SYSML+42,224+8:POKE53280,12:POKE53281,6:PRINT"":POKE53280,12
110 T=TI+300:SYSWG,1:SYSMV,3,69,70,15,1:POKE53280,12
111 POKE53280,12:GOSUB92:T=TI+150
112 SYSMV,0,69,70,12,1:POKE53269,1:POKE53280,12
113 GOSUB92:T=TI+150
114 SYSMV,1,90,91,13,1:POKE53269,3:POKE53280,12
115 SYSMV,0,69,79,12,1
116 GOSUB92:T=TI+230
118 SYSMV,2,100,101,14,1:POKE53269,7:POKE53280,12
119 SYSMV,1,90,100,13,1
120 GOSUB92:T=TI+206
121 SYSMV,0,79,192,12,128
122 SYSMV,1,100,192,13,128
123 SYSMV,2,100,192,14,128
124 GOSUB92:T=TI+176
125 POKE53287,4:POKE53288,7:POKE53289,7
126 GOSUB92:T=TI+399
127 POKE53287,0:POKE53288,13:POKE53289,13
128 GOSUB92:T=TI+380
129 POKE53287,15:POKE53288,0:POKE53289,0
130 GOSUB92:T=TI+391
131 POKE53287,1:POKE53288,15:POKE53289,15
132 GOSUB92:T=TI+382
133 POKE53288,1:POKE53289,1
134 GOSUB92:K=1:
135 POKE53287,0:POKE53288,0:POKE53289,0
136 T=TI+381:GOSUB92:T=TI+382
137 POKE53288,1
138 GOSUB92:T=TI+382
139 POKE53287,1:POKE53288,2
140 GOSUB92:IFK=2THEN150
142 T=TI+382:GOSUB920:POKE53287,7
143 POKE53288,14:POKE53289,14
144 T=TI+183:GOSUB92:T=TI+211
145 POKE53289,7
146 GOSUB92:T=TI+378
147 POKE53288,7
148 GOSUB92:K=2:GOTO135
150 POKE53288,6:POKE53289,6:POKE53287,4
151 T=TI+358:GOSUB92:T=TI+378
152 POKE53287,6:POKE53288,4:POKE53289,4
153 GOSUB92:T=TI+360
154 POKE53287,0:POKE53288,6:POKE53289,6
155 GOSUB92:T=TI+430:IFSP=1THENT=T-20
156 POKE53287,6:POKE53288,0:POKE53289,0
157 GOSUB92
158 T=TI+211
200 POKE53280,0:POKE53265,11:POKE53282,11:POKE53283,12
201 SYSML+42,224+16:POKE53270,216:POKE53269,14
202 POKE53248,88:POKE53249,130:POKE53275,0:FORX=0TO3:POKE53287+X,0:NEXT
203 POKE53250,136:POKE53251,130
204 POKE53252,184:POKE53253,130
205 POKE53254,232:POKE53255,130
206 FORX=0TO3:SYSMV,X,69,192,12+X,128:NEXT:POKE53265,27
207 GOSUB92:T=TI+189
208 POKE53269,12
209 GOSUB92:T=TI+199
210 POKE53269,8
211 GOSUB92:T=TI+187
212 POKE53269,0
213 GOSUB92:T=TI+381
214 POKE53282,10:POKE53283,4
215 GOSUB92:T=TI+382
216 POKE53282,3:POKE53283,13
217 GOSUB92:T=TI+382
218 POKE53282,1:POKE53283,7
219 GOSUB92:T=TI+382
220 POKE53282,9:POKE53283,8
221 GOSUB92:T=TI+382
222 POKE53282,12
223 GOSUB92
224 T=TI+382:GOSUB925
226 FORX=8TO15:T=TI+75:GOSUB92
227 POKE53282,X:POKE53283,X:NEXT
230 ::::::::::::
299 T=TI+200
300 POKE53280,0:POKE53265,11
301 SYSML+42,224
302 SYSMV,0,69,169,12,128
303 SYSMV,1,79,179,13,128
304 SYSMV,2,89,189,14,128
305 SYSMV,3,92,192,15,128
306 POKE53265,27
307 GOSUB92
308 T=TI+314:POKE53282,7:POKE53283,7
309 GOSUB92:T=TI+382
310 POKE53282,0:POKE53283,0
311 GOSUB92:T=TI+382
312 POKE53282,14:POKE53283,13
313 GOSUB92:T=TI+382:GOSUB925
326 GOSUB3000
327 SYSWG,0:T=TI+60:GOSUB92:POKE53270,200
328 SYSML+42,224+24:T=TI+600:GOSUB92
329 POKE53280,0:POKE53281,0:POKE646,0:PRINT"[147]":POKE53270,200
330 GOTO61000
899 TI$="000000"
900 GETA$:IFA$=""THEN900
901 SYSWG,0:PRINT""TI
902 END
920 POKE53287,(PEEK(53287)-1)AND15
921 POKE53288,(PEEK(53288)+1)AND15
922 POKE53289,(PEEK(53289)+1)AND15
923 IFT>TITHEN920
924 RETURN
925 POKE53282,(PEEK(53282)-1)AND15:POKE53283,(PEEK(53283)+1)AND15
926 IFT>TITHEN925
927 RETURN
3000 TI$="000000":FORX=0TO249
3005 IFX*4>TITHEN3005
3010 POKEA(X),126:POKEA(X)+54272,0
3011 POKEA(X)+250,126:POKEA(X)+54522,0
3012 POKEA(X)+500,126:POKEA(X)+54772,0
3013 POKEA(X)+750,126:POKEA(X)+55022,0
3015 IFTI>2700THENY=4:X=250
3020 NEXT:RETURN
59999 END
60000 POKE53269,0:DV=PEEK(186):OPEN15,DV,15,"S0:MOVIE":CLOSE15:SAVE"0:MOVIE",DV
60999 END
61000 POKE53280,0:POKE53265,11:POKE53281,0:PRINT"[147]":POKE53265,27
61001 POKE56,160:POKE55,0:CLR:C$="[147]"+CHR$(34):D$=CHR$(34)+","
61002 A$="HELLO CONNECT":FORI=8TO11:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN61020
61010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN61030
61020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:POKE198,0:NEW
61030 POKE646,PEEK(53281):PRINTC$A$D$I""
61040 POKE44,8:POKE2048,0:POKE631,131:POKE198,1:END