' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `AA`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-#(#6 @A͠٠ˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` i d ֠Az# Au`Az#?     ȠҠŠԠ ҠįŠ٠͠٠ˠήӠήàҠҠҠɠRECTORY !!!": |:10005 1:" 80N":0,63998:0"X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DI85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 68(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:     AIN HAS BEEN ENTERED AND SAVED."Q$5"DELETE EDIT"F(4)"CLOSE":"TYPE 'EXEC EDIT' TO INSTALL":"THE BASIC PROGRAM.":G$::80"NEW""LOADEDIT.MAIN""400DATA"X,"120DIMA("X"),NA$("X"),OO("X"),T("X",30),S("X",30),BY("X",30),FOO(L)=2THENPOKEA+BY(L,N),VAL(C$(L))"Gv"370POKERW,W:CALLP:NEXT:NEXT""380VTAB23:?"Q$"DONE."Q$":?"Q$"PRESS ANY KEY"Q$":GETG$:?:RUN""390?"Q$"YOU GOOFED!!"Q$":?:CALL-198:?"Q$"ERROR #"Q$"PEEK(222):END""SAVE EDIT.MAIN"""HOME:?"Q$"EDIT.M":?"Q$"YOUR COMPUTER COULD EXPLODE."Q$::"310FORL=1TOX"QD"320FORN=1TON(L)"N"330POKERW,R:POKETR,T(L,N):POKESE,S(L,N):CALLP"X"340IFC$(L)="Q$"ON "Q$"THENPOKEA+BY(L,N),TU(L,N)"b"350IFC$(L)="Q$"OFF"Q$"THENPOKEA+BY(L,N),FR(L,N)"$l"360IF$":GOTO291"x"290?"Q$"ENTER NEW "Q$"O$(C)"Q$":"Q$":INPUTC$(C):VTABC+3:?"Q$" "Q$":POKE34,X+6:HOME:POKE34,0:GOTO291"&"291INVERSE:VTABC+3:?C$(C):NORMAL:VTABX+6:GOTO240"&0"300?"Q$"DO "Q$";:INVERSE:?"Q$"NOT"Q$";:NORMAL:?"Q$" REMOVE THE DISK OR"Q$#"240INPUT"Q$"CHOICE: "Q$";C$"u"250C=VAL(C$):IFNOT(C$="Q$"S"Q$"OR(C>0ANDC<=X))THENCALL-198:VTABX+6:GOTO240""260IFC$="Q$"S"Q$"THEN300""270IFC$(C)="Q$"OFF"Q$"THENC$(C)="Q$"ON "Q$":GOTO291" "280IFC$(C)="Q$"ON "Q$"THENC$(C)="Q$"OFF"Q)=1THENC$(L)="Q$"ON "Q$":GOTO210"G"200C$(L)=STR$(PEEK(A+BY(L,N)))"["210NEXT:NEXT""220HOME:?"Q$"OPTIONS:"Q$":HTAB5:?"Q$"PRESS 1-"Q$"X"Q$" OR 'S' TO SAVE.""230?:FORL=1TOX:VTABL+3:INVERSE:?C$(L);:NORMAL:HTAB5:?L"Q$") "Q$";O$(L):NEXT:?:?"1TOX:FORN=1TON(L)""170READT(L,N):READS(L,N):READBY(L,N):READFR(L,N):READTU(L,N):READOO(L):POKERW,R:POKETR,T(L,N):POKESE,S(L,N):CALLP""180IFPEEK(A+BY(L,N))=FR(L,N)ANDOO(L)=1THENC$(L)="Q$"OFF"Q$":GOTO210"!"190IFPEEK(A+BY(L,N))=TU(L,N)ANDOO(LEW"h"90ONERRGOTO390"Vr"100IFPEEK(768)<>169THEN?CHR$(4)"Q$"BLOADDOS UTILITY"Q$|"110HOME:TR=784:SE=789:RW=794:R=1:W=2:POKE799,0:POKE804,32:A=8192:P=768:POKE774,96:POKE779,1""130READX:FORL=1TOX:READO$(L),N(L)""140NEXT""160FORL=D$:H$TU$(L,E):840:TU$(L,E)D$G:".";:CL(16336):CL(16336):r" --DOS UTILITY NEEDED (#54, P.9)--,:"WHAT WILL YOU CALL THIS EDITOR":NA$:6(4)"MONICO"@(4)"OPEN"NA$:(4)"WRITE"NA$JQ$(34)TNA$"EDIT"710^"N) A NUMBER VALUE ?";:OO$:OO$:OO(L)(OO$):OO(L)1OO(L)2Č198:240M :13:1:"WORKING ON HEX CONVERSIONS";:L1X:E1A(L)H$TR$(L,E):840:TR$(L,E)D$:H$SE$(L,E):840:SE$(L,E)D$:H$BY$(L,E):840:BY$(L,E)D$:H$FR$(L,E):840:FR$(L,E)1):210 FR$(L,E)X$[ "TO:(";TU$(L,E1)")";:8:890:X$""TU$(L,E)TU$(L,E1):230k TU$(L,E)X$ ::"WHAT WILL YOU CALL THIS ASPECT?":"(SUCH AS: TOGGLE UNLIMITED BULLETS)":"ANSWER: ";NA$(L)G :"IS THIS ASPECT (1) ON OR OFF,":"OR (2150 TR$(L,E)X$\ "SECTOR:(";SE$(L,E1)")";:12:890:X$""SE$(L,E)SE$(L,E1):170l SE$(L,E)X$ "BYTE:(";BY$(L,E1)")";:10:890:X$""BY$(L,E)BY$(L,E1):190 BY$(L,E)X$ "FROM:(";FR$(L,E1)")";:10:890:X$""FR$(L,E)FR$(L,E,FR$(X,30),TU$(X,30)! nL1X:w x4:"HOW MANY SECTOR-EDITS ARE NECESSARY FOR ASPECT #"L;:A(L):A(L)0Č198:120 E1A(L):"PRESS RETURN ALONE FOR DEFAULT VALUES."::"EDIT #"E":"::"TRACK:(";TR$(L,E1)")";:11:890:X$""TR$(L,E)TR$(L,E1)::4:50 FNA$"EDIT":310t P:"ENTER ALL TRACK, SECTOR, BYTES, AND BYTECHANGES AS ONE OR TWO-BYTE HEX NUMBERS." Z8:"HOW MANY ASPECTS OF THE GAME WILL YOU BECHANGING";:X$:X(X$):X0Č198:90 dA(X),NA$(X),OO(X),TR$(X,30),SE$(X,30),BY$(X,30)R e::A$"EDITOR CREATOR II":(40(A$))2:L1(A$):(A$,L,1);:X(16336):X(16336):2:1:L120:"- ";:X(16336)::34,3:(2"DO YOU NEED TO CREATE THE PROGRAM, EDIT.MAIN ?";:OO$:OO$:OO$"N"80 <OO$"Y"Č198      P116>fH2$(HE$,P,1):H1$H2$DEDE((P1)MP):D$(DE):DpQz"";X$:(L,E)","BY$(L,E)","FR$(L,E)","TU$(L,E)","OO(L)8E:LC "RUN"T*(4)"CLOSE"h4(4)"NOMONICO">:23:"DONE.":"PRESS ANY KEY":G$::H(H$)2H$"0"H$RDE0:HE$"0123456789ABCDEF":H1$(H$,1):MP16:860:H1$(H$,1):MP1:860:\R("X",30),TU("X",30),O$("L"),N("L"),C$("L")""150TEXT:HOME:?"Q$"INSERT '"NA$"' AT DRIVE 1"Q$":?"Q$"AND PRESS A KEY."Q$":GETG$:?"LN410:L1X:LN"DATA";:NA$(L)","A(L):LNLN10::LN1010. L1X:E1A(L):LNLN10:LN"DATA"TR$(L,E)","SE$:"COPY DONE":1 '(4)"BLOAD RWTS.MECC,A$1900"2 MECC%TK3:ST0:LT35:CDWR?T1TK:490:360:550b430:100:STST1:STDOS1030oBF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070BTKLT1020 L nd DEFINE will run"@ U"(then run MAPPER), any other key will"i Z"exit to Applesoft Basic... ";:ME$} _ME$(13)ī105 d: i:(4);"RUN DEFINE" D in all three": <"programs. By listing these lines and"f A"changing the codes to those for your" D"printer, you can use these characters" F"it makes a very neat and readable map" K"If you have an FX or JX-80 printer,' P"press RETURN ability in adapting"? #"it to other games. The first program"l ("DEFINE, loads user defined characters" -"into the printer RAM. It is fully" 2"Compatible with EPSON FX and JX-80" 7"printers. All of the variables are" :"in lines 100-1997D$(13)(4):D$;"OPEN TEXT1":D$;"DELETE TEXT1"K HELLO PROGRAMb (4);"MAXFILES 1":2:10::"WRATH MAPPER NOTES":5:"WrathMapper is composed of three sep-""arate programs. I wrote it this way to" "provide more flexi   TER C.0,0,62,0,6,0,6,0,62,0,0:LOWER FURNW 0,0,63,0,33,0,33,0,30,0,0:LETTER D!0,0,127,0,28,0,28,0,127,0,0:MIDDLE FURN"0,0,63,0,37,0,37,0,33,0,0:LETTER E#0,0,63,0,48,0,48,0,63,0,0:UPPER FURN$0,0,63,0,40,0,40,0,32,0,0:LETTER+0,0,62,0,62,0,34,0,34,0,34:LEFT FURNV0,0,15,16,36,0,36,16,15,0,0:LETTER A34,0,34,0,62,0,62,0,34,0,34:MIDDLE FURN0,0,33,30,33,8,33,8,33,22,0:LETTER B34,0,34,0,34,0,62,0,62,0,0:RIGHT FURN0,0,30,0,33,0,33,0,33,18,0:LETAIRPLANE20,56,6,33,22,41,22,33,6,56,0:SHIELDX6,0,62,0,96,0,3,0,31,0,48:MUSIC65,0,34,28,0,28,0,28,34,0,65:PIT/HOLE0,0,0,0,0,0,0,0,0,0,0:TITLE SPACE0,20,0,20,0,127,0,20,0,20,0:FEATURE?0,0,0,0,24,32,0,0,0,0,0:APOSTROPHE DOOR5 0,30,32,2,32,2,32,2,32,30,0:UNLOCKED DOOR_127,0,73,0,73,54,73,0,73,0,127:WALL0,28,34,28,34,0,34,28,34,28,0:PEDESTAL88,32,16,8,86,41,86,9,16,33,90:DRAGON6,9,22,9,22,9,22,9,22,1,38:TANK56,0,24,0,30,0,28,0,24,0,8:~0,0,18,0,18,36,0,18,0,18,0:SHALLOW WATERY0,36,18,0,18,36,0,36,18,0,0:WAVY LIGHT 10,0,4,0,4,10,4,10,0,4,0:FISH#1 85,0,85,0,42,0,42,0,85,0,85:ROCK 0,0,12,18,12,18,12,18,12,0,0:LARGE BALL 0,30,32,10,32,10,32,10,32,30,0:LOCKED,48,0,17,14,49,78,1,16,32,0:DEAD TREEU0,62,0,62,0,62,0,14,64,46,64:STAIRS DOWN0,2,48,10,32,95,32,10,36,0,0:TREASURE0,0,16,32,7,32,4,32,24,0,0:QUESTION0,0,0,8,20,8,20,8,0,0,0:SMALL BALL0,8,0,8,16,0,8,0,8,0,0:DEEP WATER,2,112,2,48,14,16:TOWN;0,0,0,16,0,63,0,16,40,16,0:AXEc6,8,16,0,38,8,38,0,16,8,6:DUNGEON1,0,6,0,6,0,8,0,16,0,32:SWORD0,0,127,0,42,0,42,0,127,0,0:LADDER0,0,0,4,0,62,0,4,0,0,0:DAGGER0,0,127,0,56,0,24,0,8,0,0:SIGN&034,0,8,22,8,0,34,0,0:BRUSHG0,48,72,1,78,1,78,1,72,48,0:LIVE TREEp0,0,54,0,0,0,0,0,54,0,0:BRICK PATH4,8,20,40,20,40,20,40,16,32,0:TRAP0,48,2,28,2,124,2,28,2,48,0:CASTLE0,0,50,12,2,12,2,12,50,0,0:OUTPOST16,14,48,2,112,000(25);(9)!5D$;"PR#0"+:::JCHARACTER DEFINITION DATAz0,0,18,4,56,68,56,4,18,0,0:DIMENSION DOOR0,30,33,2,53,0,53,2,33,30,0:SAD FACE0,0,34,0,0,8,0,0,34,0,0:GRASS0,30,33,4,51,0,51,4,33,30,0:HAPPY FACE0,0,100:VARIABLES$ 200:ONE MOMENT3 D$;"PR#1"a (9);(25):CHANGE GRAPPLER CONTROL CODEq (25);"0N" P2$:DOWNLOAD ROM TO RAM 300:DEFINE CHARACTERS !D$;"PR#0" &:5:8)"PRINT~CHARACTERS?~(Y/N)~";:ME$+ME$"Y"ME$"y"İ4#1"% LN80ĺPA$:CANCEL CONDENSED5 (25);"0N"M P4$;:ACTIVATE RAMW CH32f LC50:455u LC45:455 P3$:ACTIVATE ROM P9$:FORM FEED  X11LC (CH); CHCH1 X1 (13)  MAIN DRIVER   PA$(18):CANCEL CONDENSED MODE) 9 ONE MOMENT] :10:9)"One~Moment~Please.."c z ,DEFINE CHARACTERS 1P5$; 6X1195 ;(10); @X2111 ECH:(CH); JX2 OX1 T Y PRINT DEFINED CHARACTERS D$;"PR ROM CHARS: }P4$(27)"%"(1)(0):ACTIVATE RAM CHARSs P5$(27)"&"(0)(32)(126):DEFINE CHARS 32-126 P6$(15):CONDENSED MODE P7$(27)"1":7 DOT LINE SPACING P8$(27)"2":NORMAL 12 DOT LINE SPACING P9$(12):FORM FEED#~";(222)$ FER(218)((219)256)E K:10)"on~Line~Number:~";ERK Pe dVARIABLE ASSIGNMENTSw iD$(13)(4) nP1$(9)"0N":SET MAXIMUM LINE LENGTH sP2$(27)":"(0)(0)(0):COPY ROM CHARS TO RAM xP3$(27)"%"(0)(0):ACTIVATE * DEFINE3* CHARACTER DEFINITION UTILITYV* BY PERRY L. HOLMAN NOV/1988]*f(50-:(4);"MAXFILES~1"0500:MAIN DRIVER2ERROR HANDLER7(4);"PR#0"<:5:10)"An~Error~had~Occurred!" A:10)"The~Error~Code~Was:          37,2,21,2,61,2,20: BOATAT 28,34,69,0,73,50,69,0,73,34,28: BASKETBALLb J 0,0,32,16,8,7,8,16,32,0,0: LETTER Y K 6,8,7,8,4,8,20,11,52,0,16: HORSE L 0,0,33,2,37,0,41,16,33,0,0: LETTER Z M 0,4,0,9,34,92,34,9,0,4,0: MAN!N 36,2,125,2,NE TREE6D 0,56,4,2,0,1,0,2,4,56,0: LETTER VgE 0,0,1,8,18,8,36,8,64,0,0: LIGHTNINGF 0,63,0,2,4,8,4,2,0,63,0: LETTER WG 32,78,32,14,0,62,0,62,0,62,0: STAIRS UPH 0,0,33,18,4,8,4,18,33,0,0: LETTER X1 I ,38,0,0: LETTER SD? 0,0,0,127,0,42,0,127,0,0,0: LADDER#2v@ 0,0,32,0,32,31,32,0,32,0,0: LETTER TA 0,0,29,0,127,0,127,0,29,0,0: STATUEB 0,0,62,1,0,1,0,1,62,0,0: LETTER UC 0,4,8,20,43,84,43,20,8,4,0: PI73,34,28:BASKETBALL=J0,0,32,16,8,7,8,16,32,0,0:LETTER YcK6,8,7,8,4,8,20,11,52,0,16:HORSEL0,0,33,2,37,0,41,16,33,0,0:LETTER ZM0,4,0,9,34,92,34,9,0,4,0:MANN36,2,125,2,37,2,21,2,61,2,20:BOATTORNADO> 0,17,40,1,40,1,40,1,43,20,8,4,0:PINE TREE>D0,56,4,2,0,1,0,2,4,56,0:LETTER VgE0,0,1,8,18,8,36,8,64,0,0:LIGHTNINGF0,63,0,2,4,8,4,2,0,63,0:LETTER WG32,78,32,14,0,62,0,62,0,62,0:STAIRS UPH0,0,33,18,4,8,4,18,33,0,0:LETTER XI28,34,69,0,73,50,69,0,6,50,76,50,73,48,64,0:TORNADOH>0,17,40,1,40,1,40,1,38,0,0:LETTER Sr?0,0,0,127,0,42,0,127,0,0,0:LADDER#2@0,0,32,0,32,31,32,0,32,0,0:LETTER TA0,0,29,0,127,0,127,0,29,0,0:STATUEB0,0,62,1,0,1,0,1,62,0,0:LETTER UC0,4,8,20,43,84,18,4,42,84,42,4,18,44,16:ROYALTYK80,0,63,0,36,0,36,24,0,0,0:LETTER Pu90,24,0,24,39,88,39,24,0,24,0:CHURCH:0,0,30,33,0,37,2,33,30,1,0:LETTER Q;0,0,127,0,64,32,0,44,16,12,0:MACE<0,63,0,32,4,32,6,33,24,1,0:LETTER R=0,64,32,70,0,0,0,65,0,127,0,73,0,127:RIGHT WALLR20,63,0,16,8,4,8,16,0,63,0:LETTER M~3127,0,73,0,127,0,65,0,0,0,0:LEFT WALL40,0,63,0,16,8,4,2,0,63,0:LETTER N50,0,4,48,68,11,68,48,4,0,0:ANKH60,0,30,0,33,0,33,0,30,0,0:LETTER O"716,44+0,0,0,127,0,28,0,127,0,0,0:VERT FENCES,0,0,7,32,1,32,1,62,0,32,0:LETTER J-124,0,72,0,72,48,72,0,72,0,124:UPPER WALL.0,63,0,12,18,0,18,33,0,0,0:LETTER K/31,0,9,0,9,6,9,0,9,0,31:LOWER WALL00,0,63,0,1,0,1,0,1,0,0:LETTER L)1 F,%112,8,38,9,52,9,52,9,38,8,112:DEMONW&0,30,33,0,33,4,33,4,33,22,0:LETTER G'0,0,99,0,93,34,93,0,99,0,0:COLUMN(0,63,0,8,0,8,0,8,0,63,0:LETTER H)20,0,20,0,28,0,28,0,20,0,20:HORIZ FENCE*0,0,33,0,33,30,33,0,33,0,0:LETTER I*6: 70-7F ,126,126: 70-7F ,107,108,109,110,111:60-6Fg112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,126:70-7F, 50-5F  96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111: 60-6F  112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,124,64,64,65,65,65,65,65,65,65,65:20-2F[66,66,66,66,66,66,66,66,85,85,58,59,60,61,62,6368,68,68,68,68,69,70,71,72,73,74,75,76,77,78,79:40-4F80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95:50-5F 96,97,98,99,100,101,102,103,104,105,106TME1ī1035730  3 400:780:500<550E800N900Y(18)hD$;"PR#0"r$100032,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47:00-0F48,49,50,51,52,53,54,55,56,57,67,67,67,67,67,67:10-1F&64,64,64,64,64,6ART8192X11ROW#X21LN:CR(START(X21))JCHARCA(CR)X(CHAR);`X2uSTART(STARTLN)(13);X1MAIN DRIVER100:VARIABLES600:MAIN MENUME0ME3Ĺ49168,0:1000ME3ī700:QUIMUM MESSAGE LENGTH/X11ML24CR(STARTML)W>CR252CR160:CONVERT TO SPACEcC(CR);uHSTARTSTART1}MX1R(13)W\PRINT MAP"Map~Name:~";MAP$;"~~~Rows:~";ROW;"~~~Lines:~";LN:200:ACTIVATE RAM CHARSST30 :PRINT CHARTO:9:3)"Insert~Program~Disk~(Drive~1)~";:ME$UiD$;"RUN~CHART"x PRINTING!:7:15::"PRINTING!":11:10)"Press~CTRL~C~to~Halt" PRINT MESSAGE%250:ACTIVATE ROM CHARS*ML76:MAXI:5:15::"MAIN~MENU":5b8:12)"1~=~Print~Maps"Rg:12)"2~=~Print~Chart"ol:12)"3~=~Quit~Mapper"q15:10)"Your~Choice~(1-3)?~";:ME$vME(ME$){QUITP8$:P3$:P9$(18):COMPRESSED OFFD$;"PR#0"ME2ī7RINTER SETUP D$;"PR#1"? P1$:SET UNLIMITED LINE LENGTHO LN80ī530X 540q P6$:CONDENSED MODE P7$;:SET LINE SPACING TO 7 DOT ! &LOAD CHARACTER ARRAY +CA(128) 0X10127 5CA(X1) :X1 ? XMAIN MENU]RS 350:GET MAP NAME( START81924 NDB186H ADD(STARTNDB)y :9:3)"Insert~Map~Disk~(Drive~1):~";:ME$ D$;"BLOAD~"MAP$",A";ADD 300:GET FILE LENGTH FL(FLNDB):ALLOW FOR NON DATA BYTES ROW(FL) LNROW  PPA$(18):CANCEL CONDENSED MODE( : ACTIVATE RAMD P4$;J \ ACTIVATE ROMf P3$;l  ,GET FILE LENGTH 1FL(43616)((43617)256) 6 T ^GET MAP NAME c:9:7:"Map~Name?:~";MAP$ h CALCULATE MAP PARAMETEROM CHARS9 }P4$(27)"%"(1)(0):ACTIVATE RAM CHARSr P5$(27)"&"(0)(32)(126):DEFINE CHARS 32-126 P6$(15):CONDENSED MODE P7$(27)"1":7 DOT LINE SPACING P8$(27)"2":NORMAL 12 DOT LINE SPACING P9$(12):FORM FEED" ";(222)# FER(218)((219)256)D K:10)"on~Line~Number:~";ERJ Pd dVARIABLE ASSIGNMENTSv iD$(13)(4) nP1$(9)"0N":SET MAXIMUM LINE LENGTH sP2$(27)":"(0)(0)(0):COPY ROM CHARS TO RAM xP3$(27)"%"(0)(0):ACTIVATE h  * WRATH MAPPER1* MAP PRINTING UTILITYT* BY PERRY L. HOLMAN NOV/1988[*d(50}-:(4);"MAXFILES~1"11000:MAIN DRIVER2ERROR HANDLER7(4);"PR#0"<:5:10)"An~Error~had~Occurred!" A:10)"The~Error~Code~Was:~     5,77,79,81,83,85,87,89F91,93,95,97,99,101,103,105,107,109,111,113g115,117,119,121,123,125,126x85,87,89 91,93,95,97,99,101,103,105,107,109,111,113 115,117,119,121,123,125,126 DK,H-FENCEQV-FENCE,UP-WALL,LOW-WALL,R-WALL,L-WALL,UNK,UNK,UNK,UNK,UNK,UNK,UNKrUNK,UNK,UNK,UNK,UNK,UNK,UNK32,33,34,35,36,37,38,39,40,41,42,43 44,45,46,47,48,49,50,51,52,53,54,5556,57,58,59,60,61,62,63,64,65,66,6768,69,71,73,7ICK,TRAP,CASTLE,OUTPOST,TOWN,UNKm DUNGEON,UNK,LADDER,UNK,SIGN,DEADTREE,UNK,UNK,UNK,UNK,DEEPWATER,SHALLOWS WAVYLIGHT,UNK,ROCK,UNK,DOOR(LOCKED),DOOR,WALL,PEDESTAL,UNK,UNK,UNK,UNK UNK,PIT/HOLE,UNK,L-OBJ,MIDOBJ,R-OBJ,LOW-OBJ,MID-OBJ,UP-OBJ,UNK,UNYM$(D) @CR(D) EX167* JSYM$(X)1 OX= TX167H YCR(X)O ^X^ cD$;"PR#1"g hP1$o mX1{ rX118 wLE8:205:FIRST 8 LINES |X1 LE3:205:LAST LINE P3$ D$;"PR#0"  DIMDOOR,UNK,GRASS,UNK,BRUSH,TREE,BRNORMAL 12 DOT LINE SPACING3 P9$(12):FORM FEED9 J PRINT LINESW X21LEa P3$;s SYM$(X);":";} P4$; (CR(X)); (70); XX1 X2 (13) ,MAIN DRIVER 1100:VARIABLES 6D67:EASY TO CHANGE ;SOM CHARS TO RAM? xP3$(27)"%"(0)(0):ACTIVATE ROM CHARSo }P4$(27)"%"(1)(0):ACTIVATE RAM CHARS P5$(27)"&"(0)(32)(126):DEFINE CHARS 32-126 P6$(15):CONDENSED MODE P7$(27)"1":7 DOT LINE SPACING P8$(27)"2":~Error~had~Occurred!"> A:10)"The~Error~Code~Was:~";(222)Y FER(218)((219)256)z K:10)"on~Line~Number:~";ER P dVARIABLE ASSIGNMENTS iD$(13)(4) nP1$(9)"0N":SET MAXIMUM LINE LENGTH sP2$(27)":"(0)(0)(0):COPY Rh7D$(13)(4):D$;"OPEN~TEXT1":D$;"DELETE~TEXT1"D * CHARTh* CHARACTER DEFINITION UTILITY* BY PERRY L. HOLMAN NOV/1988*(50-:(4);"MAXFILES~1"1300:MAIN DRIVER2ERROR HANDLER7(4);"PR#0" <:5:10)"An      47444,41:47445,0:47498,0:360b 47444,74:47445,201:47446,106:47447,208:47448,239:360 47497,24:47498,96:47397,24:47398,96:360 47506,234:47507,234:360 929,24:360 47447,00:360 47397,24:47398,96:360  CHECKSUM BYTES"B ^19:"I. DOS CHANGES SELECTED - START COPYING"p h22:"SELECT LETTER & HIT RETURN":" ";Z$ rZ$""360 |Z$"A"460 Z$"B"470 Z$"C"480 Z$"D"490 Z$"E"500 Z$"F"510 Z$"G"520 Z$"I"80#DER & CHECKSUMS"> "12:"B. ALLOW D4/D5 IN ADDRESS PROLOGUE"l ,13:"C. IGNORE ADD & DATA EPILOG ERRORS" 614:"D. IGNORE 1ST EPILOGUE BYTE" @15:"E. CONTINUE READING ON ERRORS" J16:"F. IGNORE 1ST BYTE OF PROLOGUE" T17:"G. IGNORE DATA "& 2:"MODIFIED BY SCOTT M. SIMON"B 3:"DECEMBER 19, 1988"a 6::"CHANGES FOR RWTS": 7:"DOS ERROR CHECKING IS SET TO OFF" 8:"MAKE NO MORE THAN 3 CHANGES TO RWTS" 9:"PRESS LETTER TO CHANGE DOS RWTS" 11:"A. IGNORE ADD HEA/ 7:24:" ":(713)1290:7 SPACESO 10:24::"INITIALIZING":v 10:24:" ":12 SPACES 10:24::"WRITING";::" ":3 SPACES 10:24:" ":7 SPACES ::672: 47426,24 1:"SUPER COPYA 1.1 ** SUPER COPYA.* VERSION 1.1G(* BY SCOTT M. SIMON`2* DECEMBER 19, 1988g<*sFGOT0490P::::Z::::::d"-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$n:2:5:"SUPER COPYA 1.1" x7:24::"READING":     BTKLT1020L:"COPY DONE":'(6400)162ĺ(4)"BLOAD RWTS.DREAD,A$1900"TDREADNOUGHTS CONTROLLERTK3:ST0:LT35:CDWRT1TK:490:360:550430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1030)$490:TKT1:ST0:360L.430:100:STST1:STDOS1070n8ST0:TKTK1:BF0TKLT1070~ 61030 8BF10601 BST0:TKTK01:TKLT1030J L230:TKT1:ST0:490m V430:100:STST01:ST161070 `ST0:TKTK01:BF0TKLT1070 jTKLT1020 t:A$"ALL DONE":450: 213,170,255,213,170,254,222,170,222,170,MECC CONTROLLER CONTROLLER - 12/01/88STK0:LT1:ST15:LS15:CDWR:FAST1a490:610490:610:(TRK)LT1050TK(TRK):ST(SCT):1020TK1:LT9:CDWR:MB151:550$ST0:T1TK:490::190:210:170 .430:100:STST01:ST1 HMƨԍAS]@%q&WZ`SREASWRITLeL]Ljfjrs j```3 "NEED ANOTHER COPY? (Y/N)":C$:C$"Y"ī60a "COPY DONE, COPY NEW DOS TO COPY DISK": ZB015 dC2163B162* nDC1K x(4)"SREAD T35, S";B;",A";C[ D:D,17:B "INSERT COPY IN DISK DRIVE AND PRESS ANY KEY":16384,128:B$ 21(B$)2:B$ B015 C2163B162 DC1 (4)"SWRITE T17,S";B;",A";C b  B = SECTOR NUMBER(0-15)F C=MEMORY LOCATION($2000-$2F00)c(4)"BRUN SREAD/SWRITE"~(A$"READING TRACK #35"2B$"WRITING TRACK #17"<"INSERT ORIGINAL DISK AND PRESS ANY KEY":16384,128:A$F21(A$)2:A$ P(4)"MON C,I,O"