@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} |||DDOS DOSDOS SYS }}}(UU&}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 144ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4 uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4 uV-.ININFLACBITC3C10CC3C6CLC4CBYTCFLACELC1PFLACC1COLBACCONSOCCCRSINCOLHUCOLRC1TIV}NCC1C1C1CC5CNFEXT1EXT2FNTFLNAMEFLABCWIDTC1CC2BC2C2DMAPBEDGEEDGECELHCELLOLDOLDXHUTEUNIMENW}UMENUCHBAMENBMENBBKEYDSPFLBRACKBRAKKDMACTDLISTSFLAMEMTOHITICCOICBABUFICBABUFSIZBLBLICBLICBLCIOIOX}CBRAMTOSHC3GRACTOFLAC4C20SDLSTSDLSTSCALSUBDLISPBACBAAA(BI#A(@1Y}A@ @2 @d @ @ @@AdAVBa8@@@@@Z}A@@B2y@@ARAH @A!f"@#@$%@&[}@'@(@)@*@+@P,@-./0@1 2A3AS04@5@\}6@07@8@9:ARP;@"<@&=BYH>@?@@BhGABYHB@C@DEA]}6FADGA6H@2IAQJAVK@dLAQM N@OAfP@QR@STAY^}UADVAVWXA`Y@0ZA[A\A]A^A@_`abAcAd_}e@HfAgAh@4iB2wjk@AlAmA`nAao@2p,qrBhdsBf$tB`}sD IIMAPMAKER by Stephen W. Hall COPYRIGHT 1982 PALANTIR PRODUCTS CORP.2 BdF:,"A`nA@a}x SUBROUTINE PMFIL2 39 BYTESy__6-?:C:'hi РhψРhψЩ`,<A<B<B#t<Ba<<<<b}, 6- A`ww6-?:C:'hi РhψРhψЩ`,<@<BFr<B@<B"V<@<BFr<c}B@<B"V, 6-!* &6-&$  6-%$$!AY* A$!6-&$$!&* A`d}6-% -& $,(6- A 6$ 6-6-F:,6-"$6-@3 6-)6-?:e}C: hhh`,<$,3 A`J 6-6-F:,6-T -% ^996-?:C: hhh`,<$%A<Af}$%Av,h F:,"A`r$1+ 6-"A 8,1A8,&6-P:8,',6-8,&$g}&0:,( ADJUSTING COLOR REGISTER %2":(BR(*( USE STICK OR ARROWSR(# PRESS h} TO CHANGE REGISTERS**(! PRESS TO RETURN TO MENU 6-F:, " +$A 6-i}%!6-(>:A%, A 6-R:,F:,"&AP6-F:,& "6- "6- j}&&") AP0 "6-%!6-: "6-& 6-D "6-& 6-N "6-k}%!6-X 068,-$%b -  APD:*.* 6- 7<,0 APl}7<,4)7<,46-% A A'6.MAP DATA4FNT'6.FONT7 (NO  FILEm}S FOUND.*4MAP-'7 B -A '$ "A * 6-D:*.*4--(%THE n}FOLLOWING FILES ARE AVAILABLE:> 6-%H 7<,0 A R7<,4A`W7<,0A@\6.o}7<,6-B:,f/7<,4 6.7<&,%6-&/ App&67B:,%,..&67B:,%,.7<,z(()  Ap}0;-(ENTER NUMBER OF FILE CHOSEN. 7 A ;D:*.* -& &7<,0*7<,0q}A 0  6.D:67,.7<, 6-/7<,4 6.7<&,%6-&/ A `&67B:,%,..&67B:,%,.r}7<, B$ +))(UNABLE TO LOAD DATA FILE .,,(CHECK DISK. ERROR #  OCCURs}RED.  6-F:,6-"6-AP@ 6-%6-&  F:,APpt} )  6-"6-F:,"Ap F:," A6-AS0$ F:Au},6- 6-%$ '!F:A,%6-6#6-&' & F:A,$6-"6-%&  +!$+F:A,%,6v}-6'6-&+ T:,"*F:,"&APAQ( 6-%6-&2 < 6-6-ARPF# R:,w}6-R:,$6-%# P F:,"6- Z F:,"6- d F:,"6-% n F:,"6- x APx}# - @w#& 6-%&6-6-6-P:',6-&$ "6- "6- 6-y} AS% %6-%6-% AS &6-&6-&  *6-%6-%  %z}6-%6-% AS" &6-&6-& !*6-&6-&  %6-%6-% {} &6-&6-& 6-%6-F:, 6- "6-"*"AQ@"AT 6-6-|}6-"/6-P:',6-P:+&$,',/6-&+$%$,,6-$+@:=:,,&,66-$+@:=:,,&,@6-$+@:=:,,&,J SU}}BROUTINE PMFIL1 68 BYTEST\\6-?:C:DhhheυhhʠʈhhʠʈhhʠʈЩ`,<<<<,^"~}AQ@h 6-6-6- ATX8,6-?:C:hԭ)@h0h1`,<$%,8A$b##6-?:C: hhh`,}<$,l<<6-?:C: hhh`,<$%8,<8,$%8,<8,$%8,,v9@@'@-96-?:C:,,} 6-6-$+%, - (-  6-F:,Aq 6-%!6- -} ( ApPApp Aq%$@0:@X46-?:C:hԭ)@h0h1`,<,:<<6-?:C:} hhh`,<$%8,<8,$%8,<8,$%8,,==6-?:C: hhh`,<$%A<A$%Av, F:,"}AqE 6- AQ@5 - (+ A 8,/A8,5N!(wap character base, o}r9( oad new font? @)FN6-& !(>:&,>:,4lAq>:,0sAqe  6-%"}6-& -  Ap.(SEARCHING DISK$ B. ApPP` POKE RAMTOP,MEMTOP-C5:GRAPHICS C0:POKE} CRSINH,C1:? :POKE CHBAS,MEMTOP-C4UU` POKE SHF,C64:POKE INV,C0:POKE DMACTL,C34:POKE GRACTL,C0:RUN "D:[FONT EDITOR]"  -} ( Ap4! - ( A! ApR - ( Ap - (zA A@ } AJ **T -*8, ^ h r 6-$6-P:', 6-&$| }6-?:C:,<,6- Ap@5%  +%(Map }saved as file ##6-?:C: hhh \`,<BE,  AgA0 66-A:7,,6-%#67,.=:,66}7B:,%,..MAP  A& %+A 8,%A8,0 (UNABLE TO SAVE FILE : :( ERROR # 7(}CORRECT PROBLEM AND THEN 'CONT':&D A(#+2#'A 8,!A8,'<#))(! YOU HAVE NOT SAVE}D YOUR MAP.F#))(!Press to return to menu.P#N+(#Press to lock existing file,N(if any, and exit from pro}gram.Z# d#F:,"Apn#F:,APx#@5#*  +%*#}##6-?:C: hhh \`,<BE,#'[6-6-@#6-%+6-%36-%;6-%C6-%K6-%S6-%[6}-%'C 6-%6-%6-%#6-%+6-%36-%;6-%C6-%$'E 6-%6-%6-%#6-%+6-%56-%%}=6-%E6-%.'+ 6-%6-A(#6-A+6-%8'56-%%%6-%6-%+6-A56-%&B'/ 6-%6}-%6-%'6-B2w/6-%L'#6-A6-&#V'3 6-6-6-6-!6--6-A36-`' 6}-F:,j' 6-!6-t'44;,;,;,;,;,;%,9,9,;,~'=6.hhh V`6.+6. h)`=6}. D:FILE1.MAP'46-F:,&+&%Av4%A'K:', ( PROGRAM INITIALIZATION,6}-?:C:,,' -68,-F:%%, (D68,-A68,-%,68,-A4;68,-AD68,- ( B }B) 6.FNT6.SET6.)BP"); 6-%6-F:,6-F:,,6-F:@,;6-F:@,6) A@)}J) 6-&6-A4%T) 6-%6-%^) 6-%6-%h) r) &|) )6-?:}C:,<,)6-6.)$)K(reate a new map, or=( oad an existing map? D)K(>:,)>:,4LB})>:,0CB)$(Enter map width.$ B0);6-$P:',! 6-;( MAX WIDTH IS 128.)}-  6--( MINIMUM WIDTH IS 22.*%(Enter map height.% B`*0 6-&0(MAXIMUM HEIGHT IS 25}5.*B $!$6-P:$',B(MAX HEIGHT FOR THIS WIDTH IS .&*.  6-.( MINIMUM HEIGHT IS 13.+*# -}  B# B 0*! 6.MAP6.MAP! A:*%D*N*- ))- ))6}8,-- X* B*.6-$&A@6-P:',&$ .6-%*BBvBBw*6-+&,$&+$,*6-P}:',6-&$*=Av+&,'#Aw&/Ax=Ay&* * 6-&6-$*SUBROUTINE ZERO}S 24 BYTES*>>6-?:C:hhhhhˈ`,<$+&+%@$,,<%,*AA*3 6-6-6-&%$}!6-'6--6-36-* -%% + 6-6- + -+-%%$A!%%$-%%$ +!} 6-%6-&!6-%*+ 4+#%&@%#%>+#%%%%%#%%H+<<6-?:C: hhh}`,<$%8,<8,$%8,<8,$%8,,R+.(6-?:C:hԭ)@h0h1`,<,.\+6-?:C:,,f+ A0}Bp+ -% z+#-%%&# + -& + B+ A@+ }+ + 6-$6-P:', 6-&$+ +6-?:C:,<,+6-$, D:SCROLL.OBJ., }8, &+%,B, L,6-?:C:,<,V, &+%,`, j,6-?:C:,<,t,@~,} MOVESUB,&&6.hhhhhhh͑ψ͑`, -% ,A#,!6-$+&+%,,!6-$A$,''6}-?:C:,<%$@V<%A<,,!!6-?:C:,<%$<%A<,,''6-?:C:,<%$@W<%A<,,!!6-?:C:,<%$}<%A$<,,!!6-?:C:,<%$<%A2<,,''6-?:C:,<%$@G<%A@<,,''6-?:C:,<%$@&<%AV<,},!!6-?:C:,<%$<%Ad<,,!!6-?:C:,<%$<%Ar<,-!!6-?:C:,<%$<%A<, -!!6-?:C:,<%$<%A}<,-''6-?:C:,<%$@8<%A<,-!!6-?:C:,<%$<%A <,(-!!6-?:C:,<%$<%A6<,2-''6-?:C:,}<%$@8<%AR<,<-'AA'A&+%,F-3AA'A3AP-SUBR}OUTINE VBLENQ-6-?:C: hhh \`,<,-N@@'@4(>:A%,:-N(Ҡՠ-, -}(EDIT MAP-,( CHANGE FONT-@ -(RUN FONT EDITOR%-%@(CHANGE COLOR REGISTERS-/ -(SAVE MAP }TO DISK&-%/(QUIT-- -%-(PRESS TO MOVE POINTERS-. -%.(PRESS TO INITIATE CHOICE-G -%}"(COPYRIGHT () 1982G( PALANTIR PRODUCTS CORPORATION-;;,;,%6. =><=;6.  .}F:,&.9 'BBy&+%,3@X9".996-?:C: hhh`,<$%A<A$%Av,|}`*a<x5)')@"))  L )1)##iȱi+i }͍Ԋ)0) #iȱ+i͍Ԋ)4)$$mȱi+i΍Ԋ)/) }!$mȱ+i΍Ԋ+L͍Ԋ)4)$$mȱi+i΍Ԋ)/) 7p@t 00 0l808nx  :n8c>?%/ZfZ}fZf   x||6*6 \P|t((((T(D;  p >8|8| p>> p8|`}>6@ ߏ??O ? @`}@oG*_/@T~=dR@(>Bf< P D( |}:xf<f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<f}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<}~x|nf8x8l808nx  :n8c>?%/ZfZ. APD:MAPMAKER.APXC10CC3C6CLC4CBYTCFLACELC1PFLACC1COLBACCONSOCCCRSINCOLHUCOLRC1TI"2.,& 4##"3 4"#!%/.} 4#!"3)* 1 /.$!"3} 4"#3|}Z[  0Z[YZ>|> [YZZ)+` 0[ Z).}|}}Z[ Y( 1 1)-* } Yzޝ[Y[' 2>  /+,-*4"3`|}|`Z[Y& 0}  56 43[Z[Y( 2 4#!3> Z[Z[Z$"3 1Z[}Y[Y[Y> /-. [ Z[Y  2ZZYZ[Z} 1)+.Y[ Z[YZ /* 2Z[[Z[Z[Y)+ 1).>}[Y[Y$% 1'0YY }$ /*1> Y[Z}} /,+.[Z | 0[Y |{ 2}Z[Y |} 1>[Z>YZ 2 YZY[[Y} /. Zݞ 2ўޜ 1Y} ݜ 0 43 >})-. 43).Y[ )-,* 2 /,-+,-+,*/+.Z[ & 4!3 } 4#"3Y+.!" 1),* /,+* 43} 4% 2 56 /* 1 > 56 } >> 4"3  56 4!"3} 0 /,-.PQ> } >  > 4#"#!3  2} 4##"3 4"#!%/.9P@$ }  # : ' ( ) * +,-. }  $ 9 / 001 2 3456 9(: } 9*], 9*':  & 8 } 9- 9*']_): 3]^. 33^_]^_^^_')*: 9)'*(_+ } % 7 9:9(^#1 ]^] ]_^_]^+ 9]_^]]:9: 9*'): 9'*('.7 _^+} 3_^#%]^_^(^_&$_^_84: 3_- 6&$+ 6^]'_^]]_^_^___(]+ 9(|]_': } 9) :3]^^_]&"$"%_]]_]^_]^ %^^]_^]': 5]^]]^: 7 -4_^_]_ ;=;#!}!"%]&!"!$]_]_]_*)'*_^_^. 4,721 ^_]&$;;= #!!$#%^_]^^_^_^_]^^]^+ } 9&$)'*_]_#%;=#%#!%_]_]^] _^^ _]_- 9 _^] ==; ́ } ^_^]^]_&#"%^^]018 4 ^_^;͒ ]_]^] ^_#%^_^+ }6&!!"%]^&"$==&$&$#&"2/"%_&!$^] __*: 3&$ #"!&$^]_ ==;;&!$ )#}!]_]]^&!$(): 6"!$&$ ^]_&!$==&!$!!"!""$#"%&$ ^^&!" + 5}&$]_^==&$ _^_ - 7 #!%^_&"$== #%#"%_^]} ́+ 3 #%!$} =;#%&"!#%ͅ]_]#% : 710 &$ }{{=;=} #"!% #!"!"% + 9(:6}{#%;= #"!!%&#%#%}}#!!"!.5- } 7 &${} =&$#$ #% &${&$/ -78 3 {} ;= } 1/87201 &!$}{ . 71 8 4}{;;&!%#"8 4}{{&!$: 9, } 5#"% }}&$;= !"$#!""%&$+ 9': 9}' 8 3{}=&!$#!$- 6}: 5{}#%'(: 71 }}{ "!%&%+ 3- 3 }{{#%#"!: 9(:}.7 &"$&""!$#. 72/8 787/2 }#!%8 4+5==;; :9&!"$: }6{: 7 ==;#% - 7 { "%, 7 ;;=}=;&"!"!!%#%#%, 6!"$ - 6&%&%&!!"$ ̓8 5#!%}, 9')&$"! #$&!""!" 8 7/1 + 3&""!$-  ^}]]^- 3#28 6!$+4 _^ ^]#!"!!"!)*:9*: 5. } 7 #0 ^]__{}}{}{{}.6- 9+ 5&". 7"%!"!"!!"$^] ^#%{}{},718 9*:7 *: 3#%*( ^_]]^_&!$^]#%{{}{':9'(: 3:4, } 71 #"%;="!"%]_]&$^]]_]_&"!!""%{}})'('/ : 6&!!"!"$;=#%_#!"!!%_&"!!&$^]^{&"${}}{{#!"%*"%+ 4!"$;==]^]^_#"&$^]^_]_]#"!$}{{}}#8 7 }#%==;;#%__]_ ^__ !"!!%_^]_ {{#"!!%: 4;= ]^] ^ _^]&$^]_^#%^^}&""!%}{{}} }#!"12 , 5 ;=;;=&%_]]^&"$]^# ^^]^ ]^]#&$#!&"!!$- 78 7/ &!"&""!$#}!&!"$^]^_^,3]__^_](: 6 &"$ ^]_^_^]85_]_#!""&$#%. } 4+4$#%^]^].9]^]^_]_ #"%: 786 ́#%_]]_}-6^_]_^^]#% . 71 ]_^]_87/ ]_]^_]^ / + } 51/2/0189*(^] ]^+7 .7 - 5: 321 8 6^]^_187}2/8 4128 6+ 70  : 7/028 72/08 7021/28 712028 3: 787 - } 7/8 3, } 78 } } } } >8|8|>>8|}>000 0 @ @` <0ρ~Áχ??/}88pp~???D(">>>"D('z}pPPH<>w6>8pp8?}ww<~~~<x`x`~<~~<}0~0 ~ <~~<<>f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<f}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<}8x8~<f<癙f$?`@  @+$ tB?????????????????????????????????????????????????????????????????!}????!}????!}????!}????! }??ȿ??! }????! }????J! }????! }????!}@????!}????!}????!}????!}????!}????!}????!}U]cccSp: p>> p8| p >> p 8|%}  0  @`0 `#808 0 0%}h'??/'???  %}<`xpˁ c }8>%}?%}39=:<>;9>:?%}/@@@@@@@@@"0,%%}37-&2<6*'%}Sp: p>> p8| p >> p 8|$U]cccv `f0p: p>> p8|0000 p >> p 8|)}  0     ` 0p 60` ) }3  ???I)!}p@x`ۑ ?׃)"}U]cccv `f02@ p>> p8| p >> p )#}8|  0   ` @`  63 a)$} 0)%})&}v `f0p: p>> p8|0000 p >> p 8|(U]cccp4v&0p: p>> p8| p >> p 8| -(}  0  02 gp0 8-)}p???' -*}6 ?> P@`0f-+} U]cccp4v&0"$ p>> p8| p >> p -,}8|   0 0 @`  02 g--} -.}-/}p4v&0p: p>> p8| p >> p 8| ,;;Page zero RAM;RTCLKL=$14ATRACT=$4D;ORG$B0DLSTPTORG*+2MAPLOORG*+1MAPHIORG*+1TEMP1ORG*+1;VVBLKD=$11}224SDMCTL=$22FDLSTLO=$230DLSTHI=$231COLPM0=$2C0COLOR0=$2C4COLOR1=$2C5COLOR2=$2C6COLOR3=$2C7COLOR4=12}$2C8CHBAS=$2F4STICK=$278HPOSP0=$D000P2PF=$D006TRIG1=$D011GRACTL=$D01DHITCLR=$D01EHSCROLL=$D404VSCROL13}L=$D405NMIEN=$D40EPMBASE=$D407CHBASE=$D409WSYNC=$D40ASETVBV=$E45CXITVBV=$E462;P0=$1E00P1=P0+128P214}=P1+128P3=P2+128MAPDAT=$4000NORTH=$5000MIDDL=$5200SOUTH=$5400;;Page 6 usage;ORG$600;OFFLOORG*+1;H15}ow far to offset new LMS valueOFFHIORG*+1XPOSLORG*+1;Horizontal position ofXPOSHORG*+1;upper left corner of screen16} windowYPOSLORG*+1;Vertical position ofYPOSHORG*+1;upper left corner of screen windowLASTSKORG*+1DELAYORG*+1TI17}MSCLORG*+1CHRSETORG*+1;ORG$3F00DLIST1DB$70,$70,$70DB$77DWMAPDAT+$C9DDB$77DWMAPDAT+$CCDDB$77DWMA18}PDAT+$CFDDB$77DWMAPDAT+$D2DDB$77DWMAPDAT+$D5DDB$77DWMAPDAT+$D8DDB$77DWMAPDAT+$DBDDB$77DWMAPDAT+19}$DEDDB$77DWMAPDAT+$E1DDB$77DWMAPDAT+$E4DDB$77DWMAPDAT+$E7DDB$57DWMAPDAT+$EADDB$41DWDLIST1ORG1:}$6000;LDA#DLIST1&$FFSTADLSTLOSTADLSTPTLDA#DLIST1/256STADLSTHISTADLSTPT+1;LDA#DLIVEC&$FFSTA$200L1;}DA#DLIVEC/256STA$201;LDA#SOUTH/256STACHBAS;LDX#4LOOP44LDAPFCLTB,XSTACOLOR0,XDEXBPLLOOP44;LDA#$D1<}0STAXPOSLLDA#$80STAYPOSLLDA#0STAXPOSHLDA#4STAYPOSH;LDADLSTLO;Restore display list pointerSTADLST1=}PTLDADLSTHISTADLSTPT+1;;set up players;LDA#$1CSTAPMBASE;LDA#0TAXLOOP43STAP0,XSTAP2,XDEXBNELOO1>}P43;LDX#7LOOP41LDACROWN0,XSTAP0+56,XLDACROWN1,XSTAP1+56,XDEXBPLLOOP41LDA#1STAP2+61;LDX#2LOOP41?}2LDAPOSTAB,XSTAHPOSP0,XLDAPCOLTB,XSTACOLPM0,XDEXBPLLOOP42LDA#$2ESTASDMCTLLDA#3STAGRACTL;;Now en1@}able deferred vertical blank interrupt;LDX#VBISR/256LDY#VBISR&$FFLDA#7JSRSETVBVLDA#$C0STANMIENHANGJMPHA1A}NG;;This is the vertical blank interrupt routine;It reads the joystick and scrolls the screen;VBISRLDATRIG1BNEA311B}LDA#$20STADLSTLOLDA#$9CSTADLSTHILDY#1LDX#233LDA#7JSRSETVBVBRK;A31LDA#0STAOFFLOSTAOFFHI;zer1C}o the offsetLDAP2PFAND#1BEQY60LDALASTSKAND#$FSTAHITCLRJMPY61Y60LDASTICK;get joystick readingY61STA1D}STICKCMP#$FBNEY62LDA#10STADELAYCLCADCRTCLKLSTATIMSCLOUTJMPXITVBVY62STAATRACTLDATIMSCLCMPRTCL1E}KLBNEOUTLDADELAYCMP#1BEQX21SECSBC#1STADELAYX21CLCADCRTCLKLSTATIMSCLLDX#$FSTXLASTSKLDASTI1F}CKAND#8;joystick left?BNECHKRT;no, move onLDA#$BSTALASTSKLDAXPOSLSEC;decrement x-coordinateSBC#1BCS1G}X2DECXPOSHX2STAXPOSLAND#7STAHSCROLL;fine scrollCMP#7;scroll overflow?BNECHKUP;no, move onINCOFFLO;y1H}es, mark it for offsetCHKRTLDASTICK;get back joystick byteAND#4;joystick right?BNECHKUP;no, move onLDA#$7AND1I}LASTSKSTALASTSKLDAXPOSLCLC;no, increment x-coordinateADC#1STAXPOSLBCCX4INCXPOSHX4AND#7STAHSCROLL1J};fine scrollBNECHKUP;scroll overflow? if not, move onDECOFFLO;yes, set up offset for character scrollDECOFFHICHKU1K}PLDASTICK;joystick up?LSRABCSCHKDN;no, ramble onLDA#$DANDLASTSKSTALASTSKLDAYPOSLSEC;no, decrement y1L}-coordinateSBC#1STAYPOSLBCSX9DECYPOSHX9AND#$FSTAVSCROLL;fine scrollCMP#$F;scroll overflow?BNECHKDN1M};no, move onLDAOFFLO;yes, mark offsetSECSBC#$30STAOFFLOLDAOFFHISBC#0STAOFFHICHKDNLDASTICK;Joystick 1N}down?LSRALSRABCSCHGDL;no, trudge onLDA#$EANDLASTSKSTALASTSKLDAYPOSL;yesCLC;no, increment y-coordin1O}ateADC#1BCCX7INCYPOSHX7STAYPOSLAND#$FSTAVSCROLL;fine scrollBNECHGDL;scroll overflow? If not, amble on1P}LDAOFFLO;yes, set up offset for character scrollCLCADC#$30STAOFFLOLDAOFFHIADC#0STAOFFHI;;In this loop w1Q}e add the offset values to the existing;LMS addresses of all display lines.;This scrolls the characters.;CHGDLLDY#3DLO1R}OPLDA(DLSTPT),YAND#$7FSTA(DLSTPT),YINYLDA(DLSTPT),YCLCADCOFFLOSTA(DLSTPT),YINYLDA(DLSTPT),YADCOF1S}FHISTA(DLSTPT),YINYCPY#$27BNEDLOOP;LDX#4LOOP45LDAYPOSLSECSBCLATLO,XLDAYPOSHSBCLATHI,XBCCDCLDL1T}IDEXBNELOOP45DCLDLILDATOPSET,XSTACHBASSTACHBASELDABOTSET,XSTACHRSETLDADELDLI,XSECSBCYPOSLSTATE1U}MP1LDADEHDLI,XSBCYPOSHLSRARORTEMP1LSRARORTEMP1LSRARORTEMP1LSRARORTEMP1LDATEMP1CMP#12BCS1V}X0ASLACLCADCTEMP1ADC#3TAYLDA(DLSTPT),YORA#$80STA(DLSTPT),Y;X0JMPXITVBV;exit vertical blank routin1W}e;DLIVECPHALDACHRSETSTAWSYNCSTACHBASEPLARTI;CROWN0DB4,$8E,$8E,$DFDB$DF,$FB,$FF,$FFCROWN1DB$0,1,1,31X}DB3,7,7,7POSTABDB127,130,125PCOLTBDB$1C,$1C,$44PFCLTBDB$92,$0C,$C8,$26,$11LATLODB$FF,0,$50,$50,$A0LATHIDB$FF1Y},4,3,2,1TOPSETDBSOUTH/256,MIDDL/256,MIDDL/256,NORTH/256,NORTH/256BOTSETDBSOUTH/256,SOUTH/256,MIDDL/256,MIDDL/256,NORTH/1Z}256DELDLIDB$FF,$FF,$FF,$4F,$4FDEHDLIDB$FF,3,3,2,2;ENDORG*+2MAPLOORG*+1MAPHIORG*+1TEMP1ORG*+1;VVBLKD=$0??)?pppwLwLwLw-Mw]MwMwMwMwNwMNw}NWNA?``0?12bTTbЍ015\}ԩ>b8Fb=NbнQb./Т` \L` 01 \) )5]}L`xx eLbM8e`ax) 8)-x)#-i5^})xJ0 -8)80xJJ.-i)i0i5_})ȱmȱm'8Yb^bcbavb Խhb mb8rbJfJfJfJf ei LbH 5`} ԍ h@}D &PPTRRPPTTRRPOObTTbЍ014H@\tB9b}9c}9d}9e}39=:<>;9>:?/@@@@"9f}0@,%37-&9g}2<6*'(4#9q}B'DOS SYSB*+DUP SYSB]UMAPMAKERBASBSCROLL OBJB ALLPRPS SETBDEMO MAPB*WIZARD MAPB WIZARD FNTBFILE1 MAPB NORTH5 FNTB MIDDL5 FNTB 'SOUTH5 FNTB+0SCRL24 ASMB[SCRL24 OBJB0aFILE2 MAPB WFTFNT FNTBWFTMAP MAPCNEWMAP MAPBTEST 1?0Lj,'/!8+%9r})4*&1:=<;>9< 16#2;6ň9s}#(5!8"1:79t}ň#)4@@@,'/9u}"16-&18,5WX\9v}#(4*$/O]*$0-'29w}Pƈ-')%36ňQB+&09x}BR!?18S-.%9y}0*5V+.'/,')4^WZY!>9=:< 9z}0-&18TB!?(%/U"9{}(4_X\C!?.O\@@@X[Y!>9|}17Q^XW%28P]T"?9}}36O\UC#=0TV$9~}/,--5YW!<*4B+-(28#>9})5,-'37P^&*-(18Q[Y\ ?9}0OY]!=.P^B&9})4,5BO\#<*'.Q]$9}17@P[_ZY"?/@R&9}0XY[_W$)5[\XWT%9}27OY[_WS#<19<.@RU9}%/#;:;96BUP\B$*4BV@XW9}R!>28Q\VCT&0,-5TT9}O^,')'0UP]UC$2:9;9?/P^9}SS ;6 =.RTP_ZYW%26S9}XWBS@C#<4XY\RSR&6:C@P[9}ZY_VUT,'5>;@@@@OX_V^[]B"7=<9}@@@Q]VUP\+/%6;ƈ@@V^\SQ]")89}@VUO]VUPZYW.$7<,09@@TST!(/9}1' .8@@B+9U@@CRVYX_,'*$)8@.3&4P^\RB-&9}(3%7??5:P].9}6?>=>?;S@+&7=:ňSBRC"9}4Q\SB,0$5;ʼnT+/309.232/8-#9} -/38,0'5=*&)%6:,/&(12$(#9}5>8|>>>ZP[Z[Z[KJX@[Y@x`  =}!B$8      8 #@@ &F8=}"$d 0 0`=}? ???0AIUIAcUIUcA]=}U]A8|>>8|>>>BZX[[Z[KZ[[YXx`=}  !B$8    8 0 8 #@@ &=}F8"$d 0 0=}`? ???0AIUIA=}cUIUcA]U]A>8|>>>ZP[Z[Z[KJX@[Y@x`  <@A}A}A}A}A}A}A}GA}A}fA}A}A}A}A}A}A}A}A}A}A}A}A}@Hɔ????!}???!}?2;??286%:!}??38$897???$8;??27??????????%:!}??36????????????&????????????????????????????????????????????????????????!}???????????????????????????????????????????????????????????????????????? GE}E}fE}E}E}E}E}E}E}E}E}E}E}E}E}