10 HS=0
20 EG=0:RESTORE:GOTO470
30 POKEDD,127:IF((PEEK(P1)AND8)=.)THEND=W:GOTO170
40 IF((PEEK(P1)AND16)=.)THEND=-T:G=2:GOTO170
50 IF((PEEK(P1)AND4)=.)THEND=-W:GOTO170
60 IF((PEEK(P2)AND128)=.)THEND=T:G=.:GOTO170
70 FORA=.TO3:IFZ>E(A)THENIFPEEK(E(A)+W)=NTHENI=W:GOTO90
80 IFZ<E(A)THENIFPEEK(E(A)-W)=NTHENI=-W
90 IFZ>E(A)THENIFPEEK(E(A)+T)=NTHENI=T:GOTO110
100 IFZ<E(A)THENIFPEEK(E(A)-T)=NTHENI=-T
110 IFPEEK(E(A)+I)=NTHENPOKEE(A),N:E(A)=E(A)+I:POKEE(A)+C,T:POKEE(A),5
120 IFE(A)+I=ZTHEN240
130 POKEE(A),4:NEXT
140 HH=HH+1:IFHH>HTTHENHH=.:H=H-1:IFH<0THEN280
150 PRINT"";H;"[157] "
160 GOTO30
170 POKEV-3,245:IFPEEK(Z+D)=NTHENPOKEZ,N:Z=Z+D:POKEZ+C,7:POKEZ,G:POKEV-3,.:GOTO210
180 POKEV-3,.:IFPEEK(Z+D)=6ANDPEEK(Z+D*2)<>NTHEN220
190 IFPEEK(Z+D)=6ANDPEEK(Z+D*2)=NTHENQQ=Z+D:GOTO310
200 IFPEEK(Z+D)<6THEN240
210 GOTO70
220 FORA=.TO3:POKEZ+D,8:POKEV-T,152:POKEZ,G:POKEZ+D,9:POKEV-T,175:POKEZ,G+T:NEXT
230 POKEZ+D,N:POKEV-T,.:S=S+10:PRINT">";S:GOTO70
240 FORY=.TO15:POKEZ,G+T:POKEV-T,161:POKEE(A),4:POKEZ,G:FORO=1TO20:NEXT:POKEE(A),5
250 NEXT:POKEV-T,.:FORY=.TO15:POKEV,Y:POKEV-T,245:FORO=1TO25:NEXT:NEXT:POKEV-T,.
260 SH=SH-1:PRINT"[157][157][157]";SH"[157] ":IFSH=.THEN280
270 GOTO30
280 POKEZ,N
290 PRINT"GAME OVER":PRINT"   PRESS [159]FIREBUTTON";
300 WAIT37137,32,32:GOTO20
310 POKEV-3,200:POKEV-3,220:POKEQQ,N:QQ=QQ+D
320 IFPEEK(QQ)=NTHENPOKEQQ+C,3:POKEQQ,6:GOTO310
330 POKEV-3,.:IFPEEK(QQ)<6THENPOKEQQ+C,3:POKEQQ,6:S=S+1000:PRINT">";S:GOTO350
340 QQ=QQ-D:POKEQQ+C,3:POKEQQ,6:GOTO30
350 FORY=240TO255:POKEV-2,Y:POKEV-2,.:NEXT
360 FORA=.TO9:POKEQQ+C,T:POKEQQ,11:POKEV-4,235:POKEZ,G+T:POKEQQ,10:POKEZ,G:POKEV-3,200
370 POKEV-4,.:NEXT:POKEQQ,4:POKEV-3,.:EG=EG+1:IFEG>3THEN390
380 GOTO30
390 EG=.:FORY=128TO255:POKEV-3,Y:NEXT:POKEZ,N:FORA=.TO3:POKEE(A),N:NEXT:Z=7910
400 FORY=.TO3:FORO=240TO255:POKEV-3,O:FORA=1TO20:NEXT:NEXT:NEXT:POKEV-3,.
410 FORY=8141TO7702STEP-1:IFPEEK(Y)=6THENPOKEY+C,T:POKEV-4,240:POKEY+C,3:S=S+25
420 POKEV-4,.:PRINT">";S:H=60:NEXT:FORY=140TO255:POKEV-3,Y:NEXT:POKEV-3,.:POKEZ,G
430 POKEZ+C,7:HT=HT-T:IFHT<1THENHT=1
440 SH=SH+T:PRINT"[157][157][157]";SH:LV=LV+1:PRINT"[157][157][157]";LV
450 FORY=1TO10:B=7768+INT(RND(T)*352):IFPEEK(B)=NANDB<>ZTHENPOKEB+C,3:POKEB,6
460 NEXT:POKEV-2,144:S=S+(H*10):PRINT">";S:POKEV-2,.:GOTO30
470 POKE36869,240:PRINT"[147][144]THE FREEZE FACTORY!![146]"
480 PRINT"SCORE:":PRINT""S:IFS>HSTHENHS=S
490 S=0:PRINT"HIGH SCORE:":PRINT""HS
500 POKE36879,28:PRINT"PRESS FIRE[144] TO PLAY"
510 WAIT37137,32,0:WAIT37137,32,32
520 POKE52,28:POKE56,28:POKE51,.:POKE55,.:FORX=7424TO7432:POKEX,.:NEXT
530 FORX=7168TO7263:READD:POKEX,D:NEXT:V=36878:POKEV-9,255:POKEV,15:T=1:W=22:POKEV+T,8
540 PRINT"[147]> 0":PRINT"[157][157][157][157][157][157][157][157]LEVEL 1":PRINT"TIME: 60":C=30720
550 FORA=TTO50:POKEV-2,240:B=7768+INT(RND(T)*352):POKEB+C,3:POKEB,6:POKEV-2,.:NEXT
560 FORA=7746TO7767:POKEA,7:POKEA+C,4:NEXT:FORA=7768TO8120STEPW:POKEA+C,4:POKEA,7
570 POKEA+21,7:POKEA+21+C,4:NEXT:FORA=8121TO8140:POKEA+C,4:POKEA,7:NEXT
580 FORA=.TO15:POKEV,A:POKEV-4,225:FORY=1TO75:NEXT:NEXT:POKEV-4,.
590 N=32:P1=37151:P2=37152:DD=37154:Z=7910:H=60:SH=3:E(.)=7902:E(T)=7914:E(2)=7800
600 E(3)=7998:POKEZ+C,7:POKEZ,.:HT=4:LV=1
610 PRINT"[157][157][157][157][158]@";SH:GOTO30
620 PRINT"[157][157][157][157][158]@";SH
630 DATA62,120,119,112,28,96,88,54,62,120,127,60,112,120,48,28,124,30,238,14,56,6,26
640 DATA108,124,30,254,60,14,30,12,56,60,90,36,24,60,90,36,102,60,90,36,90,60,24,36,195
650 DATA126,195,153,165,165,153,195,126,204,51,204,51,204,51,204,51,0,34,0,136,0,34,0
660 DATA136,68,0,17,0,68,0,17,0,0,24,60,126,219,219,126,60,0,0,60,126,255,153,126,60