ÌÍMÌ=á=FÌL¤SV¤C2¤B¤M¤S¤E¤A¤STMTAÂÐABÒSTARÔÅEÌØÌÁCHKSUÍCHËHÉLÏDÌLINÅOFÓN±N²N³N´NµN¶N·N¸N¹N1°N1±N1²N1³N1´N1µN1¶N1·N1¸N1¹N2°CC¤TR¤SS¤N¤C¤IT¤Q¤LÖL¨CM¤CNÔVCNÔF¤N°D¨RMS¤ROOÍÒDIR¤ÙFI¤ÉICNÔI¤SÉLCNÔSI¤LÈLÌT¤NA¤R¤VB¤NN¤SÔ@sssæèss[wwÒbb4EEy B2 @ @ B'AXBA4@@B™rB&@ !"#$%&'()*+,€-€.€/€0€1€2€34@5€678€9:@;€<=>€?@€ABC€DEF€GHI€J€K€L€M€NO ""****************************›""* THE WIZARD *›""* COMPILER MODULE *›(""* BY *›2""* CLAYTON WALNUM *›<""****************************›F +AP{6™-@6š-@'6›-@36œ-@?6-@K6ž-@W6Ÿ-@c6 -@o6¡-@ {6¢-@Z…6£-@6¤-@'6¥-@36¦-@?6§-@K6¨-@W6©-@c6ª-@o6«-@{6¬-@ … A0 d/ #A10-™@r"‘+6­7,.>:‘,/ n%-™@&"‘!6®7,.>:‘,% x%-™A"‘!6¯7,.>:‘,% ‚(-™@7"‘!6‡7,.>:‘,% ($Œ6‘-?:C:®,#6´-@:Ä7ª,,#´"@2AH A67,.IF IN$<>R (CREATING POS ACCESS LINE\6°.Ä7ª<@2, Apf<67B:,%™,. OR I(N,67B:,%™,.=:Â&Å,<67B:,%™,.)pÄ7©<©,4AA zB67B:,%™,. OR R<>N(6¾-@:Ä7©,,%œ4¾!@4B6¾-¾&@0„67B:,%™,.=:¾,Ž''Ä7@3<@6,4NONEA P˜$6±.Ä7@3<@E,$ AP¢bÄ7@–<@–,4I267B:,%™,. OR I(NC67B:,%™,.=:‘,X67B:,%™,.)<>-N1b A P¬B67B:,%™,. OR ABS(I(N.67B:,%™,.=:‘,B67B:,%™,.))<>R¶567B:,%™,. 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 ACCESS 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""****************************›~/™6Á7B:Á,&š,.COM%™œºÁ/ A3ˆ ™¶6´-@:¶7™,, A’(CREATING COMMAND LINEœ A@¦@:¶7@),,"ºA°967B:,%™,. AND R=N967B:,%™,.=:@:¶7@),,%œ,º'¶7¨<«,4NONE A€' A0Ä APÎ 67B:,%™,.:G.N950 (šØ22¶7@U<@U,4 )¶7¨<«,4NONEA`â#6´-@:¶7™,, A# A@ì@:¶7@),,"º A€ö967B:,%™,. AND R=N967B:,%™,.=:@:¶7@),,%œ,<67B:,%™,. THEN A$=26°.¶7@U<@y,< Ap *67B:,%™,.:G.N950 (š* A`!!***************************›!!* FATAL COMMAND LINES *›(!!***************************›2/6Á7B:Á,&š,.FAT™%™œºÁ/ A3P< ™¶¶4A# F(CREATING 'FATAL' LINEP6´-@:¶7™,, AZ A@d@:¶7@),,"ºAn867B:,%™,. AND R=867B:,%™,.=:@:¶7@),,%œ,x¶7¨<«,4NONEA‚ APŒ!67B:,%™,.:G.13000!(š–22¶7@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 *›æ **************************›ð/6Á7B:Á,&š,.MOV™%™œºÁ/ A3pú ™¶6´-@:¶7™,, A(CREATING MOVEMENT LINE A@@:¶7@),,"ºA€"967B:,%™,. AND R=N967B:,%™,.=:@:¶7@),,%œ,,'¶7¨<«,4NONE A€' A6 AP@X67B:,%™,.:R=N567B:,%™,.=:@:¶7@€,,%œ,Q67B:,%™,. :UL=N1:G.N950X(šJ22¶7@U<@U,4 )¶7¨<«,4NONEA0T6´-@:¶7™,, A^ A@h@:¶7@),,"ºA`r867B:,%™,. AND R=867B:,%™,.=:@:¶7@),,%œ,| A†*67B:,%™,.:G.N950 (š* A0 **************************›š * ITEM COMMANDS *›¤ **************************›®/6Á7B:Á,&š,.CHG™%™œºÁ/ A3¸ ™¶6´-@:¶7™,, AÂ""(CREATING ITEM COMMAND LINEÌ+67,. IF IN$<>!6°.¶7™<§,+ ApÖ¶7¨<«,4NONEApàZ67B:,%™,. OR I(N*6±.¶7¨<@(,4 APE67B:,%™,.=:‘,Z67B:,%™,.)<>-N1ê''¶7A"<A%,4NONEAô:67B:,%™,. OR I(N06±.¶7A"<A4,: APþ)67B:,%™,.=:‘,)67B:,%™,.)<>-N1''¶7@<@„,4NONEA0: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:,%™,.)=P¶7@•<@•,4N*¶7@”<@”,4Rb67B:,%™,.-R:l A l6¶7@”<@”,4R,67B:,%™,.R6 A v67B:,%™,.-N1:€''¶7@–<@™,4NONEA€Š$6±.¶7@–<A,$ AP”:67B:,%™,.I(N&67B:,%™,.=:‘,:67B:,%™,.)=N0:ž''¶7A <A,4NONEA€¨667B:,%™,.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™<§,* ApøC67B:,%™,. AND 3¶7A"<A%,0NONEC67B:,%™,.(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/6Á7B:Á,&š,.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'(@¬22¶7@U<@U,4 )¶7¨<«,4NONEA!@¶6´-@:¶7™,, AÀ A@Ê@:¶7@),,"ºA"pÔ867B:,%™,. AND R=867B:,%™,.=:@:¶7@),,%œ,Þ Aè*67B:,%™,.:G.N950 (š* A!@ò!!***************************›ü!!* CREATE SEARCH STRINGS *› !!***************************› (CREATING VERB TABLE LINE 56Á7B:Á,&š,.FAT6±."6·-™(6¸-š56².HFUESP$ 767™,.10210 %67Ÿ,.VB$(N1)=.67§,.³767¨,.². -™™œºÁ A#€#6Æ-º-(FATAL8  A‘A#`B  A  A#`L ;6Á7B:Á,&š,.COM™%™œºÁ/ A$;(COMMANDV  A‘A#`  A  A#j 86Á7B:Á,&š,.ITM™%™œºÁ/ A$P8(ITEMt ( ™Ä(Ä7ª<@!,4NONEA$ ~ .6°.Ä7ª<¬, A€" A.‘A$ ˆ  A  A$ ’ 86Á7B:Á,&š,.MOV™%™œºÁ/ A$€8(MOVEœ  A‘A$`¦  A  A$`° :6Á7B:Á,&š,.FIN™%™œºÁ/ A%:(FINAL º  A‘A$Ä  A  A$Î :6Á7B:Á,&š,.CHG™%™œºÁ/ A%@:(CHANGEØ  A‘A$â  A  A% ì 067B:,%™,.±67B:,%™,.³&(š0 A%€ö &67B:,%™,.±67B:,%™,.³&(š . 6Æ-Æ%™67™,.=:B%Æ,.67ž,. VB$( F67£,.=:Æ$@„,(67B:,%™,.)=667B:,%™,.³<6·-™C6±.F$ S6Á7B:Á,&š,.ITM™1™@ÁE67™,. 10200 IT$=S67B:,%™,.³ (CREATING ITEM TABLE LINE( ' Â-™Ã™Ä6°.Ä7¦<¨,' A€2 ,Ä7©<©,46Ç7B:Ç,%™,.°" Â, 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' 6Á7B:Á,&š,.INT$™/™œºÁ6)™È=)™ÉM6-È$@x%ÉR™  F67™,. 10060 NN="67¢,.=:Ã,567B:,%™,.:NV=F67B:,%™,.=:¸,ª 367B:,%™,.:SI='67B:,%™,.=:Å,-"º36-™´ -67B:,%™,.:L=&67B:,%™,.=:,-(š¾ %6Á7B:Á,&š,.NAM™%™œºÁÈ  ™°™Ê™Ò !67™,. 12200 DATA !67¤,.°Ü D-™B:Ê,&Ê7<,1A*Ê7<,/ZD6Ê7<,.>:@:Ê7<,,%@2,æ  ð (67B:,%™,.,!67B:,%™,.Ê((šú ] 67™,.9060 OPEN#N1,N4,N0,)67¬,.³;67@!,.D:J67@#,.Ë]67B:,%™,..DAT !!***************************› !!* INTRO *› !!***************************›" H A)6Á7B:Á,&š,.INT*™œºÁ1)™È8)™ÉH6-È$@x%É, : -™È%™™°(67™,.=:B)%,:67ž,. INTRO$(6 >67¦,.=:$@x&@w,067B:,%™,.)=>67B:,%™,.³@ ..IF X=LH+N1 THEN GOSUB 200:N$=N$(N1,A+N1)›J *67B:,%™,.°67B:,%™,.³&(š* T š^ **************************›h * CREATE PROGRAM *›r **************************›| J+ºAº((J(LOAD >:@4,D:WIZFRAME.BAS>:@4,† >6Á7B:Á,&š,.LNS((>(ENTER >:@4,Á>:@4, a6Á7B:Á,&š,.BAS((=(SAVE >:@4,Á>:@4,@(C(S( POKE 842,12V(Y(a(RUNš  -ººAB@¤ &® **************************›¸ * INITIALIZE *›Â **************************›Ì ee¹;§,Á;§,Ì;š,»9ž,¼;@–,;A ,¿;ž,±;@,³;™,Ä;@–,²;AP,µ9@&,Ö ff¶;A4,°;@x,Ê;ª,®;@&,Í;£,Î;¤,­;@r,¯;A,Ç;AP,Ë; ,‡;@7,à ( 6¹.D:6¿.NSEWUD(6³.>:@4,ê E™œºD:FILENAME.DAT$™Ë)™26¹7›,.ËE6¹7B:¹,%™,..LNSô ™ º¹™š¡º¹þ *-™@&6µ8,-º $6Ã-º*6Å-º & 6Á.¹6Á7B:Á,&š,.ITM&™œºÁ * A1 -™@P"™Ä*6Ã-Ã%™ 9Ä7©<©,4#6Ç7B:Ç,%™,.Ä7™<¥,+6Å-Å%™/ 9 A1 & %!6²7+&Å,$¥&¤<+&Å,$¥,.Ä7™<¥,% 0 :' ™6²7B:²,%™,.Ç 6Ç.&6Å-º0 A: A0: ee104,104,133,204,104,133,203,104,133,206,104,133,205,104,104,133,207,162,0,142,255,6,134,213,232›D ]]160,0,177,203,209,205,208,8,200,192,3,208,245,134,212,96,173,255,6,24,105,3,197,207,240›N TT16,141,255,6,165,205,24,105,3,133,205,144,217,230,206,176,213,169,0,133,212,96›X 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,96›b aa104,104,133,204,104,133,203,104,133,206,104,133,205,104,141,1,6,104,141,0,6,104,104,133,207›l [[162,0,142,2,6,142,3,6,134,213,232,160,0,177,203,209,205,208,8,200,196,207,208,245,134›v OO212,96,173,2,6,24,101,207,141,2,6,144,3,238,3,6,173,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›Š QQ216,104,104,133,204,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,242›ž "F:A•,"A6" A€¨ FC(ERROR F:A•, AT LINE F:A†,%F:A‡,$AVF² "F:A•,"A6" AP¼ A2@Æ K+ºAºAR™/2º@u¤ =-™@PA K2ººººÐ ? -ž !(TROUBLE WITH ITEMS!'-ž¢?(NO ³±³ FOUND!Ú  -ž¤( PRESS ANY KEYä %™™œºK:)™‘"™%î F:A•,"A6A0ø A2@ F:A•,"A6A#  A2@ F:A•,"A6A  A2@* F:A•,"A6A4 A2@> F:A•,"A6A!0H A2@€ D:WIZCOMP.BAS