6F >ÿÇ#~ 2&"þ É= ¡ **** CHASE+ Written by Miroslav Kostecki 22/12/82 **** 3000  ¡ **** BANNER ****  ª: ·  ƒ\,," **** BANNER ****"; ˆ ƒ \\\" This program plots a message on the screen in large letters,"\" by keying in any character when the 'ready' beep sounds." { ƒ\" The screen is divided into 8x3 large characters."\\" To start again press 'DEL' ,and to stop press 'DEL' twice."  ¯: ¥: Œ D(2048) * Š I=63488 ™ 65535: D(I-63487)=¾(I): ‹ I - ª: ± 15,13: ƒ"Press any key to continue."; # „ Þ="" ‰ 35 ˆ · ( » P) Š Z=0 ™ 32 š 16: Š L=0 ™ 112 š 16: Û 1 d A1$=Þ: „ A1$="" ‰ 100 i! „ A1$=ß(127) ‰ ‹*L 200 ˆ G=0 n* A=Å(A1$)*16: Š S=A+1 ™ A+16: F=48-S+A-Z x7 X=D(S):Š B=14+L ™ L š -2: „ X/2*2=X ‰ § B,F: § B+1,F ‚ X=X/2: ‹ B Œ ‹ S: ‹ L: ‹ Z: 80 È# „ G=1 ‰ ‹*Z 3000 ˆ ·:G=1: ‹*Z 40 è ¡ **** CHASED **** íŒ ·:ƒ\,," **** CHASED ****"\\" In this version of chase the cunning robots chase and"\" destroy a running human in an eletric maze." î~ ƒ ›(49)"Y U I"\," You control the human with the keys:"," H * J"\›(49)"B N M"\" The robots may blast walls at will, but" ï‚ ƒ" may blow up as a result. So you must carefully move behind walls hoping the robots will blast and blow themselves up." ð ƒ\" The the fewer the robots the faster they move and"\" they are smart enough to go around walls so be careful!!!": ± 9,16 ò ˜ 1600 ü Š I=64528 ™ 64528+(16*11)-1  “ D  Ÿ I,D  ‹ I $ Š I=64000 ™ 64015:Ÿ I,0: ‹ I &4 ƒ,"Type the level you want (1-5) 1=Hardest";:±1,1 )H A1$=Þ: „ A1$="" ‰ 1065 ˆ „ A1$<"1" ´ A1$>"5" ‰ 1065 ˆ W=¼(Ï(A1$))+2 . ·:° 05 Š I=2 ™ 62 š 2: ± I,1: ƒ"GG";: ± I,16: ƒ"GG";: ‹ I 31 Š J=2 ™ 15: ± 2,J: ƒ"GG";: ± 62,J: ƒ"GG";: ‹ J 5 ª:±1,1:ƒ W-2;:° 8 Š I=4 ™ 60 š 2 B Š J=2 ™ 15 LW K=I+J:„ I/3*3<>I ³ J/3*3<>J ³ K/3*3<>K ´ J=2 ´ J=15 ´ I=4 ´ I=60 ‰ X1=0 ˆ X1=.31 ` „ Ì>.79-X1 ‰ ± I,J:ƒ "GG"; j ‹ J t ‹ I y ±1,1 ~ Œ R(3,10) ˆ T=0 ’ Š I=1 ™ 10 œ T=T+2:„ T=8 ‰ T=2 ¦ X=¼(Ì*31)+1: Y=¼(Ì*16)+1 ° Z=X*2-1+Y*64+61440 º „ ¾(Z)<>32 ‰ 1190 Ä Ÿ Z,191+T: Ÿ Z+1,192+T Î R(1,I)=X: R(2,I)=Y: R(3,I)=Z Ø ‹ I: N=10 ì X=¼(Ì*31)+1: Y=¼(Ì*16)+1 ö M=X*2-1+Y*64+61440  „ ¾(M)<>32 ‰ 1260   Ÿ M,200:Ÿ M+1,201  Š J=1 ™ N (5 Š K=1 ™ W-N/4: „ Ì>.5 ‰ Š I=1 ™ N ˆ Š I=N ™ 1 š -1 2R Z=R(3,I): „ ¾(Z)=197 ‰ Ÿ Z,193: Ÿ Z+1,194 : ‹ I ˆ Ÿ Z,¾(Z)+2: Ÿ Z+1,¾(Z)+1: ‹ I < ‹ K ZM A1$=Þ: „ A1$="" ‰ A1$=Þ: „ A1$="" ‰ A1$=Þ: „ A1$="" ‰ A1$=Þ ˆ ’ 1760 n Z=R(3,J) x9 C=¼(Ñ(Í(X-R(1,J)))): D=¼(Ñ(Í(Y-R(2,J)))):A=C*2: B=D*64 ‚ K=Z+A+B Œ$ „ ¾(K)=200 ‰ Û 11;11;11: ‹*J 1710 –9 „ ¾(K)=32 ‰ R(1,J)=R(1,J)+C: R(2,J)=R(2,J)+D: 1555   „ Ì>.6 ‰ 1530 ªL „ A=0 ‰ K=Z+2+B: „ ¾(K)=32 ‰ R(1,J)=R(1,J)+1: R(2,J)=R(2,J)+D: 1555 ´J „ A=0 ‰ K=K-4: „ ¾(K)=32 ‰ R(1,J)=R(1,J)-1: R(2,J)=R(2,J)+D: 1555 ¾M „ B=0 ‰ K=Z+A+64: „ ¾(K)=32 ‰ R(1,J)=R(1,J)+C: R(2,J)=R(2,J)+1: 1555 ÈL „ B=0 ‰ K=K-128: „ ¾(K)=32 ‰ R(1,J)=R(1,J)+C: R(2,J)=R(2,J)-1: 1555 Ò1 „ ¾(Z+B)=32 ‰ R(2,J)=R(2,J)+D: K=Z+B: 1555 Ü1 „ ¾(Z+A)=32 ‰ R(1,J)=R(1,J)+C: K=Z+A: 1555 æB K=Z+A-B: „ ¾(K)=32 ‰ R(1,J)=R(1,J)+C: R(2,J)=R(2,J)-D: 1555 ðB K=Z-A+B: „ ¾(K)=32 ‰ R(1,J)=R(1,J)-C: R(2,J)=R(2,J)+D: 1555 õ K=Z+A+B ú4 „ Ì>.6 ‰ „ ¾(K)=199 ‰ Ÿ K,202: Ÿ K+1,203 ˆ 1560 ‘ Û 11: „ Ì>.4 ‰ Ÿ Z,202: Ÿ Z+1,203: Û 15: R(1,J)=R(1,N) :R(2,J)=R(2,N) : R(3,J)=R(3,N): N=N-1: Ÿ Z,32: Ÿ Z+1,32: Ÿ K,32:Ÿ K+1,32: J=J-1: 1390  Ÿ K,32: Ÿ K+1,32: 1560 5 R(3,J)=K: Ÿ K,¾(Z): Ÿ K+1,¾(Z+1): Ÿ Z,32: Ÿ Z+1,32  ‹ J "{ „ N=0 ‰ ª:±8,8:ƒ" YOU GOT THEM!";:Š I=1 ™ 24:Û I:‹ I:Š I=24 ™ 1 š-1:Û I:‹ I:±8,9:ƒ" BUT NEXT TIME...WATCH OUT!!!": 1730 , 1310 @+ ” 0,0,0,24,4,2,1,3,31,45,31,3,15,27,63,0 J9 ” 0,0,0,24,32,64,128,192,248,180,248,192,240,104,252,0 T* ” 0,0,0,6,2,2,1,3,31,27,31,3,15,13,63,0 ^: ” 0,0,0,96,64,128,128,192,248,108,248,192,240,176,252,0 h+ ” 0,0,0,11,2,1,1,3,31,54,31,3,15,22,63,0 r: ” 0,0,0,208,64,64,128,192,248,216,248,192,240,216,252,0 |< ” 165,90,165,90,90,165,90,165,165,90,165,90,90,165,90,165 †' ” 0,1,3,1,0,6,11,11,27,3,1,1,1,1,3,0 9 ” 0,192,96,192,128,48,104,232,236,224,64,64,64,64,96,0 š1 ” 0,12,6,98,18,9,49,139,3,213,96,10,52,36,9,24 ¤< ” 192,144,64,12,150,16,164,192,203,150,128,41,198,96,8,32 ®2 Ÿ K,202: Ÿ K+1,203: Û 19;16;13: Ÿ K,32:Ÿ K+1,32 ¸W Š I=1 ™ 100: ‹ I: ª: ±8,8:ƒ" HA HA THEY GOT YOU!":± 8,9:ƒ " PRESS 0 TO CHICKEN OUT "  ¥:±1,1:A1$=Þ: „ A1$="" ‰ 1730 Ì „ A1$="0" ‰ 3000 Ñ0 „ A1$>"0" ³ A1$<"6" ‰ W=¼(Ï(A1$))+2: 1070 Ö ª:·:± 8,8: 1062 à „ A1$="N" ‰ Y=Y+1: 1840 ê „ A1$="U" ‰ Y=Y-1: 1840 ô „ A1$="H" ‰ X=X-1: 1840 þ „ A1$="J" ‰ X=X+1: 1840 $ „ A1$="Y" ‰ X=X-1:Y=Y-1: 1840 $ „ A1$="M" ‰ X=X+1:Y=Y+1: 1840  „ A1$="B" ‰ X=X-1:Y=Y+1 & „ A1$="I" ‰ X=X+1:Y=Y-1 0& Ÿ M,32: Ÿ M+1,32:M=X*2-1+Y*64+61440 :} „ ¾(M)<>32‰ Ÿ M,202:Ÿ M+1,203:Û 18;16;14:ŠI=1™100:‹ I:Ÿ M,32:Ÿ M+1,32:ª:±8,8:ƒ" ZAP! YOU RAN INTO HIGH VOLTAGE!!!": 1730 D Ÿ M,200:Ÿ M+1,201 N Û 5: • Ð ¡ **** KNOCKOUT **** Ò§ ·: ƒ\›(21)"**** KNOCKOUT ****"\\\" The objet of this ball game is to knock all of the blocks out."\" You move the bat by using the space bar to change direction." Ô¤ ƒ\" The blocks get harder to knock out as you go along "\,"and you only get three balls, so watch out!"\\\,"Press any key to start and `0' to stop the game."; Ø, A1$=Þ: „ A1$="" ‰ 2008 ˆ „ A1$="0" ‰ 3000 Ú ·:» äA ± 5,16:ƒ"SCORE: 0 1 2 3 4 5"; î& Ø 2,5 ™ 2,45 ™ 127,45 ™ 127,5 ™ 2,5 ø! Ø 3,5 ™ 3,45: Ø 126,45 ™ 126,5 = Š I=1 ™ 5:Š J=5 ™ 45 š 2:§ 78+I*6,J:§ 78+I*6+1,J: ‹ J: ‹ I   W=3 - W=W-1:± 20,16:ƒ"BALLS LEFT:"[I2 W+1];:±1,1  F X=22: Y=¼(Ì*15+4)*2+1: A=3: B=-1:P=14+¼(Ì*10)*2: Q=21: V=¼(Ì*2)*4-2 * Š I=1 ™ 100: ‹ I 49 X=X+A: Y=Y+B: ¨ C,D: ¨ C+1,D: § X,Y: § X+1,Y: C=X: D=Y H „ X<=13 ‰ 2240 M# „ Y=44 ´ Y=6 ‰ Û 1: B=-B: 2150 R „ X=124 ‰ Û 1: A=-A: 2150 \€ „ X>=82 ‰ Z=X-76: „ Z/6*6=Z ‰ „ Â(X+2,Y) ‰ Û 14: A=-A: „ Ì>Í(Z/6)*.1 ‰ ¨ X+2,Y:¨ X+3,Y :F=F+Z/6: Û 18:± 11,16:ƒ[I4 F];:±1,1 fk A1$=Þ:„ A1$="" ‰ A1$=Þ: „ A1$="" ‰ A1$=Þ: „ A1$="" ‰ A1$=Þ ˆ „ A1$=" " ‰ V=-V ˆ „ A1$="0" ‰ 3000 z& „ P+V<40 ‰ „ P+V>4 ‰ P=P+V ˆ 2100 „g „ PQ ‰ ¨ 12,Q: § 12,P+5: ¨ 12,Q+1: § 12,P+6: Q=P ˜ 2100 ¢ A1$=Þ: „ A1$="" ‰ 2210 ¬ „ A1$="0" ‰ 3000 ¶ ¥: 2010 À1 „ X=4 ‰ Û 1,6: Š I=1 ™ 100: ‹ I:„ W=0 ‰ 2210 Ê# „ X=4 ‰ ØR 12,Q ™ 12,Q+6: 2070 Ô* „ X=13 ‰ „ P<=Y ‰ „ Y-P<7 ‰ Û 6: A=-A Þ 2125 ¸ ¡ **** MAIN MENU **** Â* ·:± 16,2: »: « :ƒ " PICK A PROGRAM "\:ª Ì ©(55):£ 16:¥ Ö ˜ 3050 à7 Š I=1 ™ 6: ©(0): ƒ,: “ A1$: ©(55): ƒ I;". ";A1$: ‹ I êB ” "Cobwebs","Time Holes","Carpets","Banner","Knockout","Chased" ô ©(0): £ 8: ± 1,1 þ& A1$=Þ$:„ A1$<"1" ´ A1$>"6" ‰ 3070 , ¼(Ï(A1$)) 4000,5000,6000,10,2000,1000   ¡ **** COBWEBS **** ª ¸ ´A ” 0,63,127,192,128,191,255,192,256,319,383,192,384,447,511,192 ¾= ” 384,447,511,64,256,319,383,64,128,191,255,64,0,63,127,64 È3 ” 64,127,191,128,192,255,319,128,320,383,447,128 Ò Š I=0 ™ 63 š 4 Ü ˜ 4020 æ Š J=1 ™ 11 ð “ A,B,C,D ú$ Ø I+A,D ™ B,I+D : Ø I+A,D ™ B,D-I ( Ø C-I,D ™ B+1,I+D : Ø C-I,D ™ B+1,D-I  ‹ J  ‹ I "( Š I=1 ™ 2000: „ Þ="" ‰ ‹ I ˆ ‹*I 3000 , ¸:ª: 3000 ˆ ¡ **** TIME HOLES **** ’ ¸ “% ± 23,6: ƒ "Please Wait ...";:± 1,1 ”V Š A=1 ™ 3:Š I=79 ™ 0 š -13+A*3: Š J=0 ™ 159 š 9+I/13-A: § J+168,I+80: ‹ J: ‹ I: ‹ A — ’ 5060 ›) Š I=0 ™ 7: Ø I+168,80 ™ 327-I,159: ‹ I œJ Š I=8 ™ 159: Ø I+168,80 ™ 327-I,159 :A=I-8:ØI A+168,80 ™ 327-A,159: ‹ I ž. Š I=152 ™ 159: ØI I+168,80 ™ 327-I,159: ‹ I ¡/ Š I=79 ™ 72 š -1: Ø 168,I+80 ™ 327,159-I:‹ I ¦N Š I=71 ™ 0 š -1: Ø 168,I+80 ™ 327,159-I :A=I+8:ØI 168,A+80 ™ 327,159-A: ‹ I «. Š I=7 ™ 0 š -1: ØI 168,I+80 ™ 327,159-I:‹ I ¿ 5130 Ä ˜ 5110 Î Š K=1 ™ 8: “ A â= Š I=0 ™ 19: Š J=0 ™ 4 :Ÿ I+A+J*64,¾(61845+I+J*64):‹ J: ‹ I ì ‹ K ö4 ” 61505,61525,61545,61825,61865,62145,62165,62185 û •  6 Š K=1 ™ 2000: „ Þ="" ‰ ‹ K: 3000 ˆ ¸: ª: ‹*K 3000 p ¡ **** CARPETS **** zO ·: ¸: ± 22,7: ƒ"Please Wait ...";: ± 19,10: ƒ"Press any key to stop.";: ±1,1 „$ Š A=1 ™ 100:§ ¼(Ì*64),¼(Ì*32):‹ A Ž ’ 6110: C=16: D=6: A=8: B=4 ˜) R=¼(Ì*32):„ Ë(Í(A-R))<11 ‰6040 ˆ A=R ( R=¼(Ì*16):„ Ë(Í(B-R))<5 ‰6045 ˆ B=R ¢! Ø C,D ™ A,B: Ø 63-C,D ™ 63-A,B ¬- Ø C,31-D ™ A,31-B: Ø 63-C,31-D ™ 63-A,31-B ¶ C=A: D=B :A=¼(Ì*32):B=¼(Ì*16) À# ØR C,D ™ A,B: ØR 63-C,D ™ 63-A,B Ê/ ØR C,31-D ™ A,31-B: ØR 63-C,31-D ™ 63-A,31-B Ô) C=A:D=B :A1$=Þ:„ A1$<>"" ‰ 3000 ˆ 6040 ÞO Š S=0 ™ 896 š 128: Š N=0 ™ 64 š 64: Š Z=0 ™ 56 š 8: F=61440+Z+N+S: Š V=0 ™ 7 è Ÿ F+V,¾(62336+V+N) ò ‹ V: ‹ Z: ‹ N: ‹ S: • ÿÿ~šPCGDEMO€