;BM74,15;E2;BM79,35;E2;BM92,25;D11R71U11L71;BM175,25;R80D11L80U11"95"BM210,3;XL$(0),XL$(0),XL$(0),XL$(0),XL$(0),BM210,14;XL$(0),XL$(0),XL$(0),XL$(0),XL$(0);":4,1:"BM93,3;C0S7;XL$(28);XL$(25);XL$(11);XL$(13);BM+0,-1;XL$(18);C1S4":(54,22),5,1,1,.25,.75:(54,22),3,1,1,.25,.7596 142,20,31,166,132,16,142,0,31,230,31,231,132,48,31,49,63,38,246,167,132,48,136,63,140,22,63,47,230,142,22,96,166,132,16,142,0,31,230,1,231,128,49,63,38,248,167,128,140,24,160,47,235,142,20,0,236,129,237,137,5,254,237:7 137,11,254,140,24,160,38,241,57:|8 I32694 32765: J: I,J:I:(0,66)(255,66),:(0,84)(255,84),:6:@237,"roach";:0,1;K9"BM98,32;C1;G2E2F2H2;BM+0,-2;G3E3F3H3;BM+0,-2;G3E3F3H3;BM+2,-1R1;BM-5,0;L1":(95,26)(101,34),R,G:(92,25)(92,36),:(91,26)(105,34),RW,G:(92,25)(92,36),:(105,26)(111,34),RX,G:(0,48)(255,48),;:I108158 10:(I3,26)(I3,34),R,:I:(0,0)(255,0),:(0,36)(255,36),:(22,17)(22,34),:(56,16)(72,16),:(87,1)(87,15),<;I1734:(56,I)(72,I),:I:(15,53),4,1,1,.5,1:(19,57),4,1,1,.75,.25:(15,61),4,1,1,0,.5:(11,57),4,1,1,.25,.75:(15,57),4,1,1:(15,57),2,1,1:(32,51),1,1:(32,63),1,1=0<(45,54),3,1,1:(45,60),3,1:(45,54),1,1:(45,60),1,1:(130,57),7,1,1,.125,.875:"BM130,57;NE5NF5":(125,57),1,1:(129,54),1,0:(200,57),7,1:(200,57),3,1:(196,57),1,1>="BM215,63;NE9R10NU10L8NE7R1NE7R2E4;BM238,50;NF9R10ND10G4":3,1:"BM55,50;C3R10;BM60,63;C4R10;BM90,50;C3R20D12L20U12;BM147,50;C2R13D14L13U14;BM168,50;R12BD2L8BD2C3D6BR3U6BR3D6BR2BD2C2L8BD2L3R12":(100,57),3,3:(155,57),2,2>>4,1:(223,61),5,5:(55,50)(60,63),:(65,50)(60,63),:(65,50)(70,63),:(65,55),5,5:"BM200,57;C0;NE4NF4NG4NH4C1"?2?"BM97,53;C0;XL$(2);BM151,54;XL$(2);C1":(6,49)(138,64),P1,G:(123,67)(255,82),P1,:(146,49)(248,64),P1,G:(9,67)(111,82),P1,:23:24:1,1:I01000:I?b@32694:"V31T255L255O3A":(32) :64(65,55),5,5:"BM200,57;C0;NE4NF4NG4NH4C1"?2?"BM97,53;C0;XL$(2);BM151,54;XL$(2);C1":(6,49)(138,64),P1,G:(123,67)(255,82),P1,:(146,49)(248,64),P1,c&^ 65495,0:6:@167,"afabear software";:@174,(223);:@299,"PRESENTS";:0,1:350,&H7EA0&s44:SX0:NX$""&2:RS50:(177,14)(254,20),XM,:@192,"PLEASE ENTER YOUR INITIALS";:N$:LX(N$):LX3LX15'B$"":N1 LX:B$B$L$(((N$,N,1))54):N:N$B$:"BM177,14;C1;XN$;BM210,14;XL$(0);XL$(0);XL$(0);XL$(0);XL$(0);":N98 158 10:(N3,26)(N3,34),R,:N:(176,26)(254,34),XM,'(155,26)(161,34),XM,:2:@194,"PLEASE ENTER DIFFICULTY LEVEL";:@232,"1-EASY 4-HARD";:DF: DF1DF47(Z 8: N22 28: (33,N)(44,N),: N: "BM33,22;C1;XL$(DF);": 1,1:RC6:S0:SR0:IH0( KD16DF4:X124(3)2:I16:J0:K0:N04:"V31O4L24T24BAFEDC":N:"T2O1C":N0150:N:"C":(155,26)(161,34),XM,( J9 11 :26)R (X7,Y(J)4)(X7,Y(J)4),RW,:II.2:KK1:(56,I)(72,I),:JX(((0)31)40.5)4: (1)015) XXJX:(X128)116X128116(X128)) I34 26 : KKD 11)"V31T255L255O3A":32694:K0:11*'ID0:(X3,Y(J)4)(X3,Y(J)4),XM,:"T10L10O5AB":JJ1:(X3,Y(J)4)(X3,Y(J)4),RX,G:17*(X3,Y(J)4)(X3,Y(J)4),RX,:"T12L12O5AB":JJ1:(X3,Y(J)4)(X3,Y(J)4),RX,G*(X3,Y(J))5 (X3,Y(J))5 (X2,Y(J)1)5 (X2,Y(J)1)5 (X,Y(J))5 (X,Y(J)4)5 18 :19+!(X3,Y(J)4)(X3,Y(J)4),R,:ID1: 26+D(X3,Y(J)4)(X3,Y(J)4),R,+vKK.25:N(0): (1)0 24 : KKD 20+XXX:XXDX(J): (X128)12022:23,X128123(X128):(XX3,Y(J)4)(XX3,Y(J)4),RX,:(X3,Y(J)4)(X3,Y(J)4),RX,G:(X3,Y(J)3)(X3,Y(J)4),R,:26,(XX3,Y(J)4)(XX3,Y(J)4),RX,:"V31T255L255O3A":32694:(X3,Y(J)4)(X3,Y(J)4),R,:K0:20, J1 J4 J7 16,(X3,Y(J)4)(X3,Y(J)4),RX,:"T10L10O5AB":JJ1:32694:10- J9 29 : I34 ID0 28-u31:N010:(X3,Y(J)4)(X3,Y(J)4),R,:255,1:(X3,Y(J)4)(X3,Y(J)4),RX,:N:32:SSJID:30-31:N010:(X3,Y(J)4)(X3,Y(J)4),R,:255,1:(X7,Y(J)4)(X7,Y(J)4),XM,:N:32:SSJ:30.k(X3,Y(J)4)(X3,Y(J)4),R,:N112020:N,1:N:(X3,Y(J)4)(X3,Y(J)4),XM,:SRSR1:XX175SR10:(XX3,26)(XX3,34),R,:SS10.RCRC1:XX9810RC:33:40:(XX3,26)(XX3,34),XM,:ID0:RC1 41:9/ (25,10)(45,5),:(25,12)(45,17),:(25,11)(45,8),:(25,11)(45,14),:/Z (25,10)(45,5),:(25,12)(45,17),:(25,11)(45,8),:(25,11)(45,14),:/!B$"":S$(S):LX(S$):LX3B$L$(0): LX2 B$L$(0)L$(0)/"N2LX:B$B$L$(((S$,N,1))):N: IH1360 #(177,14)(255,20),XM,:"BM178,14;C1;XN$;BM210,14;XB$;XL$(0);XL$(0);":370r$(177,3)(255,11),XM,:"BM178,3;C1;XN$;BM210,3;XB$;XL$(0);XL$(0);":IH0:390%SXS 390&IH1:SXS:SSX:NX$N$:330'0("C1":N3417 1:(56,N)(72,N),:N:0)(SRS)042:431x*RSRS50:N03:"V31T8L8O1ABDCFEL2G":N:N98158 10:(N3,26)(N3,34),R,:"V31L12O1AB":N::(176,26)(254,34),XM,:RC6:SR0:IH0:91+32694:"V31T255L255O3A":(32)5:431,L$(36),R(2),RX(2),RW(3),P1(54),Y(9),XM(20),DX(9)2-L$(1)"BM+2,0;R1D6L3R6;BM+3,-6":L$(2)";D1U1R6D3L6D3R6;BM+3,-6":L$(3)";R6D3L4R4D3L6;BM+9,-6":L$(4)";D3R6L1U3D6;BM+3,-6":L$(5)";R6L6D3R6D3L6U1;BM+9,-5":L$(6)";D6R6U3L6;BM+9,-3":L$(7)";D1U1R6D6;BM+3,-6":L$(8)";R6D6L6U3R6L6U3;BM+9,0"3.L$(9)";R6D6U3L6U3;BM+9,0":L$(0)";R6D6L6U6;BM+9,0":L$(11)";BM+0,+6;U3E3F3L6R6D3;BM+3,-6":L$(12)";R6D3L6R6D3L6U6;BM+9,0":L$(13)"BM+6,+1;U1L6D6R6U1;BM+3,-5":L$(14)";R4F2D2G2F3U6L1D6;BM+9,-6":L$(15)";R6L6D3R3L3D3R6;BM+3,-6"4/L$(16)";R6L6D3R3L3D3;BM+9,-6":L$(17)";BM+6,+1;U1L6D6R6U3L3D1;BM+6,-4":L$(18)";BM+0,+0;D6U3R6U3D6;BM+3,-6;":L$(19)";R6L3D6L3R6;BM+3,-6":L$(20)";R6L3D6L3U2;BM+9,-4":L$(21)";D6U1E5;BM+1,+6;H3F3;BM+3,-6":L$(22)";D6R6;BM+3,-6"50L$(23)";D6U6F3E3D6;BM+3,-6":L$(24)";D6U6F6U6;BM+3,0":L$(25)";R6D6L6U6;BM+9,0":L$(26)";R6D3L6U3D6;BM+9,-6":L$(27)";R6D6H3F3L6U6;BM+9,0":L$(28)";R6D4L2F2H2L4D2U6;BM+9,0":L$(29)";R6L6D3R6D3L6;BM+9,-6":L$(30)";R6L3D6;BM+6,-6"6<1L$(31)";D6R6U6;BM+3,0":L$(32)";D3F3E3U3;BM+3,0":L$(33)";D6E3F3U6;BM+3,0":L$(34)";F6H3G3E6;BM+3,0":L$(35)";F3E3G3D3;BM+6,-6":L$(36)";D1U1R6G6R6U1;BM+3,-5":L$(10)";BM+4,0"62Y(0)186:Y(1)172:Y(2)153:Y(3)138:Y(4)128:Y(5)105:Y(6)90:Y(7)76:Y(8)57:Y(9)42:DX(0)0:DX(1)8:DX(2)8:DX(3)0:DX(4)8:DX(5)8:DX(6)0:DX(7)8:DX(8)8:DX(9)0734,1::3,1:"BM15,8;C2S4R4D2R4D2L4D2L4R4F4D17L12U17E4U6;BM31,20;C4R12D10L12U10;BM54,15;C3D20L5R30L5U20;BM84,0;C2D17R85U17;C3R1D16L83U16;BM175,1;C2R80BM+0,+10;L80U10;BM175,12;C3R80BM+0,+10;L80C2U10"8A4(120,10),4,3:(18,11),4,2:(19,25),3,2:4,1:"BM54,15;C1H2;BM49,35;H2 0 POKE 65495,0:CLS6:PRINT@167,"afabear software";:PRINT@174,CHR$(223);:PRINT@299,"PRESENTS";:SCREEN0,1:CLEAR350,&H7EA0 4 GOSUB44:SX=0:NX$="" 5 CLS2:RS=50:PUT(177,14)-(254,20),XM,PSET:PRINT@192,"PLEASE ENTER YOUR INITIALS";:INPUTN$:LX=LEN(N$):IFLX>3ORLX<1THEN5 6 B$="":FORN=1TO LX:B$=B$+L$(ASC(MID$(N$,N,1))-54):NEXTN:N$=B$:DRAW"BM177,14;C1;XN$;BM210,14;XL$(0);XL$(0);XL$(0);XL$(0);XL$(0);":FORN=98TO 158 STEP10:PUT(N-3,26)-(N+3,34),R,PSET:NEXTN:PUT(176,26)-(254,34),XM,PSET 7 PUT(155,26)-(161,34),XM,PSET:CLS2:PRINT@194,"PLEASE ENTER DIFFICULTY LEVEL";:PRINT@232,"1-EASY 4-HARD";:INPUTDF:IF DF<1ORDF>4THEN7 8 CLS 8:FOR N=22 TO 28:LINE (33,N)-(44,N),PRESET:NEXT N:DRAW "BM33,22;C1;XL$(DF);":SCREEN 1,1:RC=6:S=0:SR=0:IH=0 9 KD=16-DF*4:X=124+RND(3)*2:I=16:J=0:K=0:FORN=0TO4:PLAY"V31O4L24T24BAFEDC":NEXTN:PLAY"T2O1C":FORN=0TO150:NEXTN:PLAY"C":PUT(155,26)-(161,34),XM,PSET 10 IF J<9 THEN 11 ELSE26 11 PUT(X-7,Y(J)-4)-(X+7,Y(J)+4),RW,PSET:I=I+.2:K=K+1:LINE(56,I)-(72,I),PRESET:JX=INT((JOYSTK(0)-31)/40+.5)*4:IF JOYSTK(1)=0THEN15 12 X=X+JX:IFABS(X-128)>116THENX=128+116*SGN(X-128) 13 IF I>34 THEN 26 ELSE IF K120THEN22ELSE23 22 X=128+123*SGN(X-128):PUT(XX-3,Y(J)-4)-(XX+3,Y(J)+4),RX,AND:GET(X-3,Y(J)-4)-(X+3,Y(J)+4),RX,G:PUT(X-3,Y(J)-3)-(X+3,Y(J)+4),R,OR:GOTO26 23 PUT(XX-3,Y(J)-4)-(XX+3,Y(J)+4),RX,AND:PLAY"V31T255L255O3A":EXEC32694:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,OR:K=0:GOTO20 24 IF J=1 OR J=4 OR J=7 THEN 16 25 PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),RX,AND:PLAY"T10L10O5AB":J=J+1:EXEC32694:GOTO10 26 IF J=9 THEN 29 ELSE IF I>34 AND ID=0 THEN28 27 GOSUB31:FORN=0TO10:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,OR:SOUND255,1:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),RX,AND:NEXTN:GOSUB32:S=S+J-ID:GOTO30 28 GOSUB31:FORN=0TO10:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,PSET:SOUND255,1:PUT(X-7,Y(J)-4)-(X+7,Y(J)+4),XM,PSET:NEXTN:GOSUB32:S=S+J:GOTO30 29 PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,OR:FORN=1TO120STEP20:SOUNDN,1:NEXTN:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),XM,PSET:SR=SR+1:XX=175+SR*10:PUT(XX-3,26)-(XX+3,34),R,PSET:S=S+10 30 RC=RC-1:XX=98+10*RC:GOSUB33:GOSUB40:PUT(XX-3,26)-(XX+3,34),XM,PSET:ID=0:IFRC=-1THEN 41ELSE9 31 LINE(25,10)-(45,5),PSET:LINE(25,12)-(45,17),PSET:LINE(25,11)-(45,8),PSET:LINE(25,11)-(45,14),PSET:RETURN 32 LINE(25,10)-(45,5),PRESET:LINE(25,12)-(45,17),PRESET:LINE(25,11)-(45,8),PRESET:LINE(25,11)-(45,14),PRESET:RETURN 33 B$="":S$=STR$(S):LX=LEN(S$):IFLX=3THENB$=L$(0)ELSEIF LX=2 THENB$=L$(0)+L$(0) 34 FORN=2TOLX:B$=B$+L$(VAL(MID$(S$,N,1))):NEXTN:IF IH=1THEN36 35 PUT(177,14)-(255,20),XM,PSET:DRAW"BM178,14;C1;XN$;BM210,14;XB$;XL$(0);XL$(0);":GOTO37 36 PUT(177,3)-(255,11),XM,PSET:DRAW"BM178,3;C1;XN$;BM210,3;XB$;XL$(0);XL$(0);":IH=0:GOTO39 37 IFSX>=S THEN39 38 IH=1:SX=S:S=SX:NX$=N$:GOTO33 39 RETURN 40 DRAW"C1":FORN=34TO17 STEP-1:LINE(56,N)-(72,N),PSET:NEXTN:RETURN 41 IF(S-RS)>=0THEN42ELSE43 42 RS=RS+50:FORN=0TO3:PLAY"V31T8L8O1ABDCFEL2G":NEXTN:FORN=98TO158 STEP10:PUT(N-3,26)-(N+3,34),R,PSET:PLAY"V31L12O1AB":NEXTN::PUT(176,26)-(254,34),XM,PSET:RC=6:SR=0:IH=0:GOTO9 43 EXEC32694:PLAY"V31T255L255O3A":IFINKEY$=CHR$(32)THEN5ELSE43 44 DIML$(36),R(2),RX(2),RW(3),P1(54),Y(9),XM(20),DX(9) 45 L$(1)="BM+2,0;R1D6L3R6;BM+3,-6":L$(2)=";D1U1R6D3L6D3R6;BM+3,-6":L$(3)=";R6D3L4R4D3L6;BM+9,-6":L$(4)=";D3R6L1U3D6;BM+3,-6":L$(5)=";R6L6D3R6D3L6U1;BM+9,-5":L$(6)=";D6R6U3L6;BM+9,-3":L$(7)=";D1U1R6D6;BM+3,-6":L$(8)=";R6D6L6U3R6L6U3;BM+9,0" 46 L$(9)=";R6D6U3L6U3;BM+9,0":L$(0)=";R6D6L6U6;BM+9,0":L$(11)=";BM+0,+6;U3E3F3L6R6D3;BM+3,-6":L$(12)=";R6D3L6R6D3L6U6;BM+9,0":L$(13)="BM+6,+1;U1L6D6R6U1;BM+3,-5":L$(14)=";R4F2D2G2F3U6L1D6;BM+9,-6":L$(15)=";R6L6D3R3L3D3R6;BM+3,-6" 47 L$(16)=";R6L6D3R3L3D3;BM+9,-6":L$(17)=";BM+6,+1;U1L6D6R6U3L3D1;BM+6,-4":L$(18)=";BM+0,+0;D6U3R6U3D6;BM+3,-6;":L$(19)=";R6L3D6L3R6;BM+3,-6":L$(20)=";R6L3D6L3U2;BM+9,-4":L$(21)=";D6U1E5;BM+1,+6;H3F3;BM+3,-6":L$(22)=";D6R6;BM+3,-6" 48 L$(23)=";D6U6F3E3D6;BM+3,-6":L$(24)=";D6U6F6U6;BM+3,0":L$(25)=";R6D6L6U6;BM+9,0":L$(26)=";R6D3L6U3D6;BM+9,-6":L$(27)=";R6D6H3F3L6U6;BM+9,0":L$(28)=";R6D4L2F2H2L4D2U6;BM+9,0":L$(29)=";R6L6D3R6D3L6;BM+9,-6":L$(30)=";R6L3D6;BM+6,-6" 49 L$(31)=";D6R6U6;BM+3,0OACHA BAS .OACHD BAS %ROACHD BASf":L$(32)=";D3F3E3U3;BM+3,0":L$(33)=";D6E3F3U6;BM+3,0":L$(34)=";F6H3G3E6;BM+3,0":L$(35)=";F3E3G3D3;BM+6,-6":L$(36)=";D1U1R6G6R6U1;BM+3,-5":L$(10)=";BM+4,0" 50 Y(0)=186:Y(1)=172:Y(2)=153:Y(3)=138:Y(4)=128:Y(5)=105:Y(6)=90:Y(7)=76:Y(8)=57:Y(9)=42:DX(0)=0:DX(1)=-8:DX(2)=8:DX(3)=0:DX(4)=-8:DX(5)=8:DX(6)=0:DX(7)=-8:DX(8)=8:DX(9)=0 51 PMODE4,1:PCLS:PMODE3,1:DRAW"BM15,8;C2S4R4D2R4D2L4D2L4R4F4D17L12U17E4U6;BM31,20;C4R12D10L12U10;BM54,15;C3D20L5R30L5U20;BM84,0;C2D17R85U17;C3R1D16L83U16;BM175,1;C2R80BM+0,+10;L80U10;BM175,12;C3R80BM+0,+10;L80C2U10" 52 PAINT(120,10),4,3:PAINT(18,11),4,2:PAINT(19,25),3,2:PMODE4,1:DRAW"BM54,15;C1H2;BM49,35;H2;BM74,15;E2;BM79,35;E2;BM92,25;D11R71U11L71;BM175,25;R80D11L80U11" 53 DRAW"BM210,3;XL$(0),XL$(0),XL$(0),XL$(0),XL$(0),BM210,14;XL$(0),XL$(0),XL$(0),XL$(0),XL$(0);":PMODE4,1:DRAW"BM93,3;C0S7;XL$(28);XL$(25);XL$(11);XL$(13);BM+0,-1;XL$(18);C1S4":CIRCLE(54,22),5,1,1,.25,.75:CIRCLE(54,22),3,1,1,.25,.75 54 DATA 142,20,31,166,132,16,142,0,31,230,31,231,132,48,31,49,63,38,246,167,132,48,136,63,140,22,63,47,230,142,22,96,166,132,16,142,0,31,230,1,231,128,49,63,38,248,167,128,140,24,160,47,235,142,20,0,236,129,237,137,5,254,237 55 DATA 137,11,254,140,24,160,38,241,57 56 FOR I=32694 TO 32765:READ J:POKE I,J:NEXTI:LINE(0,66)-(255,66),PSET:LINE(0,84)-(255,84),PSET:CLS6:PRINT@237,"roach";:SCREEN0,1 57 DRAW"BM98,32;C1;G2E2F2H2;BM+0,-2;G3E3F3H3;BM+0,-2;G3E3F3H3;BM+2,-1R1;BM-5,0;L1":GET(95,26)-(101,34),R,G:LINE(92,25)-(92,36),PRESET:GET(91,26)-(105,34),RW,G:LINE(92,25)-(92,36),PSET:GET(105,26)-(111,34),RX,G:LINE(0,48)-(255,48),PSET 58 FORI=108TO158 STEP10:PUT(I-3,26)-(I+3,34),R,PSET:NEXTI:LINE(0,0)-(255,0),PRESET:LINE(0,36)-(255,36),PSET:LINE(22,17)-(22,34),PSET:LINE(56,16)-(72,16),PSET:LINE(87,1)-(87,15),PSET 59 FORI=17TO34:LINE(56,I)-(72,I),PSET:NEXTI:CIRCLE(15,53),4,1,1,.5,1:CIRCLE(19,57),4,1,1,.75,.25:CIRCLE(15,61),4,1,1,0,.5:CIRCLE(11,57),4,1,1,.25,.75:CIRCLE(15,57),4,1,1:CIRCLE(15,57),2,1,1:CIRCLE(32,51),1,1:CIRCLE(32,63),1,1 60 CIRCLE(45,54),3,1,1:CIRCLE(45,60),3,1:PAINT(45,54),1,1:PAINT(45,60),1,1:CIRCLE(130,57),7,1,1,.125,.875:DRAW"BM130,57;NE5NF5":PAINT(125,57),1,1:CIRCLE(129,54),1,0:CIRCLE(200,57),7,1:CIRCLE(200,57),3,1:PAINT(196,57),1,1 61 DRAW"BM215,63;NE9R10NU10L8NE7R1NE7R2E4;BM238,50;NF9R10ND10G4":PMODE3,1:DRAW"BM55,50;C3R10;BM60,63;C4R10;BM90,50;C3R20D12L20U12;BM147,50;C2R13D14L13U14;BM168,50;R12BD2L8BD2C3D6BR3U6BR3D6BR2BD2C2L8BD2L3R12":PAINT(100,57),3,3:PAINT(155,57),2,2 62 PMODE4,1:PAINT(223,61),5,5:LINE(55,50)-(60,63),PSET:LINE(65,50)-(60,63),PSET:LINE(65,50)-(70,63),PSET:PAINT(65,55),5,5:DRAW"BM200,57;C0;NE4NF4NG4NH4C1" 63 DRAW"BM97,53;C0;XL$(2);BM151,54;XL$(2);C1":GET(6,49)-(138,64),P1,G:PUT(123,67)-(255,82),P1,OR:GET(146,49)-(248,64),P1,G:PUT(9,67)-(111,82),P1,PSET:PCOPY2TO3:PCOPY2TO4:SCREEN1,1:FORI=0TO1000:NEXTI 64 EXEC32694:PLAY"V31T255L255O3A":IFINKEY$=CHR$(32)THEN RETURN ELSE64 53;C0;XL$(2);BM151,54;XL$(2);C1":GET(6,49)-(138,64),P1,G:PUT(123,67)-(255,82),P1,OR:GET(146,49)-(248,64),P1,G:PUT(9,67)-(111,82),P1,PSET:PCOPY2TO3:PCOPY2TO4:SCREEN1,1:FORI=0TO1000:NEXTI 64 EXEC32694:PLAY"V31T25SE ENTER DIFFICULTY LEVEL";:PRINT@232,"1-EASY 4-HARD";:INPUTDF:IF DF<1ORDF>4THEN7 8 CLS 8:FOR N=22 TO 28:LINE (33,N)-(44,N),PRESET:NEXT N:DRAW "BM33,22;C1;XL$(DF);":SCREEN 1,1:RC=6:S=0:SR=0:IH=0 9 KD=16-DF*4:X=124+RND(3)*2:I=16:J=0:K=0:FORN=0TO4:PLAY"V31O4L24T24BAFEDC":NEXTN:PLAY"T2O1C":FORN=0TO150:NEXTN:PLAY"C":PUT(155,26)-(161,34),XM,PSET 10 IF J<9 THEN 11 ELSE26 11 PUT(X-7,Y(J)-4)-(X+7,Y(J)+4),RW,PSET:I=I+.2:K=K+1:LINE(56,I)-(72,I),PRESET:JX=INT((JOYSTK(0)-31)/40+.5)*4:IF JOYSTK(1)=0THEN15 12 X=X+JX:IFABS(X-128)>116THENX=128+116*SGN(X-128) 13 IF I>34 THEN 26 ELSE IF K120THEN22ELSE23 22 X=128+123*SGN(X-128):PUT(XX-3,Y(J)-4)-(XX+3,Y(J)+4),RX,AND:GET(X-3,Y(J)-4)-(X+3,Y(J)+4),RX,G:PUT(X-3,Y(J)-3)-(X+3,Y(J)+4),R,OR:GOTO26 23 PUT(XX-3,Y(J)-4)-(XX+3,Y(J)+4),RX,AND:PLAY"V31T255L255O3A":EXEC32694:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,OR:K=0:GOTO20 24 IF J=1 OR J=4 OR J=7 THEN 16 25 PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),RX,AND:PLAY"T10L10O5AB":J=J+1:EXEC32694:GOTO10 26 IF J=9 THEN 29 ELSE IF I>34 AND ID=0 THEN28 27 GOSUB31:FORN=0TO10:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,OR:SOUND255,1:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),RX,AND:NEXTN:GOSUB32:S=S+J-ID:GOTO30 28 GOSUB31:FORN=0TO10:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,PSET:SOUND255,1:PUT(X-7,Y(J)-4)-(X+7,Y(J)+4),XM,PSET:NEXTN:GOSUB32:S=S+J:GOTO30 29 PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),R,OR:FORN=1TO120STEP20:SOUNDN,1:NEXTN:PUT(X-3,Y(J)-4)-(X+3,Y(J)+4),XM,PSET:SR=SR+1:XX=175+SR*10:PUT(XX-3,26)-(XX+3,34),R,PSET:S=S+10 30 RC=RC-1:XX=98+10*RC:GOSUB33:GOSUB40:PUT(XX-3,26)-(XX+3,34),XM,PSET:ID=0:IFRC=-1THEN 41ELSE9 31 LINE(25,10)-(45,5),PSET:LINE(25,12)-(45,17),PSET:LINE(25,11)-(45,8),PSET:LINE(25,11)-(45,14),PSET:RETURN 32 LINE(25,10)-(45,5),PRESET:LINE(25,12)-(45,17),PRESET:LINE(25,11)-(45,8),PRESET:LINE(25,11)-(45,14),PRESET:RETURN 33 B$="":S$=STR$(S):LX=LEN(S$):IFLX=3THENB$=L$(0)ELSEIF LX=2 THENB$=L$(0)+L$(0) 34 FORN=2TOLX:B$=B$+L$(VAL(MID$(S$,N,1))):NEXTN:IF IH=1THEN36 35 PUT(177,14)-(255,20),XM,PSET:DRAW"BM178,14;C1;XN$;BM210,14;XB$;XL$(0);XL$(0);":GOTO37 36 PUT(177,3)-(255,11),XM,PSET:DRAW"BM178,3;C1;XN$;BM210,3;XB$;XL$(0);XL$(0);":IH=0:GOTO39 37 IFSX>=S THEN39 38 IH=1:SX=S:S=SX:NX$=N$:GOTO33 39 RETURN 40 DRAW"C1":FORN=34TO17 STEP-1:LINE(56,N)-(72,N),PSET:NEXTN:RETURN 41 IF(S-RS)>=0THEN42ELSE43 42 RS=RS+50:FORN=0TO3:PLAY"V31T8L8O1ABDCFEL2G":NEXTN:FORN=98TO158 STEP10:PUT(N-3,26)-(N+3,34),R,PSET:PLAY"V31L12O1AB":NEXTN::PUT(176,26)-(254,34),XM,PSET:RC=6:SR=0:IH=0:GOTO9 43 EXEC32694:PLAY"V31T255L255O3A":IFINKEY$=CHR$(32)THEN5ELSE43 44 DIML$(36),R(2),RX(2),RW(3),P1(54),Y(9),XM(20),DX(9) 45 L$(1)="BM+2,0;R1D6L3R6;BM+3,-6":L$(2)=";D1U1R6D3L6D3R6;BM+3,-6":L$(3)=";R6D3L4R4D3L6;BM+9,-6":L$(4)=";D3R6L1U3D6;BM+3,-6":L$(5)=";R6L6D3R6D3L6U1;BM+9,-5":L$(6)=";D6R6U3L6;BM+9,-3":L$(7)=";D1U1R6D6;BM+3,-6":L$(8)=";R6D6L6U3R6L6U3;BM+9,0" 46 L$(9)=";R6D6U3L6U3;BM+9,0":L$(0)=";R6D6L6U6;BM+9,0":L$(11)=";BM+0,+6;U3E3F3L6R6D3;BM+3,-6":L$(12)=";R6D3L6R6D3L6U6;BM+9,0":L$(13)="BM+6,+1;U1L6D6R6U1;BM+3,-5":L$(14)=";R4F2D2G2F3U6L1D6;BM+9,-6":L$(15)=";R6L6D3R3L3D3R6;BM+3,-6" 47 L$(16)=";R6L6D3R3L3D3;BM+9,-6":L$(17)=";BM+6,+1;U1L6D6R6U3L3D1;BM+6,-4":L$(18)=";BM+0,+0;D6U3R6U3D6;BM+3,-6;":L$(19)=";R6L3D6L3R6;BM+3,-6":L$(20)=";R6L3D6L3U2;BM+9,-4":L$(21)=";D6U1E5;BM+1,+6;H3F3;BM+3,-6":L$(22)=";D6R6;BM+3,-6" 48 L$(23)=";D6U6F3E3D6;BM+3,-6":L$(24)=";D6U6F6U6;BM+3,0":L$(25)=";R6D6L6U6;BM+9,0":L$(26)=";R6D3L6U3D6;BM+9,-6":L$(27)=";R6D6H3F3L6U6;BM+9,0":L$(28)=";R6D4L2F2H2L4D2U6;BM+9,0":L$(29)=";R6L6D3R6D3L6;BM+9,-6":L$(30)=";R6L3D6;BM+6,-6" 49 L$(31)=";D6R6U6;BM+3,0":L$(32)=";D3F3E3U3;BM+3,0":L$(33)=";D6E3F3U6;BM+3,0":L$(34)=";F6H3G3E6;BM+3,0":L$(35)=";F3E3G3D3;BM+6,-6":L$(36)=";D1U1R6G6R6U1;BM+3,-5":L$(10)=";BM+4,0" 50 Y(0)=186:Y(1)=172:Y(2)=153:Y(3)=138:Y(4)=128:Y(5)=105:Y(6)=90:Y(7)=76:Y(8)=57:Y(9)=42:DX(0)=0:DX(1)=-8:DX(2)=8:DX(3)=0:DX(4)=-8:DX(5)=8:DX(6)=0:DX(7)=-8:DX(8)=8:DX(9)=0 51 PMODE4,1:PCLS:PMODE3,1:DRAW"BM15,8;C2S4R4D2R4D2L4D2L4R4F4D17L12U17E4U6;BM31,20;C4R12D10L12U10;BM54,15;C3D20L5R30L5U20;BM84,0;C2D17R85U17;C3R1D16L83U16;BM175,1;C2R80BM+0,+10;L80U10;BM175,12;C3R80BM+0,+10;L80C2U10" 52 PAINT(120,10),4,3:PAINT(18,11),4,2:PAINT(19,25),3,2:PMODE4,1:DRAW"BM54,15;C1H2;BM49,35;H2;BM74,15;E2;BM79,35;E2;BM92,25;D11R71U11L71;BM175,25;R80D11L80U11" 53 DRAW"BM210,3;XL$(0),XL$(0),XL$(0),XL$(0),XL$(0),BM210,14;XL$(0),XL$(0),XL$(0),XL$(0),XL$(0);":PMODE4,1:DRAW"BM93,3;C0S7;XL$(28);XL$(25);XL$(11);XL$(13);BM+0,-1;XL$(18);C1S4":CIRCLE(54,22),5,1,1,.25,.75:CIRCLE(54,22),3,1,1,.25,.75 54 DATA 142,20,31,166,132,16,142,0,31,230,31,231,132,48,31,49,63,38,246,167,132,48,136,63,140,22,63,47,230,142,22,96,166,132,16,142,0,31,230,1,231,128,49,63,38,248,167,128,140,24,160,47,235,142,20,0,236,129,237,137,5,254,237 55 DATA 137,11,254,140,24,160,38,241,57 56 FOR I=32694 TO 32765:READ J:POKE I,J:NEXTI:LINE(0,66)-(255,66),PSET:LINE(0,84)-(255,84),PSET:CLS6:PRINT@237,"roach";:SCREEN0,1 57 DRAW"BM98,32;C1;G2E2F2H2;BM+0,-2;G3E3F3H3;BM+0,-2;G3E3F3H3;BM+2,-1R1;BM-5,0;L1":GET(95,26)-(101,34),R,G:LINE(92,25)-(92,36),PRESET:GET(91,26)-(105,34),RW,G:LINE(92,25)-(92,36),PSET:GET(105,26)-(111,34),RX,G:LINE(0,48)-(255,48),PSET 58 FORI=108TO158 STEP10:PUT(I-3,26)-(I+3,34),R,PSET:NEXTI:LINE(0,0)-(255,0),PRESET:LINE(0,36)-(255,36),PSET:LINE(22,17)-(22,34),PSET:LINE(56,16)-(72,16),PSET:LINE(87,1)-(87,15),PSET 59 FORI=17TO34:LINE(56,I)-(72,I),PSET:NEXTI:CIRCLE(15,53),4,1,1,.5,1:CIRCLE(19,57),4,1,1,.75,.25:CIRCLE(15,61),4,1,1,0,.5:CIRCLE(11,57),4,1,1,.25,.75:CIRCLE(15,57),4,1,1:CIRCLE(15,57),2,1,1:CIRCLE(32,51),1,1:CIRCLE(32,63),1,1 60 CIRCLE(45,54),3,1,1:CIRCLE(45,60),3,1:PAINT(45,54),1,1:PAINT(45,60),1,1:CIRCLE(130,57),7,1,1,.125,.875:DRAW"BM130,57;NE5NF5":PAINT(125,57),1,1:CIRCLE(129,54),1,0:CIRCLE(200,57),7,1:CIRCLE(200,57),3,1:PAINT(196,57),1,1 61 DRAW"BM215,63;NE9R10NU10L8NE7R1NE7R2E4;BM238,50;NF9R10ND10G4":PMODE3,1:DRAW"BM55,50;C3R10;BM60,63;C4R10;BM90,50;C3R20D12L20U12;BM147,50;C2R13D14L13U14;BM168,50;R12BD2L8BD2C3D6BR3U6BR3D6BR2BD2C2L8BD2L3R12":PAINT(100,57),3,3:PAINT(155,57),2,2 62 PMODE4,1:PAINT(223,61),5,5:LINE(55,50)-(60,63),PSET:LINE(65,50)-(60,63),PSET:LINE(65,50)-(70,63),PSET:PAINT(65,55),5,5:DRAW"BM200,57;C0;NE4NF4NG4NH4C1" 63 DRAW"BM97,53;C0;XL$(2);BM151,54;XL$(2);C1":GET(6,49)-(138,64),P1,G:PUT(123,67)-(255,82),P1,OR:GET(146,49)-(248,64),P1,G:PUT(9,67)-(111,82),P1,PSET:PCOPY2TO3:PCOPY2TO4:SCREEN1,1:FORI=0TO1000:NEXTI 64 EXEC32694:PLAY"V31T255L255O3A":IFINKEY$=CHR$(32)THEN RETURN ELSE64 53;C0;XL$(2);BM151,54;XL$(2);C1":GET(6,49)-(138,64),P1,G:PUT(123,67)-(255,82),P1,OR:GET(146,49)-(248,64),P1,G:PUT(9,67)-(111,82),P1,PSET:PCOPY2TO3:PCOPY2TO4:SCREEN1,1:FORI=0TO1000:NEXTI 64 EXEC32694:PLAY"V31T255L255O3A":IFIN