@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `3  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D3:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D3:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu H hɈ)}TULr0LD1:AUTORUN2.SYS} 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG+}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES,}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N'-}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx .}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT/} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL0}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD1}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.2}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC3}COPY--FROM, TO?OPTION NOT ALLOWED593 FREE SECTORS COPYING---D2:GOTHIC.FNTl# 0|D .L/%#4}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY5}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 6}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A7}LLOWED IN DESTINATION 0 <.|K}ξL/L!DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.D2:DOS.SYSERROR - NOT VERSIO?}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 @}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USA}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2B} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,C}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0D}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhE}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNF}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.G},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  H}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PI},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭJ}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOK}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξL}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE M}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!N}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥO}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEP} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LQ}!ERROR- 170ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAR}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uS} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uffflll>`<|fl0fF68of;  `00`f<f<0 0 ~~`0 0`fff~fff~~f<fflxlff``````~cwkcccffv~nffW}cOc>`000`>0<00f>```|ff|ff>>ff>|```|fff8<<``flxlf8<v[}kcc|ffffff>|f```>`<|~ffff>fff<cck>6f< x~ 0~;n\}~x|nf <|< 08<><80ff|``>ff>|f```>`<|~ffff>fff<cck>6f< x~ 0~;nShSCRN_CDIM_SEDENSMENFILESECTRDKYNFFZXKEYDDNUSCRPRNLOUNLORENADELEFORMFINCONVRFILDSE ^}FILE1S306TL9;<>@2 < U n o  _}2@@@BkEbFWGIJQ O0P `}@"PA !"# ""DISK SECRETARY BY RON FETZERTP(P2P<PF a} @`TO `6-8-@@8(WHAT SCREEN COLOR DO YOU WANT?#-@@#( 1: NOR b}MAL"-@@"(2: AMBER"-@@"(3: GREEN&!-@@!(4: GREY0B A`-@ c}@8SELECT A NUMBER >>B B5T  @)!@)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 4T A d}`:''AAAAD1AAH'A @1 A N1A@X'A  e}1 A X1AA4'A 1 A b1A@'A 1 A Q f}TO;@%,;@%,;@,;@%,;@%,;@,;@%,;@%,;@P,;@,; g}@%,;@0,QT"O `6-"6-&-@@&( DISK DENSITY&-@@& h}( ---- -------+-@@+(1. SINGLE DENSITY)-@@)(2. 1050 DENSITY+-@@+( i}3: DOUBLE DENSITYB A`-@@8SELECT A NUMBER >>B B"T  @)!@)P:,#(J("ER })6^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<k}11111{!!\]_\ED!EOHI B V`}   l} TURBO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ӥL]""$$ (pm}%J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5Rn}Ţtd.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$o}LENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأp}$ ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(q}0000000--**2*(22(2222222 V`hh@,lHH$HHHHHHӍl"r}H$HHl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( s}) ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eeet}eӦee褢%ƚƜ`88夅奅8u}夕奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 v}*څۅ܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈w}0ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0x}ǠF0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠy}"("!""" "L**""""""&О"("!""z}" "L**""""""&О"("!""" "L**{}""""""&О"("!""" "L**""""|}""&О"("!""" "L**""""""&Оd}}"("!""" "L**""""""&ОL-6"e"~}"e""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"}""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօ}ׅ؅`` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiU}ȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I}))83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L-}-E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8}م٘؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥}؅ץم؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱}ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ}׽ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - M} 1. &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ)} 2f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1.} #/ &F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G } 1.Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍ}֍׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥e}Պi؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&}&&&*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3}}3`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢}0襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ}⅊0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30}  5Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` }O#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B} V,# 6` $#LllBHI V0HH V0Ԩh``{a$%Ȏ$$xө$Ѝ$ `} `@X a Ӆʢ ʎD  _ɠ %` ɩHH `өL: g% D}:??????*.ARBөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0Y|ڝDa۝E}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐ}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?L} KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhh}h`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ ԝ`} UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Lĩ} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ LH} éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL } ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ Ċ }Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠI}HEDBL$HH hh +L `ħ LĢl ¦`OBRUT ԅՅ֦}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih L}©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!}``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠFf}ؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א& } eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]&} 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم0&f}fff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ }ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0} `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`}LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3LBˢ}ԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐ}=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤ} /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 n} 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH@}MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh &} Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Heם}I Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤ} ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% }L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0}eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 e}新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`}I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,} , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!}!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ}iȅȩȩ Lfإ  4  \ +] ¥򄟄}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 } &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ }L 9:枢0 O L :H9Hhh tLHH`h}hLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % }+HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ}` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFO}NEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREA}ĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- }DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTI}ME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚG}OTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABIN}PADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5}&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/0}1 2!3"4Ɛ"-"."-؂ٿ֐ː}ĐאŐbj+9,+;,ʐͭ}ͭ@ABC\=>[<+:е<,&%rvnnxc<\}-78s_XV+@D&0d*"'2GJh N}Rl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 } 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :}7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" } 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ }L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI 䦐}Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅ}H h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ }, h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L.}0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰}#)iiLɠL4űI&`048ץğ=ȱȄ }`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ}`,,L L PQ 8,L ȱI ѝߠȱ`ԩ},L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g }0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?}FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOT}RUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0}` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC@ sŠ 5  <)  <} L L + e +e`e`&&&&&&eee` &}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= } ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8}`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ } `  M 8*` 兙 󥐅i祣L{ &L}  0 & L ȑ & L; # )ȱ L })ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ`}``=`]``` E߭H Ġ} hL±&Lv`[  ȱ R] } L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R] h!#L0"D1:PERFECT.FNT"!#L1"D1:GOTHIC.FNT"!#F0!#BC60 T H E T U R B O - B A S I C J O U R N A L } by RON FETZER!#P PROGRAMMING MADE EASY PART II In the first }part of this article I showed how to write a BLOCK DIAGRAM and the SKELETON PROGRAM. In this section we will flesh out the SK}ELETON PROGRAM and write the actual code for each module. The most general module is the CONTROL MODULE. It is like the} brain on the program. It directs the execution of the program. Whenever a module is finished it will return to the CONTROL M}ODULE There is no set way of which module to write first. But you generally follow the logical sequence of the program.}!#P!#BD60 THE CONTROL MODULE 10 REM DISK SECRETARY BY RON FETZER 20 ------------------------------ 30 EXEC SC}RN_CL 40 EXEC DIM_SEC 50 EXEC DENST 60 EXEC MENU 70 GOTO 60 490 ------------------------------!#P!#BC60 The} modules that are needed every time the program is run are coded with the EXEC command. Every module will return to line 70 v}ia the MENU MODULE. In this way we always go back to the MENU. Please note I use module names that are descriptive of their f}unction. The (_) underscore lets you combine realistic names. Each module is separated with the -- command.!#P SCREEN }COLORS MODULE(SCRN_CL) This sub module will let you select a screen color of your choice. NOTE line 500. Next to the co}mmand of PROC I put 'CLS" and I initialized the variable Q.!#F1 CONSISTENCY is a mark of a good program.!#F0 } I will do this in the same place on every module. In line 560 and 565 I do ERROR TRAPPING. Your program should have extens }ive error trapping routines. There are several ways of error trapping. I will always do it the same way.!#P!#BD60500 PROC  }SCRN_CL:CLS :Q=0510 POSITION 6,6:? "WHAT SCREEN COLOR DO YOU WANT?"520 POSITION 14,10:? "1: NORMAL"530 POSITIO }N 14,11:? "2: AMBER"540 POSITION 14,12:? "3: GREEN"550 POSITION 14,13:? "4: GREY"560 TRAP 560:POSITION 10,17:INPUT  } "SELECT A NUMBER >>",Q:TRAP 40000565 IF Q<1 OR Q>4 OR Q<>INT(Q) THEN ? :? "ERROR: SELECT A NUMBER FROM 1  }TO 4":GOTO 560570 ON Q GOTO 580,590,600,610580 POKE 710,148:POKE 709,13:GOTO 980590 POKE 710,58:POKE 709,0:GOTO 980}600 POKE 710,234:POKE 709,0:GOTO 980610 POKE 710,12:POKE 709,0:GOTO 980980 ENDPROC 990 ------------------------------}!#BC60 THE DIM MODULE(DIM_SEC) All strings and arrays have to be DIMmed. Enter your variables into this secti}on as they are needed by the program. In this way you will know if the variable is in the beginning, the middle or the end of} the program.!#P!#BD601000 PROC DIM_SEC1010 DIM FILE$(25),KEY$(2),SECT$(25) R$(10),D$(25),K$(25),YN$(1) }F$(25),FZ$(25),X$(50), FILE1$(25),TL$(30)1480 ENDPROC 1490 ------------------------------!#P!#BC60 THE DENS}ITY MODULE(DENST) In the DENSITY MODULE I have 2 BLOCKS. The first block is the density information. The 2nd block is t}he disk drive number. I put in a REM in line 1575 to indicate that I have a new block. Note line 1590. I had to use an I}F-THEN-ELSE command to ERROR TRAP. Again in line 1500 next to PROC I use a 'CLS' and initialized the variables in this module}.!#P!#BD601500 PROC DENST:CLS :DN=0:DR=01510 POSITION 14,7:? "DISK DENSITY"1520 POSITION 14,8:? "---- -------"1530} POSITION 12,10:? "1. SINGLE DENSITY"1540 POSITION 12,11:? "2. 1050 DENSITY"1550 POSITION 12,12:? "3: D}OUBLE DENSITY"1560 TRAP 1560:POSITION 12,14:INPUT "SELECT A NUMBER >>",DN :TRAP 400001570 IF DN<1 }OR DN>3 OR DN<>INT(DN) THEN ? :? "ERROR: SELECT A NUMBER FROM 1 TO 3":GOTO 15601575 REM *** DIRVE INFORMATI}ON ***1580 CLS :TRAP 1580:POSITION 8,11 :INPUT "DRIVE NUMBER 1,2 OR 8 >>",DR:TRAP 400001590 IF DR=1 OR }DR=2 OR DR=8: GOTO 19801600 ELSE 1610 ? :? " ERROR: USE A NUMBER 1, 2 OR 8":PAUSE 120 :GOTO 158}01620 ENDIF 1980 ENDPROC 1990 ------------------------------!#P!#BC60 THE MENU MODULE(MENU) In the MENU} MODULE you get a choice of what module you want to select. When the module you have selected is finished it will return to l}ine 2480 ENDROPC and this in turn will return you to line 70 GOTO 60. In this way every module returns to the CONTROL MODULE.} Rather than using the POSITION command for the menu items I used R$(line 2005) to create 8 spaces in front of each item }.!#P!#BD602000 PROC MENU:CLS :NUM=02005 R$=" "2010 POSITION 18,5:? "MENU"2015 POSITION 18,6:? "----":? 202!}0 ? R$;"1. DISK INFORMATION"2030 ? R$;"2. PRINT TO SCREEN"2040 ? R$;"3. PRINTER"2050 ? R$;"4. LOCK A FILE"2060 "}? R$;"5. UNLOCK A FILE"2070 ? R$;"6. RENAME A FILE"2080 ? R$;"7. DELETE A FILE"2090 ? R$;"8. FORMAT A DISK"2100 ?#} R$;"9. END"2110 TRAP 2110:POSITION 9,18 :INPUT "SELECT A NUMBER>>" ,NUM:TRAP 400002115 IF NUM<1 OR NUM>9$} OR NUM<>INT(NUM) THEN ? :? "ERROR: USE A NUMBER FROM 1 TO 9":GOTO 21102120 ON NUM EXEC DENST,SCRN,PR%}NT,LOK, UNLOK,RENAM,DELET,FORMT,FINI2480 ENDPROC 2490 ------------------------------!#P!#BC60 CONVERT MO&}DULE(CONVRT) This sub sub module is used by the SCREEN MODULE and the PRINT MODULE. What it does is convert the FREE SE'}CTORS of your disk into K-BYTES. I take the first 3 characters(number of free bytes) and change them into numeric value( line(} 6510) Single density and 1050 density disk have 125 bytes per sector. In line 6520 I multiply the free bytes by 125 and)} divide by 1000 to get K-Bytes. I then round it of to the nearest 10th Double density disks have 256 bytes per sector. I*} do the same thing in line 6530 for double density!#P!#BD606500 PROC CONVRT:SECT$="":E=0:D=06510 SECT$=FILE$(1,3):D=VA+}L(SECT$)6520 IF DN=1 OR DN=2 THEN E=INT(D*125)/1000: E=INT(E*10+0.5)/106530 IF DN=3 THEN E=INT(D*2,}56)/1000: E=INT(E*10+0.5)/106540 ? :? "YOU HAVE ";E;" K. BYTES OF SPACE LEFT"6550 CLOSE 6980 ENDPROC 69-}90 ------------------------------!#P!#BC60 THE SCREEN MODULE(SCRN) In this module I open drives 1,2,8 in lin.}es 2510-2530. If the first character is bigger than ASCII 47( a number) than I call the CONVERT routine to change it into K-B/}ytes in line 2550. If the ASCII is less then 47 than I go back to the INPUT line 2550 again I have to put a STOP on this0} module so the directory stays on the screen. I used the INKEY$ function to wait for the SPACE BAR to be pressed (CHR$(32)). 1}POKE 752,1 and POKE 752,0 turn the cursor off and on. I usually put this POKE also on the line with the command PROC.!#P!#B2}D602500 PROC SCRN:CLS :POKE 752,12510 IF DR=1 THEN CLOSE: OPEN #2,6,0,"D1:*.*"2520 IF DR=2 THEN CLOSE: 3}OPEN #2,6,0,"D2:*.*"2530 IF DR=8 THEN CLOSE: OPEN #2,6,0,"D8:*.*"2540 ? " FILES ON DISK ";DR2545 ? 4}" ----- -- ---- -":?2550 INPUT #2,FILE$: IF ASC(FILE$(1,1))>47 THEN 25702560 ? FILE$;:INPUT #2,5}FILE$: ? " ";FILE$:IF ASC(FILE$(1,1)) <47 THEN 25502570 EXEC CONVRT2580 ? " PRESS Š TO 6}CONTINUE"2590 KEY$=INKEY$2600 IF KEY$=CHR$(32):GOTO 2610:ELSE :GOTO 2590:ENDIF 2610 CLOSE :POKE 752,02980 EN7}DPROC 2990 ------------------------------!#P!#BC60 THE PRINT MODULE(PRNT) I first call the SCREEN MODULE t8}o display the directory on the screen in line 3050. The PRINT MODULE is done the same way as the SCREEN MODULE. In line 3070 9}and 3080 I use FILE$ AND FILE1$ in order to get 2 columns printed. No printer control codes are used so this program will wor:}k with every printer.!#P!#BD603000 PROC PRNT:CLS :YN$=""3010 EXEC SCRN3015 ? :INPUT "SHALL I PRINT THIS DIRE;}CTORY(Y/N)>>",YN$3030 IF YN$(1,1)="N" THEN 34803032 ? :INPUT "TITLE OF THE DISK>>",TL$3035 LPRINT " <} " ;TL$:LPRINT 3040 IF DR=1 THEN CLOSE: OPEN #2,6,0,"D1:*.*"3050 IF DR=2 THEN CLOSE: OPEN #2=},6,0,"D2:*.*"3060 IF DR=8 THEN CLOSE: OPEN #2,6,0,"D8:*.*"3070 INPUT #2,FILE$:IF ASC(FILE$ (1,1))>47 THEN>} 31003080 INPUT #2,FILE1$3085 LPRINT " ";FILE$;" ";FILE1$3088 IF ASC(FILE1$(1,1))<47 THEN 30703100 LPRINT :L?}PRINT " YOU HAVE ";E;" K. BYTES OF SPACE LEFT"3105 LPRINT :LPRINT :LPRINT 3110 YN$="":? :INPUT "GO A@}GAIN(Y/N)>>",YN$3120 IF YN$(1,1)="Y" THEN ? :INPUT "DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>",YN$A}3130 IF YN$(1,1)="Y":GOTO 3010 :ELSE :GOTO 3470:ENDIF 3470 CLOSE 3480 ENDPROC 3490 ----------------------------B}--!#P!#BC60 THE FILE NAME MODULE(FILE) The FILE NAME MODULE is a sub sub module used by LOCK A FILE, UNLOCK A C}FILE and DELETE A FILE MODULES. In this module I concatenate 2 strings, the drive string and the file name string into oD}ne string. There are several ways of concatenation. I always use the same method. "OLD$(LEN(OLD$)+1)=NEW$"!#P!#BD607E}000 PROC FILE:K$="":D$=""7010 ? :INPUT "FILE NAME>>",K$7030 IF DR=1 THEN D$="D1:": D$(LEN(D$)+1)=K$:K$=D$7040 F} IF DR=2 THEN D$="D2:": D$(LEN(D$)+1)=K$:K$=D$7050 IF DR=8 THEN D$="D8:": D$(LEN(D$)+1)=K$:K$=D$7480 ENDPROG}C 7490 ------------------------------!#P!#BC60 LOCK A FILE MODULE(LOK) I first call the SCREEN directory theH}n I call the FILE module. I use the XIO 35 command to lock the files. When I am finished I call the SCREEN directory again toI} CHECK to see if the action has been done.!#P!#BD603500 PROC LOK:CLS :YN$=""3510 EXEC SCRN3520 ? :? " LOJ}CK A FILE"3530 ? " ---- - ----"3540 EXEC FILE3550 XIO 35,#1,0,0,K$:CLOSE #13560 ? :INPUT "GO AGAIN(Y/NK})>>",YN$3570 IF YN$(1,1)="Y":GOTO 3540 :ELSE :GOTO 3800:ENDIF 3800 EXEC SCRN3980 ENDPROC 3990 ----------------L}--------------!#P!#BC60 THE UNLOCK, RENAME AND DELETE MODULE These modules are straight programming. In the RENAM}ME MODULE in line 5060-5080 I concatenate 4 strings into one string as previously explained.!#P!#BD60 UNLOCK MODULN}E(UNLOK)4000 PROC UNLOK:CLS :YN$=""4010 EXEC SCRN4020 ? :? " UNLOCK A FILE"4030 ? " ------ - ----"O}4040 EXEC FILE4050 XIO 36,#1,0,0,K$:CLOSE #14060 ? :INPUT "GO AGAIN(Y/N)>>",YN$4070 IF YN$(1,1)="Y":GOTO 4040: P} ELSE :GOTO 4080:ENDIF 4080 EXEC SCRN4480 ENDPROC 4490 ------------------------------!#P RENAME MODULE(RENQ}AM)5000 PROC RENAM:CLS :YN$="":X$=""5010 EXEC SCRN5020 ? :? " RENAME A FILE"5030 ? " ------ - --R}--"5040 ? :INPUT "ENTER OLD FILE NAME>>",F$5050 INPUT "ENTER NEW FILE NAME>>",FZ$5060 IF DR=1 THEN X$=S}"D1:" :X$(LEN(X$)+1)=F$ :X$(LEN(X$)+1)="," :X$(LEN(X$)+1)=FZ$5070 IF DR=2 THEN X$="D2:" :X$(LET}N(X$)+1)=F$ :X$(LEN(X$)+1)="," :X$(LEN(X$)+1)=FZ$5080 IF DR=8 THEN X$="D8:" :X$(LEN(X$)+1)=F$ U}:X$(LEN(X$)+1)="," :X$(LEN(X$)+1)=FZ$5090 XIO 32,#1,0,0,X$:CLOSE #15100 ? :INPUT "GO AGAIN(Y/N)>>",YN$5120 IFV} YN$(1,1)="Y":GOTO 5040 :ELSE :GOTO 5130:ENDIF 5130 EXEC SCRN5480 ENDPROC 5490 ------------------------------!#PW} DELETE MODULE(DELET)5500 PROC DELET:CLS :YN$=""5510 EXEC SCRN5520 ? :? " DELETE A FILE"5530 ? "X} ------ - ----"5540 EXEC FILE5550 XIO 33,#1,0,0,K$:CLOSE #15560 ? :INPUT "GO AGAIN(Y/N)>>",YN$5570 IF YN}8<<  B JKIHiDiELV`L8 8 BLV`LxZ}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`H[}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0IC\}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::i^}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8_} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9`}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  a} L;D8:; :9 :Y;L@<|'E$(*$   D((D|0~8c} @<$ |>"> 4~> <"<  |B<| 0    0 @<@<  <d}D0$$<$d@8$8$$x$@@D8x$"""D8 < B<@<" xP  &"$f">""3@> H> d<f(00(&` ~b6**"#d4,4,&e}|$$$$>>""*&|""<$&<@<<@@~ d$$$$>f$$$<b"*>6#f$8$ff$<Hx>b>@`0 xx6f}c6>8pp8?g}ww<~~~<x`x`~<~~<q}b&DOS SYSb**DUP SYSb TPERFECT FNTb7]SECRTARYARBbjTURBO COMbMAIN b YRAMDISK COMb bGOTHIC FNTb;tAUTORUN SYS0~0 ~ <~~<$$$@ 8$$$$ $$$$8  x $$D8@ (4$$ ` 8$8$6 r}IIII,$$$,$$, > l$$$l$$$III66 l$$D8>D"|<~~<s}8x8$$, > l$$$l$$$III66 l$$D8>D"|<~~<-@\  B JKIHiDiELV`LF@ F@ BLV`L@!u}@@-@`L@ &` Fj`8冨凪` @EӅӥ @`ʆǪƩ Ɛe!v}e` @ƦʆǢ &Ɛeǐ A AL@ @'&&&8儨児祂*L@&&*ń!w}8&&L@ dA`hihiHHȱȱL@c !#3`L@JJJJ`H @!x}h`Hȩh {@LA @LA .@LA 6@LA <@H8`HhHh !y}hBLA BHI V䅠LA LB F@LAԆ ؠPIPP` BP 6@LA BLB!z} BLB CLBH- B8塪墨hLC (CLB /CLB BȹP`텠8堨塪 B芨O!{}ȩ-`PP BP棩 Ѥģ0-ģ6000:,80H & &ehe&eģ!|}0ʥ 8堅塅`S:#DE:(DH UB +D,D B UBh)0I&D'DLB[\ZUVT`) `!}}ȱ`` Dȥ`HhƣĢ`ƥĤ`Ѣ !~}E`ȱѢĦ`膡``jbEE!}!}EF!E%F`IF!}FFF) %FF!}IF) B\GG) BHIJKED V-@`H!}h`h )GHI`iGjGiLGGGGGGGGiGGiGG͖GGGL;IG͕GLHGG /A!}EEeGFEeGGG͒GLEHGG)L7HȌGGGGLH8GGGGGLHG͒GLHG!}G GGGLcH8GGGGGGLGGȌGGG͕GL'IG͒GLHGG-GLHȌG!}GGGLHG8GGGG8GGGGLHGGIEGGLGiEE`LJI A"I#I$IBIBIIBILnI!} AFIGIHIfIfIIfILI`JI KILIeIcIdILjJhIgIȌ\IfIII\ILJIGIm\IHIi]IgI]!}I}IEgIhIihI\ILIJIgIKIhILJ`8JIgIiIKIhIjIfIjIiI dAeIfIeI /A8iI宍\I8fI\IdI\I!}cIhIgI(FI /AXeYemIIii(९ii(ii(ii(ii(i!}i(ii(ii(iMILIOINIQIPISIRIUITIWIVIYIXI[IZI\IȌ]IbIfIi]IŮL`MfI]I!}LrK\Ii^IL8LGIm]IHIi`I`IIE^IgIhILK8gIcIgIhIhI^ImeI^ILKgImdIgIhIihI^ImeIi!}^I`I /AEEeFEeLIȱNIȱPIȱRIȱTIȱVIȱXIȱZI]I^IL]M\IaI^I\ILZL^IaIa!}IMILI @LIMIaIOINI @NIOIaIQIPI @PIQIaISIRI @RISIaIUITI @TIUIaIWIVI @V!}IWIaIYIXI @XIYIaI[IZI @ZI[I8^IaI^I8\IaI\I\ILZMbIMIOIQISIUIWIYI[IȌbI!}\IL;LLIK`CoLfMRLM^} Newsletter Reader Copyright 1988, Codesmiths, Inc. By Sean Puckett and Jeff Jones.Mm [B!}LVN Codesmiths, Inc. (305) 961-4480 Designers and Developers of high Quality software for all Popular microcomputer!}s.M [BL O This program is Public Domain. This program is under Exclusive Copyright by Codesmiths, Inc. This !}program may not be re- or over-copyrighted. This programN` [BLOz may not be sold except for the cost!} of media in a not-for- profit release. One moment, please.O [BaMaMLObMbMELOLO8aMaMLO`OL!}GAOOOIXLP(LO AOOOIXL@P(G#G /AIFeJFeiOiOLQPO!}iOOiOOOLPOiOmOOiOOmOOi*LPLPOLVPOOO UBOƭO B!}`!EeLP APP /AEEePFEePPP OPP iG UBLQK:Q BP!}PBEAE DPiPiPP DPiPiBEAE DP /A G`LLQ AQ!}QI4LQ -DLQQIGLQ -DLQ -DQQ OYX iG B B B B UBL2RK:!}R/ B`!RLIRDRI BERDRER`FQRFLR AmR8GGuRȅG /AGeG!}e8ȍ!G"GqR{RpRzRmRLRuRLR'`mRL/SuRȐL/SmR BsR!GmuR"GisRuRLR!}rRyRxRmRMwRLKSGLOSȌG!G"GI!LS!Gi"GiI#LSvRILSGvRLSvRGvRIxRpRyRqR!}L;T!GmrR"Gi)sRrRnRmrRoRisRmGrRMuR sRILTvRyR{RxRzRL;TsRmGxR}IEyRi!}ixRiyRLSrRtRnRmrRoRi1I LTnRmrRoRi1ILT8rRrRrRLATrRLTtRirRnR!}oR8rR!GmrR"Gi8rR"G!G D8uRrRuR8GuRGmRwR{RzR`Gx!}F(F(LzU BLUK:UG(LU 1BLUK!}:U A ?MLU UBLUK:Uũ B cMU U Ui /A8?嬍U孍U UG!} DEI DG U UFEEE DFEEEBEAE DEEiFEiFEEE DEEiFEi!}BEAE D G -D UBLVD1:MAINVɩ BUUUUȌGLW .D1:MAIN V(FM D U!} UGL\GL\UUUG |RUUUILWUUUUG |RUUUI:LWU!}U DLWUUL\GIL\ UUWW ULW UU) UU ULWU U UILL X8U0U PL\ UIF!}L4X8U0 /AGL\ UIPLYX FRYX DUUL\ UISLXUU Q B -D U U!}UUL\ UIGLX8U0 U UmU80 /A8?宍U寍Um U80UL\ UIML>Y8U0(!} /AIFeJFeU( DL\ UIKLY8U0U8U0U FR80G#GG#GULYUG#GLZYL\ UI!}C UIXLkZG#G U UIXLYGLYGLYG UB(G /AMeFe8(UUUIXL6Z( U!} /AIFeJFe(UU DLMZU(UU DUUG O8GGL\ UITLZG UB(!}G /AMeFe8(G O8GGL\ UIILZ8U0G#GELZUL\ UIQL [G UB8G!}GL\ UIHL+[UUYX DL\ UIBL[U) /A U8U0 /A Ue U8 U0!} /A U U UL\ UIWL[ FRL\ UIJL[:UU(U DUL\ UIEL\ UBU O-@!}L\L \ FRL[ UBL\UI UI'L4\G UB8GGL\UL\ UUUUU kIUmUUUiUUmUUi!}Ů0L\ FRYX DUUL(Wl `UGL\UL\ UUUUU kIUmUUUiUUmUUi 0$(1,1)="Y":GOTO 5540 :ELSE :GOTO 5580:ENDIF 5580 EXEC SCRN5980 ENDPROC 5990 ------------------------------!#P!#}BC60THE FORMAT AND END MODULE(FORMT & FINI) In the FORMAT MODULE I use XIO 253 to format single density and XIO 254 t}o format 1050 density. I did not call for the DENSITY MODULE because I did not want to format the RAMDISK D8. I have now} shown you all the modules in the program and how we flesh out the SKELETON PROGRAM. When you fill in the modules you do} not always have to list the whole program to go back to the place you want to go. In the direct mode type "GOTO 6500" etc. } This is the whole fleshed out program!#P!#BD60 DISK SECRETARY FLESHED OUT10 REM DISK SECRETARY BY RON FETZER20 }------------------------------30 EXEC SCRN_CL40 EXEC DIM_SEC50 EXEC DENST60 EXEC MENU70 GOTO 60490 --------------------}----------500 PROC SCRN_CL:CLS :Q=0510 POSITION 6,6:? "WHAT SCREEN COLOR DO YOU WANT?"520 POSITION 14,10:? "1: NORMAL"}530 POSITION 14,11:? "2: AMBER"540 POSITION 14,12:? "3: GREEN"550 POSITION 14,13:? "4: GREY"560 TRAP 560:POSITION} 10,17:INPUT "SELECT A NUMBER >>",Q:TRAP 40000565 IF Q<1 OR Q>4 OR Q<>INT(Q) THEN ? :? "ERROR: SELECT A NUMBER FROM 1 TO 4}":GOTO 560570 ON Q GOTO 580,590,600,610580 POKE 710,148:POKE 709,13:GOTO 980590 POKE 710,58:POKE 709,0:GOTO 980600 } POKE 710,234:POKE 709,0:GOTO 980610 POKE 710,12:POKE 709,0:GOTO 980980 ENDPROC 990 ------------------------------1000} PROC DIM_SEC1010 DIM FILE$(25),SECT$(25),R$(10),D$(25),K$(25),YN$(1),F$(25),FZ$(25),X$(50),KEY$(2),FILE1$(25),TL$(30)148}0 ENDPROC 1490 ------------------------------1500 PROC DENST:CLS :DN=0:DR=01510 POSITION 14,7:? "DISK DENSITY"1520 PO}SITION 14,8:? "---- -------"1530 POSITION 12,10:? "1. SINGLE DENSITY"1540 POSITION 12,11:? "2. 1050 DENSITY"1550 POS}ITION 12,12:? "3: DOUBLE DENSITY"1560 TRAP 1560:POSITION 12,14:INPUT "SELECT A NUMBER >>",DN:TRAP 400001570 IF DN<1 OR }DN>3 OR DN<>INT(DN) THEN ? :? "ERROR: SELECT A NUMBER FROM 1 TO 3":GOTO 15601575 REM *** DIRVE INFORMATION ***1580 C}LS :TRAP 1580:POSITION 8,11:INPUT "DRIVE NUMBER 1,2 OR 8 >>",DR:TRAP 400001590 IF DR=1 OR DR=2 OR DR=8:GOTO 19801600 EL}SE 1610 ? :? " ERROR: USE A NUMBER 1, 2 OR 8":PAUSE 120:GOTO 15801620 ENDIF 1980 ENDPROC 1990 ------------------}------------2000 PROC MENU:CLS :NUM=02005 R$=" "2010 POSITION 18,5:? "MENU"2015 POSITION 18,6:? "----":? 202}0 ? R$;"1. DISK INFORMATION"2030 ? R$;"2. PRINT TO SCREEN"2040 ? R$;"3. PRINTER"2050 ? R$;"4. LOCK A FILE"2060 }? R$;"5. UNLOCK A FILE"2070 ? R$;"6. RENAME A FILE"2080 ? R$;"7. DELETE A FILE"2090 ? R$;"8. FORMAT A DISK"2100 ?} R$;"9. END"2110 TRAP 2110:POSITION 9,18:INPUT "SELECT A NUMBER>>",NUM:TRAP 400002115 IF NUM<1 OR NUM>9 OR NUM<>INT(NUM}) THEN ? :? "ERROR: USE A NUMBER FROM 1 TO 9":GOTO 21102120 ON NUM EXEC DENST,SCRN,PRNT,LOK,UNLOK,RENAM,DELET,FORMT,FINI2}480 ENDPROC 2490 ------------------------------2500 PROC SCRN:CLS :POKE 752,12510 IF DR=1 THEN CLOSE :OPEN #2,6,0,"D1:*.}*"2520 IF DR=2 THEN CLOSE :OPEN #2,6,0,"D2:*.*"2530 IF DR=8 THEN CLOSE :OPEN #2,6,0,"D8:*.*"2540 ? " FILES} ON DISK ";DR2545 ? " ----- -- ---- -":? 2550 INPUT #2,FILE$:IF ASC(FILE$(1,1))>47 THEN 25702560 ? FILE$;:}INPUT #2,FILE$:? " ";FILE$:IF ASC(FILE$(1,1))<47 THEN 25502570 EXEC CONVRT2580 ? " PRESS Š TO CONTINUE"2590} KEY$=INKEY$2600 IF KEY$=CHR$(32):GOTO 2610:ELSE :GOTO 2590:ENDIF 2610 CLOSE :POKE 752,02980 ENDPROC 2990 ---------}---------------------3000 PROC PRNT:CLS :YN$=""3010 EXEC SCRN3015 ? :INPUT "SHALL I PRINT THIS DIRECTORY(Y/N)>>",YN$3}030 IF YN$(1,1)="N" THEN 34803032 ? :INPUT "TITLE OF THE DISK>>",TL$3035 LPRINT " ";TL$:LPRINT 3040 } IF DR=1 THEN CLOSE :OPEN #2,6,0,"D1:*.*"3050 IF DR=2 THEN CLOSE :OPEN #2,6,0,"D2:*.*"3060 IF DR=8 THEN CLOSE :OPEN #2},6,0,"D8:*.*"3070 INPUT #2,FILE$:IF ASC(FILE$(1,1))>47 THEN 31003080 INPUT #2,FILE1$3085 LPRINT " ";FILE$;" ";F}ILE1$3088 IF ASC(FILE1$(1,1))<47 THEN 30703100 LPRINT :LPRINT " YOU HAVE ";E;" K. BYTES OF SPACE LEFT"3105 LPRI}NT :LPRINT :LPRINT 3110 YN$="":? :INPUT "GO AGAIN(Y/N)>>",YN$3120 IF YN$(1,1)="Y" THEN ? :INPUT "DID YOU INSERT A NEW D}ISK IN THE DISK DRIVE(Y/N)>>",YN$3130 IF YN$(1,1)="Y":GOTO 3010:ELSE :GOTO 3470:ENDIF 3470 CLOSE 3480 ENDPROC 3490 --}----------------------------3500 PROC LOK:CLS :YN$=""3510 EXEC SCRN3520 ? :? " LOCK A FILE"3530 ? " } ---- - ----"3540 EXEC FILE3550 XIO 35,#1,0,0,K$:CLOSE #13560 ? :INPUT "GO AGAIN(Y/N)>>",YN$3570 IF YN$(1,1})="Y":GOTO 3540:ELSE :GOTO 3800:ENDIF 3800 EXEC SCRN3980 ENDPROC 3990 ------------------------------4000 PROC UNLOK:CLS} :YN$=""4010 EXEC SCRN4020 ? :? " UNLOCK A FILE"4030 ? " ------ - ----"4040 EXEC FILE4050 XIO }36,#1,0,0,K$:CLOSE #14060 ? :INPUT "GO AGAIN(Y/N)>>",YN$4070 IF YN$(1,1)="Y":GOTO 4040:ELSE :GOTO 4080:ENDIF 4080 EX}EC SCRN4480 ENDPROC 4490 ------------------------------5000 PROC RENAM:CLS :YN$="":X$=""5010 EXEC SCRN5020 ? :? " } RENAME A FILE"5030 ? " ------ - ----"5040 ? :INPUT "ENTER OLD FILE NAME>>",F$5050 INPUT "ENTER NEW F}ILE NAME>>",FZ$5060 IF DR=1 THEN X$="D1:":X$(LEN(X$)+1)=F$:X$(LEN(X$)+1)=",":X$(LEN(X$)+1)=FZ$5070 IF DR=2 THEN X$="D2:}":X$(LEN(X$)+1)=F$:X$(LEN(X$)+1)=",":X$(LEN(X$)+1)=FZ$5080 IF DR=8 THEN X$="D8:":X$(LEN(X$)+1)=F$:X$(LEN(X$)+1)=",":X$(LEN}(X$)+1)=FZ$5090 XIO 32,#1,0,0,X$:CLOSE #15100 ? :INPUT "GO AGAIN(Y/N)>>",YN$5120 IF YN$(1,1)="Y":GOTO 5040:ELSE :GOT}O 5130:ENDIF 5130 EXEC SCRN5480 ENDPROC 5490 ------------------------------5500 PROC DELET:CLS :YN$=""5510 EXEC SCRN}5520 ? :? " DELETE A FILE"5530 ? " ------ - ----"5540 EXEC FILE5550 XIO 33,#1,0,0,K$:CLOSE #15}560 ? :INPUT "GO AGAIN(Y/N)>>",YN$5570 IF YN$(1,1)="Y":GOTO 5540:ELSE :GOTO 5580:ENDIF 5580 EXEC SCRN5980 ENDPROC 5}990 ------------------------------6000 PROC FORMT:CLS :DD=0:SEL=0:YN$=""6010 POSITION 13,8:? "FORMAT A DISK"6020 POSIT}ION 13,9:? "------ - ----"6030 TRAP 6030:POSITION 10,11:INPUT "WHICH DRIVE 1 OR 2>>",DD:TRAP 400006040 IF DD<1 OR DD>2 }THEN ? :? "ERROR: SELECT A NUMBER FROM 1 TO 2":GOTO 60306050 CLS :POSITION 10,8:? "DENSITY INFORMATION"6060 POSITION 10},9:? "------- -----------"6070 POSITION 10,11:? "1. SINGLE DENSITY"6080 POSITION 10,12:? "2. 1050 DENSITY"6085 POKE }752,16090 POSITION 10,14:TRAP 6090:INPUT "SELECT A NUMBER>>",SEL:TRAP 400006095 IF SEL<1 OR SEL>2 OR SEL<>INT(SEL) THEN} ? :? "ERROR: SELECT A NUMBER FROM 1 TO 2":GOTO 60906097 POKE 752,16100 IF DD=1 AND SEL=1 THEN XIO 253,#1,0,0,"D1:":CLO}SE #16110 IF DD=1 AND SEL=2 THEN XIO 254,#1,0,0,"D1:":CLOSE #16120 IF DD=2 AND SEL=1 THEN XIO 253,#1,0,0,"D2:":CLOSE #1}6130 IF DD=2 AND SEL=2 THEN XIO 254,#1,0,0,"D2:":CLOSE #16135 POKE 752,06140 ? :INPUT " GO AGAIN(Y/N)>>",YN$}6145 IF YN$(1,1)="Y" THEN ? :INPUT " DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>",YN$6150 IF YN$(1,1)="Y":GOTO 60}50:ELSE :GOTO 6480:ENDIF 6480 ENDPROC 6490 ------------------------------6500 PROC CONVRT:SECT$="":E=0:D=06510 SECT$=FI}LE$(1,3):D=VAL(SECT$)6520 IF DN=1 OR DN=2 THEN E=INT(D*125)/1000:E=INT(E*10+0.5)/106530 IF DN=3 THEN E=INT(D*256)/1000:}E=INT(E*10+0.5)/106540 ? :? "YOU HAVE ";E;" K. BYTES OF SPACE LEFT"6550 CLOSE 6980 ENDPROC 6990 ---------------------}---------7000 PROC FILE:K$="":D$=""7010 ? :INPUT "FILE NAME>>",K$7030 IF DR=1 THEN D$="D1:":D$(LEN(D$)+1)=K$:K$=D$704}0 IF DR=2 THEN D$="D2:":D$(LEN(D$)+1)=K$:K$=D$7050 IF DR=8 THEN D$="D8:":D$(LEN(D$)+1)=K$:K$=D$7480 ENDPROC 7490 -----}-------------------------7500 PROC FINI:CLS :POKE 752,17510 POSITION 12,11:? "END OF PROGRAM":PAUSE 907520 GRAPHICS 0:}POKE 752,0:END 7980 ENDPROC 7990 ------------------------------!#P!#BC60 The final step is to RENUMBER your program.} Use RENUM 10,10,10. If you want a printed copy of this article load it into your wordprocessor. The filename is "MAIN" }and then print it. If you want to use this program when you go to DOS at the end type in Option 'L' and for the filename }use TURBO.COM. This will load in TURBO-BASIC as well as DISK SECRETARY. The filename for DISK SECRETARY is AUTORUN.BAS. You n}ow can use it and list it. Your comments are welcome! Please write to RON FETZER 22 MONACO AVE } ELMONT, N.Y. 11003 U.S.A.!#W!#Qome! Please write to RON FETZER 22 MONACO AVE 7ROR: SELECT A NUMBER FROM 1 TO 3T A`'""*** DIRVE INFORAMTION ***,K` A"-@@ADRIVE NUMB }ER 1,2 OR 8 >>K B6-#"@)"@)"@- A@@J@(,(! ERROR: USE A NUMBER 1, 2 OR 86M }A @ ATAQTO `6-6. -@@(MENU!-@@ }(----!((1. DISK INFORMATION(2. PRINT TO SCREEN( 3. PRINTER(4. LOCK A FILE (5. U }NLOCK A FILE(6. RENAME A FILE (7. DELETE A FILE*(8. FORMAT A DISK4(9. END>A A!-@ }@7SELECT A NUMBER>>A BCQ  @)!@ )P:,#(G(ERROR: USE A NUMBER FROM 1 TO 9Q A! }Hb Q T O `AR@ 6"@6@@D1:*.* 6 }"@6@@D2:*.* 6"@6@@D8:*.* ##( FIL }ES ON DISK  %"( ----- -- ---- -%( 8@8@:7@<@,,!@GA%p E(@ }( E@:7@<@,, @GA%P P ''( PRESS Š TO CONTINUE 6.Y( ,4>:@2, } A&@) A%,A2 AR Q T O `6. P 0(0#SHALL I PRINT THIS DIRECTORY(Y/}N)>> $$7@<@,4NA4 ( TITLE OF THE DISK>> 3 3 6"@6}@@D1:*.* 6"@6@@D2:*.* 6"@6@@}D8:*.* 8@8@:7@<@,,!@GA1 @ 3   ++@:7@}<@,, @GA0p 6363 YOU HAVE  K. BYTES OF SPACE LEFT! 3 3 3& # 6. (#GO AGAIN(Y/N)}>>0 X7@<@,4Y(X2DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>: 67@<@,4Y& A}0)@3 A4p6A  Q T O `6. P "("( LOCK A FILE ( ---- - --}-- P 3(@5@3@ (GO AGAIN(Y/N)>> 67@<@,4Y& A5@})@3 A86APQTO `6.P!(!( UNLOCK A FILE( ------ - ----}P3(@6@3@(GO AGAIN(Y/N)>>67@<@,4Y& A@@)@ }3 A@6APQTO `6.6.P"("( RENAME A FILE( ------ - --- }-"("ENTER OLD FILE NAME>>ENTER NEW FILE NAME>>W"@6.D1:-67B:,%@,.C67B:,%@ },.,W67B:,%@,.W"@6.D2:-67B:,%@,.C67B:,%@,.,W67B:,%@,.W"@ }6.D8:-67B:,%@,.C67B:,%@,.,W67B:,%@,.3(@2@3@ }(GO AGAIN(Y/N)>>67@<@,4Y& AP@)@3 AQ06A PhQrT|O `6.}P"("( DELETE A FILE( ------ - ----P3(@3@3@}(GO AGAIN(Y/N)>>67@<@,4Y& AU@)@3 AU6AP\QfTp)O `6-"6}-)6.z'-@@'( FORMAT A DISK'-@@ '( ------ - ----D A`0-@@}:WHICH DRIVE 1 OR 2>>D BM @)!@(C("ERROR: SELECT A NUMBER FROM 1 TO 2M A`00`-@}@0(DENSITY INFORMATION--@@ -(------- -----------+-@@+(1. SINGLE DENSITY})-@@)(2. 1050 DENSITYAR@A-@@ A`7SELECT A NUMBER>>A B}T  @)!@)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 2T A`AR@M"@*"}@BAS@D1:M@M"@*"@BAT@D1:}M@M"@*"@BAS@D2:M@M"@*"@BAT}@D2:M@AR$($ GO AGAIN(Y/N)>>Y7@<@,4Y}(Y3 DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>67@<@,4Y& A`P)@3 Ad6APQZ}Td&O6.6-&6-n#6.7@<@,#6-A:,xS"@)"@26-P:$A%,'A}S6-P:$@%?P,'@I"@(6-P:$AV,'AI6-P:$@%?P,'@0(0( YOU HAVE } K. BYTES OF SPACE LEFTDQNTXO6.6.b( FILE NAME>>v3"@6.D1:-67B:,%}@,.36.3"@6.D2:-67B:,%@,.36.3"@6.D8:-67B:,%@,.36.8Q}BTLO `AR@V2-@@((END OF PROGRAM2M@`" +AR",Q6}T D:FLESHED.PGM@V2-@@((END OF PROGRAM2M@`" +AR",Q6 ©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!" }``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠFf"!}ؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦""}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א& "#} eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]&"$} 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم0&f"%}fff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ "&}ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]"'}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0"(} `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ")}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`"*}LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3LBˢ"+}ԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐ",}=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤ"-} /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (".}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}"/} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%"0}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@"1} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 n"2} 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH@"3}MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh &"4} Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`"5}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Heם"6}I Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤ"7} ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% "8}L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠"9}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0":}eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 e";}新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ"<} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`"=}I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,">} , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!"?}!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ"@}iȅȩȩ Lfإ  4  \ +] ¥򄟄"A}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5"B}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 "C} &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ "D}L 9:枢0 O L :H9Hhh tLHH`h"E}hLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L"F}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰"G}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % "H}+HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ"I}` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ""J}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFO"K}NEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREA"L}ĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- "M}DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTI"N}ME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚG"O}OTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABIN"P}PADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5"Q}&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/0"R}1 2!3"4Ɛ"-"."-؂ٿ֐ː"S}ĐאŐbj+9,+;,ʐͭ"T}ͭ@ABC\=>[<+:е<,&%rvnnxc<\"U}-78s_XV+@D&0d*"'2GJh N"V}Rl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 "W} 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le"X}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :"Y}7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" "Z} 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ "[}L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI 䦐"\}Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅ"]}H h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ "^}, h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥"_}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L."`}0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #"a}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰"b}#)iiLɠL4űI&`048ץğ=ȱȄ "c}`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ"e}`,,L L PQ 8,L ȱI ѝߠȱ`ԩ"f},L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g "g}0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?"h}FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOT"i}RUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI"j}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0"k}` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC@ sŠ 5  <)  <"l} L L + e +e`e`&&&&&&eee` &"m}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= "n} ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8"o}`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ "p} `  M 8*` 兙 󥐅i祣L{ &L"q}  0 & L ȑ & L; # )ȱ L "r})ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ`"s}``=`]``` E߭H Ġ} hL±&Lv`[  ȱ R] "t} L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R] h