Katapilla =L $Lt?L 80:  P.SHAW/SPORTSCENE 1984 KRAZY KATAPILLA  PETER SHAW 1984 (23658j\,8 2 2520 <"" F43,10 ;5;0;"YOUR SPECCY!" P016,21;8;9 ;"CREDITS" Z#15,23;9 ;"000" d 1660| e*0,0;0;4;"" nPCRE=CRE-1:CRE=-1"NO CREDIT-PRESS ENTER FOR MORE ";A$:10 xH15,23;8;("0"CRE<10 )+("0"CRE<100d);CRE 1210 1320( #NC=1NC=0:170 860\ 110n AFH=1:18,19;8;9 ;"FEATURE HOLD" 416,12 ;1;8;8;"" 416,15;1;8;8;"" 416,18;1;8;8;"" =13 F="1"T(1)=1:16,12 ;8;8;"" F="2"T(2)=1:16,15;8;8;"" F="3"T(3)=1:16,18;8;8;"" N="C"T(1)=0:T(2)=0:T(3)=0:190  220 "R=1̺(*10 )+10 "720,16;8;9 ;1;"NUDGE" ,C32766=25320,22;8;8;"UP" 6C3276625320,22;8;8;" " @ B=0 Ju="!"B=1:A=13:J(1,A)=J(1,A)+1:J(1,A)=16J(1,A)=1 TB=1A:1210 ^ B=0 hu="@"B=1:A=13:J(2,A)=J(2,A)+1:J(2,A)=16J(2,A)=1 rB=1A:1210 | B=0 u="*"B=1:A=13:J(3,A)=J(3,A)+1:J(3,A)=16J(3,A)=1 B=1A:1210  B=0 u="1"B=1:A=13:J(1,A)=J(1,A)-1:J(1,A)=0J(1,A)=15 B=1A:1210  B=0 u="2"B=1:A=13:J(2,A)=J(2,A)-1:J(2,A)=0J(2,A)=15 B=1A:1210  B=0 u="3"B=1:A=13:J(3,A)=J(3,A)-1:J(3,A)=0J(3,A)=15 B=1A:1210  NC=1 F20,16;8;8;" ";20,22;" "  B=0 .A=140(12 :.001wn,A:A A=110 :A &R(1,J(1,1))=R(2,J(2,1))R(2,J(2,1))=R(3,J(3,1))V(R(1,J(1,1)),2)0PR=V(R(1,J(1,1)),2):990 0R(1,J(1,1))=R(2,J(2,1))V(R(1,J(1,1)),1)0PR=V(R(1,J(1,1)),1)0:990 :.20,16;8;9 ;"NUDGE" DR N.20,26;8;8;" " X bJ20,1;8;9 ;"COLLECT";20,9 ;" " l2:="C"1030 vJ20,1;8;9 ;" ";20,9 ;"GAMBLE" 2:="G"660  610b PS=PR/10 :COL=0 ""670 PR=100dPS=5 PR=502PS=4 GP(PS,1),P(PS,2);1;8;8;1;" " ƒP(PS-1,1),P(PS-1,2);1;8;8;1;" ";P(PS+1,1),P(PS+1,2);0;" " z""Ʀ"C"PS=PS-1:P(PS,1),P(PS,2);1;8;8;0;" ":COL=1:770 ڒP(PS+1,1),P(PS+1,2);1;8;8;1;" ";P(PS-1,1),P(PS-1,2);0;" " m""Ʀ"C"PS=PS+1:P(PS,1),P(PS,2);1;8;8;0;" ":770 ="C"COL=1:770  710 %PS=1PR=10 :1030  PS=2PR=20 PS=3PR=30  PS=4PR=502 *PS=5PR=100d 4&PS=6PR=200:1030 >COL=11030 H""840H R 700 \ PR=0 fR(1,J(1,1))=R(2,J(2,1))R(2,J(2,1))=R(3,J(3,1))V(R(1,J(1,1)),2)0PR=V(R(1,J(1,1)),2):990 pR(1,J(1,1))=R(2,J(2,1))V(R(1,J(1,1)),1)0PR=V(R(1,J(1,1)),1):990 z?R(1,J(1,1))=5PR=10 :990  MO=0 A=13 IR(A,J(A,1))>7MO=MO+F$(R(A,J(A,1)),1,1) A MO=0 BA=LE+1LE+MO:0,A-1;8;4;"":A ~A=27PR=200:LE=2:FH=0:0,2;8;8;" ":990  A:LE=LE+MO  QL=0:20,16;8;8;" ";20,22;" " [L=L+1:0:2:6:4:1:0:L<70F1000 PR=2001030 PR>10 610b CRE=CRE+(PR/10 ) sA=1309 :.001wn,A:A:#1;0,0;" YOU WIN ";PR;" PENNIES!":100d <#1;0,0;" " $}20,1;8;8;" ";20,9 ;" ";20,16;" ";20,22;" " .+15,26-((CRE));8;CRE 8 HE=0 BPR=2001110V L$20:HE=1:1110V: V/A=16:B=16:1 `=P(A,1),P(A,2);8;8;1;P$(A) jqA=1P(6,1),P(6,2);1;0;8;8;0;" ":1150~ t^P(A-1,1),P(A-1,2);0;1;8;8;0;" " ~SB:A:HE=1P(6,1),P(6,2);8;8;"`2": F20:4,25;8;8;1;1;" " \A=160<8:.001wn,A:A:A=60<30-9 :.001wn,A:A F502:4,25;8;8;0;1;" "   7,12 ;C(R(1,J(1,2)));9 ;F$(R(1,J(1,2)),1);8,12 ;F$(R(1,J(1,2)),2) Ħ10 ,12 ;C(R(1,J(1,1)));9 ;F$(R(1,J(1,1)),1);11 ,12 ;F$(R(1,J(1,1)),2) Φ13 ,12 ;C(R(1,J(1,3)));9 ;F$(R(1,J(1,3)),1);14,12 ;F$(R(1,J(1,3)),2) ؤ7,15;C(R(2,J(2,2)));9 ;F$(R(2,J(2,2)),1);8,15;F$(R(2,J(2,2)),2) 10 ,15;C(R(2,J(2,1)));9 ;F$(R(2,J(2,1)),1);11 ,15;F$(R(2,J(2,1)),2) 13 ,15;C(R(2,J(2,3)));9 ;F$(R(2,J(2,3)),1);14,15;F$(R(2,J(2,3)),2) 7,18;C(R(3,J(3,2)));9 ;F$(R(3,J(3,2)),1);8,18;F$(R(3,J(3,2)),2) 10 ,18;C(R(3,J(3,1)));9 ;F$(R(3,J(3,1)),1);11 ,18;F$(R(3,J(3,1)),2)  13 ,18;C(R(3,J(3,3)));9 ;F$(R(3,J(3,3)),1);14,18;F$(R(3,J(3,3)),2)   (F20,16;8;8;" ";20,22;" " 2 CH=0 < 30 F#>.8LCH=1:180 P|FH=00,2;8;8;" ";18,19;" ":LE=2 ZoFH=1ƥ>.5CH1FH=0:18,19;8;8;" ":1360P d720,26;9 ;8;1;"START" n.A=1200:=13 1410 xA:2210 820,26;8;8;0;"START"; C16,12 ;8;8;1;0;" " C16,12 ;1;0;8;8;" " MR=1̺(*5)+2:A=13:T(A)=11480 $A=3T(A)=11500 KB=13:J(A,B)=J(A,B)-1:J(A,B)<1J(A,B)=15 B A:1210:R .01z# =,20 MR=1̺(*5)+2:A=23:T(A)=11540 $A=3T(A)=11560 KB=13:J(A,B)=J(A,B)-1:J(A,B)<1J(A,B)=15 B A:1210:R .01z# =,20 @R=1̺(*5)+2:T(3)=11610J "cB=13:J(3,B)=J(3,B)-1:J(3,B)<1J(3,B)=15 ,B 6A:1210:R @.01z# =,20 J$A=13:T(A)=0:A T116,12 ;8;8;" " ^>.95s333280 h r |1660|:7 A="A""U"+7 U:A,U A WF$(10 ,2,2):R(3,15):T(3):CH=0:LE=2 V(10 ,2):P$(6,2):P(6,2):C(10 ):J(3,3):CRE=10 :NC=0:FH=0 A=110 <F$(A,1),F$(A,2),V(A,1),V(A,2),C(A) A 'A=13:B=115 R(A,B):B:A A=16 P(A,1),P(A,2) 7A:A=13:B=13:J(A,B):B:A A=16:P$(A):A 5R$(10 ,32 ):A=110 :R$(A):A  &H0,82R,85U,117u,85U,85U,82R,0 0H0,70F,69E,69E,69E,69E,118v,0 :H0,87W,84T,119w,84T,84T,87W,0 DE0,0,1,7,15,15,15,15 NM0,0,128,224,176,208,208,240 XH15,31,31,31,31,127,1,0 bO240,248,248,248,248,254,128,0 lH0,0,7,15,31,63?,127,127 vM0,0,224,240,152,236,254,254 H127,127,63?,31,15,7,0,0 M254,254,252,248,240,224,0,0 K0,31,59;,63?,63?,127,123{,127 O0,240,232,248,248,120x,240,224 H63?,61=,63?,61=,14,15,15,6 L192,64@,192,128,128,128,0,0 G0,63?,0,63?,63?,39',42*,38& L0,254,0,254,254,102f,170,38& G42*,42*,38&,63?,63?,0,63?,0 M170,170,170,254,254,0,254,0 P126~,191,255,255,255,126~,60<,102f N124|,254,245,254,240,252,60<,0 %"","",0,100d,6 %"","",30,502,2  %"","",30,502,3 %"","",20,30,6  %"","",20,502,3 *%"","",0,100d,0 4%"K/","/K",0,100d,5 >#"5*","*5",0,0,6 H#"4*","*4",0,0,5 R#"3*","*3",0,0,4 \{1,8,5,4,9 ,6,4,10 ,2,8,7,3,10 ,4,9 f{6,10 ,8,3,4,1,5,9 ,4,2,7,10 ,9 ,4,8 p{5,3,4,10 ,6,1,9 ,7,8,4,10 ,2,9 ,4,8 zj14,29,12 ,27,10 ,28,8,26,6,27,4,25 L1,15,2,1,15,2,1,15,2 "10","20","30","50","`1","`2" >" I'M A K-K-KRAZY KATAPILLA!"," STILL IN CREDIT - NOT FOR LONG"," BY TROUBLESHOOTING PETE 1984","YS, THE BEST MAG FOR YOUR SPECCY"," THE QL EXISTS!","LET'S GET ON WITH THE GAME THEN!"," WHY ARE WE WAITING?"," DON'T 'ANG AROUND THEN"," BYTE HIGH - NO LIMIT","OK, PRESS THE START BUTTON DUMMY" JKL=1:K1=1:K2=13 :K3=10 :K5=0:KA=1 =142450 @P(K1,1),P(K1,2);1;8;8;P$(K1) IKL=KL+KA:0,KL;0;4;" ":KL>28KA=-1 KL<1KA=1 gK1=1P(6,1),P(6,2);0;8;8;P$(6):2280 XP(K1-1,1),P(K1-1,2);0;8;8;P$(K1-1) (K1=K1+1:=13 2450 K1=7K1=1 54,K2;1;8;8;1;" " HK2=13 4,21;0;8;8;1;" " =4,K2-1;0;8;8;1;" " (K2=K2+1:=13 2450 $K2=22K2=13 .=4,10 ;8;5;1;0;" " 8WK3/2=(K2/2)4,10 ;8;7;1;1;" " B=13 2450 L,3,K3;1;9 ;1;" " VKK3=10 3,21;5;9 ;1;" ":2410j `43,K3-1;5;9 ;1;" " j(K3=K3+1:=13 2450 tK3=22K3=10 ~4K5=K5+1:K5=20K5=0:2510 2220 43,10 ;5;9 ;"YOUR SPECCY!" R4,10 ;0;5;0;1;" ";6;" " >#1;0,0;" " JA=16:P(A,1),P(A,2);1;7;P$(A):A F0,0;0;4;" "  >K6=(*10 )+1:#1;0,0;R$(K6): 0:9 : 2520 A="A""J"+7 U:A,U:A G0,8,28,62>,62>,62>,127,8 K0,127,0,127,127,127,0,127 H0,82R,100d,88X,26,44,,74J,0 G0,8,63?,62>,30,28,24,16 (J0,28,38&,79O,127,127,62>,28 2H0,86V,85U,102f,85U,85U,85U,0