@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 144ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u10 REM MAZE MASTER 15 REM 20 REM FRED BRUMYATE 30 REM HASLETT, MICHIGAN 40 REM 1981 50 REM 100 REM POKE NEW MARGINS, SET}T SUBROUTINE LOCATIONS, TOTALS, AND CONSTANTS 105 WIDE=17106 HIGH=10110 DIM V(WIDE,HIGH),W(WIDE+1,HIGH+1)120 DIM Y$(1),JUU}MP(3)130 POKE 82,1140 POKE 83,38150 MAZEPRINTER=1000160 MAZERUNNER=3000170 MAZEBUILDER=2000190 XMINUS1=4200200 YMINUS1V}=4300210 XPLUS1=4400220 YPLUS1=4500230 TRIES=0240 TOTALTIME=0250 SPOT=ASC("*")260 CURSOR=ASC(""):REM THIS IS INVERSE VW}IDEO270 BLANK=ASC(" ")280 BOTTOM=2*HIGH+1300 REM SET BOUNDARIES NON-ZERO 310 FOR I=1 TO WIDE320 W(I,0)=-1:W(I,HIGH+1)=-1X}330 NEXT I340 FOR I=1 TO HIGH350 W(0,I)=-1:W(WIDE+1,I)=-1360 NEXT I490 REM 500 REM CLEAR THE ARRAYS AND SET BOUNDARIES Y}505 GRAPHICS 0510 PRINT :PRINT "I'M THINKING UP A GOOD ONE."515 PRINT :PRINT " DON'T GO AWAY."520 FOR I=1 TO WIDE530Z} FOR J=1 TO HIGH535 W(I,J)=0:V(I,J)=0540 NEXT J:NEXT I590 REM 700 REM 710 GOSUB MAZEBUILDER720 GOSUB MAZEPRINTER730 GO[}SUB MAZERUNNER740 REM 800 REM DISPLAY RESULTS 810 TRIES=TRIES+1820 TOTALTIME=TOTALTIME+TIME830 AVTIME=INT(TOTALTIME/TRIE\}S*100)/100840 POSITION 1,BOTTOM+1850 PRINT "TRY #";TRIES;" TIME WAS: ";TIME;" SECONDS."860 PRINT " AVERAGE TIME: ";AVTIM]}E870 REM 900 REM ASK USER VITAL QUESTIONS 910 PRINT " REPEAT THIS MAZE (Y OR N)";920 INPUT Y$930 IF Y$="Y" THEN 720^}940 PRINT " ANOTHER MAZE (Y OR N)";950 INPUT Y$960 IF Y$="Y" THEN GOTO 500970 END 990 REM 1000 REM MAZEPRINTER 10_}10 REM 1020 REM VALUES IN 'V' DETERMINE THE 1030 REM RIGHT AND BOTTOM WALLS OF 1040 REM EACH CELL: 1050 REM V(I,J)=0; NO `}OPENINGS 1051 REM V(I,J)=1; BOTTOM OPEN 1053 REM V(I,J)=2; RIGHT OPEN 1054 REM V(I,J)=3; BOTH OPEN 1055 REM 1060 REM POKa}E TURNS OFF THE CURSOR 1061 REM SETCOLOR HIDES MAZE UNTIL 1062 REM PRINTING IS DONE. 1080 GRAPHICS 01090 POKE 752,11091 b}SETCOLOR 1,9,41095 REM PRINT THE TOP LINE 1100 FOR X=1 TO WIDE1120 PRINT "";:REM CTRL-S,CTRL-R1150 NEXT X1160 PRINT "c}":REM CTRL-S1165 REM PRINT THE LEFTMOST WALL, THEN 1166 REM A CELL AND WALL OR OPENING. 1170 FOR Y=1 TO HIGH1180 PRINT "|d}";:REM SHIFT-=1190 FOR X=1 TO WIDE1200 IF V(X,Y)>1 THEN 12301210 PRINT " |";:REM SPACE,SHIFT-=1220 GOTO 12401230 PRINT "e} ";:REM SPACE,SPACE1240 NEXT X1250 PRINT 1255 REM PRINT THE LEFTMOST INTERSECTION 1256 REM THEN A WALL OR OPENING AND ANf}OTHER INTERSECTION. 1257 PRINT "";:REM CTRL-S1260 FOR X=1 TO WIDE1270 IF V(X,Y)=0 THEN 13101280 IF V(X,Y)=2 THEN 131012g}90 PRINT " ";:REM SPACE, CTRL-S1300 GOTO 13201310 PRINT "";:REM CTRL-R, CTRL-S1320 NEXT X1330 PRINT 1340 NEXT Y1344 h}REM DISPLAY THE COMPLETED MAZE 1345 SETCOLOR 1,12,101350 RETURN 1360 REM 2000 REM SUBRT NAME: MAKEBUILDER 2010 REM 2020i} REM PERFORMS A RANDOM WALK THROUGH 2030 REM UNMARKED CELLS, KNOCKING DOWN 2040 REM WALLS AS IT GOES. PRINTING 2050 REM INj}FORMATION IS STORED FOR LATER, 2060 REM 2070 REM PICK A STARTING POINT2080 X=INT(RND(0)*WIDE)+12090 STARTX=2*X2100 STARTk}Y=12110 C=12120 W(X,1)=C2130 Y=12140 REM LIST DIRECTIONS AVAILABLE 2150 J=02160 IF W(X-1,Y)<>0 THEN 21902170 J=J+1218l}0 JUMP(J)=XMINUS12190 IF W(X+1,Y)<>0 THEN 22202200 J=J+12210 JUMP(J)=XPLUS12220 IF W(X,Y-1)<>0 THEN 22502230 J=J+12240 m}JUMP(J)=YMINUS12250 IF W(X,Y+1)<>0 THEN 22802260 J=J+12270 JUMP(J)=YPLUS12280 REM IF BOXED IN 2290 IF J=0 THEN 24202300n} REM SELECT ONE DIRECTION 2310 IF J=1 THEN GOSUB JUMP(1):GOTO 23502330 ON INT(RND(0)*J)+1 GOSUB JUMP(1),JUMP(2),JUMP(3)234o}0 REM MARK NEW CELL USED 2350 C=C+12360 W(X,Y)=C2370 GOTO 21502380 REM IF BOXED IN, START A NEW PATH 2390 REM FROM ANY Ep}XISTING PATH. STOP 2400 REM IF 95% COMPLETE 2420 IF C>0.95*(HIGH*WIDE+1) THEN 25402440 X=INT(RND(0)*WIDE)+12450 Y=INT(RNDq}(0)*HIGH)+12460 IF W(X,Y)<>0 THEN 21502470 GOTO 24402500 REM OPEN THE BOTTOM OF A MARKED 2510 REM CELL IN THE LAST ROW. r}2540 X=INT(RND(0)*WIDE)+12550 IF W(X,HIGH)=0 THEN 25402560 V(X,HIGH)=V(X,HIGH)+12570 RETURN 3000 REM MAZERUNNER 3005 REMs} 3010 REM MOVES THE CURSOR ACCORDING 3020 REM TO THE JOYSTICK, CHECKS FOR 3030 REM DONE AND TIMES THE RUN. 3040 REM 3050t} REM PUT THE CURSOR AT THE START 3060 X=STARTX:Y=STARTY3070 COLOR CURSOR:PLOT STARTX,STARTY3075 REM READ THE CLOCK 3080 Au}=PEEK(18)3090 B=PEEK(19)3100 C=PEEK(20)3120 FIRSTTIME=(A*256*256+B*256+C)/603125 REM READ THE JOYSTICK 3130 D=15-STICK(0v})3140 IF D=0 THEN 31303150 X1=-13160 IF D<3 THEN X1=03170 IF D>7 THEN X1=13180 Y1=-13190 IF D=INT(D/2)*2 THEN Y1=13200w} IF D=INT(D/4)*4 THEN Y1=03230 REM CHECK FOR WALLS THERE3240 REM IGNORE JOYSTICK INPUT IF SO 3250 LOCATE X+X1,Y+Y1,CHAR32x}60 IF CHAR<>BLANK AND CHAR<>SPOT THEN 31303295 REM LEAVE A SPOT, MOVE THE CURSOR 3300 COLOR SPOT:PLOT X,Y3305 X=X+X1:Y=Y+Yy}13310 COLOR CURSOR:PLOT X,Y3315 REM REPEAT IF STILL INSIDE3320 IF Y" " THEN GOTO 9045 GOSUB 2050 ? L$;N$;") }";60 INPUT #1,A$70 IF A$(2,2)<>" " THEN GOTO 9075 GOSUB 2080 ? L$(2,14);N$;") "85 GOTO 3090 ? :? " ";A$120 PO }KE 752,0130 POSITION 1,22:? " SELECTION";:TRAP 130:INPUT X:? "";:TRAP 40000131 IF X<>INT(X) THEN 130135 IF X=1 THEN X$=P }$(1,12):GOTO 145140 X$=P$((X-1)*12+1,(X-1)*12+12):TRAP 40000141 IF X$(11,11)=" " THEN X$=X$(1,8)145 IF X$(1,3)="DOS" THEN }DOS 150 A$="D1:":A$(LEN(A$)+1)=X$155 POKE 752,3:POSITION 1,22:PRINT " LOADING ";X$;160 TRAP 200:RUN A$:TRAP 40000 }200 POSITION 1,22:PRINT " CANNOT RUN ";X$;:GOSUB 8:TRAP 40000:GOTO 130 LOADING ";X$;160 TRAP 200:RUN A$:TRAP 40000 G0 GRAPHICS 2:POKE 752,1:POSITION 6,4:? #6;"MONSTER":POSITION 6,6:? #6;"COMBAT":? " Lee Chapel "1 ? "Trans}lated for ATARI by Sheila Spencer":GOSUB 27000:GRAPHICS 0:GOSUB 260003 POKE 559,0:Q0=0:Q1=1:Q2=2:Q3=3:Q4=4:Q5=5:Q6=6:Q7=7:Q8}=8:Q9=9:Q10=10:Q11=11:Q12=12:Q100=100:Q10000=10000:N=Q04 POKE 752,Q1:DIM A(Q10,Q10),B(Q10,Q10),M(Q11),M$(Q8),N(Q11),T$(50),Z}(Q11),MA$(20),X$(Q3),C(15),D(15),P(Q11)5 FOR E=Q1 TO Q10:FOR F=Q1 TO Q10:A(E,F)=0:B(E,F)=0:NEXT F:NEXT E8 GOSUB 260009 RES}TORE :FOR I=Q1 TO Q11:READ Q:M(I)=Q:NEXT I:FOR I=Q1 TO Q11:READ Z:P(I)=Z:NEXT I:V=INT(RND(Q1)*Q3)15 C=INT(RND(Q1)*1501+500):}S=INT(RND(Q1)*Q6):R=INT(RND(Q1)*Q4):MA$(Q1)=" Sleep Spell":MA$(Q2)=" Charm"17 MA$(Q3)="Invisibility Spell":POKE 559,34:? "}Want the strength and magic from another game";:INPUT X$18 IF X$(Q1,Q1)="Y" THEN 163020 D=C:V1=V:S1=S:R1=R:? "Just a m}oment...":FOR Q=1 TO 750:NEXT Q:POKE 559,Q025 FOR I=Q1 TO Q10:FOR J=Q1 TO Q10:T=INT(RND(Q1)*Q10):IF T<>Q1 OR CS=15 THEN T=Q0}26 H=INT(RND(Q1)*Q2):W=INT(RND(Q1)*Q10)30 P=INT(RND(Q1)*51):A(I,J)=Q10000*T+Q100*P+Q10*W+H37 IF T=Q1 THEN CS=CS+Q1:C(CS)=I}:D(CS)=J40 NEXT J:NEXT I:T=Q0:SETCOLOR Q2,13,Q6:SETCOLOR Q4,13,Q6:SETCOLOR Q1,13,1345 X1=INT(RND(Q1)*Q8)+Q2:Y1=INT(RND(Q1)*}Q8)+Q2:X=INT(RND(Q1)*Q10)+Q1:Y=INT(RND(Q1)*Q10)+Q155 IF X1Q10 OR Y1Q10 THEN 100056 FOR I=Q1 TO Q10:FOR }J=Q1 TO Q10:B(I,J)=Q0:NEXT J:NEXT I:CA=INT(A(X1,Y1)/Q10000)57 P=INT((A(X1,Y1)-(Q10000*CA))/Q100)60 W=INT((A(X1,Y1)-(Q10000*}CA)-(Q100*P))/Q10):H=A(X1,Y1)-Q10000*CA-Q100*P-Q10*W:I=Q0:J=Q067 IF CA=Q1 THEN I=INT(RND(Q1)*Q10+Q1):J=INT(RND(Q1)*Q10+Q1):B}(I,J)=Q770 IF CA=Q1 AND I=X AND Y=J THEN B(I,J)=Q0:GOTO 6775 IF H=Q1 THEN I=INT(RND(Q1)*Q10+Q1):J=INT(RND(Q1)*Q9+Q1)85 IF }H=Q1 AND B(I,J)<>Q0 THEN 7587 IF H=Q1 THEN B(I,J)=Q390 B(X,Y)=Q5:IF W=Q0 THEN 11595 FOR I=Q1 TO W100 J=INT(RND(Q1)*Q10)+Q}1:K=INT(RND(Q1)*Q10+Q1)105 IF B(J,K)<>Q0 THEN 100110 B(J,K)=Q2:NEXT I115 IF P=Q0 THEN 140120 FOR I=Q1 TO P125 J=INT(RND(}Q1)*Q10)+Q1:K=INT(RND(Q1)*Q10)+Q1130 IF B(J,K)<>Q0 THEN 125135 B(J,K)=Q1:NEXT I140 GOSUB 26000:POKE 559,34:FOR I=Q1 TO Q10}:FOR J=Q1 TO Q10:POSITION I,J145 IF B(J,I)=Q0 THEN ? "T";150 IF B(J,I)=Q1 THEN ? "-";155 IF B(J,I)=Q2 THEN ? "I";160 IF B}(J,I)=Q3 THEN ? "H";165 IF B(J,I)=Q5 THEN ? "O";167 IF B(J,I)=Q7 THEN ? "M";170 NEXT J:POSITION Q12,Q0:IF I=Q2 THEN ? "Com}bat Strength=";C180 POSITION Q12,Q1:IF I=Q3 THEN ? "Treasure total=";TL185 POSITION Q12,Q2:IF I=Q4 THEN ? "Magic:"190 POSI}TION Q12,Q3:IF I=Q5 THEN ? "Sleep-";S195 POSITION Q12,Q4:IF I=Q6 THEN ? "Charms-";R200 POSITION Q12,Q5:IF I=Q7 THEN ? "Invi}sibility-";V203 POSITION Q12,Q6:IF I=Q9 THEN ? "DAY ";DA205 POSITION Q12,Q7:IF I=Q1 OR I=Q8 OR I=Q10 THEN ? 210 NEXT I:? :}IF T=Q1 THEN 604213 IF T=Q2 THEN 515215 I=INT(RND(Q1)*Q5):IF I=Q2 THEN GOSUB 32000:POSITION Q0,Q12220 IF I=Q1 AND T<>Q9 TH}EN POSITION Q0,14:? "Nothing there.":GOTO 515223 IF I=Q1 AND T=Q9 THEN 513225 I=INT(RND(Q1)*16+Q1):IF I=Q12 THEN 840235 IF} I=13 THEN 870237 IF I=14 THEN 900240 IF I>14 THEN J=Q100:GOTO 270245 J=INT(RND(Q1)*Q100/M(I)):N1=J:IF J=Q0 THEN J=Q1:N1=J}254 GOSUB 10000255 IF J=Q1 THEN POSITION Q2,15:? "A ";M$;" is guarding"260 IF J<>Q1 THEN POSITION Q2,15:? J;" ";M$;"s are }guarding"265 M=M(I)*J:I=INT(RND(Q1)*14+Q1)270 IF I>Q11 AND J=Q100 THEN 215271 IF IQ11 TH}EN 975273 IF I>Q12 THEN ? "nothing.":P=Q0:GOTO 277275 GOSUB 10025:? T$:P=P(I)277 IF M$(1,3)="Bas" AND M1=Q7 THEN 835279 I}F J=Q100 THEN ? "You get the treasure free!":GOTO 500280 TRAP 280:? "Do you wish to (1)fight, (2)run,":? "(3)bribe, or (4)ca}st a spell";:INPUT K:TRAP 40000285 IF K<1 OR K>4 THEN 280290 ON K GOTO 295,350,435,670295 TRAP 295:? "How many combat poin}ts";:INPUT K:TRAP 40000300 IF K>C THEN ? "You only have ";C;" combat points .":GOTO 295304 GOSUB 14000:I=INT(RND(Q1)*1001):}L=Q2:C=C-K:K=K-0.01*TL:FOR H=1000 TO Q0 STEP -50315 IF L*M<=K AND H>=I THEN 490320 L=L-0.1:NEXT H325 GOSUB 30000:GOSUB 130}00:? "The ";M$;"s killed you."330 ? "You lose everything.":? 345 ? "Want to play again";:INPUT X$:IF X$(Q1,Q1)="Y" THEN RUN} 346 END 350 I=INT(RND(Q1)*Q12):IF I=Q11 THEN 325360 FOR H=Q0 TO Q10:IF H*Q10>=M AND H<=I THEN 375370 NEXT H:GOTO 480375} A=X:B=Y:K=Q0:T=Q0:C=C-INT((RND(Q1)*21)+1.0E-03*TL)-Q5380 X=A+INT(RND(Q1)*Q3):Y=B+INT(RND(Q1)*Q3)385 IF X=A AND Y=B THEN 38}0390 DA=DA+0.1:IF X>Q10 THEN X=Q1:X1=X1+Q1:K=Q1395 IF Y>Q10 THEN Y=Q1:Y1=Y1+Q1:K=Q1396 IF A>Q10 THEN A=Q1397 IF B>Q10 THE}N B=Q1400 IF XQ1 AND K=Q0 THEN 380415 B(A,B})=INT(RND(Q1)*Q3)+Q1:B(X,Y)=Q5:IF I<>Q11 THEN Z=Z+Q1425 IF K=Q1 THEN 55430 GOTO 215435 TRAP 435:? "How much will you pay";}:INPUT K:TRAP 40000440 IF K>TL THEN ? "You only have ";TL:GOTO 435445 I=INT(RND(Q1)*22):L=Q0:IF I=21 OR (I>15 AND K=H THEN 475470 L=L+0.1:NEXT H:GOTO 485475 ? }"Your bribe was not accepted."480 ? "You must fight.":GOTO 295485 P=Q0:TL=TL-K:B=B+Q1:T=Q0:? "Your bribe was accepted.":GOT}O 505490 N=N+N1495 FOR O=15 TO Q0 STEP -0.2:SOUND Q0,O,Q2,O:NEXT O:? "You beat the ";M$500 IF N}Q5 AND T<>Q9 THEN TL=TL-P:GOTO 985505 ? "You now have ";TL;" treasure points."510 IF T$(Q1,Q5)="a tre" THEN 800513 IF T=Q9} THEN GOSUB 30100515 TRAP 515:POSITION Q2,22:POKE 752,1:? "Which direction (Press 1 for map)";:INPUT X$:TRAP 40000517 IF X$}="1" THEN T=Q2:GOSUB 26000:GOTO 140520 TRAP 520:T=Q0:? "What distance";:INPUT K:TRAP 40000521 GOTO 1100523 A1=X1:B1=Y1:A=X}:B=Y:C=C-INT(7.5*K*RND(Q1))525 IF X$(Q1,Q1)="W" THEN Y=Y-K530 IF X$(Q1,Q1)="E" THEN Y=Y+K535 IF X$(Q1,Q1)="S" THEN X=X+K5}40 IF X$(Q1,Q1)="N" THEN X=X-K545 IF X>Q10 THEN X=X-Q10:X1=X1+Q1:IF X>Q10 THEN 545550 IF XQ10 THEN Y=Y-Q10:Y1=Y1+Q1:IF Y>Q10 THEN 555560 IF YA1 OR Y1<>B1 THEN 55573 IF B(X,Y)=Q7 THEN T=Q9575 IF B(X,Y)=Q2 THEN 590580 IF B(X,Y)=Q3 THEN 600584 IF AQ5 }THEN I=Q5615 IF IQ5 THEN ? "You can't use magic to get magic.":GOTO 280671 IF S+V+R=}Q0 THEN ? "You have no magic":GOTO 280673 ? "What type of spell-":? "(1)Sleep,(2)Charm, or (3)Invisibility";675 TRAP 673:IN}PUT K:IF K<1 OR K>3 THEN 670:TRAP 40000680 ON K GOTO 685,720,745685 IF S=Q0 THEN ? "You have no Sleep Spells.":GOTO 480690} IF M$="Zombie" THEN ? "You can't put the ";M$;" to sleep.":S=S-Q1:GOTO 480695 GOSUB 12000:I=INT(RND(Q1)*Q10):S=S-Q1700 IF }IQ6 THEN ? "It didn't w}ork.":GOTO 480733 IF M>50 AND I50 AND I>Q8 THE}N ? "The ";M$;" smelled you.":GOTO 713760 IF M<60 AND I=Q0 THEN ? "It wore off too soon.":GOTO 713765 GOTO 740770 I=INT(RN}D(Q1)*Q2)+Q1:ON I GOTO 780,790780 C=Q2*C:POSITION Q2,Q4:? "You won an enchanted sword."781 ? "Your combat strength is doubl}ed and is now ";C;".":GOTO 505790 POSITION Q2,Q4:? "You won an ordinary sword. Your combatstrength remains at ";C:GOTO 5058}00 J=INT(RND(Q1)*Q10):I=INT(RND(Q1)*Q10)805 IF J=Q7 AND M1<>Q7 THEN M1=Q7:GOTO 820810 IF I=Q1 THEN 830815 GOTO 513820 ? "}There was a mirror in the chest. It will protect yau against any Basilisksyou meet.":M1=Q7:GOTO 515830 GOSUB 11000:? "The }treasure chest was a trap. You were killed when you opened it.":GOTO 330835 ? "Your mirror killed the Basilisk":N=N+J:M=Q0}:GOTO 500840 GOSUB 15000:? "A giant bat grabbed you and carried you to a new spot."845 A=X:B=Y:T=Q0:DA=DA+0.1850 X=INT(R}ND(Q1)*Q10+Q1):Y=INT(RND(Q1)*Q10+Q1):IF B(X,Y)>Q1 THEN 850859 IF A3 THEN 950960 ON K GOTO 295,350},670965 I=INT(RND(Q1)*Q11)+Q1:M=M(I):? "A ";M$;" came wandering by.":GOTO 947975 IF I<>14 THEN 273980 I=INT(RND(Q1)*Q3+Q1)}:T=I+Q5:? " a ";MA$(I):P=INT(RND(Q1)*Q11):GOTO 277985 I=INT(RND(Q1)*Q10)986 IF I=Q5 THEN ? "You were unable to master the s}pell."987 IF I=Q5 THEN GOTO 515988 IF T=Q6 THEN S=S+Q1:S1=S1+Q1989 IF T=Q7 THEN R=R+Q1:R1=R1+Q1990 IF T=Q8 THEN V=V+Q1:V1}=V1+Q1995 ? "You won the spell.":T=Q0:IF S1/Q5+R1/Q3+V1/Q2>Q6 THEN GOSUB 1665997 GOTO 5151000 REM 1003 GOSUB 26000:GOSUB }28000:? "You survived the forest!":GOSUB 270001004 GOTO 10301030 ? :? "TREASURE TOTAL-";TL:? "MONSTERS KILLED-";N:? "MONSTE}RS ENCHANTED-";N21035 IF TL1<>Q0 THEN GOSUB 16501040 ? "Congratulations ";:IF TL1<>Q0 AND TL1>TL THEN ? "anyway!":? 1043 ?} :X$=""1045 IF DA<30 THEN ? "Do you wish to return to the forest";:INPUT X$1050 S=S1:V=V1:R=R1:C=D:IF X$<>"Y" THEN 1600105}5 GOSUB 26000:GOTO 451100 DA=DA+K/Q10:IF DA<30 THEN 5231110 ? "Your time is up, 30 days have passed":GOSUB 27000:GOTO 9101}300 IF CS=Q0 THEN RETURN 1301 I=INT(RND(Q1)*CS+Q1):? "The innkeeper told of a legend of a castle ";1303 IF C(I)=X1 AND }D(I)=Y1 THEN ? "very close by.":RETURN 1304 J=X1-C(I):I=Y1-D(I)1305 IF ABS(I)=ABS(J) THEN ? "directly to the ";:GOTO 13071}306 ? "somewhere to the "1307 IF J>0 THEN ? "north";1310 IF J<0 THEN ? "south";1315 IF I<0 THEN ? "east."1320 IF I>0 THEN} ? "west."1325 ? :RETURN 1600 GOSUB 27000:? "Want to go to a new forest with the same strength and magic";:INPUT X$1605 I}F X$(Q1,Q1)="Y" THEN 16251615 ? "Do you wish to go to a new forest withnew strength and magic";:INPUT X$:IF X$(Q1,Q1)="Y" TH}EN RUN 1618 ? "Do you plan to use this same strength and magic again some other time";:INPUT X$1619 IF X$(Q1,Q1)="Y" THEN G}OSUB 17001621 ? :? "Once again, your treasure total was ":? TL;".":IF TL>T1 THEN T1=TL1623 IF T1<>Q0 THEN ? "The largest tr}easure total you got with this strength and magic was":? T1;"."1624 ? "You killed ";N;" monsters.":? "You successfully wo}rked magic on":? N2;" Monsters.":END 1625 B=Q0:Z=Q0:DA=Q0:FOR I=Q1 TO Q11:N(I)=Q0:NEXT I:IF Q12000 THEN 16301640 ? "SLEEP SPELLS";:INPUT S:? "CHARMS";:INPUT R:? "INVI}SIBILITY";:INPUT V:? "PREVIOUS LARGEST TOTAL";1645 INPUT T1:GOTO 201650 IF T1TL THEN ? "You didn't get as much treasure this time."1660 RETURN 1665 ? "Your Magic total is rath}er large.":? "Do you wish to convert it to combat":? "points";:INPUT X$1670 IF X$(Q1,Q1)="N" THEN RETURN 1675 S1=S1-Q5:R1=R}1-Q3:V1=V1-Q2:IF S1<=Q0 THEN S1=Q11680 IF R1<=Q0 THEN R1=Q11685 IF V1<=Q0 THEN V1=Q11690 S=S1:R=R1:V=V1:C=C+Q100:D=D+Q100:}? "Your combat strength is permanently increased by 100.":RETURN 1700 ? "COMBAT STRENGTH-";D:? "SLEEP SPELLS-";S1:? "CHARM}S-";R1:? "INVISIBILITY-";V1:? :RETURN 2000 DATA 5,10,10,25,20,50,30,100,40,50,50,200,60,50,70,30,80,75,90,100,100,509000 EN}D 10000 I=INT(RND(Q1)*Q11)+Q110002 IF I=Q1 THEN M$="Goblin"10004 IF I=Q2 THEN M$="Minotaur"10006 IF I=Q3 THEN M$="Cyclops}"10008 IF I=Q4 THEN M$="Zombie"10010 IF I=Q5 THEN M$="Giant"10012 IF I=Q6 THEN M$="Harpy"10014 IF I=Q7 THEN M$="Griffin"}10016 IF I=Q8 THEN M$="Chimera"10018 IF I=Q9 THEN M$="Dragon"10020 IF I=Q10 THEN M$="Wyvern"10022 IF I=Q11 THEN M$="Basili}sk"10024 RETURN 10025 I=INT(RND(Q0)*Q11)+Q110030 IF I=Q1 THEN T$="10 silver spoons (10 pts)"10032 IF I=Q2 THEN T$="a swor}d which might be enchanted (25 pts)"10034 IF I=Q3 THEN T$="50 silver coins (50 pts)"10036 IF I=Q4 THEN T$="100 gold pi}eces (100 pts)"10038 IF I=Q5 THEN T$="an emerald bracelet (50 pts)"10040 IF I=Q6 THEN T$="a treasure chest (200 pts)"10042} IF I=Q7 THEN T$="a pearl necklace (50 pts)"10044 IF I=Q8 THEN T$="a jeweled sword (30 pts)"10046 IF I=Q9 THEN T$="a jar of} rubies (75 pts)"10048 IF I=Q10 THEN T$="a box of jewels (100 pts)"10050 IF I=Q11 THEN T$="a gold goblet (50 pts)"10055 RE}TURN 11000 V=15:FOR O=Q10 TO Q100:SOUND Q1,O,Q0,V:SETCOLOR Q2,O,V:V=0.99*V:NEXT O:FOR Z=Q0 TO Q10:NEXT Z11005 SOUND Q1,Q0,Q}0,Q0:SETCOLOR Q2,Q9,Q1:GOSUB 26000:RETURN 12000 GOSUB 26000:POSITION 12,12:SETCOLOR Q1,Q5,Q1:? "MAGIC BEING USED...":SOUND Q}1,Q0,Q0,Q3:SOUND Q0,49,Q10,Q512001 SETCOLOR Q2,Q1,14:SETCOLOR Q4,Q1,14:FOR O=1 TO 75:NEXT O:SOUND Q0,Q0,Q0,Q0:SOUND Q0,25,Q1}0,Q512005 SETCOLOR Q2,Q4,14:SETCOLOR Q4,Q4,14:FOR O=Q1 TO 50:NEXT O12006 SOUND Q0,Q0,Q0,Q012010 SOUND Q0,26,Q10,Q5:SETCOLO}R Q2,Q5,Q10:SETCOLOR Q4,Q5,Q10:FOR O=Q1 TO 50:NEXT O:SOUND Q0,Q0,Q0,Q012011 SOUND Q1,Q0,Q0,Q012015 GOSUB 26000:RETURN 1300}0 SETCOLOR Q2,Q0,Q0:SETCOLOR Q4,Q0,Q0:RESTORE 13015:FOR Z=Q1 TO 15:READ NTE:READ DUR13005 SOUND Q0,NTE,Q10,Q5:FOR Q=Q1 TO DU}R:NEXT Q:SOUND Q0,Q0,Q0,Q013010 IF NTE=Q0 AND DUR=Q0 THEN SOUND Q0,Q0,Q0,Q013011 NEXT Z13015 DATA 136,8,136,3,102,40,136,9},102,3,85,36,136,8,102,3,85,20,136,8,102,3,85,20,136,8,102,3,85,56,0,013020 GOSUB 26000:SETCOLOR Q2,Q9,Q1:RETURN 14000 FOR }O=155 TO Q0 STEP -2:SOUND Q0,Q10,Q0,O:NEXT O:SOUND Q0,Q0,Q0,Q014005 GOSUB 26000:RETURN 15000 FOR O=255 TO Q0 STEP -3:SOUND }Q0,O,O,O:NEXT O:GOSUB 26000:RETURN 16000 FOR O=Q0 TO 255 STEP Q7:SOUND Q0,O,Q2,O:NEXT O:GOSUB 26000:RETURN 17000 FOR O=15 T}O Q0 STEP -0.25:SOUND Q0,50,Q10,O:NEXT O:GOSUB 26000:RETURN 19000 FOR O=Q0 TO 15 STEP 0.5:SOUND Q0,O,O,O:NEXT O19010 FOR O=}15 TO 0 STEP -0.5:SOUND 0,O,O,O:NEXT O:GOSUB 26000:RETURN 21000 FOR O=Q0 TO Q8:FOR T=Q1 TO Q8:SOUND Q0,Q10,O,O:SOUND Q1,T,T,}T:NEXT T:NEXT O:SOUND Q0,Q0,Q0,Q021005 SOUND Q1,Q0,Q0,Q0:GOSUB 26000:RETURN 22000 FOR O=15 TO Q0 STEP -2:SOUND Q0,Q10,Q8,O:}NEXT O:SOUND Q0,Q0,Q0,Q0:GOSUB 26000:RETURN 23000 FOR O=Q0 TO 15:SOUND Q0,Q10,O,O:NEXT O:GOSUB 26000:RETURN 24000 FOR O=Q0 }TO 255 STEP Q8:SOUND Q0,O,Q2,O:NEXT O:GOSUB 26000:RETURN 25000 SETCOLOR 2,5,8:SETCOLOR 4,5,8:FOR O=89 TO 24 STEP -10:SOUND 0 },O,10,8:SOUND 1,O+10,10,825001 SOUND 2,O+20,10,8:SOUND 3,O+30,10,8:NEXT O:FOR VOL=15 TO 0 STEP -1:SOUND 0,O,10,VOL:SOUND 1,O }+10,10,VOL25002 SOUND 2,O+20,10,VOL:SOUND 3,O+30,10,VOL:NEXT VOL:GOSUB 27100:RETURN 26000 ? "}":SETCOLOR Q2,13,Q6:SETCOLOR  }Q4,13,Q6:SETCOLOR Q1,13,13:POKE 752,1:RETURN 27000 FOR Z=Q1 TO 200:NEXT Z:RETURN 27100 GRAPHICS 3+16:COLOR 5:PLOT Q10,Q1:DR }AWTO Q12,Q1:DRAWTO Q12,Q2:DRAWTO 13,Q2:DRAWTO 14,Q2:DRAWTO 14,Q1:DRAWTO 16,Q1:DRAWTO 16,Q5:DRAWTO 18,Q5:DRAWTO 18,Q327110 DR }AWTO 23,Q3:DRAWTO 23,Q5:DRAWTO 25,Q5:DRAWTO 25,Q1:DRAWTO 27,Q1:DRAWTO 27,Q2:DRAWTO 29,Q2:DRAWTO 29,Q1:DRAWTO 31,Q1:DRAWTO 31,}20:DRAWTO Q10,2027120 DRAWTO Q10,Q1:PLOT 18,19:DRAWTO 18,15:DRAWTO 19,14:DRAWTO 20,13:DRAWTO 21,13:DRAWTO 22,14:DRAWTO 23,15}:DRAWTO 23,1927130 GOSUB 27000:RETURN 28000 SETCOLOR Q2,Q9,Q1:SETCOLOR Q4,Q9,Q128010 SOUND Q0,81,Q10,Q10:GOSUB 28100:SOUND} Q1,64,Q10,Q10:GOSUB 28100:SOUND Q2,53,Q10,Q10:GOSUB 28100:SOUND Q3,40,Q10,Q1028020 FOR TIME=Q1 TO 100:NEXT TIME:FOR ZZ=Q0 T}O Q3:SOUND ZZ,Q0,Q0,Q0:NEXT ZZ:RETURN 28100 FOR TIME=Q1 TO Q10:NEXT TIME:RETURN 29000 FOR O=15 TO Q0 STEP -1:SOUND Q0,Q10,Q}8,O:NEXT O:SOUND Q0,Q0,Q0,Q0:GOSUB 26000:RETURN 30000 FOR O=15 TO Q0 STEP -0.2:SOUND Q0,O,Q8,O:NEXT O:GOSUB 26000:RETURN 30}100 GOSUB 27000:GOSUB 26000:T=Q030103 ? "You made it to the enchanted castle":I=INT(RND(Q1)*21)*Q100:J=INT(RND(Q1)*Q9):A(X1,}Y1)=A(X1,Y1)-Q1000030110 GOSUB 25000:? "You found ";I;" treasure points there":TL=TL+I:IF J<>Q7 OR M1=Q7 THEN 3012530120 ? }"You also found a mirror which will kill any Basilisks you meet":M1=Q730125 J=INT(RND(Q1)*20):IF J=Q2 THEN C=Q2*C30130 I}F J=Q2 THEN ? "You also found an enchanted sword which doubles your strength."30140 FOR I=Q1 TO CS-Q1:IF C(I)<>X1 THEN NEXT }I:GOTO 3014530141 FOR J=Q1 TO CS-Q1:C(J)=C(J+Q1):D(J)=D(J+Q1):NEXT J30144 NEXT I30145 CS=CS-Q1:IF CS=Q0 THEN ? "You found }the last castle!"30150 RETURN 31000 FOR O=Q1 TO Q5:FOR P=15 TO Q0 STEP -3:SOUND Q0,15,Q2,P:SOUND Q0,20,Q2,P:NEXT P:NEXT O:S}OUND Q0,Q0,Q0,Q031001 RETURN 32000 I=INT(RND(Q1)*Q11+Q1)32001 ON I GOTO 32010,32020,32015,32030,32040,32050,32060,32070,32}080,32090,3209532010 POSITION 0,12:? "You stepped into a time warp and lost":? "7 days":DA=DA+Q7:RETURN 32015 I=INT(RND(Q1)}*Q10+Q1):J=DA:DA=DA-I:IF DA<0.1 THEN DA=0.1:I=J-DA32017 POSITION 0,12:? "You stepped into a time warp and gained":? I;" days}":RETURN 32020 IF C>=D THEN RETURN 32023 GOSUB 19000:? "You met an elf who gave you a magic drink that gave your strength} back":C=D:RETURN 32030 IF V+R+S=V1+R1+S1 THEN RETURN 32033 GOSUB 19000:? "You ran into a wizard who gave you a potion tha}t restored all your magic.":V=V1:R=R1:S=S132035 RETURN 32040 IF TLQ7 THEN RETURN 32073 GOSUB 23000:? "You tripped over some roots and broke your mirror":M"}1=Q0:RETURN 32080 POSITION Q2,Q12:? "A hermit told you that there are ";CS;" castles left":RETURN 32090 IF V+S+R=0 THEN #}RETURN 32091 GOSUB 24000:? "You wandered into an area where magic doesn't work.":V=Q0:S=Q0:R=Q0:RETURN 32095 IF CS=Q0 THEN $}RETURN 32096 POSITION Q2,Q12:? "You met a hunter who told of the legend of a castle ";:I=INT(RND(Q1)*CS)+Q1:GOSUB 13033209}5 REM SCURRY by David Bohlke10 DIM Y$(15),D(15)11 GRAPHICS 312 SETCOLOR 2,14,2:SETCOLOR 4,14,213 SETCOLOR 0,8,6:SETCOLOR &}1,11,820 MB=PEEK(106)-12:POKE 54279,MB:PB=256*MB25 POKE 77,0:POKE 752,126 POKE 656,1:POKE 657,16:PRINT " SCURRY "30 POKE '}559,46:REM DOUBLE LINE GR.32 POKE 53277,3:REM ENABLE GRAPHICS34 POKE 623,8:REM PLYR PRIORITY40 FOR I=PB+500 TO PB+800:POKE(} I,0:NEXT I:REM ZERO GR. AREA50 RESTORE 52:FOR I=PB+512 TO PB+516:READ A:POKE I,A:NEXT I51 REM PUT PL0 AT BOTTOM OF PL0 ARE)}A52 DATA 14,17,21,17,1454 POKE 53256,0:REM SIZE OF PL056 POKE 704,0:REM COLOR OF PL090 M=ADR(Y$):RESTORE 92:FOR I=1 TO 13*}:READ A:POKE M+I,A:NEXT I91 REM MACHINE LANG. ROUTINE92 DATA 162,20,189,250,0,157,0,0,202,208,247,104,9695 UY=M+1:REM POKE+} PY,SV:Z=USR(UY)96 REM SOURCE,DESTINATION OF ROUTINE97 POKE M+5,MB+1:POKE M+8,MB+2:PY=M+7100 P=0:PK=0110 SH=125:SV=60120,} POKE 656,3:POKE 657,1:PRINT "SCORE ";122 POKE 656,3:POKE 657,30:PRINT "TIME";150 GOSUB 700160 RESTORE 162:FOR I=5 TO 15:R-}EAD A:D(I)=A:NEXT I162 DATA 2,1,2,0,3,4,4,0,3,1,0200 T=500210 D=INT(RND(0)*4)+1270 X=3:Y=3299 REM MAIN PLAY LOOP300 C=P.}EEK(53252):POKE 53278,0310 IF C=2 OR C=1 THEN P=P-2:SOUND 0,50*C,10,14:D=INT(RND(0)*4)+1:POKE 657,7:PRINT P;" ";320 T=T-1:P/}OKE 656,3:POKE 657,35:PRINT INT(T);" ";:IF T<1 THEN 800330 S=STICK(0):IF S=15 THEN 350340 D=D(S)350 GOTO D*10+350360 SV=S0}V-Y:IF SV<10 THEN SV=10:D=3362 GOTO 400370 SH=SH+X:IF SH>200 THEN SH=200:D=4372 GOTO 400380 SV=SV+Y:IF SV>90 THEN SV=90:D1}=1382 GOTO 400390 SH=SH-X:IF SH<50 THEN SH=50:D=2400 POKE PY,SV:Z=USR(UY)405 SOUND 0,0,0,0410 POKE 53248,SH420 C=PEEK(52}3260)430 IF C<>2 THEN 300440 P=P+10:POKE 656,3:POKE 657,7:PRINT P;" ";450 SOUND 1,222,6,12:SOUND 2,100,2,14460 GOSUB 7003}462 POKE 53278,0464 SOUND 1,0,0,0:SOUND 2,0,0,0480 IF INT(P/100)200 AND RND(0)<0.8 THEN 78}90782 COLOR C:PLOT RND(0)*39,RND(0)*19790 RETURN 800 PRINT :PRINT "Press START for next game ?";810 IF PEEK(53279)=6 THEN9} 11820 SOUND 0,RND(0)*200,10,2:GOTO 81090 RETURN 800 PRINT :PRINT "Press START for next game ?";810 IF PEEK(53279)=6 THEN)5 REM COLLISION by David Bohlke10 GRAPHICS 0:POKE 752,115 DIM B$(6),N$(32),N(4),S(4,3),R$(20)18 FOR I=0 TO 4:FOR J=0 TO 3;}:S(I,J)=0:NEXT J:NEXT I20 SETCOLOR 2,13,4:SETCOLOR 4,4,230 H=120:GOSUB 900:LD=140 PRINT "}":POSITION 13,3:PRINT " COLLISIO<}N "50 POSITION 3,6:PRINT "How many players (1-4) ";:INPUT NP:IF NP<1 OR NP>4 THEN 4055 FOR I=1 TO NP:PRINT :PRINT "ENTER na=}me of player # ";I;" ";60 INPUT B$:N(I)=LEN(B$)+N(I-1):N$(N(I-1)+1,N(I))=B$:NEXT I100 PRINT "}":POSITION 13,3:PRINT " COLL>}ISION "110 POSITION 2,10:PRINT "PUSH STICK to enter SKILL LEVEL,":PRINT "then press the FIRE button . . ."120 POSITION 2,16?}:PRINT " 1 is easiest, 5 is hardest ?"150 POSITION 35,16:PRINT LD;152 FOR I=1 TO 50:NEXT I155 IF STRIG(0)=0 THEN 17216@}0 IF STICK(0)=15 THEN 150165 LD=LD+1:IF LD=6 THEN LD=1170 GOTO 150172 L=13-LD:GOSUB 970174 PRINT :PRINT :PRINT N$(1,N(1))A};" --- press FIRE for your turn ?";175 FOR I=1 TO 333:NEXT I176 IF STRIG(0)=1 THEN 176180 FOR RD=1 TO 3:FOR PL=1 TO NP190B} C1=15:PRINT "}"200 A=12:B=0.5:C=0:P=0:K=0210 POKE 77,0:S=0220 POKE 53278,0250 FOR I=0 TO 23:POSITION 12,I:PRINT R$:NEXT C}I300 POSITION A,23:PRINT R$305 SOUND 0,100-ABS(S)*10,4,ABS(S)*2+2310 A=A+B:IF A>22 OR A<1 OR RND(0)<0.01 THEN B=-B320 C=CD}+1:IF C=C1 THEN POSITION A+RND(0)*(L-3)+3,22:PRINT " ";:C=0:P=P+LD*2:IF INT(P/100)>K THEN K=K+1:C1=C1-1340 P=P+1:POSITIONE} 1,0:PRINT P;350 IF STICK(0)<8 THEN S=S+1:GOTO 370360 IF STICK(0)<12 THEN S=S-1370 H=H+S:POKE 53248,H380 IF PEEK(53252)<>F}0 THEN GOSUB 500:GOTO 400390 GOTO 300400 S(PL,RD)=P:GOSUB 600405 NEXT PL410 NEXT RD420 END 500 SOUND 0,0,0,0510 FOR I=G}1 TO 5:SETCOLOR 4,RND(0)*16,RND(0)*16:SETCOLOR 2,RND(0)*16,RND(0)*16520 FOR J=1 TO 5:SOUND 0,RND(0)*30,4,8:SOUND 1,RND(0)*I*H}10,8,8:NEXT J522 NEXT I:SOUND 0,0,0,0:SOUND 1,0,0,0540 H=120:POKE 53248,H550 RETURN 600 PRINT "}":POSITION 3,1:PRINT " COI}LLISION "605 SETCOLOR 2,1,2:SETCOLOR 4,11,4610 POSITION 3,4:PRINT "Round: One Two Three TOTAL"620 FOR I=1 TO NP:J}POSITION 1,I*4+3:PRINT N$(N(I-1)+1,N(I));622 FOR J=0 TO 39:POSITION J,I*4+5:PRINT " ";:NEXT J:NEXT I630 FOR I=1 TO NP:T=06K}35 FOR J=1 TO RD:T=T+S(I,J)640 POSITION J*7+5,I*4+3:PRINT S(I,J);:POSITION 34,I*4+3:PRINT T;:NEXT J:NEXT I680 P=PL+1:IF P>NL}P THEN P=1:IF RD=3 THEN 697690 POSITION 1,23:PRINT N$(N(P-1)+1,N(P));" --- Press FIRE for your turn ?";692 IF STRIG(0)=1 THM}EN 690693 SETCOLOR 2,13,4:SETCOLOR 4,4,2695 RETURN 697 POSITION 1,23:PRINT "Press FIRE for next game ??????";698 IF STRIGN}(0)=1 THEN 697699 RUN 900 MB=PEEK(106)-8:POKE 54279,MB:PB=256*MB910 POKE 559,46:POKE 53277,3920 FOR I=PB+512 TO PB+640:POO}KE I,0:NEXT I930 POKE 53248,H:POKE 704,122:POKE 53256,0940 FOR I=PB+530 TO PB+536:READ A:POKE I,A:NEXT I950 DATA 51,63,30,P}12,12,63,51960 RETURN 970 R$="|"972 FOR I=1 TO L:R$(LEN(R$)+1)=" ":NEXT I974 R$(LEN(R$)+1)="|":RETURN 950 DATA 51,63,30,k3 REM AIR DEFENSE4 REM by David Bohlke, Coggon, IA5 GRAPHICS 5:POKE 752,110 SETCOLOR 4,9,4:REM SKY11 SETCOLOR 2,12,4:REM R}EARTH12 SETCOLOR 0,0,10:REM CLOUDS20 A=PEEK(106)-12:POKE 54279,A:PMBASE=256*A22 DIM A(15),H(15)30 POKE 559,46:REM DBL LINS}E GR32 POKE 53277,3:REM ENABLE GR.34 POKE 623,8:REM FIELD PRIORITY40 POKE 53256,0:REM SIZE PL042 POKE 53257,1:REM SIZE PLT}145 POKE 53258,0:REM SIZE PL246 POKE 706,2:REM COLOR PL290 RESTORE 92:FOR I=1 TO 15:READ A,H:A(I)=A:H(I)=H:NEXT I92 DATA U}0,0,0,0,0,0,0,0,-1,1,1,1,0,1,0,0,-1,-1,1,-1,0,-1,0,0,-1,0,1,0,0,094 PS=1:HF=PS+3:PLN=0:RD=15:RC=0:PP=20100 GOSUB 880:GOSUB V}890105 PRINT ," AIR DEFENSE ":PRINT 106 PRINT " SELECT SPEED, then press START ":PS=1107 POKE 656,2:POKE 657,37:PRINT PS;W}108 IF PEEK(53279)=6 THEN 113110 IF PEEK(53279)=5 THEN PS=PS+1:IF PS>5 THEN PS=1111 FOR J=1 TO 50:NEXT J112 SOUND 0,200*RX}ND(0),10,2:GOTO 107113 G=PS:PS=PS*0.5+0.5:HF=PS+3:? :? :? :? 114 SOUND 0,0,0,0115 GOSUB 800:GOSUB 820120 GH=125:POKE 5325Y}0,GH:GA=5130 POKE 656,2:POKE 657,2:PRINT "Game ";G;150 GOSUB 700:AK=10-INT((PA-12)/5)170 FOR I=PMBASE+640 TO PMBASE+768:PZ}OKE I,0:NEXT I175 POKE 77,0:POKE 53259,0180 I=INT(PT/500):IF I>RC THEN RC=I:RD=15:PP=PP+5185 POKE 656,2:POKE 657,30:PRINT [}"Rnds ";RD;" ";190 IF RD<1 THEN 950195 PLN=PLN+1:GOSUB 900200 PH=PH+DR*PS210 IF DR=1 AND PH>PE THEN PT=PT-50:RD=RD-1:GOT\}O 150212 IF DR=-1 AND PH200 THEN GH=200310 GA=GA+A(S):IF GA>9 THEN GA=9^}312 IF GA<1 THEN GA=1320 POKE 53250,GH349 I=INT((GH-50)/42.5)350 POKE 656,3:POKE 657,17:PRINT "ALT ";GA;360 SOUND 3,30,4_},INT(PA/20)+2400 IF STRIG(0)<>0 THEN 200405 GOSUB 801:RD=RD-1406 POKE 656,2:POKE 657,30:PRINT "Rnds ";RD;" ";420 FOR I=1`} TO AK:PH=PH+DR*PS421 POKE 53249,GH-8+RND(0)*9422 FOR J=1 TO 15:NEXT J424 SOUND 2,60,4,15426 POKE 53248,PH:NEXT I427 SOUa}ND 2,0,0,0429 POKE 705,34430 FOR I=PMBASE+640+CH TO PMBASE+645+CH:POKE I,0:NEXT I450 GOSUB 860:POKE 53249,GH-4455 FOR I=1b} TO 30:SOUND 2,I+20,4,14:SOUND 3,60,8,14:NEXT I:SOUND 2,0,0,0:SOUND 3,0,0,0460 IF ABS(AB-PA)<3 AND ABS(GH-PH)<5 THEN PT=PT+1c}00-PA:GOTO 500470 PT=PT-PP:GOSUB 900480 FOR I=PMBASE+640+AB TO PMBASE+647+AB:POKE I,0:NEXT I482 POKE 53249,20485 IF RD<1 d}THEN 950490 GOTO 200500 POKE 53249,20:GOSUB 900505 SOUND 3,0,0,0510 GOSUB 831:POKE 53248,20540 FOR I=PMBASE+896 TO PMBASe}E+1024:POKE I,0:NEXT I550 POKE 53251,20560 GOTO 150700 FOR I=PMBASE+512 TO PMBASE+640:POKE I,0:NEXT I702 PA=INT(RND(0)*40f})+20:CL=INT(RND(0)*16)*16+2710 IF RND(0)<0.5 THEN 720712 PH=35:PE=213:DR=1:RESTORE 718717 GOTO 730718 DATA 56,156,206,255g},14,28,56720 PH=213:PE=35:DR=-1:RESTORE 728728 DATA 28,57,115,255,112,56,28730 FOR I=PMBASE+512+PA TO PMBASE+518+PA:READ Aq}M?B%DOS SYSB*)DUP SYSB-SMAZEMASTLSTB MONMENU LSTBMONSTER LISB%SCURRY LSTB:COLLISIOLSTB(QAIRDEFENLST MONMENU BASSCURRY BASSCURRY :POKE I,A:NEXT I732 POKE 53256,0:REM SIZE PL0734 POKE 704,CL:REM COLOR PL0750 RETURN 800 FOR I=PMBASE+640 TO PMBASE+768:Pr}OKE I,0:NEXT I801 RESTORE 808:CH=94:POKE 705,12802 FOR I=PMBASE+640+CH TO PMBASE+645+CH:READ A:POKE I,A:NEXT I805 RETURN s}808 DATA 24,36,90,165,195,60820 FOR I=PMBASE+768 TO PMBASE+896:POKE I,0:NEXT I821 RESTORE 828:PL=100822 FOR I=PMBASE+768+Pt}L TO PMBASE+779+PL:READ A:POKE I,A:NEXT I825 RETURN 828 DATA 24,24,24,24,24,24,60,60,90,90,219,255830 FOR I=PMBASE+896 TO u}PMBASE+1024:POKE I,0:NEXT I831 RESTORE 840832 FOR I=PMBASE+896+PA TO PMBASE+906+PA:READ A:POKE I,A:NEXT I:POKE 707,66834 Pv}OKE 53259,0:POKE 53251,PH840 DATA 74,149,72,34,145,40,66,169,68,146845 FOR I=1 TO 10:SOUND 0,RND(0)*30+30,4,4:SOUND 1,RND(0w})*50+150,4,4:NEXT I846 POKE 53259,1:POKE 707,68847 FOR I=1 TO 10:SOUND 0,RND(0)*30+30,4,8:SOUND 1,RND(0)*50+150,4,8:NEXT Ix}848 POKE 53251,PH-9:POKE 53259,3:POKE 707,72849 FOR I=1 TO 10:SOUND 0,RND(0)*30+30,4,14:SOUND 1,RND(0)*50+150,4,14:NEXT I85y}0 SOUND 0,0,0,0:SOUND 1,0,0,0:RETURN 860 FOR I=PMBASE+640+AB TO PMBASE+647+AB:POKE I,0:NEXT I861 RESTORE 866:AB=(10-GA)*5+1z}5862 FOR I=PMBASE+640+AB TO PMBASE+647+AB:READ A:POKE I,A:NEXT I866 DATA 129,66,20,43,212,40,66,129870 RETURN 880 COLOR 3{}:D=35:E=1882 FOR I=0 TO 79:PLOT I,D:DRAWTO I,40884 IF RND(0)<0.2 THEN E=-E886 D=D+E:IF D>40 THEN D=40887 IF D<20 THEN D=2|}0888 NEXT I:RETURN 890 COLOR 1:X=10+RND(0)*20:X1=X:Y=RND(0)*20:Z=Y:GOSUB 893891 X=45+RND(0)*20:Y=RND(0)*20:X1=X:IF ABS(Y-Z}})<8 THEN 891892 GOSUB 893:RETURN 893 D=8+RND(0)*8894 FOR I=1 TO D895 L=RND(0)*4*-1:R=RND(0)*4:IF I>D/2 THEN L=-L/2:R=-R/2~}896 X=X+L:X1=X1+R:IF X<0 THEN X=0897 IF X1>79 THEN X1=79898 PLOT X,Y:DRAWTO X1,Y:Y=Y+1:NEXT I899 RETURN 900 IF PT<0 THEN} PT=0905 POKE 656,3:POKE 657,2:PRINT "Score ";PT;" ";910 POKE 656,3:POKE 657,30:PRINT "Plane ";PLN;920 RETURN 950 POKE 65}6,0:POKE 657,2:PRINT "PRESS START FOR NEXT GAME ??";955 POKE 53248,20960 IF PEEK(53279)=6 THEN RUN 970 SOUND 0,RND(0)*250,}10,2:GOTO 960:PRINT "PRESS START FOR NEXT GAME ??";955 POKE 53248,20960 IF PEEK(53279)=6 THEN RUN 970 SOUND 0,RND(0)*250,b-XLAPNB0A ((<(d`XZ#(@@ +!}0@@70@@Q0@@c@@u@@9AR!}@%"(} ***DIRECTORY***%( @ -@A $ GG;@@,;@ ,;@@!},;A,;@,;@@, "D1:MENU" &&@@D:*.* 7-6.# !} 7 @0i6-%@(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,!}3 6. 67B:,%@,.367B:,%@,.G67@<@,.(--@B:,:7<,4 G67<,..]!} 6.=:, @D67@<@,.7@<@,]67@<@,.0$@(&7@!}<@,0 & @- @ 2() <@F&7@<@,0 & @K @ P(!}7@<@,) U @0Z(( xARE-@@"'( SELECTION1 A!}05;(E BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@!}<+&@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!}!.! 6.D1:!67B:,%@,.@AR@'-@@"@  LOADING  A% B!}G-@@")  CANNOT RUN 3 @= BG A0 D:MONMENU.BASG  A% B _7 RETURN 096 POSITION Q2,Q12:? "You met a hunter who told of the legend of a castle ";:I=INT(RND(Q1)*CS)+Q1:GOSUB 13033209 #$ YDMPUPPSSTTC@ %} SCURRY by D%}avid Bohlke ;@,9@, +@ 70@@@70@@@ 70@%}@70@@@46-F:A,&@&BBy46-AV$'@w'AR@%}4AV@'AW@4  SCURRY 'AY@F'DOUBLE LINE GR. 'B2w@'ENABLE G%}RAPHICS"%A#@%PLYR PRIORITY(;-%A%A'+ ;ZERO GR. AREA23 #@R%-%A%}%A)"/3 3##PUT PL0 AT BOTTOM OF PL0 AREA414,17,21,17,146#B2V#SIZE OF PL08$%}A$COLOR OF PL0Z: 6-C:,#@*-@@."6%: [MACHINE LANG. ROUTINE\11162,%}20,189,250,0,157,0,0,202,208,247,104,96_(6-%@(POKE PY,SV:Z=USR(UY)`##SOURCE,DESTINATION OF ROUTINEa=%@%}%@/%@%@=6-%@d6-6-n6-A%6-@`x3AV@%}'AW@3 SCORE z1AV@'AW@01 TIME A2 #Ab!-@@%}%".68,-2 2,1,2,0,3,4,4,0,3,1,06-A%%6-P:H:,$@,%@6-@6-@+%}MAIN PLAY LOOP,$6-F:B2R,$B2x6"@)"@'6-&@K2@P$@@%}m6-P:H:,$@,%@AW@  @U6-&@#AV@5AW@5A P:,%} U @AJ&6-R:,&"@APT 6-8,^ $@%APh/ 6-& @#6%}-@/6-@j Ar/ 6-%!A#6-A/6-@t A|/ 6-%!@#6-@%}/6-@~ A/ 6-& @P#6-@P/6-@ 6-?:,%%2%}B2H6-F:B2`,@A>6-%@#AV@5AW@>  %}G%2@A"@@G2@A@@ AB2xG%2@%}G2@,P:'A,  6-@,6-@6-A6-%@%} A1"6-H:,$A@%@U1TARGET HORIZ!!MOVE OLD TGT. OFF OF SCREENB2I@F-%A%}@%%%AF+/ FCLEAR OLD PL1 TARGETH-6-P:H:,$@,$@%@9AHCOLOR O%}F PL1#B2W#SIZE OF PL11"6-H:,$@p%@ 1TARGET VERT.7 #Ab)-%A@%%%A%}F-"37 PUT TARGET INTO PL1 AREA65,34,28,28,28,34,65B2IPLOT NEW TGT. L%6-P:H:%},$@,%@L!A*H:, ?A//,H:,$@9H:,$@$ ' ' Pres%}s START for next game ?* F:B2y,"@@4:02H:,$A@@: A D:S%}CURRY.BASr next game ?* F:B2y,"@@4:02H:,$A@@: A D:S$ #$ YDMPUPPSSTTC@ )} SCURRY by D)}avid Bohlke ;@,9@, +@ 70@@@70@@@ 70@)}@70@@@46-F:A,&@&BBy46-AV$'@w'AR@)}4AV@'AW@4  SCURRY 'AY@F'DOUBLE LINE GR. 'B2w@'ENABLE G)}RAPHICS"%A#@%PLYR PRIORITY(;-%A%A'+ ;ZERO GR. AREA23 #@R%-%A)}%A)"/3 3##PUT PL0 AT BOTTOM OF PL0 AREA414,17,21,17,146#B2V#SIZE OF PL08$)}A$COLOR OF PL0Z: 6-C:,#@*-@@."6%: [MACHINE LANG. ROUTINE\11162,)}20,189,250,0,157,0,0,202,208,247,104,96_(6-%@(POKE PY,SV:Z=USR(UY)`##SOURCE,DESTINATION OF ROUTINEa=%@)}%@/%@%@=6-%@d6-6-n6-A%6-@`x3AV@)}'AW@3 SCORE z1AV@'AW@01 TIME A2 #Ab!-@@)}%".68,-2 2,1,2,0,3,4,4,0,3,1,06-A%%6-P:H:,$@,%@6-@6-@+)}MAIN PLAY LOOP,$6-F:B2R,$B2x6"@)"@'6-&@K2@P$@@)}m6-P:H:,$@,%@AW@  @U6-&@#AV@5AW@5A P:,)} U @AJ&6-R:,&"@APT 6-8,^ $@%APh/ 6-& @#6)}-@/6-@j Ar/ 6-%!A#6-A/6-@t A|/ 6-%!@#6-@)}/6-@~ A/ 6-& @P#6-@P/6-@ 6-?:,%%2)}B2H6-F:B2`,@A>6-%@#AV@5AW@>  )}G%2@A"@@G2@A@@ AB2xG%2@)}G2@,P:'A,  6-@,6-@6-A6-%@)} A1"6-H:,$A@%@U1TARGET HORIZ!!MOVE OLD TGT. OFF OF SCREENB2I@F-%A)}@%%%AF+/ FCLEAR OLD PL1 TARGETH-6-P:H:,$@,$@%@9AHCOLOR O)}F PL1#B2W#SIZE OF PL11"6-H:,$@p%@ 1TARGET VERT.7 #Ab)-%A@%%%A)}F-"37 PUT TARGET INTO PL1 AREA65,34,28,28,28,34,65B2IPLOT NEW TGT. L%6-P:H:)},$@,%@L!A*H:, ?A//,H:,$@9H:,$@$ ' ' Pres)}s START for next game ?* F:B2y,"@@4:02H:,$A@@: AD:S)}CURRYT for next game ?* F:B2y,"@@4:02H:,$A@@: AD:S( 0 ť 0`)@` 80%ŦP`P`@)D,>: 4/Pp0)}< 0,@ 2  ` ¥ YL` 0)< 90 ) 11񩠝@}0@ǩ ܻ0 񩠙8Ǚ@񥞙0`p@ @`1Ș@`ƽ@`0J̹ ͼ@ı̅ý@i2}8%¨ιϦüPŖΤ-ejØi28%ejιϦüPŖΦ`ƹĠ ޻ `pPę@}  0ǹ̹ ͤı̅åi28%¨ιϦüP=唑Τ-ȱejØi28%ejιϦüP=唑΢ ƹ}8Ħ` ҅ ҅ …½^ ̹ ͽi-@Ā )|ŁLqi/Иi2̝ =ȥ}=`L]EA Y ©8 ܻ 񥁙@ 0A`0P8P`}ĩȥ )ȹ0ƹ@8,,Ǡ ޻ Ǚ@ƙ0P0yP:PșpĤ`Ǣ `2}̽ͼ唅%̠(%̽8 ݸƢ `LָJ80` 1 ݸLtDŽƽǠ +}'0Ɛ ǰ8@I ¤ ݸ͠qlI^`  ݸLָɹ  ݸ ܻ `pP} 0@P ɩ̹ ͼ̅`E0ŖLePi2%yΝiϝ}EΠ(E0L``𩀝XY`5` | ݹ K )i `}=pP ʙ Ѷ`pipP@@`@™PP L"ÙP LęPP }6 p`80  ©` 00 0`7}`)6 Ż/+!@&0J) ů`` PLPPPe}eiiŌ 1`iiة> `  ʙ LĻ < L}: Pp 0P `1@ )8 0 LĻ#P i  LĻ  ŝPp } )i ¦ i:` `<<<<<<<<Ġ}ȹ")i QeǙeș oL|)Ii Q8Ǚș> oL|ȹ<")i Q(eǙ(թȅ o>X @̩ԍԍ }҅ ¢ i ة 1é4LР nL)ѩɖ  LFЌХРƩ}Ѝ h@ЌХЌЩ? Фh@pйxйййййййй й й 溤h@}Ѝ ԌХРЩ Ԥh@ԍԍЍ p ЩЅѩ҅ɩԩҢԎԩ៩ }Щ.Щ>Щ գd~Ӡ oЩXpY Ѝ Ѝ Ѝ Ѝ ЅҠ=>  ?} )  @̩Щ>ԥҍԍԍLʠ ԩЩ,ЩЩЩ ХIL_) }L_i  tL_ L_8ɁNL_' @̢= ̩֩៩p柩) } cd 1âƠ ̠΄ϠΙ~) #  L 绥}L LY 2xxxwxxxxxxxxxxxhxxhxxxxwhxxhwfxvivhwxgxh}YxxxxfYgxjxgxgjXxhgwgejiuvuhfYhwwwyw{uZf{GiZh{JJI[[Vl*eƆYW\JxxvueYZ;YY=}EvxfiXfHK\Ig\Y:fkeӦ[iƨVJkXyIhuGhY[egXtgZLK[Ff iĖikl+KôTՇk84٢VȖdIKJ[VI}8wd[V9J;MXEk:cˤg$>HJmdURdF[;M]%T'$0az 'blZ FF1 Vz3ȃmQ;[k$DPk}|68{1(CB{I'#8$DzZFTx:thxhvwfeUVffffffwxxxxwxwwwwww}wgwgggwfUUfWvWixueETCTEgfDUyeXɺ˔tVfCHjDUxdڸ܄DggT$JكFWE|wFErVltEh}wSF{eDhDTktC8J|r9He*<˼ǥ[W46$3BCC̬THd˧kmi{%7e|d:ExHvE5BVۍ$6s O#V}@d$GˬQuIDEXUVTqW;Ud(H䠪5%kZI[ąV[ITW7ؔDhLlVxfxjȄHHX66xTWYXHZˊ[Sj}wzi$8ixDdeiUFU7KicUZiTcTfyvEye4ETXzhvxyxXTEWvg5FxgetEiTE4CExfU}vuhXEfeETUFgeeWgeEefhxEThhhUgxwVTxETXZh[tWeuVUDeXy7IUW8$}UwUX}bXEȹT%9Ux؅((Zj6Xw(LsWzۨ3EKUG̨D5ZVe4Zg۵eRjuXTRYhdfhEUjuIlUEUxńXyBTXX}8# JI9Z"ˈGk̴05Y([!7Hs#8XQ2EXH3%esX3Xxy4TU؈CFWFXk۫QBUdʨS%uXhZ2UU}S5EYJuDE6CSUzxsTUXkWiWhWʵWwVUVGUvYeUUVXTTUz˦dD5vhU55XXTSExzxUCTwȘTDEg}sTEvsd5X{UU5X{USUhFEXXhuʈdxhxCxxxxgxxxxgxxxxxxxxhih}gbyfYKCۥxFdZEK3R\Vjz5Rjv&Y(xzxL\YIڄEUEKYIFœ+dxT|EhXS7wh}[J^8eX(ǓTKs8xdK:hZBTFgkVSgYj{rw8Vz\IjQjxX7Iwg,;SڈLuX([hzZgvZ}H[JGIfYevkek:HhgZYxgXKgxhvX[wjuxYjiZFwiIJfihXxhhWxi}gzxyxeiYyXhvhxfhxxvhhxxxiwxxhxxwxvxwxxxxxxgxxwxxxxxxyxx}xxxwxxxxxxxxxxxxxxxxxxxxx}xxxwxxxxxxxxxxxxxxxwxxxxxwxxxx}xxxxxxxxxxhxwhhhxxxxxxixihxihxhhxiiiiiWxxxxfh}xhxxhxxiYhxxxhxxixxhxxxxxxhhxxhhxwhwxxhyhxxh}xhwxhxxxxxyxxwxxxxxxxxhwxx}xxxxxxxxxxx}}28TVweWxuDfwfgTVgxefwDxvhehht5wfgThvxVDxehVuiTtXVu }gdXTXvyegSYCWezTUF4wDF3Z5DyvehfVDWtGtFUEf%wwwwTFvhxbcIj#Uz{4TiS[VTsJVfB }ZVxyA)UfT9Y̓5hr(g4AkYEfXvy4gwB*Uh!~H%eSIfywdYVzicZWGtSQ~$}~~~~~~~~~~~~~~1><~~  !~%}  !~   !~  !~   !~  !~   !~  !~   !~ &} !>0!~!!~!!~  !~  !~   !~  !~   !~  !~ $'}"~$"~$"~$"~$"Z> ~~!~~~$"!  !~  !~   !~  !~  (} !~  !~   !~=>  !~  !~   !~  !~   !~  )}!~   !~$"i~~~N~~~~~~~~N~~~V*}~H~SSS~SSS~TTT~QQQ~SSS~SSS~VVV~TTQ ~= ~= ~G=>~~+}GGGGJ~~GGGGJJ~~,}SSSSV~~SSSSVV ~= ~= -}~GSSSSV ~= ~= ~GSSSSVJ ~ ~.} ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~= ~= ~GSSSS/}V ~= ~= ~GSSSSV=~S_~Z~Z~U~U~U_~X~Z~V0}~S~SX~X~Z~X~]~]]~]~_>N~~~~~>N~~~V1}~H>N~~~~~>N~~~V= ~ ~ ~ 2} ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ * ~ ~ ~ ~ ~ ~ ~ ~ 3} ~ ~ ~ ~ ~ ~ ~ I>3 I>#  !~ !! !~ " "  4}    EUV_RMT4@VVV_VV0WUWhWWWW X0XGX5}XXXYY`YsYYY6ZO5w#9_ #7AFJO}JZZ6}Z[[[\\\\\]]]]]]]]]^^^^_ %%wpwD33 CC"33DDUUfffffffffff7}fU ""P"3DUfw f wD" 11 3BDUfwwff8}UUDD3 11 3BDUfwwffUUDD3 wU3 ""Pw9}fUD  U CC33DDUUfffffffffffUD ;2Pp:}ppNN  D  JJJJJ < F=;} BBBBBBBBHHHH U @   B@D`F %%<}00f@U@DP3P"`` vvRRDRDRwRwR"R"RURURRRRRDRDRwRwR"R"RURURRRR=}RDRDRwRwR"R"RURURRR 3 "0P?~~~~~~~~~~~?~>}~~~~~~~~?~~~~~~~~~~~~?}~~~~~~~!~!!!!!!!!@}!!!!!!!!=>%~=%~=%~=%~=%~%~%~A}=%~=%~=%~=%~%~%~=$~=$~=`$~=>4 >}==}}}=>LLLLL LLLLLLLL B}    !       L!LLLL!!!z?~~~~~~>>C}>>>>>>=>>>>>=>>> *>?>?D}~~~~~~~~~~~~~~~~~~~~~~!~!!%~$%~$%~$%~$%E}~%~%~$%~$%~%~$%~$%%%~$%~$%~$%~$%~%~%~$%~$%~%=>%~=%~=%~=%~=%~%~%~=%~=%~=%~=%~F}%~%~=%~=%~=%~=%~%~%~=%~=%~=>~~~~~~~~~~~~~~~~~V~JV~G}~~~~~~~~~~~~~~V} = H}JV}JV}HTH               _=FRMT4I}@=,=*>F(?S?{?????@G@k@@@@A 6ALYc(aibDJ}K}AABBCCCCCCCCCDDDDDEEFL}M}FF (( fwfUD %%ppwD3N}3  3 D %%pwD33 wD" %%Df f f f f f f fO} %%ЙwD33 %%wD33 !!@wBwfUD !!P}@wBwfUD ( w w w P w ..PppQ}fD3"" 66626~66662~6666662~R}6666662~66 6662~6666662~6666662~66S}66662~66 66626~66662~6666662~66T}66662~r66626~66662~6666662~666U}6662w> <~0>5~0<~S>>>>? >>? V}> >L~~~L~~22>1~~~> """""&W}"> """">"""""&">> """""&"> """">"""""&">&"~"~"> &"~"~"> &"~"~"""""">X} ~ > >~6666666*(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*Y})~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(Z}*)~(*)~(*)*(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~[}(*)*(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*)~(*).,.\}-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-=>?? ==]}      F~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-~,.-=>?? ==$