'  +JJJJ ?\>=0!2==<'<+l>  /+L_ wΤ wILH X h(`TǺ͠ӠōԠٍŠӬÎ鷎귭෍ᷩ췩 緈JJJJx Lȿ LLɷL Ġ ™L 緍i 8 `巬 췌`x (`(8`I`B`!! ``>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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  LX @Dže i ש|)w r tLvՁ@ԠԠp.AGSbmv$>dm'6K_c   !#  Π % t{ūȄ ~Q ƞL坩AH ~ ƞ1 ), ƞ1 ) ƞ /h \ OH chC? <报 iLQƊз Я8ЪH L, | ) L r HH whhL %_c88jE  `暥  ` $0 &(P (L\Lc L@ (p j(LL q` q`ɛ恥݁ŕŒ`LwH) 报)@ O报) 报) *报) i 报 h` ɛ ƞ` @ `H% )h LƞH驷 ) L L= LH qA q: q3 h`     ƞ` $))jjj $0 t`@E` ՠL6 `hɈҩ$% $, ƞ$% > ƞ ՠ ؚ 頩` ,ŒLH ՠhɍXH۰hɍ)ɠɬȑHH h ՠhɍЛ ɍ`hhL ™L F ⫐2 ) ߬L 孩ߙ $P Λ)` 'L ) ƨL L虩@ | ). ƞ L @ |)`@ | )5 ƞ )6 ƞ)`x )' ƞ |`L)L F ⫰5$0 ) ƞ L ) ߬ 6 zL Λ = L 'L ) ƨ Λ L` L | ) ƞ  ƞLC |@ y | ) ɍɠ r'#% bL%ՍŒLq ՠ ` LqŏŎ8`2 )) ƞ CŒ Lo2 ), ƞ` L |) ƞ  ƞ #ɏ)`u揥Ɏm ՘ ^ | ƞ  ƞ kx )0 ƞ )1 ƞ2 )) ƞD O ™LQ Λ ZL`L$p ) ` d$P$ ) ƞ ) L@@ )* ƞ $PS )+ ƞQ ) LP ) ƞ L A ) 엩F ) `U ) ƞW )v8厅uv8vuv{?` X`$ >)#"`v'u8uv'v ܝvuuuvv ܝudvu8duvv ܝu 8 u ܝu $P$ H h`` ` \ O ?ML蝥8 H 聆 hLh"Hȹ"H`$ c8 ci \L蝩Lg% $( ( (`䥌jeLp)?` `HHH HHH$ >h`  '2Ȅ ȱ $LH hL L%H ) h)HhL`Hjh)ޕ$ҕ%L$ ,` C)ߠ ,Œ$P`hhhh L`ŕ ՘ LO 8 ` | ) L UX | ) ! d˟ LJ̠ΠĠ Ls )( ƞ d `LƩ ƞ/ ƞ O`8`)$PP ` LHH$()? @(hh``Ɇ | )7  t `"#LX8``$P V `* ) A`` | ƞ)!" ƞy )`H | )h ƞ ` ѭ{` Ѝ{э`L  ٘L)Lߙū qɍɠǰ ɺɰi ) rL+ q1 rLޣ`H* )h AꘑL^ɠŠԈ*ɠ! rLڣɠ )q rХⅎ8ㅏ8LޣLޣL֣8 PȄ  ]Hhɠ NL  NɍLPDEDfEeDeEDfEDfEeDDeEE N ҦDEPQ LϢ NHhɠɍ)ߩ YեH H P Q   L hh 䊑 LN8` NɍɊH* )hH Ah`ɰ ɺ8`8`   ߙū8#%ߙ Λ)& ĠLLc o[ y ~ ՠ $L`P!Ć懪) )ߪ Ĥ,H hH hL | ƞ C$ Ɇ ULLŕ hhhLD ՘) `Œhhh ~ @L`) Ĥ`ɕɏɑH hHɊɍ ՠ{N$' h$0 ` o`$pR ) H)L)$p ) hHj ɑɓɀ 憥 @h)Ĉ ) ` 릥)$p h `$0`|ɆhhL`@ |@ )2 ƞ )3 ƞ +,ɍHŒ hhL֊H hLåɈ   (H t;[ hH YhL\  $Lץ`  iXe覍঍즍)LѦ ) x x) ߦ )`````8`୳   ``ؠ ܫ f)8` ~- ƞ ⭳LƧ wȱ) w`)ȘH h ``( +)LQZؘi#iȘH h  &mΠΠ` եڐ $0mLݧв𪍠 fLݧ )f ` ⭳ ) ѷѷ` Lп8`èxLŨ)0  }L } LοʹL󭿨 ܫ f`è¨`L ܫ 8˫ʫȩ) jȫɫ wȩm#L*H$PƫǫL] h **)j w'  w%୰ȑ੏ w w  wƫǫ ȫ H+ wȱe(ȘH  w) whL6ū` H` | ƞ hhhhL` `Ȅ`㈌ wȱe 8`Τ wȱ Lȱ$0)2ȱL  L4i Lvi"LvLL#$0ͳ8f ``⩒⍟ ⍠ ,ѷﱷɍɠ L L#`8` w ʭ/H ʭhh ɎLΤHh`ŏ``ȱH w 𭠫Lɐ L  ޯ(hб*Gh񍠫 w w wLhLd` ܫ fȭ ȥȭߙȄɍLXYY %#!ȱ wYiL wΠ wߙhh`Π)` $LH L">>>"``  x @`@@` x">""">"">>">>>""" "("("$>">"< >>|`` >"" ">"""(" $"""$""  $"""$ "8"(  $% "8""  "(%"$"$$""$$"$$$ ""  $$""""$"$""""$""""$$$"""$" "$ "("( "$"$"" *$$" $$"""  "*$"$""$" $D"$"r!D" "2$"$B"$"$B!B!$B$ "$D  "$B$"" " DD$$b#$ D2$  D$r!  >2 ""22""""""2 2$"$"$B! "22* BDD$ "2 &* 2$B'DB$B#B ""$" "!$"$"DD""""$"$ D D"$B' "  ""$"$$$$$ "$$  "$$ "> "* ""**" >"""  >"**|'DD"" > *"$"$"$$ "**" *  $ ""(" B$b#""$$$$  $"""""("($$$" "(b#  "(""$""& ""&&"""*$""&& $$"&"H"("($"""& 2""&$x`|| `||""(" & " "``    @``|@` x$"$"""$"$""HX0:I"8"($$$! "8  "(!"$"$""""$"*"$""*""$"""6*$$$"""$""$OFTWARE |`` "*$$"$""""U(SS("("($:XAX1YES","J, "$"""" """**$"$"2000%4X0XIXx"(B 2%r'BB SLANT R>""">">:Z(A$)""(%%$R "r'  "(R x>""">">">"">>">>>"""Q$:0::>>">""),11! "("(%OUBLE SI7:(49">"">>>""":A$::WHTLIN y)ߍy@膅_膇PRWT _膇 pƆ pƃ0 ƄƂح,L &8' &&` 忠Ԡ (4);$C600 ; ; IS HE SURE? (Y/N) C=0 IF YES ; ISESURE #$1D ISESURE1PRNTMESS #$2F PRNTMESS GETKEY #$03 HETYPSNO   HETYPSNO ^0 ; RST48040MAINTRIG #$7F MAINTRIG CONFBYT1 <0 VIDID <0 VIDEXEND #$MAINTRIG SETUP #$12 CTAB #$18 ISESURE1 >1 WIPESCRN ; #$0F ^7 MLEN2-1,X $FDF0  <7 ; $B74A MLEN2 "!DEDAOL TON SOD " ; ^1 FS1 #$73 CTAB #$28 PRNTMESS PAWZDISP WIPESCRN $FB60  #$FF  ; KEYTST1 CONFBYT6 GETKEY TRPSTA1 DSPTRP GETKEY ; GETOUT  #$0A GETGONE  #$09 GETGONE ; ; EXIT PROGRAM ; EXIT SETUP #$13 CTAB ISESURE >0 START ; ^0 HANGONLY #$58 NTERP KBD I/P ; GETKEY KEYIN #$C1 >1 #$DF ^1 #$0C KEYTEST KEYS,Y GETOUT  KEYTEST CONFBYT3 KEYTST1 MAINTRIG >0 #$7F  ^0  QUITALL  QUIT2 RST48040 #$00 MAINTRIG START ; ^6; ; CTAB #$04 ^0   <0   #$0F  VTBL,X HORZPT HTAB,Y DOVTAB VERTPT VTAB ; ;GET KBD I/P ;| ^ ;V+->=2 |+<-=1 CR=0 ?=3 " "=4 ; KEYIN MODEMIO KEYNOMODKBDCHR KEYIN KBDSTB  ; ;IE IA#1.MYDOS.BIN,A$800,L$A00" ;  "IA#1.INIT.SRC" END SP   MESSLOOP ; ^1 DSPULCOR DISPCHR1 ; DSPULCOR #$E1 PRNTOUT CONFBYT1 #$20 PRNTOUT  #$DF  PRNTOUT COUT1 ; DISPCHR1 MESSLOOP  92 PBUFH #$11 TRK DIROESEC SEC GETSEC PBUFH SEC GETSEC ; #$01 RWCOM #$80 FTYPE    ; DECSEC SEC SEC #$FF RESEC #$0F SEC RESEC ; ;STANDARD PROG SIZE CHECK ; DOSNOLAB ; % "BSAV#$07 PBUFH #$8F BLKBUF+1 DS5 #$0C BUFPOS DS3 BUFPOS (BLKBUF),Y DS4 #$23 DS4 TRK  (BLKBUF),Y SEC PBUFH GETSEC TMP01 DS4 BUFPOS  #$02 BUFPOS DS3 BLKBUF+1 DS5 ; DS4 #$ #$1E DOSDIR3 (FNBUFL),Y #$8D >9 #$A0 ^9 DIROEPOS (BLKBUF),Y DIROEPOS FILNAM DOSDIR2 ; DOSDIR3 DIROEPOS TMP01 (BLKBUF),Y ; ;WRITE DOS FILE SECTORS ;VTOC,CAT,T/S, AND FILE ; TMP01 #$02 RWCOM ; DOSDIR1 ; #$01 TRK (BLKBUF),Y  SEC (BLKBUF),Y #$0B BLKBUF+1 ; DOSDIR1 TSLSTT (BLKBUF),Y  TSLSTS (BLKBUF),Y  FTYPE (BLKBUF),Y  ;FILE NAME TO CATALOG ENTRY DIROEPOS #$00 FILNAM DOSDIR2 FILNAM#$11 TRK #$00 SEC GETSEC #$01 RWCOM DSAVLP7 ; STAYWTS1   >1 DSAVLP3 ^1 ; ;BUILD DOS 3.3 CATALOG SEC(S) ; DSAVLP7 #$92 SETHALF #$11 TRK DIROESEC SEC GETBUF DIROEPOS TMP #$FF ;write t/s list(s) and VTOC to dsk #$02 RWCOM ;first 128 sec's list TSLSTT TRK TSLSTS SEC #$8F PBUFH GETSEC ;1st point's 2 second PBUFH $8F01 >1 $8F01 TRK $8F02 SEC GETSEC ;write VTOC ^1 PBUFH  SEC $8F02 #$0C CATBUF DSAVLP9 ;store in t/s list ^1 TRK CBMGR SEC CBMGR ;more sectors? DSAVLP9 TMP  DSAVLP5 DECSEC    DSAVLP4 DSAVDN1 BUFPOS (BLKBUF),Y BUFPOS TMP STAYWTS1  ##$02 DSAVLP3  BUFPOS (BLKBUF),Y  #$08 DSAVLP4  DSAVLP5 TMP DSAVLP5 TSLSTT DSAVLP8 TRK TSLSTT SEC TSLSTS DSAVLP9 ; ;on 2nd t/s page? DSAVLP8 CATBUF+1 #$90 >1 $8F01 >1 TRK $8F01K TRK #$23 >1 STRPTS BUFPOS BUFPOS BUFPOS #$C4 DSAVLP1 ;next from $10->$03 ^1 #$11 TRK #$78 DSAVLP2 BUFPOS TRK STRPTS BUFPOS  #$06 #$40 DSAVLP2 ;DISKFULL DIE1 ; ;READ VTOC ; STRPTS z#?     Ϡ