ML}  X c0C)HCCH Mhhݩh `eCDiCD`  RyHP   * 1H0芢@) Y0.Ș`i#(PMRR\ \b Pgi 0  % @ / ՠ`d   0DDԝLH}o]VqVLINSTMTAFLSVC2BMSEAABSTARECHKSUCHHLDOFNNNNNNNNNN1N1N1N1N1N1N1N1N1N1}N2SSNFCMDCCNCMEDISECTOBYTCOROLTEMPCZLLRETRBACKSESCAPLFIFNICNITMCDRNTIRMSDINCERMRM1DIR}RVVPEXODICNTEMLLTMITCHCHSEMVA@ss\sss[wwbb }4EE y @ @ABpB'AEP@B"5Aq@@Br} !"#$%&'( })*+,-./01234567 }89:;<=>?@ABCDEFG }HIJKLMNOPQRSTUVW }@XYZ[\]^_`abcdef }ghi ##*****************************##* THE WIZARD *##* EDITOR MODULE } *(##* by *2##* Clayton Walnum *<##*****************************F6-@}6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@ {6-@6-@6-@}6-@6-@6-@6-@P=6-@6-@'6-@36-@ = AB@Z2 #AE }-A"+67,.>:,/ 2$d A n. 6-%$67$&,.7<,. Ax$%}% AP ($9AR1-("@:,/(9 A}(>:%A(, A`$22@ !-@P% /22$%K:)"%$}7+AY76-F:A`,%AV$F:Aa,%)&@p%!%)%k-@#% 1}%@$@eH%@%F:A`,_%@&F:Aa,kAR:-@%( the wizard$-7(}:$BA A-AA?AY@4B$7+AY76-F:A`,%AV$F:Aa},%C&@q%'%@!5%@"C%@#E%@$@e.%@%F:A`,E%@}&F:Aa,"9ARA-AA9@, -( the wizard$6= -( },( ͠ĺ=( ɯҺ@8( ͺ'( ӠԺ8( ǠԺJ( κTA}Y@4$^.67,. 67A,. (67,..6-h: 6-6-6- A`&40 A: A`r( }B:, -B:,%$67,. ( |- 6-?:C:,:A:,,L 6-6-@% A`(4*B(7&}@0<@T,L A  4 A A67@0<@)%B:,,.7<,4NONEA`@ 6- '}A`4*6(7@U<@y,@ A` 4(  A`67@U<@T%B:,,.(A(}J 6-6- A`"4*76.=:@:7@,,,@(J A  4 A Ap6 Ap6.)}067@<@,.>:A:,,66- & -(EVERYTHING OK?& A*"@:N,)"@:n,$/@:Y,*@:y,*}A4//67$@&@<$@,.7<,>(67B:,%,.7<,H$R""****** INPUT ROUTINE *******\. +}6-6-6-6..AdAUf) A"AR&( )$pAR"A 0z" "A,}R'" A 8 6-%6-%!%AR/-%&5( 8$!@86-6-%+ -%&(>:,-}!67,.>:,+ Ap- !(~6-& 6-&&"-6.+ "6-@86-&+6-%@ !6..}7<, Ap""********* MAIN MENU ********7+AY76-F:A`,%AV$F:Aa,%)&@p/}%!%)%k-@#% 1%@$@eH%@%F:A`,_%@&F:Aa,kA0}R=-@%( the wizard*-@#=(R -() Create a game$-7() Load a game=-1}R() Work on rooms< -() Work on items$-<() Work on commands7 -( ) Intro text!--() 2}Quit7 AP A6-$d AP6-&@H.(*!* @:-@!P(Z Ad3} AP.??ApAAA#@AAA A`8 APB!!****** COMMAND MENU *******LI A4}-*() Simple Commands0-I() Movement CommandsV: -() Item Commands$-:() Fatal Commands`5}) -() Final commands) APj7 A A0%6-&@H7 )!A0t//A1A2@A4 6}A3A3`~!!********** QUIT ***********K-@"%( ARE YOU SURE? / AK@:Y,*@:y,A 7}" +@@"!!******** LOAD GAME ********R AP-@#-( 9-@!N8}( R0Y*0yA :"D:FILENAME.DAT/@:@3 6.6.D:9} 67B:,%,.367B:,%,..NAMI 6-6.6-6.$6./67,. @67@0,. I67,.&:}!& B6-@*67B:,&,.ITM * Ap$ 6-%$67$&,.7<,;}67$&,.7<,MM7<,4GET)7<@!,4DROP)7<@!,4NONE)7<,4 A0- 6-%#67$&,.7<@2<},- A0/67B:,&,.RMS%/ A- 6-@:7,,#67<,.*- A $67B:,&=},.COM$ A67B:,&,.FAT A67B:,&,.MOV A(67B:,&,.FIN A267B:,&,>}.CHG A< A F[-@ (( 4-@'?(ERROR!M-APQ [ A ?}P""***** CREATE NEW GAME ******ZE+AY76-F:A`,%AV$F:Aa,%E&@pd' -% @}%'%n %%x/-@$% /A@T3-@%( the wizard$-3( A}? -( ?/ -(?/AY@4 - 4A  - B}4AP - 4A`5 67,.6.-+(EVERYTHING OK?5 A"@:N,)"@:n,ApC}@:Y,*@:y,Ap" -(CREATING FILES"6-467B:,%,..NAM!((/(4G6D}7B:,&,.COM %767B:,&,.RMSBGG67B:,&,.ITM %767B:,&,.FATBE}GG67B:,&,.MOV %767B:,&,.FINBGK67B:,&,.CHG %?F}D:FILENAME.DATF(K%67B:,&,.INT %)D:FILENAME.DAT$()" A ,G}!!****** WORK ON ROOMS ******65 A-@#5( @:-@$( ": )H}!@0AJ! 6-6-!67B:,&,.RMST7<,0*A`^ A`h$ $@:,I}A@r B6-|r 6-6-+$AV0AR<@HAYr6-F:A`,%AV$F:J}Aa,%@[&@q%-%@$@eD%@%F:A`,[%@&F:Aa,1 -( the K}wizard$-@&1(ROOM # -( ͠ź(Q( Ⱥ( Ⱥ*( Ժ7( ԺD( L}кQ( κU -( Ժ(&(ͺ1(ɯҺ4(7(F( ǠԺU( ӠԺC-@"(-@"M}#(/-@"3(?-@"C( --@"( EA@T!A3AAN}EAY@4(A  -(7<@%,I --%'6-@:7@'%,,3!@0A6-&@0I6O}-%)( -((NONE) A@ (7<,T -(7@3<@E,$-9(7@<@,?-T(P}7@q<@,( -(7@F<@p,( A@(67,. 67@,. (67,.&67<,.>:,0L 6-Q}6-6-@$% A`.4*B(7<@%,L Ap: 4 A A@D67<%B:,,.N 6-R}-6-%6-X -%(  A`bS 4*#6.=:@:7@'%,,,+(:A:,!@0I(A:,&@0S AS}l# 4*(6-A:,# A@v* 46.0-%&6-*(T A 6.6-A:,06-@:7@'T}%,,@ )!@0J AT A5**&@0'!@0*!56-%@0!!67@'%<@'%,.>:U},()00)%A1 -(NONE-%(7@,+-1( ) -(7@t,-)(7@t,k[V}67@3<@,.@ a6-k A (*A:,!@0(6W}.=:A:,&@0,/ A:,! -8%<,8%<,/(A:,  B A 0 A A% 6-X}6-6-6-% A`&*4*(7<,& A!@()0NONEA  " -(7@,-"( Y}9 -(7@t,-)(7@t,/6-9 A"p  4(NONE A"p* !6-4. -7<,0Z} $ A. A 0>E'( +7@&%<@&%,45 A;6-E A 0HGA67@&%<@&%,.>:@:[}7@&%<@&%,,%@0,G6-R= !=67@&%<@&%,.>:@:7@&%,,&@0,\c 6-6-6- A\}`?*4*7@3<@3,0 Y(7@3<@E,c A!pf 4 A A!@p67@3<@2]}%B:,,.z] 6-6- A`9*4*7@<@,0 S(7@<@,] A"*0*0R*0I ^} A* A!p 46.I$67@<@,. -$(i 6-6-6-@%% A`E*4*7@q_}<@q,0 _(7@q<@,i A"@ 4 A A"67@q<@p%B:,,.W 6- `}A`3*4*7@F<@F,0 M(7@F<@p,W A"p 4 A A"@67@F<@Ea}%B:,,.<-@%( Everything*-@(2(OK?< A"@:N,)"@:n,A`@:Y,*@:y,b}A"p]67@3,.7@6,]67@&%<@&%,.>:@:7@&%<@&%,,&@0, 7c}"('-6-7 A  9('67<,.*/6-%9 A !!******* WORK ON ITEMS *****$ >d}67,. 67A ,. (67,..6-46-> A`. A-@'(-0( ͺA( ź8e} '( ͺ'( ԺB 8( ĺ'( ͠ĺ8( ɯҺL 8( ӠԺ&( f}Ժ8AY@4V 67B:,&,.ITM` : 6-6-6- A`&40 A: A$j ( B:, (67B:,%g},.7@%B:,,t B:,"A%P~ - 6-?:C:,:A:,,%A:,"A00 A'`  A(  A&P ) r}B6-6-# A`)6. *0Y*0N*0 A* A'` = *41%6.>:&A(,-(36s}.= A(   46.Y( ' 4N'67<,.>:@:7,,%@0, ;*4Y*@:7<,,!@0;67<,.>:@:7t},,&@0, @ 6-6- A`"4*6(7<@2,@ A(` #4*4Y6.GET#( $4*4u}N6.NONE$(" 67<%B:,,., ..7<,4GET)7<@!,4NONEA006 ] 6-6- A`94**7v}@3<@3,0 S(7@3<@E,] A)@  46.NONE-(J 67@3<@2%B:,,.T ''7w}@3<@6,0NONEA) ^ g -%( *67@<@,. 0-=(7@t,]67@q<@,.7@t,x}g A)`h ] 6-6- A`9*4*7@<@,0 S(7@<@,] A)`r *0R*0I*0y} A* A)|  46.I( 67@<@,. c 6-6-@% A`?4**7@F<@z}F,0 Y(7@F<@p,c A)  4 A A)` 67@F<@E%B:,,. ''7@3<@{}6,4NONEA00 @ 6- A`4*6(7@q<@,@ A00  4(  A00 67@q|}<@p%B:,,. :*7<@!,4NONE#-)-6(7@t,:  1*7<,4C- --(7@t,1}}  B -(everything ok?& AB"@:Y,)"@:y,A0 ##*+"@:N,)"@:n,,A#@ "@:N,)"@:n~},A#@ A00 A1 X 6-%!@P! A'-<(TOO MANY ITEMS!!J-AN X A }& **7<@!,4NONE*67@",.0  *67$&<$,.7<,:  *67$&<$,.7<,D %}% A1`N ?67$&<$,.7<,/67$&<$,.7<,4?X  ( A#@b !!***** SIMPLE CO}MMANDS *****l 67B:,&,.COMv  A` A --@"#(- AP "@:N,)"@:n,}A1  A0 A1 !!**** MOVEMENT COMMANDS **** 67B:,&,.MOV  6- A` A /-@!}%(/ AP "@:N,)"@:n,A2P  A0 A2P ***** FATAL COMMANDS ***** }67B:,&,.FAT  A` A ,-@#"(, AP "@:N,)"@:n,A3  A0} A3 !!****** FINAL COMMANDS ***** 67B:,&,.FIN*  A` A4 ,-@#"(}, AP> "@:N,)"@:n,A3pH  A0 A3pR !!****** ITEM COMMANDS ******\ 67B:,&,.CHG6-f} + A`-@#+( p O -( ĺ,( ͠ĺ=( O( ͺz 7}( ź&( Ҡɺ7( Ժ &( ź&(  0( ӠԺ&( Ǡ}0 AP : 6-6-6- A`&40 A: A4 ( B:, -B:,%$67,. (  - 6-?:C:,:A:,,P B6-6-# A`,4*F(7@<@,P A8 46.}NONE-(67@<@%B:,,.''7@<@,0NONEA8 a67@<@,. 567@<}@,. =-%C( Q-%@W( a A9@ 6-6- A`,0*0I*0R6 A@ A8 5#}*4*7@<@,4R+(R5 A8` 46.I-( S67@<@,."4I*-%0(Y}I67@<@,.YS A9: 6- A`&0*0Y*0N0 A: A8`5#*4*7@<@,4}N+(N5 A9( 46.Y(267@<@,.<F 6-6- A`"4*<(7@<}A,F A90F 46.NONE-(P67@<@%B:,,.Z''7@<@,0NONEA9PdM(6}7A <A!,. NONE 0-%C(NONE M A9n@ 6- A`*46(7A <A!,}@ A9x 46.NONE(67A <A%B:,,.L 6-6-@% A`(4*B(7@0}<@T,L A@ 4 A A967@0<@)%B:,,.R7<,4NONE-%((7@t,H}67@U<@y,.7@u,R A@PX 6- A`44**7@U<@V,0 N(7@U<@y,X A@P} 4 A A@ 67@U<@T%B:,,.,-@#"(EVERYTHING OK?, A"@:N,)"}@:n,A4 @:Y,*@:y,A@P67$&<$,.7<,(67B:,%,.7<, A0 A4 }4- ( COMMAND USED!* A4 A4""********** INTRO ***********X67B:,&,.INT A`+-@%}:( LAY@4X@"6 AA`)&)66-$@x%,@ -%76}7$@x&@w<$@x,.; @6 - (@+ -6-6-!6-A+ A`J4A T,-@#}"(EVERYTHING OK?, A^"@:N,)"@:n,AA c@:Y,*@:y,AAhF6-B:,(6-P}:'@x,86-&$@x?*F*r67$@x%%,.7%,|D -%1(7$@x&@w<$@x,5 :}D A !!******** TITLE PAGE *******&A&AF:A,&7+AY76-F:A`,%AV}$F:Aa,%# %%%#%E%@$@e.%@%F:A`,E%@&F:Aa,G}ARA!-0( the wizard<-@'G(A TEXT2-@!%(ADVENTURE CREATOR+-2(By. -}(Clayton Walnum.AY@4""******** INITIALIZE ********||;@ ,;@,;@,;@,;,};,;,;AP,;A,;,;@,;@x,;@,mm;,;@,;,;A ,;,;A4,9}<,;A,;@0,;AP,;,;A,4 #ACp--!",68<,-0 4 c @67,.} )67@0,. 267,.W6.GET DROP ]6-c6-(67,. 67@,. (67,.''2}9,5,29,15,36,10,22,10,24,5,34,15H6.16. ?6.  H6.D:&6.NSEWUD0'}6-AU6-A&'6-@': 6-D""**** MOVE CHARACTER SET ****N,6-+F:A,%,$AV,6-'AVXL};@ ,"A.A:ALAA$b*6.h͑`*6-?:C:,,l #AE}v""6@A 1-@"-%$@%1  ADp 11,85,85,85,85,85,85,85,85}-1aa104,104,133,204,104,133,203,104,133,206,104,133,205,104,141,1,6,104,141,0,6,104,104,133,207[[162,0,142,2,6,1}42,3,6,134,213,232,160,0,177,203,209,205,208,8,200,196,207,208,245,134OO212,96,173,2,6,24,101,207,141,2,6,144,3,238,3,6,1}73,2,6,205,0,6,208,8,173\\3,6,205,1,6,240,13,165,205,24,101,207,133,205,144,200,230,206,176,196,169,0,133,212,96 D}:WIZARD.BAS,6,208,8,173\\3,6,205,1,6,240,13,165,205,24,101,207,133,205,144,200,230,206,176,196,169,0,133,212,96 D N@  )?HI Y0`HIJH) * J j * hJJJ )HJ h i     } YS S0 i`ϣ߳ϣ߳H J3xj2h} 1 |9 ӭ45(420 *(0241өX.`  R *i)Lvw  ~*P}E 5 LN(G E  r s k rsrL ( E LO(0d( L iE0O +)$IC  H S8 }q p h   j 8no CDLQ CFl M  LO Ri)Llk2'")*F}$F$F$F$F$ 5 )ШF/Șl]kpqС,LQ/A! Ti)Zlk@ ܬ/i)(")")k}$F$F$F 5$/L /lF@jj(LNkle$$%8(k()` R 8 ELO Ri)^>jf | NrC s } ) vw5g   enfo Glvw LQ@iLm>j FL ~Jjjjii p qEh}jlrs`LQ:$ȱ$@+[_#{ 8  Խut! ai 8   E I   ] C} H h    ˰ 8  N   Lm E  ,  [ `LQ ,/ 8 ~/  Ơ? ѩ}/  [ /Lj0?MoLn FjMqLp NklLOLQnLoMlNLO R"(+}ըHH`Q R!!  % !   / .   FȑF! /GF \H"+0+* }! F tLQnm: J~nTF1F  *n+)5! n (, n)1JJJn(n*o} I ,0  ci a oF? @ , 8,0 ʩ0H Eh   i}  D ]DmmFLQvtu`*&!*@h ] 0 ^0` c 0l$$%}()()%*&J%H,@hH hH@,h $% 8i8$(%)0hhH ]h`() c 0H c 0 h}`hhh&JJ ](ll  LQ0  /qnoHH 9 9 H H  I9  9 } Nd EH  Q8 o n  FnoL HII/ Ih8`h`Lnon`no`u F }E VEhLO/luF l0BF/lɜɛ׽hE N  b VFL FREE SECTORS C} H) *Fh ):FȽ F FC IH' 0 d  i:Fȩ/F.l`CD/08HDIC}IHȰ/F`ȱ$>.+.i ȱ$:刄H !A \ Hȱ$*?ȝ 2. ? [_{ ,0}-:) 0$:>WI  IТ,LQH  0hLd ~ t u`C ?( 0(C.` E } R =! .ti S0N EE D XC )0')AY  )ע ? 0E088FG \o}n  (HhLcL3 iJ i Lqp 0=rspnqopqlk`jZj0  j FL`H}FhȑFȽlFi0 h FFLFpvqwgneofLF pq7  G0i 0 FJJh1FqȱFpȱFk`B!}08`hEE D 8. =D}tui( TʩL`b!)    cȌaȌd b`aab}H8 hdaHcd8 cH hHH  \h hc` =Hh I8ih( t  ( t(!` L\}CJfCJfCJfCDfC` a  HII  INdh  `h  `n)8jHniPoijIjFIjFIjh` a} I 38  8H0 I  ' H LQ8j Y  8j NdY  &I &I &IHeH.p}Iiq  `!.莿 2Jjj }.m Ȉ!m FG` ɩLQ z } e Hi04 \ Ȍ  8 i h !`I0 `C Y8.`DOS SYS} I  ` ~ݩ.C/`ba.m۩mѤC9 `C L] H  ,- '0 l }, BLVDE`D1:AUTORUN.SYS8hhJ ȱHȱIȱBȱDȱEeeHHLV)  }1*  ,,p-  0 I &  '0   Lw)l, 0  I&LD1:MEM.SAV}E:D1:DUP.SYSE:D1:DUP.SYSE:D1:DUP.}J)1CD1:DOS.SYS n  * \*`آ R'S )ɀ@  U))% BError lo}ading MEM.SAV or memory!  0* b*c*d*e* R Hd*JSDd*J-=e* 0c*ʈд =}MYDOS 4}.50 -- Copyright 1988,˛Disks 1S- 8R D: = D1: ~= =1-8.Dir of D1:-D8: *. Dir of D:A. }Disk Directory K. Save MemoryB. Run Cartridge L. Load MemoryC. Copy File(s) M. Run at AddressD. Delete File(s) N. L}oad MEM.SAVE. Rename File(s) O. Change Config.F. Lock File(s) P. Set DensityG. Unlock File(s) Q. Make DirectoryH. Wr}ite DOS Files R. Pick DirectoryI. Initialize Disk S. Set RAMdisk #J. Duplicate Disk V. Set Verify Flag  ?莼}( 0  =Select Item ( for menu):@  =ɛL)1L,*L,:W@ ,,L=No such item!}L*, -L*, BNeed new file name! BNo drive or director}ies allowed in new name!Lock Unlock Delete Lock which file?â-#Unlock which file?ɢ-$((H @ AQ/wDel}ete what file?Ѣ-!((H @ ANJ =Answer 'Y' or 'N'h `B L?;(( ~=( ~= =? =Y ?Lj.H @ AhR ?}R)L*,LM/L-Lz-File to rename, new name? @ A(9', ȱ:>0{ ПFull directory name?Z"L.Dire}ctory to be used as 'D:'? @ A(5)L.(I: ȱޝL*, BInvalid directory!L?( }(0Li-File source, destination? '( @C۩2ڭ82ܭC B9'0 @(ߍeލd(DЍ( ? 9'} A rBȱޙ':>Ȍ(C0J* .B :'ȱ/.* #,ɛȝ:' ߰ A L?,(0L*, '}ut(:'3?&' .'Ƚ:'?&'  .ى'Q?''(#( ~= =-->' ~=}Q =YR_o (J(  0?B݌''BK)`''utz0( >(L0L*,L?nDisk to FORMAT:} YA B(UTލ1 =(Press for Enhanced Dns)Type to Format Drive 8: =AIYZNj[R VL}?L*,D1:DUP.SYSDrive to write DOS files to? YAH1:*K)2J) Z wB hpJ) 2<2U}TC٩1ة۩کL;Source, Destination (Sectors)? YA)((9'( SA)((((( @(0% =Inser}t both disks, type = A( A((/( B(( BDrives not compatible!J(j(9'Hi''}h(ɛy BInvalid options! @-&& @)׍&&(&&&۩ک&&&&8* <4&&&& <4}8*8(ܭ(ݥ2C, BNot enough memory! ک&&`(Mh  & =L?&i &}&&&mm   =  &((&թԥԍ(Ս(((( ( ((C2((}ՠԍ((,(0"( (( =m(m( & &("L*,  ( AL4,(, =Insert DES}TINATION disk, press =Nͼ J) b( 0K) ?((ԭ(խ( ( (((L4Drive, new density:} YA9'ɛ BDrive unchanged.(ު90٨Ȍ(SD  ABL)xԌҭHӭ@ @ ʎӆ@}ӭ@@ :  $ӹ @hөԥX` Aˠ =RAM disk present? =NL#8 =xl}on or E type RAMdisk? =Aό  L   M A, A6: ' =No extra memory available!L#8L7 & & }& =Use default config for 0)ȩ ~= =K? =NL7 =Size(K)? ? @FjFjFjFj: =Page seq}uence? ? @o* =RAM disk drive no? = 09) `8 -8**H***) 9 Ȋ)h9 @@ʊ }H'h(#''/'(ɛ ? @(@: 3 ʽ' L7 =Duplicated sequence number!L7 =Wrong numb}er of entries!L7K큅쀄 =Verify WRITEs? ; =Number} of File Buffers? ? @  6 Lw),R( ';L*,Drive number or : =ɛLC99L60Ȍ( =Remove }drive? =Y =Is drive configurable? =YЂ =High capacity drive? =Yy =Is drive double sided? =Y ; =Tracks}/side? ? @#0M P( ; =Step rate? =4/ ; ';L*, =Drive size (in sectors)? ? @H(}h *;L*,RAM disk drive no? 8L*,Verify WRITEs? ;L*, =WNPy`(`(  LABSAVE:filename,start,end(,init(},run)) @TUH @Cp` 2< @؆8օڊ BInvalid START-END range!۩ @  @} hԄՠAμȌZ wB04*  0$ڍXۍY֍T׍U,0LBLB #CL?ֆ׌`Load MEM.SAV from wha}t file? 0#L*,L?Load from what file?) @TU&̩Z wB &0&-&а&𨭼INIZ'}RV0II BNO CARTRIDGE!Ԇխ  )L?Run from what address? ?ɛ @ } BAddress must be 1-4 hex digits! BHILV n=`hh =HH` =0{a Hɛ n= n=h` n }=L*, = = pHH =hh`K: p `(((( i ɀ((L?(`(B'(0!HH''^ }>I^>(`^>DH(` (HI`(o5 ~= =( B( >@A (J wB0x((HHIIDDE }E B ?(CɈK(٢A ~= =( BL>(B^>((ڤ ܝHݝI VL_>L?(" B !B J)  } B(L& R XY( ?&:0H&((& ( .( & ( .(ʩ( }`ލD&ߍEBIʎH( V0`ԩ ؠ@ȱ@ȱ)@ BError -- 139&`$8f 3AԄձG/ }$<68i/(Ԧ`H&եԦ&&eԅheԅԊe(iL*@&&&&ԅL*@B ? 3A?*(ɛ: }./2SX(0ȱ/.ɛ(ލ9'ި0#:Ȱ :ފ :ȱ: : CAD CAޥ }`(eޅީe߅`(` @L\A @TUȪ: BFile name not allowed!: )  i( =0+L }TUD BNot a disk file!(0` =Insert SOURCE disk, press =,(pӮ(A(O  1B AB1B } ` % 1(L/ b(de BJKO L?O` B((*(( }(`ȱޙ((:>Ȍ(`D:`OS.SYS,DOS.SYShh =L*,  VLJ C C,pLiLF#Խ٩Յ׆ } LB`((:>Ȍ(`D:`OS.SYS,DOS.SYShh =L*,  VLJ C C,pLiLF#Խ٩Յ׆  50 A$="Jo!b!dbcjo":W=N6:RETURN 60 A$="Jo!uif!gspou!zbse":N=N7:W=N8:RETURN 70 A$="Jo!b!gjfme":S=N6:RETURN 80 A$="Jo!b!gpsft }u":N=N9:S=N8:E=N6:W=N9:RETURN 90 A$="Jo!b!gpsftu":N=N8:S=N8:E=N9:W=N10:RETURN 100 A$="Cftjef!b!ijmm":E=N9:RETURN 110 A$="J }o!b!dbwf":E=N10:RETURN 120 A$="Jotjef!uif!tife":W=N7:RETURN 6302 IF IN$<>"EJBM!45.65.38" OR I(N3) OR R<>N5 THEN 63046303 A }$="Uif!dpncjobujpo!xpslt/":I(N3)=-5:UL=N1:GOTO N9506304 IF IN$<>"EJH!HSPVOE" OR I(N15) OR R<>N11 OR I(N6)<>-N1 THEN 6306630 }5 A$="Zpv!ejh!tpnfuijoh!vq=":I(N15)=-11:UL=N1:GOTO N9506306 IF IN$="EJH!HSPVOE" AND R=N11 AND NOT I(N15) THEN A$="Zpv!offe! }tpnfuijoh/":GOTO N9506502 IF IN$<>"GJMM!MBOUFSO" OR I(N2)<>-N1 OR I(N10)<>-N1 OR I(N20)<>N0 THEN 65046503 I(20)=-N1:I(N2)=N }0:UL=N1:A$="Plbz-!ju(t!gvmm/":GOTO N9506504 IF IN$="GJMM!MBOUFSO" AND (I(N2)<>-N1 OR I(N10)<>-N1) THEN A$="Opu!zfu/":GOTO N9 }506602 IF IN$="HP!TIFE" AND R=N7 AND ABS(I(N18))=R THEN A$="Plbz":R=N12:UL=N1:GOTO N9506604 IF IN$="HP!TIFE" AND R=7 THEN A }$="Ju(t!dmptfe!vq!ujhiu/":GOTO N9506606 IF IN$="HP!DBWF" AND R=N10 AND ABS(I(N14))=R THEN A$="Plbz":R=N11:UL=N1:GOTO N95066 }08 IF IN$="HP!DBWF" AND R=10 THEN A$="Zpv!dbo(u!ep!uibu!zfu/":GOTO N9507102 IF IN$="MPPL!QBSSPU" AND R=N5 THEN A$="Ju!mpplt! }mjlf!b!qbsspu/":GOTO N9507104 IF IN$="MPPL!DBCJOFU" AND R=N5 THEN A$="Ju!ibt!b!mpdl/":GOTO N9507106 IF IN$="MPPL!MPDL" AND }R=N5 THEN A$="Ju(t!b!dpncjobujpo!mpdl/":GOTO N9507108 IF IN$="MPPL!TIFE" AND R=N7 AND ABS(I(N19))=R THEN A$="Tpnfpof!cpbsefe }!ju!vq/":GOTO N9507110 IF IN$="MPPL!MBOUFSO" AND I(N2)=-N1 THEN A$="Ju!offet!gjmmjoh/":GOTO N9507112 IF IN$="MPPL!MBOUFSO" }THEN A$="Zpv!epo(u!ibwf!ju/":GOTO N9507114 IF IN$="MPPL!LFSPTFOF" AND I(N10)=-N1 THEN A$="Mbcfm;!GPS!MBOUFSOT":GOTO N950711 }6 IF IN$="MPPL!LFSPTFOF" THEN A$="Zpv!ibwf!up!ibwf!ju!gjstu":GOTO N9507118 IF IN$="MPPL!EPPS" AND R=N7 AND ABS(I(N19))=R THE }N A$="Uifsf(t!b!cpbse!pwfs!ju/":GOTO N9507120 IF IN$="MPPL!SVCCMF" AND R=N10 THEN A$="Uifsf(t!tpnf!cpvmefst/":GOTO N9507122 } IF IN$="MPPL!DBWF" AND R=N11 THEN A$="Uif!hspvoe(t!ejtuvscfe/":GOTO N9507124 IF IN$<>"MJHIU!MBOUFSO" OR I(N20)<>-N1 OR I(N4 })<>-N1 OR I(N21)<>N0 THEN 71267125 I(21)=-N1:I(N20)=N0:UL=N1:A$="Zpv!mjhiu!uif!mboufso/":GOTO N9507126 IF IN$="MJHIU!MBOUFS }O" AND (I(N20)<>-N1 OR I(N4)<>-N1) THEN A$="Zpv!offe!tpnfuijoh!npsf/":GOTO N9507128 IF IN$="MPPL!DIFTU" AND R=N11 AND I(N21) }=-N1 THEN A$="Zpv!gpvoe!uif!nbhb{joft=":GOTO 130007130 IF IN$="MPPL!DIFTU" AND R=11 THEN A$="Zpv!dbo(u!rvjuf!tff///":GOTO N9 !}507402 IF IN$<>"PQFO!DBCJOFU" OR I(N2) OR R<>N5 OR ABS(I(N3))<>R THEN 74047403 A$="Uifsf(t!tpnfuijoh!jotjef=":I(N2)=5:UL=N1 "}:GOTO N9507404 IF IN$="PQFO!DBCJOFU" AND R=N5 AND NOT I(N2) THEN A$="Ju(t!mpdlfe!vq/":GOTO N9507702 IF IN$<>"SBLF!MFBWFT" #}OR I(N6) OR R<>N6 OR I(N9)<>-N1 THEN 77047703 A$="Uifsf(t!tpnfuijoh!ifsf/":I(N6)=6:UL=N1:GOTO N9507704 IF IN$="SBLF!MFBWFT" $} AND R=N6 AND NOT I(N6) THEN A$="Zpv!dbo(u///zfu/":GOTO N9507706 IF IN$<>"SFNPWF!CPBSE" OR I(N11)<>-N1 OR I(N18)<>N0 OR R<> %}N7 THEN 77087707 I(18)=-R:I(N19)=N0:UL=N1:A$="///xjui!uif!ujsf!jspo/":GOTO N9507708 IF IN$="SFNPWF!CPBSE" AND I(N11)<>-N1 T &}HEN A$="Opu!opx/":GOTO N9507802 IF IN$<>"TNBTI!CPVMEFS" OR I(N14) OR R<>N10 OR I(N8)<>-N1 THEN 78047803 A$="Zpv!tnbti!ju!up '}!qfccmft=":I(N14)=10:UL=N1:GOTO N9507804 IF IN$="TNBTI!CPVMEFS" AND R=N10 AND NOT I(N14) THEN A$="Zpv!dbo(u///bu!uif!npnfou (}":GOTO N9507902 IF IN$="UBML!QBSSPU" AND R=N5 THEN A$="If!tbzt-(Ejbm!45.65.38(":GOTO N95010060 NN=25:NV=14:SI=0:L=28610130 )} INTRO$(1)="Somewhere out in the wilds, a chest of old ANALOG Magazines has been hi"10131 INTRO$(79)="dden. These co *}llector's items are just what you need to round out your coll"10132 INTRO$(157)="ection, something you've been trying +}to do for years. If you can find t"10133 INTRO$(235)="hem, you'll be the envy of the entire neighborhood! ,} "10200 IT$="QBSMBOPQFNBUMFBTIPTIFTMFSBLLFSUJSCPVTNBDBWDIFDBCMPDPMECPBGVMMJU45.SVCEPPHSP"10210 VB$(N1)="HFUESPMPP -}UBMPQFEJBSBL!!!TNBEJHSFNHP!MJHGJM"12001 DATA QBSSPU,-512002 DATA MBOUFSO,012003 DATA PQFO!MPDL,012004 DATA NBUDIFT,51200 .}5 DATA MFBWFT,-612006 DATA TIPWFM,012007 DATA TIFE,-712008 DATA TMFEHFIBNNFS,1212009 DATA SBLF,1212010 DATA LFSPTFOF,12 /}12011 DATA UJSF!JSPO,512012 DATA CPVMEFS,-4112013 DATA TNBMM!SPDLT,012014 DATA DBWF,012015 DATA DIFTU,012016 DATA DBCJOF 0}U,-512017 DATA MPDL,012018 DATA PME!CPBSE,012019 DATA CPBSEFE!EPPS,-712020 DATA GVMM!MBOUFSO,012021 DATA MJU!MBOUFSO,01 1}2022 DATA 45.65.38,012023 DATA SVCCMF,-1012024 DATA EPPS,012025 DATA HSPVOE,012200 DATA CLAYTON WALNUM,magazine hunt,01 y"#QQQQQ1QQQ1QQQQ@@@AC@1@AQ@C@ @3} @ @ @@@@@@@ _6-@6-&6-%'6-%/64}-%76-%?6-%G6-%O6-%W6-%_6-% 6-% ' 6-6-6-@'6-AC  +@# 5} B - - ##2+%,$+%,+%,$+%,$ %%2+%,$+%,$+%,$+%,$ %%2+%,$+%,$+6}%,$+%,$ %%2+%,$+%,$+%,$+%,$ ,%+$,%%+$, /%+$,%%&+$, ##,%AH%&+$,%7}++%,$, ''/%AH%&+$,%@&+$,   - ##2+%,$+%,+%,$+%,$ %%2+%,$+%,$+8}%,$+%,$ %%2+%,$+%,$+%,$+%,$ %%2+%,$+%,$+%,$+%,$ !!,%++%,$@,%%+$, %%9}/%AS&+$@,%%+$,& %%,%+$@,%@%&+$,0 33/%AA&+$@,%@%&+$@,: :} D  I A1QN =-@%,@r%@D9/@r%@P= O -AP X b +0;}ARc Bg  000l  -(@TRAPPEDv -AP  $$( (C) 1982<} by Al Harberg -@Aw  G +@0-/(@DO YOU5-G(@NEED B=} $ -$(@ INSTRUCTIONS? F:Ad,"AUA2@ $6-F:Ad,$AdAU %"@C A3>}%%D:TRAP2 %"@5 A3%%D:TRAP3 /2AP!-@0% / A2  . 22!?}2+2.$'&&I=PEEK(16):IF I>127 THEN I=I-128'''POKE 16,I:POKE 53774,I:POKE 580,1'$D:TRAP1!x7GpAdAUzA +'0@@@A0@@@{ A}BAR@(     ( 1  2  3(     (      (B}      (      (       ( 4  5  6  0(     C}  (      (      (      (     ( 7  8  D}9(     ($++(#As the game begins, the three green.**("chasers are in blocks 1, 4, and 7.8-@E}@BK-@@(--@@3(E-@@K(L-@@ VK-@F}@(1--@@3(4E-@@K(7`-@Af j t-@@~&&G}(The blue runner is in block 5.-@@-@ @(-@Af -@ H}@(5-@Af   Ac-@@--(%The blue runner and the green chasersI}..(&take turns running from block to blockY+(#The blue runner has the first move.S(# J} V(Y(! Ah Ac! Ad0-@@"- )-@@%( )   K} $-@@(++(#The green chasers win the game when2..(&the blue runner is trapped in square 0<-@L}@F-@!@(0P-@@0 Z-@!@(d-@Af nM} x-@@,,($And the green chasers occupy squares( 3, 6, and 9.-@@K-@N}@(3--@@3(6E-@@K(9-@Af K-@@(--@O}@3(E-@@K(-@Af  - Ah-- "PRESS ANY KEY TO CONTINUE"S +P}'0@@@A0@@@SAR@ B ( (,)(!There are 3 ways to pQ}lay TRAPPED:,(( 2-PERSON GAME(( 1-PERSON GAME((%( YOU'RE THE BLUE RUNNER, AND(((%( THE GREER}N COMPUTER TRIES TO((( TRAP YOU("( 1-PERSON GAME(,+(( YOU'RE THE GREEN CHASERS, AND +(6)&( YOUS}R JOB IS TO TRAP THE BLUE)(@( COMPUTER RUNNER.J+ Ah+"PRESS ANY KEY TO CONTINUE"TS +'0@@T}@A0@@@SAR@U Bh,)(!Green players make their moves by,(r(pressU}ing 2 keys:(|1.(& . The # of the box that they're in.1(*'( . The # of the box that they*( ( want toV} move to. (,)(!Blue players can make their moves,(+(( in the same way. Since there is+(+(( only 1 blue playerW}, you can save+(*'(time by just pressing the box #*(!!(that you want to move to.+ Ah+"PRESS ANY KEY TOX} CONTINUE", Ai ,- A COUPLE MORE INSTRUCTIONS%D:TRAP3++- MOVE TO THE NEXT INSTRUCTION SCREEN3-@Y}@"3(Ӡ٠٠Ϡ F:Ad,"AUAiAdAU$S +'0@@Z}@A0@@@SAR@  B,)(!The little box in the lower-right,(-*("corner o[}f the screen will tell you-(%(whose turn it is ...("(%(!.+(#And be careful not to trap the blue.(&-*("runne\}r in any box other than box 0-(+%"(... otherwise, blue wins!%$'&&I=PEEK(16):IF I>127 THEN I=I-128'''POKE 16,I:PO]}KE 53774,I:POKE 580,1'$D1:TRAP2 otherwise, blue wins!%$'&&I=PEEK(16):IF I>127 THEN I=I-128'''POKE 16,I:PO,kli:y:GAMEERRORNOWTURNBOXBOXBMOVEBMOVTIMVSVVVVVDUMMBOAAAAAAAXTURPATTER_} `}@a} !"#$%&'()* EE- TRAPPED VERSION 1.0 b} (C) ALLEN HARBERG, 1982 AdAU B#;@,;@,#6.N2;@,267c}@<@,. GWWGBWGWWW);@,)67@<@,.B(6-6-27;@,767@<d}@,. <6-P Apd/+@%@/0@@@e0@@e}f0@@@g @h Bnx-@p@5-@p@5f} #Ap,%@%@-@@ " " /%%  ,-@@ g}2A%2@A%2@A%2@A% " /q}BWIZARD BASB#DOS SYSB6DUP SYSB% MAGAZINELNSB2TRAP1 B@TRAP2 Bv^TRAP3 B}WIZCOMP BASB=ZWIZFRAMEBASB.WIZPRINTBASBAUTORUN SYSBMENU %%   19,1,19,19,1,19,1,14,0,4,2,16,2,16,0,20,0"!!20,4,18,4,18,16,20,16,20,20, 16,20r},16,18,4,18,4,20,0,2060,16,2,16,2,4,0,4,0,0;%2G2@i2@s}2@@J #ApT,A@6^-@@t}h "r/%A%@5| ,A@5-@@  "/A%@5% u}-@ @V@5-@@v@5 ,/%@ ,/%@',%v}@'/%@%@',%@'/%@%@',%@'/%@%@',%@w}'/%@%@',%@'/%@%@',%@'/%@%@& 0 :Dx}-@AN,@A/@BX,@H/@Ib lv-@@6 " y},/ 16,21,34,39,16,69,34,5117,21,34,38,17,69,34,5218,21,34,37,18,69,34,5321,16,39,34,21,z}74,39,5621,17,38,34,21,73,38,5621,18,37,34,21,72,37,5686,21,104,39,86,69,104,5187,21,104,38,87,69,104{},5288,21,104,37,88,69,104,5391,16,109,34,91,74,109,5691,17,108,34,91,73,108,56 91,18,107,34,91,72,107,|}5651,56,69,74,51,34,69,16 52,56,69,73,52,34,69,17*53,56,69,72,53,34,69,18456,51,74,69,56,39,74,21>5}}6,52,73,69,56,38,73,21H56,53,72,69,56,37,72,21RW @\-@p@5f-@p~}@5k #Ap A Pz   #A6-A6-@5 A P A} A0,%@%@-@@ " /%% //3,2,3,18,2,18,2,17,18,17,18,18,1}7,18,17,218,2,18,3,2,3,2,2-%@%@2$@&& ''2@$@%@&}& ''2@$@%@&& ''2@$@%@&&,%@/%@$ .}$8B-@@T@5L-@@x@5V-@`,&@%j/%@ }%l,%&@n/%%@ t ~  -@A,@C/@G} -@@,@t/%@X@,%@p@t/%@@Q }-@r@v ,@t/&@X@,%@@(/%@5@92 7%2}G2@i2@2@}<F6-@0 ApP AZ"@ Ad;@,9@,n 6-C:,%@ 6-@}xDP:'@%@,0%@APD%@AUN%@A(6-P:'AV,:6-&+$AV},N%@A ATA 9%@&AT/%@%@9 A%'%@%@}'%@?%@A+%@@?%@ A AUA07%@}-%@%@7 A5'%@%@'%@+%@A+%@@[%}@A%%@3%@G%@A[%@@%@@+%@ A2}?%@!ABS%@"@g%@#A{%@$AB%@%@#S%@&A+}%@'@$?%@(ADS%@)A06-?:%@,$ B %6-6}-% A`%6-6-@5% A`%6-6-@p% A` @%6-@56}-@5% A` A( A"7-%@%@),%@7/%@, 6$@Bg} @,AP@1/AX@C/AX@U/AP@g/AP@D 4B@F }4GH3-AQAW#,@//@3 I B1J4BAPT 4B A A}@^ APh! 6-"!6-@m A0r| 4C A A@ AP6-}"6-@7<,4BA0 6-(-@@$7<,0B(  6- A@ } AP6-"6-@$7<,0W AQ@$ A"7<,0 AQ@" A}) A4Y AQ@) A A@! 6-"@!6- A!- 6-6-}6-!"@-6- A!  6-6- A#! 6-"@!6- A'! 6-}"@!6- A' $4>*"6-A'6-@5*$H*"@6-'6-}*$R*"@6-@5'6-*$\*"@6-@p'6-*$f*"@6-'6-}@5*$p*"@6-@5'6-@5*$z*"@6-@p'6-@5*$*"@6-'6}-@p*$*"@6-@5'6-@p*$*"@ 6-@p'6-@p*$ -@} @ 3,%@%%@3/%@%%@ A$  4B@  4G@ 3,}%@%%@3/%@%%@   %2G2@i2}@2@$ $` j !!2$@@t ))2@}$@%@@~ ))2@$@%@@ ))2@$@%@@ -@}@  ))2$@%@@ ))2@$@%@@ ))2@$@%@}@ ))2@$@%@@ $( ??27,111,41,3,0,5,0,3,8,5,8,1,2,1,6,7,2,7,6,2,1,2,7,6,1,6,72 442}3,6,6,3,0,6,0,2,1,6,1,4,2,4,7,5,2,5,7,2,8,7,8< ==43,41,6,2,0,5,0,1,1,6,1,1,2,2,2,6,2,6,5,7,2,7,4,5,4,5,6= %%4,5,4,7,3,6,3},7,2,7,2,7,1,8,7,8F ==47,76,6,2,0,6,0,1,1,1,2,2,1,6,1,7,1,7,3,6,3,6,5,5,3,5,5G --4,4,4,4,7,5,7,8,1,6,1,7,2,7,6,7,2,8,6,8}P ==27,6,41,1,0,1,4,2,0,2,5,3,4,7,4,3,5,7,5,5,0,5,7,6,0,6,7Z >>43,41,41,1,0,7,0,1,1,7,1,1,2,2,2,6,2,7,2,1,3,2,3,1,4,6,4[ }%%7,5,7,7,1,6,2,6,1,7,6,7,1,8,6,8d >>39,76,41,2,0,6,0,1,1,3,1,6,1,7,1,1,2,1,7,2,2,2,8,3,8,5,8e 3,4,6,4,6,4,6,8,7,5,7,7}n ==27,6,76,1,0,7,0,1,1,6,1,4,2,5,2,3,3,4,3,3,4,3,8,4,4,4,8x >>43,41,76,3,0,5,0,3,3,5,3,2,1,2,2,6,1,6,2,2,4,6,4,2,8,6,8y} %%1,5,1,7,2,5,2,7,6,5,6,7,7,5,7,7 >>27,76,76,2,0,5,0,2,4,5,4,1,1,1,3,2,1,2,3,6,0,6,8,7,0,7,8  #A&%$@} @ " ##-@+&@,'@ ! ",%%!/%%   $  (-}@ ! A'% ($! 6-"!6-@67<,.W! 6-"!6-@67<},. A 4 WWGWWGWWGBAI4 BGWGGWWWWWAH4 GBGWGWWWWWAH4 GW}WBGWGWWWAH4 WWWGGWBGWWAH4 WWWWGWGBGWAH" 4G6.B A,# 6.G6-%}@# A=%2@A3@@9-@@=  B0 Ap$3 A}p4 B5 B 8 ApB F:Ad,"AUAP$6-F:Ad,$AdAU}"@P6-$"@16-@$"@06-@$"@&6-@$}"@$6-@$"@)6-@$"@'6-@$"@Q6-@$"@S}6-@$"@H6-@ $ i%2A0@@9-@@0= _2}i AP=%2A @@9-@@0= ((%2}($Xb' +@'0@@g Bl2-@2(@ 2-PLAYER GAMEv2-}@@2(@ 1 PLAYER GAME4-@@4(@YOU'RE THE RUNNER2-@@2(@} 1-PLAYER GAME4-@@4(@YOU'RE THE CHASER1-@@1(@ INSTRUCTIONS1}-@@1(@ EXIT PROGRAM F:Ad,"AUAp$6-F:Ad,$AdAU4 6.B}6. GWWGBWGWWW(6-46-!"@c6.A! A!"@!6.B! A!"@6}.C! A"@X%D:TRAP2"@B+.OAU@72AP@@}K-@@PO  AAU@72A Ap@E! 6-"@!6}-J#A%T"^"@6.Y$c! 6-"@!6-h "6.N$r A }3,9,6,994,5,2,991,5,3,995,2,6,0,991,7,5,994,1,7,2,8,3,6,9,995,9,3,0,994,5,8,99}7,5,9,995,8,6,0,99  74 WWGWGWWGBW 6-@ ,6-46.N7$ 74 WGBWGWWWGW 6-@,6}-46.N7$ -@@ 7<,0B & @'0 ! 6-"@!6-: #A}%? -@@D "N "@6.Y'$S "6-@X 7<,4W6-'$b  }(#2#7#6-%@ Ap<#*"@6-@'6-@*$F#"@AK#!@A@}P#I37@<@,42)7@<@,49?6-@I AZ#I37@<@,43)7@<@,48}?6-@I Ad#n#27@<@,49(6-@2 Ax#6-@ A#6-@6-@}$#6-@6-@$##*"@6-@'6-@*$#6-@6-@$##}#$$7@<@,46A#$$7@<@,40A#$$7@<@,49A#$$7@}<@,43A##*"@6-@'6-@ *$$A&"@*7@<@,4026-@>6-}@A$$A&"@*7@<@,4026-@>6-@A$$A&"@*7@<@,4026-@}>6-@A$"$,$*"@6-@ '6-@*$6$*"@6-@'6-@ *$@$*"@6-}@'6-@*$J$A&"@*7@<@,4626-@>6-@A$T$A&"@ *7@<@,46}26-@>6-@A$^$*"@6-@'6-@*$h$*"@ 6-@'6-@*$r$*"@}6-@'6-@*$$$*"@6-@'6-@ *$$A&"@*7@<@,4626-@}>6-@A$$A&"@*7@<@,4626-@>6-@A$$ A`$%++- AFTER 4 MOVES, BLUE }IS ON SQUARE #9%*"@6-@'6-@*$%A&"@*7@<@,4626-@>6-@ A$%}A&"@*7@<@,4626-@>6-@A$%*"@6-@'6-@ *$%*"@6-}@'6-@*$%*"@6-@'6-@*$H&R&*"@6-@'6-@ *$\&A&"@}*7@<@,4626-@>6-@A$f&A&"@*7@<@,4626-@>6-@A$p&*"}@6-@'6-@*$z&*"@6-@'6-@*$&*"@6-@'6-@*$&}&-@@&7<,0B &"@6-&'67<,.=:,&$'&&I=PEEK(16):IF I>127 THEN }I=I-128'''POKE 16,I:POKE 53774,I:POKE 580,1'$.. +@.70@@70@@}. B.--@@-(@ GREEN WINS/%-@ @%(@IN/,-@@,(@} TURNS!/9AR@9( PRESS ٠ TO CONTINUE!/**2H:,$A@@"/**2@}H:,$A@@#/**2@H:,$A@@$/**2@H:,$A@@&/ F:A}d,"AUB e+/%2G2@i2@}2@0/AdAU$22A +@'0@@A0@@}2 B2--@@-(@ WINS21-@@1(@BECAUSE green2+-@}@+(@MADE AN3/-@@/(@ ILLEGAL TRAP39AR@9( PRESS ٠ T}O CONTINUE3**2H:,$A@@3**2@H:,$A@@3**2@H:,$A@}@3**2@H:,$A@@3 F:Ad,"AUB e3%2G2}@i2@2@3AdAU$,}3j 4G-2@A`@@A-@@E g2@j$63j 4B-2@}A @@A-@@E g2@j$D1:TRAP3j$63j 4B-2@fM==FLSVC2BMSEASTMTAABSTARECHKSUCHHLDLINOFNNNNNNNNNN1N1N1N1N1N1N1N1N1N1}N2CCTRSSNCITQLLCMCNVCNFNDRMSROODIRFIICNISLCNSILLTNARVBNNS@sss}ss[wwbb4EEy B2 @ @ B'AXBA}4@@BrB&@ !"}#$%&'()*+,-./012}34@56789:@;<=>?@AB}CDEFGHIJKLMNO ""***********}*****************""* THE WIZARD *""* COMPILER MODULE *(""* BY *2""}* CLAYTON WALNUM *<""****************************F +AP{6-@6-@'6-}@36-@?6-@K6-@W6-@c6-@o6-@ {6-@Z6-@6-@'6-@}36-@?6-@K6-@W6-@c6-@o6-@{6-@  A0 d/ #A10-@r}"+67,.>:,/ n%-@&"!67,.>:,% x%-A"!67,.>:,% (-@7"!67,.>}:,% ($6-?:C:,#6-@:7,,#"@2AH A6}7,.IF IN$<>R (CREATING POS ACCESS LINE\6.7<@2, Apf<67B:,%,. OR I(N,67B:,%,.=:&,<6}7B:,%,.)p7<,4AA zB67B:,%,. OR R<>N(6-@:7,,%4!@4B6-&@067B:,%,.=:,}''7@3<@6,4NONEA P$6.7@3<@E,$ APb7@<@,4I267B:,%,. OR I(NC6}7B:,%,.=:,X67B:,%,.)<>-N1b A PB67B:,%,. OR ABS(I(N.67B:,%,.=:,B67B:,%,.))<>R567B:,%},. THEN .67B:,%,.=:A:,%,5(C67,.=:A:,%,"67,. A$=96.7@F<@p,C Ap:67B:,%,.:}I(N)67B:,%,.=:&,:67B:,%,.)=*7<,4A 67B:,%,.R* A,6-@:7,,%!@4,6-6%@0}67B:,%,.=:,&67B:,%,. :UL=N1:G.N950&()67,.=:A:,%,"67,. REM)( (CREATING NEG ACCES }S LINE$$7@q<@q,4 A6-@:7,, A$/67,.IF IN$=%6.7<@2,/ Ap.B67B: },%,. AND R=N(6-@:7,,%4!@4B6-&@0867B:,%,.=:,BJ67B:,%,. AND NOT I(N167B:,%,.=:&, }J67B:,%,. ) THEN A$=L$6.7@q<@,$ ApV*67B:,%,.:G.N950 (* A`""***************** }***********j""* COMMAND LINES *t""****************************~/67B:,&,.COM%/ A3 } 6-@:7,, A(CREATING COMMAND LINE A@@:7@),,"A967B:,%,. AN}D R=N967B:,%,.=:@:7@),,%,'7<,4NONE A' A0 AP 67B:,%,.:G.N950 (22}7@U<@U,4 )7<,4NONEA`#6-@:7,, A# A@@:7@),," A967B:,%},. AND R=N967B:,%,.=:@:7@),,%,<67B:,%,. THEN A$=26.7@U<@y,< Ap *67B:,%,.:G.N}950 (* A`!!***************************!!* FATAL COMMAND LINES *(!!***************************2/6}7B:,&,.FAT%/ A3P< 4A# F(CREATING 'FATAL' LINEP6-@:7,, AZ } A@d@:7@),,"An867B:,%,. AND R=867B:,%,.=:@:7@),,%,x7<,4NONEA } AP!67B:,%,.:G.13000!(227@U<@U,4 )7<,4NONEA@6-@:7,, A A}@867B:,%,. AND R=867B:,%,.=:@:7@),,%,<67B:,%,. THEN A$=26.7@U<@y,< Ap*}67B:,%,.:G.N950 (* A@ ************************** * MOVE COMMANDS * ******************}********/67B:,&,.MOV%/ A3p 6-@:7,, A(CREATING MOVEMENT LINE A}@@:7@),,"A"967B:,%,. AND R=N967B:,%,.=:@:7@),,%,,'7<,4NONE A' A}6 AP@X67B:,%,.:R=N567B:,%,.=:@:7@,,%,Q67B:,%,. :UL=N1:G.N950X(J227@U<@U},4 )7<,4NONEA0T6-@:7,, A^ A@h@:7@),,"A`r867B:,%,. AND R=8}67B:,%,.=:@:7@),,%,| A*67B:,%,.:G.N950 (* A0 ************************** * } ITEM COMMANDS * **************************/67B:,&,.CHG%/ A3 6-@:7,,} A""(CREATING ITEM COMMAND LINE+67,. IF IN$<>!6.7<,+ Ap7<,4NONEApZ67B:,}%,. OR I(N*6.7<@(,4 APE67B:,%,.=:,Z67B:,%,.)<>-N1''7A"<A%,4NONEA:67}B:,%,. OR I(N06.7A"<A4,: AP)67B:,%,.=:,)67B:,%,.)<>-N1''7@<@,4NONEA }0:67B:,%,. OR I(N06.7@<@,: AP(67B:,%,.=:,(67B:,%,.)<>N0&@:7@),,"!}AP0967B:,%,. OR R<>N967B:,%,.=:@:7@),,%,:567B:,%,. THEN .67B:,%,.=:A:,%,5(D67"},.=:A:,%,N''7@<@,4NONEA X267,. I(N(6.7@<@,2 APbl67,.=:, 67B:,#}%,.)=P7@<@,4N*7@<@,4Rb67B:,%,.-R:l A l67@<@,4R,67B:,%,.$}R6 A v67B:,%,.-N1:''7@<@,4NONEA$6.7@<A,$ AP:67B:,%,%}.I(N&67B:,%,.=:,:67B:,%,.)=N0:''7A <A,4NONEA667B:,%,.I(N,6.7A <A!&},6 AP(67B:,%,.=:,(67B:,%,.)=N0:<67B:,%,. UL=N1:A$=26.7@0<@T,< Ap 67B:,%'},.:G.N950 ()67,.=:A:,%,"67,. REM)($$7@U<@U,4 A <6-@:7,, A<((}CREATING NEG ITEM COMMAND LINE*67,. IF IN$= 6.7<,* ApC67B:,%,. AND 37A"<A%,0NONEC)}67B:,%,.(B67B:,%,. I(N'6.7<@(,1 APB67B:,%,.=:, <67B:,%,.)<>-N1<7A"<A%,*}4NONEA a67B:,%,. OR I(N06.7A"<A4,: APK67B:,%,.=:,a67B:,%,.)<>-N1) <67B:,%+},. THEN A$=26.7@U<@y,< Ap**67B:,%,.:G.N950 (* A 4!!***************************>,}!!* FINAL COMMANDS *H!!***************************R/67B:,&,.FIN%/ A30\ 6--}@:7,, Af(CREATING GAME END LINEp A@z@:7@),,"A!967B:,%,. AND R=N967B:,%.},.=:@:7@),,%,'7<,4NONE A' A" AP'67B:,%,.:G.13000'(@227@U/}<@U,4 )7<,4NONEA!@6-@:7,, A A@@:7@),,"A"p867B:,%,. AN0}D R=867B:,%,.=:@:7@),,%, A*67B:,%,.:G.N950 (* A!@!!***************************1}!!* CREATE SEARCH STRINGS * !!*************************** (CREATING VERB TABLE LINE 567B:,&,.FAT6.2}"6-(6-56.HFUESP$ 767,.10210 %67,.VB$(N1)=.67,.767,.. - A##6--(FATAL3}8  AA#`B  A  A#`L ;67B:,&,.COM%/ A$;(COMMANDV  A4}A#`  A  A#j 867B:,&,.ITM%/ A$P8(ITEMt ( (7<@!,4NONEA$ 5}~ .6.7<, A" A.A$   A  A$  867B:,&,.MOV%/ A$8(MOVE6}  AA$`  A  A$` :67B:,&,.FIN%/ A%:(FINAL   A7}A$  A  A$ :67B:,&,.CHG%/ A%@:(CHANGE  AA$  A 8} A%  067B:,%,.67B:,%,.&(0 A% &67B:,%,.67B:,%,.&( . 6-%67,.=:B%9},.67,. VB$( F67,.=:$@,(67B:,%,.)=667B:,%,.<6-C6.F$ S67B:,&,.ITM1@:}E67,. 10200 IT$=S67B:,%,. (CREATING ITEM TABLE LINE( ' -6.7<,' A2 ,7;}<,467B:,%,." , A&`< $$P:'@0,'@0A&PF >67B:,%,.67B:,%,.&(>67,.10201 <}IT$(91)=P 67B:,%,.  A&`Z 67B:,%,. d +67B:,%,.67B:,%,.&(+n ****************=}**********x * MISC LINES * ************************** (CREATING MISC LINES R A' 67B:,&>},.INT$/6)=)M6-$@x%R F67,. 10060 NN="67,.=:,567B:,%,.:NV=F67B:,%,.=?}:, 367B:,%,.:SI='67B:,%,.=:,-"36- -67B:,%,.:L=&67B:,%,.=:,-( %67B:,&,.NAM@}%   !67,. 12200 DATA !67,. D-B:,&7<,1A*7<,/ZD67<,.>:@:7<,,A}%@2,   (67B:,%,.,!67B:,%,.(( ] 67,.9060 OPEN#N1,N4,N0,)67,.;67@!,.D:J67@#B},.]67B:,%,..DAT !!*************************** !!* INTRO * !!***************************"C} H A)67B:,&,.INT*1)8)H6-$@x%, : -%(67,.=:B)%,:67,. INTRD}O$(6 >67,.=:$@x&@w,067B:,%,.)=>67B:,%,.@ ..IF X=LH+N1 THEN GOSUB 200:N$=N$(N1,A+N1)J *67B:,%E},.67B:,%,.&(* T ^ **************************h * CREATE PROGRAM *r *******************F}*******| J+A((J(LOAD >:@4,D:WIZFRAME.BAS>:@4, >67B:,&,.LNS((>(ENTER >:@4G},>:@4, a67B:,&,.BAS((=(SAVE >:@4,>:@4,@(C(S( POKE 842,12V(Y(a(RUN  -H}AB@ & ************************** * INITIALIZE * ************************** eeI};,;,;,9,;@,;A ,;,;@,;,;@,;AP,9@&, ff;A4,;@x,;J},;@&,;,;,;@r,;A,;AP,;,;@7, ( 6.D:6.NSEWUD(6.>:@4, EK}D:FILENAME.DAT$)267,.E67B:,%,..LNS  *-@&68,- $6-*6L}- & 6.67B:,&,.ITM& * A1 -@P"*6-% 97<,4#67B:,%,.7<,+6-%M}/ 9 A1 & %!67+&,$&<+&,$,.7<,% 0 :' 67B:,%,. 6.&6-0 A: A0: ee104,104,1N}33,204,104,133,203,104,133,206,104,133,205,104,104,133,207,162,0,142,255,6,134,213,232D ]]160,0,177,203,209,205,208,8,200,1O}92,3,208,245,134,212,96,173,255,6,24,105,3,197,207,240N TT16,141,255,6,165,205,24,105,3,133,205,144,217,230,206,176,213,169P},0,133,212,96X gg104,104,133,209,104,133,208,104,104,168,136,240,6,177,208,201,32,240,247,132,212,169,0,133,213,96b aa104Q},104,133,204,104,133,203,104,133,206,104,133,205,104,141,1,6,104,141,0,6,104,104,133,207l [[162,0,142,2,6,142,3,6,134,213,2R}32,160,0,177,203,209,205,208,8,200,196,207,208,245,134v OO212,96,173,2,6,24,101,207,141,2,6,144,3,238,3,6,173,2,6,205,0,6,2S}08,8,173 \\3,6,205,1,6,240,13,165,205,24,101,207,133,205,144,200,230,206,176,196,169,0,133,212,96 QQ216,104,104,133,204T},104,133,203,104,104,133,205,160,0,177,203,201,33,240,11 DD24,105,1,145,203,200,196,205,208,240,96,169,61,240,244,208,242U} "F:A,"A6" A FC(ERROR F:A, AT LINE F:A,%F:A,$AVF "F:A,"A6V}" AP A2@ K+AAR/2@u=-@PA K2 ? -!(TROUBLE WITW}H ITEMS!'-?(NO  FOUND!  -( PRESS ANY KEY %K:)"% F:A,"A6X}A0 A2@ F:A,"A6A#  A2@ F:A,"A6A  A2@* F:AY},"A6A4 A2@> F:A,"A6A!0H A2@ D:WIZCOMP.BAS A2@* F:Ac23;QFLSVC2BMSEASTMTAABSTARECHKSUCHHLDLINOFDNN1N1NN1N1NNNNSN1IISCCU"[}NN2NNNN1N1ROQINN1N12N1INN2N2INN1N2N95N1N3N2N3VNITVBN676FN900ZN2N2N2N2N2N3N3N3N3"\}N3N3N3N3N4N4N4N4N4N4N4N4N4N4N5NATNFASAVATAINTRO@sssss[wwb"]}b4EEy BP @ @ B'AtAG@$@#B"^}rB&@ !"#$%"_}&'()*+,-@./012345"`}6789:;<=>?@ABCDE"a}FGHIJKLMNOPQRST"b}UVWXYZ[\]^_`abcd"c}efghijklmnopqrs"d}tu B'6-?:C:,:,/ :-@7"!67,.>:,% :D$(23,23)=CHR$(N0)%"g}-@y"!67,.>:,% (-@5"!67,.>:,% ($ B:,! (A%6-?:C:,<<<@$"h},% @E>6-?:C:,<<<,-+%%%%%"4(None> A p(N (S (E "i}(W (U (D 96-?:C:,<<<,'6-?:C:,<<<,96-?:C:,<<<,'6-?:C:,<<<,'6-?"j}:C:,<<<,+ 6-6--+O:8,,A t> 6-% "6.7$&<$,(-, 26-:6-%>  "k} !-(*(-(Nothing96-?:C:,<<<,'6-?:C:,<<<,96-?:C:,<<<,'6-?:C:,<<<,'6"l}-?:C:,<<<,) 6--8,6 ) A 06.7$&<$,- &6-%,6-0 (-(Not"m}hingL 6-6-6-5AR-2'-+ 52 A`ARC6-?:C:,<<"n}<,'6-?:C:,<<<,96-?:C:,<<<,?-C(B:, A36-?:C:, ROOM DATAx]]67@<@f,.BRM DESCRIPTION N S E W U D R ITEM NEEDED <<67@g&},.)I/R POS TEXT NEG TEXT](@)67B:,%@,..RMSF@@P A0&}](@]@6-.6-@:7@,,@67@,.=:,L @]67@,. E67@,.&} 467@,.7@<@&,E67@),. K-@@+6-@:7@&%,,7!@0E6-&@0K6-&}F67@'%$@,.=:,+ @F67@(%$@,. j67@)%$@,. " 367@H,. W6&}7@I,.7%@<%@,j67@P,. M#67@S,.7@3<@E,567@f,. M67@h,.7@&},i67@i,. 667@r,.7@F<@p,I67@,. i67A,.7@q<@,'(@&}(@' APM@&67B:,&@,.ITMC@@M A9(@(@&}9(@*******> ITEM DATAqq6.gITEM CODE RM COMMAND ITEM NEEDED I/R GET POS TEXT &} NEG TEXT(@(@v@067@,.7@<@,C67@,. c67@&},.7@<@,v67@ ,. U6-@:7@,,6-'"@e:67@#,.ANYK67@&,. U A0&}"-"@g#67@#,.C - A,!@06-&@06>67@#,.=:,! @467@$,.&} > A0@67@%,. JU#67@',.7@<@2,567@B,. U67@D,.7@3<@E,TI6&}7@W,. 667@`,.7@<@,I67@a,. ^4!@0* @e*67@e,.N4 Aph6&}7@e,.Yrg67@f,. 667@i,.7@F<@p,G67@,. g67@,.7@q<@,|'(&}@(@' ApC@&67B:,&@,.COMC@@?(@(@?&}(@*******> SIMPLE COMMANDStZ6.PCOMMAND ITEM NEEDED I/R RM POS TEXT NEG TEX&}Tg(@t(@ A0 A  Aw@067@,.7@<@,C67@,.&} c67@,.7@<@(,w67@2,. #67@6,.7@<@,767@7,. P7@)<&}@),4c67@A,.ANYu67@D,.  AW!67@A,.=:@:7@),,,9@:7@),, @M67@B&},. W A67@C,. V#67@F,.7@0<@T,667@q,. V67@s,.7@U<@y&},867@,. 867A,.=:@:7@,,,'(@(@' A@$C@&67B&}:,&@,.FATC@@b(@(@>(@*******> FATAL COMMANDSK(@X(&}@b A0C@&67B:,&@,.FINC@@&b(@(@>(@&}*******> FINAL COMMANDSK(@X(@b A00..67B:,%@,. DES:C@&67&}B:,&@,.MOVC@@Dq(@(@A(@*******> MOVEMENT COMMANDSN(@&}[(@g6-@q A0NC@&67B:,&@,.CHGC@@XYY6.OCOMMAND &} ITEM 1 NEEDED ITEM 2 NEEDED CREATE ITEM RM R/I GETb2267@,. ITEM 1 DELETE ITEM 2 DELETEl..6.&}$POS TEXT NEG TEXTvn(@(@=(@*******> ITEM COMMANDSJ(@W(@&}d(@n A @'6.7@<@,:67@,. Z67@,.7@<@(,m67@2&},. 67@5,.7A"<A4,67@H,. 6#67@Q,.7@<@,667@d,. >6-@:7&}@),,!"467@g,.ANY> A=67@g,.=:,! @367@h,. = A67@i&},. t67@p,. .67@s,.7@,B67@t,. [7@<@,4 t67@<@,.Y&}67@x,.7@,.67@y,. N67@,.7@<A,a67@,. 67@,.7A <A!,&}(@q6.7@0<@T,-67@&,. M67@),.7@U<@y,Z(@g(@q A@&}g@&67B:,&@,.INTC@@P)@])@g APS(@(@&}:(@*******> INTRO TEXTG(@S6-@A@)67$@x&@w,.76-%@A A@&}6-@ ApE-(@7$@8&@7<$@8,;6-%@E A`D:WIZPRINT.BAS$}EiͩkΩ͙kCop j`j {j`Hi͝Νh`*}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`(-;A@9@, ** WIZARD MENU ** (}@//(' ^^^^^^^^^^^^^^.}^^^^^^^^^^^^^^^^^^^^^^^^(//(' < >2//(' < (1) Wizard Adventure Creator ><//(.}' < >F//(' < (2) Wizard Adventure Printer >P//(' < .} >Z//(' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^d(( CHOICEnx# )!@# @ .} "@ % D:WIZARD.BAS""@"%D:WIZPRINT.BASD:MENUEnx# )!@# @ ,U