8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LC! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ ?U6.1%DISKC" DCPC.0S,NESDISKD" '++"U6]++#BZ4k7++%COPYB|+ +#CPP++&FORMAT+P,FM+,UT+' &PRODOS:+ 2,BASIC.SYSTEM&(+ Ҩ#N19; ++$BZAPG+! $COPYW+! 9STARTUP[? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@ڍL3<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112`݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭ[ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ 'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i пJGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈ ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8`*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  ,0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭ )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H (  밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@LL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,L@   !"#$Ԡ͠ˠĠԠhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHх܅F݅G ` ͬ 밽܅F݅G ` * % L`FGL 4܍ݍ8`FHGH 4ܙhGhF`@Bɼ>K@yٙ٩`O dIpFqG :%&N  # 4܅F܅G `J HH hh` 0 @ L\L# [Tܝ ݝ0ȩFG  0` רם__)׍_pFqG 밍 hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>YL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬ%'()*+,-./0123456789JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)< &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| H06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭB 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aSL/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VW>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H Eо VV :$ZA@L8 `u-U -W b WW)JJ :T$K \0IDK : :5K 0.)K :쭼󬮼XK`L9L^ :K mY ܩ 8jK` J,, ( 5̪ ` J, ̪ ` J, `)a)_ͩ`0:8 `)H"H ת תh}I תhm8`0 :AG8 `) ת `..`SI-SRRX)sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_`:_`蹀:`V)8`MN; b;`;C b N8` G)̀#:蹀:`V)R ޾,N0MHhHh p' L,N HCNh`M`M N N `9V) ` V) ޾ p`  (8` 8`8`(W)`_V)Ij!؍Í`_ FjЭW)`_ Ͼ pH Lh8`jGMоM  G)p pY)ικ`lP *,N!ǾȾɾʾ pǾ~H h8`8`,C  8` ȾɾM$ mHݓǾ phϾ pH Lh8`Ͼо־ǾҾ_` 볩Ӿ pW) "LEC`C )莼 з l6 7= /& /8Hh /` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ ;τ<:: <`:8` e eվ'OV)Jj зf Ja l + ѱ:ji Ĥ Ƀ B ,  簰 ` l])Y 񩢍`Ⱦɾ0Ǿ p1׾ؾ  p p ٷ H rh(`׾ؾ` : ߭׾t8퍼mؾŰ펼t폼 L28` ˌھپLp k V)@W0!XY X6Y7` YX`X:Y) F з8` # `l׾ XYW0V)4W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSԩ p`S pLjÍ FN I 9 : ׾hؾ  p hgͺ칾`LٷV)jC mMjà Lp `VJJ°L9Lp з)< L з L緭W)8VJưϥ3 켼 `F`4W)ɐ/XYjV  kimljn` pg׾mȾXhؾmɾYtѮȾɾ aYX`8g@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt N (B128);:B$B$(B128):CC1:C3C1:1300D1190TB$""1350n(B$)1(B$)51040}350:1600FB$(AP):350:1600x8AP:1403,25:" "B139AP1APAP1B138AP5APAP18AP:1403,25:"*":16368,0, Drive 1"3.1403,A:"< > 5. Slot 5 , Drive 2"ft::23)"Enter in the Disk Location :";:B$""16368,0:"+";(8);B(16384):B1281200B1411300B155ĺ(4);"RUN /RAM/U6"B138B1391400B185B173Ĺ16384,0:12001);E$h jjjj$lA$:22:A$:*@ST17,2:ST18,0ICP1R600gA24:9:C1:AP11403,A:"<*> 1. RAM Drive Slot 3 , Drive 21403,A:"< > 2. Slot 6 , Drive 1"$1403,A:"< > 3. Slot 6 , Drive 2" )1403,A:"< > 4. Slot 5 CH5E$"Rename Directory"W _CH7ĺA$::23);"Choose Source Disk and Files":616 `CH8ĺA$::24);"Choose Destination Disk / Path":616 aCH6E$"Print File(s)" bCH1E$"Rename File(s)" cCH8E$"Disk Directory"gE$""ĺA$::3 XA$"___________________________________________________________________________"k Y:E$"":CH(214) ZPT$""ĺA$::27);"Current Path>";PT$:616 [CH2E$"Locking File(s)" \CH3E$"Unlocking File(s)" ]CH4E$"Deleting File(s)" ^600:24:1403,1:" One Moment Please ";:1403,1:l 1000 24:1403,1:" One Moment Please ";:1403,1 J0140:F$(J)"":KP(J)0:J61DP%(J)0 J:U F$() :Stores Names of Files \ KP () :Stores the entries KEY POINTER if its  :a subdirectory file M :Counter for total # of files DP%() :Stores the Directories position in array f$ , ------ -1000b ^:<=>?@ABCDE5,144,2,0,0,169,15,37,215,133,215,96C FJ127:A:36863J,A:J] n:ST94096:CH(214) xF$(140),KP(140),DP%(61):M0: M IS FOR COUNTER SL(1)176:SL(2)96:SL(3)224:SL(4)80:SL(5)208 DN0: NUMBER OF DIRECTORY FILES ------$  n193 This program will send back this? 214,CH DN , pt$,NAMES  pk 215 th and call 36884 33792:20000& 2 32,0,191,128,13,144,208,1,96,141,19,144,96,3,96,25LLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T16:1403,50(B$):12001@ST14,SL((B$))KEST:2000:23:1403,1JNB(37121)(37122)256:ST17,(37121):ST18,(37122)^J371243759239`(J1)01650b215,(J1):36884:LE(215)dKP(M)0:(J1)127KP(M)(J16)(J17)256:DP%(DN)M:DNDN1IhIJJLE1:L(I):L28L91F$(M)F$(M)(L)|mI:".";:MM1:(J29)63F$(M1)"*"F$(M1)rJ:(214)5PT$F$(0):F$(1)"LLLLLLLLLL":DP%(1)1:4500|NB030001600(ST19)0ıV%(ST19):20006 FHIJKLMNOPQRSTUPLACE- 76,10,80,3,96,0,16,0,0,128S 173,9,80,141,19,80,32,0,191,0} 3,80,144,25,72,169,135,32,237,253 169,210,32,237,253,169,195,32,237,253  169,189,32,237,253,104,76,218,253,24  173,5,80,133,60,105,175,133,62,173 d BZAP.n EDITS PRODOS DISK BLOCKS:xB2(50)FD$(4)`X$"0123456789ABCDEF"MO$"???JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"BF30000: START OF BUFFER AREASTART20480:EN20552PLACESTARTENCODEPLACE,CODE 4);"pr#3":(18):ST19,0-*N(4);"close"J4NA$(V%)" has occurred"[8NV%47V%399NV%40A$": Device Not Responding":NV%39V%8A$"with I/O Procedures, Check Hardware">N:7:1403,4:"Error ";A$:::" Press any Key to Con't"HN(DN):P2$:J1DN:F$(J):J&PT$?C$;"CLOSE /RAM/DKT"e:CH(214):(4);"chain /RAM/U6"r nnonoF$(DP%(F))(F$(DP%(F)),(F$(DP%(F)))2):J1DN:JFDP%(J)DP%(J1)J:DNDN1:F21:4060:F20: NV%(222):216,0:3288&N(C$;"CLOSE /RAM/DKT"?\:CH(214):(4);"chain /RAM/U6"KC$(4)C$;"open /ram/dkt":C$;"read /ram/dkt":A$:DN(A$)P2$:J1DN:F$(J):J:C$;"close /ram/dkt"C$;"delete /ram/dkt"C$;"open /RAM/DKT"C$;"write /ram/dkt":M$"Y"M$"y"M$"N"M$"n"4140>6M$"Y"M$"y"4100N@M$(27)ĬZC$(4)rC$;"OPEN /RAM/DKT"C$;"WRITE /RAM/DKT"(DN)PT$:DN04600J1DN:A$(F$(DP%(J)),(F$(DP%(J)))2):(A$,1)"*"A$(A$,(A$)1)A$:J/DN0B0:F0:J1DN:FCDP%(J)B1:FJNDN0ĂJ:B1İ5000:4100"DNDN1:DP%(DN)FC:F$(FC)"> "F$(FC):F21:4060:F20:DN604500,16368,0:24:1403,1." Another File to Choose (Y/N) : ";(8);&/M$:M$(27)Ĺ1403,1:4142:(M$"0"M$"9")M$"C"M$"c"ĺM$;P M2$:M2$""4105k M2$""M2$(8)4100M$"C"M$"c"Ĺ1403,1:E14ME1:4060M$"C"M$"c"Ĺ1403,1:EE14:4060(M2$"0"M2$"9")ĺM2$;FC(M$M2$):FC1FCM4100 ":4080@F$(D)""ĺ28);" ":4080w28);(" "(D),4);". ";F$(D);" "D:F21ı16368,0:24:1403,1" Enter Number of File to Choose (C to con't) : ";(8);(8);:M$:M$""4100M$(27)filesPT$PT$"/"F$(0)0(214)84800g(214)8DP%(1)1:F$(1)"llllllllllll":DN1:4500yE1:600:F20M1Ģ7:26);"NO FILES TO CHOOSE !!!!":16368,0:24:A$:110DN06:1403,1::DEE14D140ĺ28);" $"C"M$"c"Ĺ1403,1:E14DNE1:3060Q+ M$"C"M$"c"Ĺ1403,1:EE14:3060s0 CH(M$M2$):CH0CHDN31002 CH0M$"0"31005 CH04050: ST18,(KP(DP%(CH))256)D ST17,(KP(DP%(CH))((ST18)256))N DN0:M0:400X 1600 ;". ";F$(DP%(D));" "* DD 16368,0:24:1403,1 " Enter Number of Directory to Access : ";(8);(8);:M$:M$""3100 (M$"0"M$"9")M$"C"M$"c"ĺM$; M$(27)Ĭ! M2$:M2$""3105" M2$""M2$(8)3100)& M --- Pick Directories --- - DN14000L PT$""PT$PT$"/"F$(0)f PT$""PT$"/"F$(0)s E0:600 7:DEE14 D60ĺ28);" ":3080 DP%(D)0D0ĺ28);" ":3080# 28);(" "(D),4))  6,80,133,61,105,0,133,63,76,179: " 253,0,0 c ,"READ WHICH BLOCK INTO MEMORY? ";BNn 6X(0) @BH(BN256):BLBN(BH256) JST7,BL:ST8,BH TST9,128: READ BLK ^"WHICH DISK DRIVE? ";DV h SELECT INPUT DEVICE rDV1M BLOCK ";(B2(0))((B2(1))256)T"CONTINUED AT BLOCK ";(B2(2))(B2(3))256iD(B2(4)):1580tH1$H$(H$)2H1$(H$,1)2930: GET STORAGE TYPE"STORAGE TYPE: ";ST$H1$"F"CD1: NOT DIR HEADER1 CD1FL393100 DIR FORMAT1: DIRECTORY HEADER;D1890EN2050OX2290nb"PRINT IT? (Y OR N): ";P$lP$"Y"ī1920v(4);"PR#1":"BLOCK ";BN:BY32768: START OF BUFFERB1043B2(B1)BYB1B1#"CONTINUED FROH$H2$:1470 D15NLD-NB1NLA((BY4NB));INBOY2160"KEY BLOCK OF PARENT DIRECTORY: ";(BY39)(BY40)256"ENTRY NUMBER WITHIN PARENT DIR.: ";(BY41)"LENGTH OF ENTRIES IN PARENT DIR.: ";(BY42)&2 HEX OUTPUT IS H$r6| SUBDIRECTORY FORMAT@1890jH1$"E"CS1: NOT SUBDIR HEADER CS1FL39:EB13:NF20:"CONTINUATION OF SUBDIRECTORY":2310(H$)2H2$(H$,1):"NAME LENGTH: ";H2$"SUBDIRECTORY NAME: ";NL15$)A$(H$,C,1)8A$"0"A$"9"V(A$):1530GV(A$)55TDD16V[Cw DECIMAL OUTPUT IS D}" DEC TO HEX, ENTER WITH DEC # AS D6H$""@Q(D16)JRDQ16TH$(X$,R1,1)H$^QDQ:1600h ,NCn520*x12297,129: WRITE BLKT"BLOCK #";BN;" WAS READ INTO MEMORY"x"WRITE MEMORY TO BLOCK #: ";BNBH(BN256):BLBN(BH256)12295,BL:12296,BH350 HEX TO DEC ENTER WITH HEX # AS H$D0:C1(H"START ADDRESS (DECIMAL): ";ST9 "END ADDRESS:";ENGADSTEN" CURRENT CONTENTS OF ADDRESS ";AD;" = ";(AD);:"NEW CONTENTS: ";NC(AD,NC2AD<520F"DECIMAL ADDRESS: ";ADP"CONTAINS: ";(AD)Z"NEW CONTENTS: ";NCdAD(A9160)ĺ"-";:1140#j(A9);-t" ";=~A99ĺ" ";NA999ĺ" ";TZd XlBYr(49183)127ĺ(4);"PR#3":500D$;"PR#0"500"CHANGE A RANGE OF ADDRESSES? (Y OR N): ";I$I$"N"I$"n"1350"80:H$"ASCII: ";(A9A1:11008A9A2:1100HA9A3:1100XA9A4:1100hA9A5:1100xA9A6:1100A9A7:1100A9A8:1100$1180.D19D116ĺ" ";8D199ĺ" ";BL VA932ĺ"-";:1140`(A9127)pDA1:D1D:1580:H$;" ";:1070FzDA2:D1D:1580:H$;" ";:1070iDA3:D1D:1580:H$;" ";:1070DA4:D1D:1580:H$;" ";:1070DA5:D1D:1580:H$;" ";:1070DA6:D1D:1580:H$;" ";:1070DA7:D1D:1580:H$;" ";:1070DA8:15"BLOCK ";BN;":"*BY327683328087 A1(BY)FA2(BY1)U A3(BY2)d*A4(BY3)s4A5(BY4)>A6(BY5)HA7(BY6)RA8(BY7)\BY;": ";A1;" ";A2;" ";A3;" ";A4;" ";A5;" ";A6;" ";A7;" ";A8f"$";:DBY:1580:H$;": ";#" 5 = QUIT" 4 " 6 = DIRECTORY FORMAT": [ " 7 = SUBDIRECTORY FORMAT"a ~ "ENTER THE NUMBER: ";OP OP720,1250,1400,300,1460,1840,1660 690  "PRINT IT? (Y OR N): ";P2$ P2$"N"P2$"n"ī760 D$;"PR#1" RESET CONTINUATION FLAGS" T "BLOCK ";BN;" WAS READ INTO MEMORY AT $8000"Z o "YOUR CHOICES:"u  &" 1 = SHOW AS ASCII" 0 :" 2 = CHANGE MEMORY" D N" 3 = WRITE TO DISK" X b" 4 = READ ANOTHER BLOCK" l vĹST4,96 |DV2ĹST4,224? "PRINT IT? (Y OR N): ";P1$Y P1$"N"P1$"n"ī430h D$;"PR#1"} :"BLOCK ";BN: ST5,0:ST6,128: BUFFER 20480 : (49183)127ĺ(4);"PR#3":480 D$;"PR#0" OP3520 CD0:CS0::EB13:NF20:"CONTINUATION OF DIRECTORY":2310_(H$)2H2$(H$,1):"NAME LENGTH: ";H2$u "VOLUME NAME: ";*NL154H$H2$:1470>D15NLDHNB1NLR((BY4NB));\NBfpB2BY:B528: DATE BYTEz3010: GET DATE#"CREATION DATE: "DT$;" ";TI$D"PRODOS VERSION: ";(BY32)f"MINIMUM VERSION: ";(BY33)"ACCESS: ";(BY34)FL(BY35)"LENGTH OF FILE ENTRIES: ";FLEB(BY36)"ENTRIES PER BLOCK OF DIR: ";EBNF(BY37)(BY38)2VXYZYiYZi]}YiYZi]}YjUZj]]jjYZj]ZjYZi]}ZjYZi]=ǠĠ ɳƠᠠ 򠠻ĠϹҠĠĠԠƠàĠ¤ĠĠĠԠ  ɍL@"?"& 8" "S W R V ``R S V W ` Q U H)hJJ 0JJ)0 Y Q U Y Y Q U Y Q m W S R V Q U Y `Ϡ͠ҠנćYiY}Zi]}[jYZi]}"-"("00"(YY),2)D$N TIME$("00"(HH),2)":"("00"(MI),2)`$X PM1TIME$TIME$" PM"|$b PM0TIME$TIME$" AM"$l OUTPUT DT$, TI$$v (B2B5)32)%# MM$(MO$,MM31,3)=# READ SYSTEM TIMEO# MI(B2B52)a# HH(B2B53)|# CONVERT 24 HR TO 12# HH11PM1#& HH12HHHH12#0 HH0HH12#: DD0DT$"(NO DATE)":TIME$"(NO TIME)":3190$D DT$("00"(DD),2)"-"MM$"2"ST$"SAPLING"," H1$"3"ST$"TREE"L" H1$"D"ST$"SUBDIRECTORY"s" H1$"E"ST$"SUBDIRECTORY HEADER"" H1$"F"ST$"DIRECTORY HEADER"" " DATES" DD(B2B5)((B2B5)32)32" YY((B2B51)2) # MM((B2B51)YY2)8(256!" B533:30109!, "DATE MODIFIED: ";DT$;" ";TI$h!6 "DIRECTORY BLOCK: ";(B237)(B238)256n!@ !J FILE(EB1)FILENF!T FILE!Y TM12000:TM!^ 450!h STORAGE TYPE!r H1$"0"ST$"DELETED"!| H1$"1"ST$"SEEDLING"" H1$)256D "LENGTH OF FILE: ";(B221)(B222)256(B223)65536\ B524:3010: DATE "CREATION DATE: ";DT$;" ";TI$ "PRODOS VERSION: ";(B228)  "MINIMUM VERSION: ";(B229)  "ACCESS: ";(B230)! "AUX. TYPE: ";(B231)(B232)F0"H$"COMMAND FILE"9 H$"FC"H$"APPLESOFT BASIC"Y H$"FD"H$"VARIABLE FILE" H$"FE"H$"RELOCATABLE CODE FILE" H$"FF"H$"SYSTEM FILE" H$ "LOCATION OF KEY BLOCK: ";(B217)(B218)256 "BLOCKS USED: ";(B219)(B220PE: ";< D(B216):15803F H$"4"H$"TEXT"KP H$"6"H$"BINARY"fZ H$"F"H$"DIRECTORY"d H$"19"H$"APPLEWORKS DATABASE"n H$"1A"H$"APPLEWORKS WP FILE"x H$"1B"H$"APPLEWORKS SPREADSHEET" H$"EF"H$"PASCAL FILE" H$"2450 H1$(H$,1)( ST$H1$:2920C "STORAGE TYPE: ";ST$S H2$(H$,1)t H$H2$:1470: GET DECIMAL "NAME LENGTH: ";D "FILE NAME: ", NL15 D15NLD D0NL15 NB1NL ((B2NB)); NB( 2 "FILE TYB B2(B1)(BYB1)L B15V START AT 1ST FILEM` "FILE ENTRY ";FILEjj B232810((FILE1)FL)1t CDB2BY4((FILE1)FL)~ MAKE BYTE 0 INTO 2 CHAR STRING D(B2):1580: GET HEX H$ (H$)1H$"0"H$ (H$)2H$(H$,2):56#"FILES IN DIRECTORY: ";NF)_"LOCATION OF VOL BITMAP: ";(BY39)(BY40)256"TOTAL BLOCKS IN VOL: ";(BY41)(BY42)256  SHOW FILE DATA FILE1NF$ H$"":H1$"":H2$"". FILL ARRAY FOR FILE8 B10FLحlm &)RSTUA"-"P."Q`8L&&np8&8ɾɾ-ؾ&׾پ&ξȾ8ؾھ&tϾ& ɍ`lm no pL$G< = Ǿ pL#)L#ȩ/ȑ84):B1281200" B14113008 B138B1391400Y B185B173Ĺ16384,0:1200w (B128);:B$B$(B128) CC1:C3C1:1300 1190 B$""1350 (B$)0((B$,1)"0"(B$,1)"0")ė::"TYPE : RUN /RAM/U6 9. Copy Disk"Q G1403,A:"< >10. Format Disk"x L1403,A:"< >11. Read Disk Blocks" V1403,A:"< >12. Print Sequential Files" t::23)"Enter Option Number (0 to Exit) ";:B$"" 16368,0:"+";(8); B(163A:"<*> 1. Copy File"9 1403,A:"< > 2. Rename File"Y $1403,A:"< > 3. Lock File"{ )1403,A:"< > 4. Unlock File" .1403,A:"< > 5. Delete File" 31403,A:"< > 6. View Directory" 81403,A:"< > 7. Print Directory" =1403,A:"< > 8. Rena\^_`abcdefghiA$::27);"Real ProDOS Utilities"5 vA$:22:A$; A J CP1 A$"___________________________________________________________________________" A$::22);"Real Software Utilities (C)1986" A$:22:A$ A24:7:C1:AP1 1403,  U6$Z(4);"close /RAM/FM"/\38400;_20000QdF$(120):C4$(4)xCH0ĴCH2010,3010,4010,5010,8004,12010,1903,1907,6010,70101000X:CP1bA$"___________________________________________________________________________"% lhold" 38400% (4);"run u6"dd(4);"pr#3"iOn n19,bzap,copy,u6,bz4,copyb,cpp,format,fm,diskcs::::19);"Loading Utilities / Real Software (C) 1986"x(4);"brun copy"::J110:A$:".";(4);"copy ";A$;",/ram/";A$J: (4);"create /ram/COPYҺԠͮٲĠŠҮҬϠԮŠӮſٯΩԮŠĮſٯΩ٠ĬϠҠŇ٠ĬԮŠ٠Šćܾھ px&־&پ&ھ p[ pT pM & & & & p) p"&޾ pL#&&޾ p&L#&&޾ p&޾ p& ɍ&L#젠Ṡᠠ̠󠠠ΠàӠ8L  pL$Lr% &͸ Lr%P& ɍ)_YLd%)L$v& ɍ)_YLd% Í p,Lr% & Í & & & pLr%&ξ&Ͼ pLr%о޾Ǿ&&־۾وi/ȑ/)qq i/)qqiL# pL & & & & 8( p!о־& p'Lr%&&`&&&&- MUST BE IN 80COL MODE":7 (B$)1(B$)121040A 1600T FB$(AP):1600l x6AP:1403,25:" " B139AP1APAP1 B138AP12APAP1 6AP:1403,25:"*":16368,0 21:1403,53(B$):1200$@(B$)1900,2000,3000,4000,5000,6000,7000,8000,8500,9100,9500,12000Fl:CH7:(4);"chain /ram/n19"Xo9000:DN0Ĭzq:CH8:(4);"chain /ram/n19"s9000:DN0Ĭx600z8:1403,1:"Source Path :";PT$:10:1403,1:"Destination :";P2${QE$"Copy File(s) (Y/N)":22000:NCain /RAM/N19"*.PT$"":9000:PT$""Ĭ6.J1DN.QE$"When Printer is Ready - Press ":22000:16368,0:A$:A$(13)12020.QE$"Printing "F$(J):22000.(24);(12);(21)::::" Sending Data to Printer":(4);"pr#1"/t"7#C$;"read /ram/dkt"8<#A$:DN(A$):DN09070AF#PT$WP#J1DN:F$(J):JgU#CH89070pZ#P2$n#C$;"close /ram/dkt"x##:3:1403,1:16368,0#(4);"exec /ram/fm"##%600:(4);"run /ram/bz4".:CH6:(4);"ch$"N"8040rQ$"N"Ĭ7|(V$,1)"/"V$V$"/"S(V$,1)"/"V$"/"V$t(4);"RENAME /";PT$;"/,";V$QE$"Rename Complete - Press any Key":2200016368,0:A$:4!(4);"run /ram/diskc">!'#(#C$(4)2#C$;"open /ram/dke":22000v16368,0:A$:A@:CH5:(4);"chain /ram/n19"\DPT$"":9000:PT$""ĬE600:QE$"Enter new name for Volume "PT$" :":22000JNC14:5400:Q$""8010^V$Q$ hQE$"Rename Volume to "V$" (Y/N):":22000:NC1:5400:Q$"Y"QPT$""ĬagQE$"When Printer is Ready - Press ":22000:16368,0:A$:A$(13)7015l(24);(12);(21)::::" Sending Data to Printer":(4);"pr#1"o(4);"catalog ";PT$ q(4);"pr#3":(18):600:QE$"Press Any Key to Continu z here(PT$"":9000:PT$""ĬwQE$"Use CONTROL - S to Pause Screen Listing / Press Return to Begin":60016368,0:22000:A$:A$(13)6019(4);"catalog ";PT$16368,0:A$:X:CH10:(4);"chain /ram/n19" bPT$"":9000:VCV1:Q$(Q$,1,(Q$)1):5420ATW$;:CVCV1:Q$Q$W$:5420GVv|BJ0:B0:J1(Q$):(Q$,J,1)"-"J1B6(Q$,J,1)"."BB1:BJJJ:BJĭ(Q$)2BJB5Q$""5420200:MENUı5420p:CH9:(4);"chain /ram/n19"3QW96QWQW32:W$(QW);;(QW32QW122)ĺ"";:5420Y<F11ĭ(QW48QW57)5420}=F21ĭ(QW45QW57QW47)5420>F1(QW65QW90)QW32F2QW42(QW47QW57)5420@CVNC5420JCV0QW1275420!OQW127DE$(8):DE$" "DE$;:C200016368,0:A$:(16368,0A"CV0:Q$"":F30:ME0P,"+";(8);d-W$:W$""5421}." ";(8);:E1%(W$)/W$(13)F2155001ET%3E2%İ300:MEı2E1%27ġ:6QW(W$):QW13ı8QW8QW1279QW1275450:QW12(4);"chain /ram/n19"*9000:DN0ĬqQE$"Delete File(s) (Y/N)":22000:NC1:5400:Q$"Y"Q$"N"5040Q$"N"ĬJ1DN:QE$"Deleting "F$(J):22000(4);"delete ";PT$;"/";F$(J)JQE$"Deletions Completed - Press any Key":20ĬLQE$"Unlock File(s) (Y/N)":22000:NC1:5400:Q$"Y"Q$"N"4040ZQ$"N"ĬJ1DN:QE$"Unlocking "F$(J):22000(4);"unlock ";PT$;"/";F$(J)JQE$"Unlocking Completed - Press any Key":2200016368,0:A$::CH4:N)":22000:NC1:5400:Q$"Y"Q$"N"3040; Q$"N"Ĭc J1DN:QE$"Locking "F$(J):22000 (4);"lock ";PT$;"/";F$(J) J QE$"Locking Completed - Press any Key":22000 16368,0:A$::CH3:(4);"chain /ram/n19"9000:DN$(J)" file :":220003NC14:5400:Q$""2065e(4);"rename ";PT$;"/"F$(J);(44);PT$;"/";Q$l J*QE$"Renaming Completed - Press any Key":22000416368,0:A$: :CH2:(4);"chain /ram/n19" 9000:DN0Ĭ- QE$"Lock File(s) (Y/1:5400:Q$"Y"Q$"N"1915-}Q$"N"ĬK600:(4);"run /ram/cpp"Qs:CH1:(4);"chain /ram/n19"9000:DN0ĬQE$"Rename File(s) (Y/N)":22000:NC1:5400:Q$"Y"Q$"N"3040Q$"N"Ĭ J1DN:QE$"Enter new name for "F(4);"open ";PT$;"/";F$(J)=/(4);"read ";PT$;"/";F$(J)I/12080]&/A$:A$;:12070}0/(4);"close":216,0:32885/(4);"pr#3":(18)6/J7/6008/20000:/QE$"Printing Complete - Press any Key":22000D/16368,0:A$: NV%(222):216,0:3288 %N200008&N(4);"pr#3":(18)J*N(4);"close"w/NV%90Ľ:CH(214):(4);"CHAIN /RAM/U6"4NA$(V%)" has occurred"5NV%4A$"Disk is Write Protected"6NV%6A$"File was Not Found"7NV%8A$"with I/O Procedures, C4;" ";A5;" ";A6;" ";A7;" ";A8>f"$";:DBY:1580:H$;": ";apDA1:D1D:1580:H$;" ";:1070zDA2:D1D:1580:H$;" ";:1070DA3:D1D:1580:H$;" ";:1070DA4:D1D:1580:H$;" ";:1070DA5:D1D:1580:H$;" ";:1070DA6:D1D:1580:30P2$Q$.P2$"N"ė:7:1403,1:760=D$;"PR#1"R"BLOCK ";BN;":"hBY32768332808u A1(BY)A2(BY1) A3(BY2)*A4(BY3)4A5(BY4)>A6(BY5)HA7(BY6)RA8(BY7)\BY;": ";A1;" ";A2;" ";A3;" ";A= Quit"XxQE$"Enter the Choice Number #":22000:NC1:F11:5400:F10:Q$"1"Q$"3"Q$"2"690OP(Q$)OP720,300,1460690 ooooQE$"Printer Output Desired ? (Y/N):":22000:F10:NC1:5400:Q$"Y"Q$"N"7#0" OP3520= CD0:CS0: RESET CONTINUATION FLAGSR 4000:7:1403,2{ "BLOCK ";BN;" WAS READ INTO MEMORY"  "YOUR CHOICES:"  &" 1 = Show as ASCII with Hex/Dec Values" 0 :" 2 = Read Another Block" D N" 3 Y"Q$"N"390 P1$Q$, P1$"N"430; D$;"PR#1"P :"BLOCK ";BN:q ST5,0:ST6,128: BUFFER| 20480 :"Addr - - CONTENTS HEX - - Press any Key to Con't":16368,0:A$:1403,1 (49183)127ĺ(4);"PR#3":480 D$;"PREAD BLKj ^QE$"Slot 6 and which Disk Drive ( 1 or 2 ) #":22000:NC1:F11:5400:(Q$)1(Q$)2350w cDV(Q$) h SELECT INPUT DEVICE rDV1ĹST4,96 |DV2ĹST4,224 QE$"Printer Output Desired ? (Y/N):":22000:F10:NC1:5400:Q$"*  6,80,133,61,105,0,133,63,76,179; " 253,0,0 G '4000: ,QE$"Enter Block Number to Read into Memory #":22000 1NC4:F11:5400:Q$""300 2BN(Q$) 6X(0) @BH(BN256):BLBN(BH256) JST7,BL:ST8,BH TST9,128: Rjlmnopqrstuvwxyz PLACE. 76,10,80,3,96,0,16,0,0,128T 173,9,80,141,19,80,32,0,191,0~ 3,80,144,25,72,169,135,32,237,253 169,210,32,237,253,169,195,32,237,253  169,189,32,237,253,104,76,218,253,24  173,5,80,133,60,105,175,133,62,173d BZ4 /n EDITS PRODOS DISK BLOCKS;xB2(50)GD$(4)aX$"0123456789ABCDEF"MO$"???JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"BF30000: START OF BUFFER AREASTART20480:EN20552PLACESTARTENCODE PLACE,CODE lease Check for Correct Name":22000:25020v!aC4$;"close":QE$"Sorry but Error "((222))" has Occurred":22000!a3288:25000!aA$:A$""25040!a1000 ";:1403,1F UB270p U(QE$)75Ģ24:1403,1:QE$;:"->";: V(QE$,B2,1)" "B2B21:22020 V(QE$,B21):(QE$,(QE$)B2)" - >";: a216,0:V%(222)-!aV%5QE$"Invalid Report Data File - Pheck Hardware",8NV%9A$"Disk is Full"T9NV%10A$"Accessed File is Locked":NV%13A$"File Accessed is not of Correct type for Procedure">N:7:1403,4:"Error ";A$:::" Press any Key to Con't"HN16368,0:A$:< U24:1403,1:" H$;" ";:10703DA7:D1D:1580:H$;" ";:1070FDA8:1580:H$V"ASCII: ";fA9A1:1100vA9A2:1100A9A3:1100A9A4:1100A9A5:1100A9A6:1100A9A7:1100A9A8:1100$1180.D19D116ĺ" "; 8D199ĺ" ";BL 2VA932ĺ"-";:1140U`(A9127)(A9160)ĺ"-";:1140aj(A9);kt" ";{~A99ĺ" ";A999ĺ" "; XBY(49183)127ĺ(4);"PR#3":500D$;"PR#0"500<520F":TM ^ 450$ h STORAGE TYPE? r H1$"0"ST$"DELETED"[ | H1$"1"ST$"SEEDLING"v H1$"2"ST$"SAPLING" H1$"3"ST$"TREE" H1$"D"ST$"SUBDIRECTORY" H1$"E"ST$"SUBDIRECTORY HEADER" H1$"F"ST$"DIRECTORY HEADER" !)% "MINIMUM VERSION: ";(B229)> "ACCESS: ";(B230)g "AUX. TYPE: ";(B231)(B232)256w" B533:3010, "DATE MODIFIED: ";DT$;" ";TI$6 "DIRECTORY BLOCK: ";(B237)(B238)256@ J FILE(EB1)FILENFT FILE Y TM12000  H$> "LOCATION OF KEY BLOCK: ";(B217)(B218)256i "BLOCKS USED: ";(B219)(B220)256 "LENGTH OF FILE: ";(B221)(B222)256(B223)65536 B524:3010: DATE "CREATION DATE: ";DT$;" ";TI$ "PRODOS VERSION: ";(B228PLEWORKS WP FILE"<x H$"1B"H$"APPLEWORKS SPREADSHEET"Z H$"EF"H$"PASCAL FILE"y H$"F0"H$"COMMAND FILE" H$"FC"H$"APPLESOFT BASIC" H$"FD"H$"VARIABLE FILE" H$"FE"H$"RELOCATABLE CODE FILE" H$"FF"H$"SYSTEM FILE"  NL15 D15NLD) D0NL156 NB1NLH ((B2NB));P NBV( j2 "FILE TYPE: ";< D(B216):1580F H$"4"H$"TEXT"P H$"6"H$"BINARY"Z H$"F"H$"DIRECTORY"d H$"19"H$"APPLEWORKS DATABASE"n H$"1A"H$"APTO 2 CHAR STRING3 D(B2):1580: GET HEX H$J (H$)1H$"0"H$h (H$)2H$(H$,2):2450x H1$(H$,1) ST$H1$:2920 "STORAGE TYPE: ";ST$ H2$(H$,1) H$H2$:1470: GET DECIMAL "NAME LENGTH: ";D "FILE NAME: ", SHOW FILE DATA  FILE1NF8$ H$"":H1$"":H2$""T. FILL ARRAY FOR FILEa8 B10FLuB B2(B1)(BYB1)}L B1V START AT 1ST FILE` "FILE ENTRY ";FILEj B232810((FILE1)FL)1t CDB2BY4((FILE1)FL)~ MAKE BYTE 0 INFILE ENTRIES: ";FL$EB(BY36)I"ENTRIES PER BLOCK OF DIR: ";EBfNF(BY37)(BY38)256"FILES IN DIRECTORY: ";NF"LOCATION OF VOL BITMAP: ";(BY39)(BY40)256"TOTAL BLOCKS IN VOL: ";(BY41)(BY42)256  HNB1NL"R((BY4NB));*\NB0fMpB2BY:B528: DATE BYTEcz3010: GET DATE"CREATION DATE: "DT$;" ";TI$"PRODOS VERSION: ";(BY32)"MINIMUM VERSION: ";(BY33)"ACCESS: ";(BY34)FL(BY35)"LENGTH OF STORAGE TYPE("STORAGE TYPE: ";ST$.TH1$"F"CD1: NOT DIR HEADER CD1FL39:EB13:NF20:"CONTINUATION OF DIRECTORY":2310(H$)2H2$(H$,1):"NAME LENGTH: ";H2$ "VOLUME NAME: ";*NL154H$H2$:1470>D15NLD ";BN:*BY32768: START OF BUFFER7B1043HB2(B1)BYB1PB1"CONTINUED FROM BLOCK ";(B2(0))((B2(1))256)"CONTINUED AT BLOCK ";(B2(2))(B2(3))256D(B2(4)):1580H1$H$(H$)2H1$(H$,1)2930: GET H DEC # AS D6H$""&@Q(D16)3JRDQ16ITH$(X$,R1,1)H$Z^QDQ:1600th HEX OUTPUT IS H$zr: DIRECTORY HEADERD1890N2050X2290b"PRINT IT? (Y OR N): ";P$lP$"Y"ī1920v(4);"PR#1" :"BLOCK350(4);"run /ram/u6"2 HEX TO DECQ ENTER WITH HEX # AS H$dD0:C1(H$)uA$(H$,C,1)A$"0"A$"9"V(A$):1530V(A$)55DD16VC DECIMAL OUTPUT IS D" DEC TO HEX, ENTER WITDECIMAL ADDRESS: ";AD/P"CONTAINS: ";(AD)HZ"NEW CONTENTS: ";NCSdAD,NC\n520xx12297,129: WRITE BLK"BLOCK #";BN;" WAS READ INTO MEMORY""WRITE MEMORY TO BLOCK #: ";BNBH(BN256):BLBN(BH256)12295,BL:12296,BH DATES.! DD(B2B5)((B2B5)32)32E! YY((B2B51)2)o! MM((B2B51)YY2)8((B2B5)32)! MM$(MO$,MM31,3)! READ SYSTEM TIME! MI(B2B52)! HH(B2B53)! CONVERT 24 HR TO 12! HH11PM1"& HH12HHHH"0 HH0HH12D": DD0DT$"(NO DATE)":TIME$"(NO TIME)":3190x"D DT$("00"(DD),2)"-"MM$"-"("00"(YY),2)"N TIME$("00"(HH),2)":"("00"(MI),2)"X PM1TIME$TIME$" PM""b PM0TIME$TIME$" AM""l OUTPUT DT$, TI$"v #:COPYҺԠͮٲĠŠҮҬϠԮŠӮſٯΩԮŠĮſٯΩ٠ĬϠҠŇ٠ĬԮŠ٠Šćܾھ px&־&پ&ھ p[ pT pM & & & & p) p"&޾ pL#&&޾ p&L#&&޾ p&޾ p& ɍ&L#젠Ṡᠠ̠󠠠ΠàӠ8L  pL$Lr% &͸ Lr%P& ɍ)_YLd%)L$v& ɍ)_YLd% Í p,Lr% & Í & & & pLr%&ξ&Ͼ pLr%о޾Ǿ&&־۾وi/ȑ/)qq i/)qqiL# pL & & & & 8( p!о־& p'Lr%&&`&&&&حlm &)RSTUA"-"P."Q`8L&&np8&8ɾɾ-ؾ&׾پ&ξȾ8ؾھ&tϾ& ɍ`lm no pL$G< = Ǿ pL#)L#ȩ/ȑ{}~YiYZi]}YiYZi]}YjUZj]]jjYZj]ZjYZi]}ZjYZi]=ǠĠ ɳƠᠠ 򠠻ĠϹҠĠĠԠƠàĠ¤ĠĠĠԠ  ɍL@"?"& 8" "S W R V ``R S V W ` Q U H)hJJ 0JJ)0 Y Q U Y Y Q U Y Q m W S R V Q U Y `Ϡ͠ҠנćYiY}Zi]}[jYZi]}1:220205'V(QE$,B21):(QE$,(QE$)B2)" ->";:1)"."BB1:BJJ.&J:BJĭ(Q$)2BJB5>&Q$""5420D&U&200:MENUı_&5420&U24:1403,1:" ";:1403,1&UB260&U(QE$)60Ģ24:1403,1:QE$;:"->";: 'V(QE$,B2,1)" "B2B2F1(QW65QW90)QW32F2QW42(QW47QW57)5420H%@CVNC5420^%JCV0QW1275420%OQW127DE$(8):DE$" "DE$;:CVCV1:Q$(Q$,1,(Q$)1):5420%TW$;:CVCV1:Q$Q$W$:5420%V%|BJ0:B0:J1(Q$):(Q$,J,1)"-"J1B6&(Q$,J,W$(13)F215500.$1ET%3E2%İ300:MEı>$2E1%27ġ:T$6QW(W$):QW13ıe$8QW8QW127v$9QW1275450$:QW123QW96QWQW32:W$(QW)$;(QW32QW122)ĺ"";:5420$<F11ĭ(QW48QW57)5420$=F21ĭ(QW45QW57QW47)54208%>CP1[#A$"___________________________________________________________________________"#A$::27);"Real ProDOS Utilities"#A$:22:A$##16368,0#"CV0:Q$"":F30:ME0#,"+";(8);#-W$:W$""5421#." ";(8);:E1%(W$)$/  cpp'd(4);"BRUN /RAM/COPYB"3i20000@nF$(120)24:1403,1:"Choose : (1) 1 Drive System (2) 2+ Drive System #";:A$:A$"1"A$"2"A$(27)500A$(27)ĺ(4);"run /ram/u6"DS(A$):9000 (4);"delete /ram/dkt"I U 7TU 7TU 7TMUMU 7TiiUU`HJ h `TU8U3IiU.TNU.TTTT TT TIUUU` UV `ԠŠ庠5U : RLRg2U801݌L7SIL@SHhɀꝍ݌콎` R ]RSU :LRgS SUS S󢫩S S SS SU`S S``ժުժުhYR KR*UXR KR ]RU : :R UULP ]RL ) ` TR``VLR `*  .. `URH)pUh轊U#UU ETUUU fS S SUUV U ETLRU`H,U :h hUUUhʽUhʎU KRXRXRߠ" ]RݠT : :RLQNR`ZRVRWRUUQXRYR KR)XRYRUUUUXRYRҮUUU1UUQLqQLZR ]RQ fRɱ wU :LQU :LQNRhVRWRXR0URUUT : ɰɸ T : ɱɲ ]R)****URɱUR URT :۩$ ʩ Ɉɍ#ɮɰɺ )۰ )UΊT)U$ iU RNRVVRWRXRYR KRXRhVRWR:NV%13A$"File Accessed is not of Correct type for Procedure" >N:7:1403,4:"Error ";A$:::" Press any Key to Con't" CN(219)256(218) HN16368,0:A$:105 RN --------------------------------;"pr#3":(18)" *N(4);"close"? 4NA$(V%)" has occurred"f 5NV%4A$"Disk is Write Protected" 6NV%6A$"File was Not Found" 7NV%8A$"with I/O Procedures, Check Hardware" 8NV%9A$"Disk is Full" 9NV%10A$"Accessed File is Locked"B 11:1403,38:16368,0:A$:A$(13)10005 A (#C$(4)Y 2#C$;"open /ram/dkt"q 7#C$;"read /ram/dkt" <#A$:DN(A$):DN09070 F#PT$ P#J1DN:F$(J):J:P2$ n#C$;"close /ram/dkt" # NV%(222):216,0:3288 %N20000 &N(4):1403,17:"Insert Destination Disk and Press Return":1000z qB$P2$"/"F$(J):(4);"copy ";"/ram/hold/";F$(J);",";B$ u(4);"unlock /ram/hold/";F$(J) v(4);"delete /ram/hold/";F$(J)  (4);"copy ";PT$;"/";F$(J);",";P2$;"/";F$(J) /J1DN:17:1403,30:"Copying ";F$(J);" ":DS600,650:JT +38400l ,(4);"run /ram/u6"z X 1 drive ]9:1403,17:" Insert Source Disk and Press Return ":1000 bB$PT$"/"F$(J):(4);"copy ";B$;",/ram/hold/";F$(J)= l9忠ٯΩ렠렡뿠ٯΩ' "8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL 4);"open /ram/dkt.2":(4);"read /ram/dkt.2":P2$:(4);"close"Jx600{QE$"Copy File(s) from "PT$" to "P2$" (Y/N)":22000:NC1:5400:Q$"Y"Q$"N"1915}Q$"N"Ĭ(4);"run /ram/cpp":CH1:(4);"chain /ram/n19" 9000:2APAP1- 6AP:1403,25:"*":16368,0J 21:1403,53(B$):1200 @(B$)1900,2000,3000,4000,5000,6000,7000,8000,8500,9100,9500,12000 l:CH7:(4);"chain /ram/n19" o9000:DN0Ĭ q:CH8:(4);"chain /ram/n19" s9000:DN0ĬAv( B138B13914008 B185B173Ĺ16384,0:1200V (B128);:B$B$(B128)p CC1:C3C1:1300z 1190 B$""1350 (B$)1(B$)121040 1600 FB$(AP):1600 x6AP:1403,25:" " B139AP1APAP1 B138AP19. Copy Disk"1 G1403,A:"< >10. Format Disk"X L1403,A:"< >11. Read Disk Blocks" V1403,A:"< >12. Print Sequential Files" t::23)"Enter Number of Option Desired ";:B$"" 16368,0:"+";(8); B(16384):B1281200 B1411300A:"< > 2. Rename File"9 $1403,A:"< > 3. Lock File"[ )1403,A:"< > 4. Unlock File"} .1403,A:"< > 5. Delete File" 31403,A:"< > 6. View Directory" 81403,A:"< > 7. Print Directory" =1403,A:"< > 8. Rename Directory" B1403,A:"< > DOS Utilities" vA$:22:A$& , 5 CP1 A$"___________________________________________________________________________" A$::27);"Real ProDOS Utilities" A$:22:A$ A24:7:C1:AP1 1403,A:"<*> 1. Copy File" 1403,  U6$Z(4);"close /RAM/FM"0_20000FdF$(120):C4$(4)~xCH0ĴCH2010,3010,4010,5010,8004,12010,1903,19071000X:CP1bA$"___________________________________________________________________________" lA$::27);"Real ProBRUN /RAM/FORMAT RUN /RAM/U6 L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RDN01000600:DN0ĬcQE$"Rename File(s) (Y/N)":22000:NC1:5400:Q$"Y"Q$"N"3040qQ$"N"Ĭ J1DN:QE$"Enter new name for "F$(J)" file :":22000NC14:5400:Q$""2065(4);"rename ";PT$;"/"F$(J);(44);PT$;"/";Q$ J7*QE$"Renaming Completed - Press any Key":22000K416368,0:A$:m :CH2:(4);"chain /ram/n19" 9000:DN01000 600:DN0Ĭ QE$"Lock File(s) (Y/N)":22000:NC1:5400:Q$"Y"Q$"N"3040 Q$"N"Ĭ J1DN:QE$"Locking "d"&6NV%6A$"File was Not Found"Y7NV%8A$"with I/O Procedures, Check Hardware"u8NV%9A$"Disk is Full"9NV%10A$"Accessed File is Locked":NV%13A$"File Accessed is not of Correct type for Procedure" >N:7:1403,4:"Error ";A$::00005/(4);"pr#3":(18)'7/600Z:/QE$"Printing Complete - Press any Key":22000nD/16368,0:A$: NV%(222):216,0:3288%N20000&N(4);"pr#3":(18)*N(4);"close"4NA$(V%)" has occurred"5NV%4A$"Disk is Write Protecte0:A$:A$(13)120209.QE$"Printing "F$(J):22000.(24);(12);(21)::::" Sending Data to Printer":(4);"pr#1"/(4);"open ";PT$;"/";F$(J)/(4);"read ";PT$;"/";F$(J)/12080&/A$:A$;:120700/(4);"close"2/2$;"close /ram/dkt"x#5#:3:1403,1:16368,0N#(4);"exec /ram/fm"T#Z#x%600:(4);"run /ram/bz4".:CH6:(4);"chain /RAM/N19".PT$"":9000:PT$""Ĭ.J1DN.QE$"When Printer is Ready - Press ":22000:16368,(V$,1)"/"V$"/"V$9(4);"RENAME /";PT$;"/,";V$jQE$"Rename Complete - Press any Key":22000~16368,0:A$:'#(#C$(4)2#C$;"open /ram/dkt"7#C$;"read /ram/dkt"<#A$:DN(A$):DN09070F#PT$P#J1DN:F$(J):Jn#Cn19"!DPT$"":9000:PT$""Ĭ[E600:QE$"Enter new name for Volume "PT$" :":22000wJNC14:5400:Q$""8010^V$Q$hQE$"Rename Volume to "V$" (Y/N):":22000:NC1:5400:Q$"Y"Q$"N"8040rQ$"N"Ĭ|(V$,1)"/"V$V$"/":22000:16368,0:A$:A$(13)7015tl(24);(12);(21)::::" Sending Data to Printer":(4);"pr#1"o(4);"catalog ";Q$q(4);"pr#3":(18):600:QE$"Press Any Key to Continue":22000v16368,0:A$:@:CH5:(4);"chain /ram/:Q$""ĭ(Q$,1)"/"Q$"/"Q$:(4);"catalog ";Q$N16368,0:A$:X600:QE$"Enter Path ( if Default Drive) :":22000bNC30:5400:Q$""ĭ(Q$,1)"/"Q$"/"Q$cQ$"/"(27)Ĭ'gQE$"When Printer is Ready - Press "V1:Q$Q$W$:5420VI|BJ0:B0:J1(Q$):(Q$,J,1)"-"J1B6g(Q$,J,1)"."BB1:BJJJ:BJĭ(Q$)2BJB5Q$""5420200:MENUı5420p600:QE$"Enter Path ( if Default Drive) :":22000"zNC30:5400ĺ"";:5420,<F11ĭ(QW48QW57)5420P=F21ĭ(QW45QW57QW47)5420>F1(QW65QW90)QW32F2QW42(QW47QW57)5420@CVNC5420JCV0QW1275420OQW127DE$(8):DE$" "DE$;:CVCV1:Q$(Q$,1,(Q$)1):5420TW$;:CVC0:Q$"":F30:ME0#,"+";(8);7-W$:W$""5421P." ";(8);:E1%(W$)h/W$(13)F2155001ET%3E2%İ300:MEı2E1%27ġ:6QW(W$):QW13ı8QW8QW1279QW1275450:QW123QW96QWQW32:W$(QW);(QW32QW122)QE$"Delete File(s) (Y/N)":22000:NC1:5400:Q$"Y"Q$"N"5040RQ$"N"Ĭ{J1DN:QE$"Deleting "F$(J):22000(4);"delete ";PT$;"/";F$(J)JQE$"Unlocking Completed - Press any Key":2200016368,0:A$:16368,0"CV"N"4040Q$"N"ĬCJ1DN:QE$"Unlocking "F$(J):22000e(4);"unlock ";PT$;"/";F$(J)lJQE$"Unlocking Completed - Press any Key":2200016368,0:A$::CH4:(4);"chain /ram/n19"9000:DN01000600:DN0ĬDF$(J):22000. (4);"lock ";PT$;"/";F$(J)5 Jh QE$"Locking Completed - Press any Key":22000| 16368,0:A$::CH3:(4);"chain /ram/n19"9000:DN01000600:DN0Ĭ QE$"Unlock File(s) (Y/N)":22000:NC1:5400:Q$"Y"Q$:" Press any Key to Con't"4HN16368,0:A$:U24:1403,1:" ";:1403,1UB237U(QE$)60Ģ24:1403,1:QE$;:"->";:V(QE$,B2,1)" "B2B21:22020 V(QE$,B21):(QE$,(QE$)B2)" - >";: a216,0:V%(222)v aV%5QE$"Invalid Report Data File - Please Check for Correct Name":22000:25020 aC4$;"close":QE$"Sorry but Error "((222))" has Occurred":22000 a3288:25000 aA$:A$""25040 a1000 S ` S`S`PT5NV%4A$"Disk is Write Protected"I6NV%6A$"File was Not Found"|7NV%8A$"with I/O Procedures, Check Hardware"8NV%9A$"Disk is Full"9NV%10A$"Accessed File is Locked":NV%13A$"File Accessed is not of Correct type for ProcedurevA$:22:A$$16368,0G"W$:W$(27)ġ:F10:600:400p,F11((W$)1(W$)9)İ22000:54101W$"1"W$"9"ĺW$;6Q$W$:F10: NV%(222):216,0:3288%N20000&N(4);"pr#3":(18)4NA$(V%)" has occurred":21276,0'00Q$"Y"Q$"y"Ĭ90:38400:(4);"run /ram/u6"L(21276)0ıi(21276)43V%4:20020yV%8:20020X:CP1bA$"___________________________________________________________________________"lA$::27);"Real ProDOS Copy Disk": SET 512 BUF PTR GD18:1403,27:"Now Writing Block ";CB;" "pEBF3,(CB256):BF2,CB256(BF3)F21257:500JCBCB1:CBNBJ30:380|JCBNB162QE$"Another Copy (Y/N) :":22000:5400:Q$"Y"Q$"y"Q$"N"Q$"n"40:280 J3 BF1,U2: set unit # for dest U1U2QE$"Insert Dest. Disk into Drive and Press Return":22000:5400:Q$(13)286 "CBFB 6J029: write 30 BLOCKS ;PDSB(512J): PUT DATA @BF1,(PD256):BF,PD256(BF1)J029& PDSB(512J): PUT DATA_ BF1,(PD256):BF,PD256(BF1): SET 512 BUF PTR BF3,(CB256):BF2,CB256(BF3) 18:1403,27:"Now Reading Block ";CB;" " 21248:500 CB2NB(PD41)(PD42)256 CBCB1:CBNBJ3 unit # BF21272 CB0, SB21504 U1U2QE$"Insert Source Disk into Drive and Press Return":22000:5400:Q$(13)162 U1U2CB0QE$"Insert Disks into Drives and Press Return":22000:5400:Q$(13)170 FBCB BF1,U1 er Drive # of Dest. Disk (1 or 2):":22000:NC1:F11:5400:Q$""Q$"2"Q$"1"130c D2(Q$) 8:1403,10:"Source : Slot ";S1;" Drive ";D1 10:1403,5:"Destination : Slot ";S2;" Drive ";D2 U1S116((D12)128):U2S216((D22)128): setQ$"5"100 iS1(Q$){ nQE$"Enter Drive # of Source Disk (1 or 2):":22000:NC1:F11:5400:Q$""Q$"2"Q$"1"110 sD1(Q$) xQE$"Enter Slot # of Dest. Disk (6 or 5):":22000:NC1:F11:5400:Q$""Q$"6"Q$"5"120 }S2(Q$)V QE$"Ent  diskci 32,0,191,128,22,83,208,10,96,32,0,191,129,22,83,208,1,96,141,28,83,96,3,80,0,84,2,0,038400:J129:A:21247J,A:J 1868820000Z600 dQE$"Enter Slot # of Source Disk (6 or 5):":22000:NC1:F11:5400:Q$""Q$"6""C>N:7:1403,4:"Error ";A$:::" Press any Key to Con't"YHN16368,0:A$:90U24:1403,1:" ";:1403,1UB260U(QE$)60Ģ24:1403,1:QE$;:"->";:vA$:22:A$$16368,0G"W$:W$(27)ġ:F10:600:400p,F11((W$)1(W$)9)İ22000:54101W$"1"W$"9"ĺW$;6Q$W$:F10: NV%(222):216,0:3288%N20000&N(4);"pr#3":(18)4NA$(V%)" has occurred":21276,0'00Q$"Y"Q$"y"Ĭ90:38400:(4);"run /ram/u6"L(21276)0ıi(21276)43V%4:20020yV%8:20020X:CP1bA$"___________________________________________________________________________"lA$::27);"Real ProDOS Copy Disk": SET 512 BUF PTR GD18:1403,27:"Now Writing Block ";CB;" "pEBF3,(CB256):BF2,CB256(BF3)F21257:500JCBCB1:CBNBJ30:380|JCBNB162QE$"Another Copy (Y/N) :":22000:5400:Q$"Y"Q$"y"Q$"N"Q$"n"40:280 J3 BF1,U2: set unit # for dest U1U2QE$"Insert Dest. Disk into Drive and Press Return":22000:5400:Q$(13)286 "CBFB 6J029: write 30 BLOCKS ;PDSB(512J): PUT DATA @BF1,(PD256):BF,PD256(BF1)J029& PDSB(512J): PUT DATA_ BF1,(PD256):BF,PD256(BF1): SET 512 BUF PTR BF3,(CB256):BF2,CB256(BF3) 18:1403,27:"Now Reading Block ";CB;" " 21248:500 CB2NB(PD41)(PD42)256 CBCB1:CBNBJ3 unit # BF21272 CB0, SB21504 U1U2QE$"Insert Source Disk into Drive and Press Return":22000:5400:Q$(13)162 U1U2CB0QE$"Insert Disks into Drives and Press Return":22000:5400:Q$(13)170 FBCB BF1,U1 er Drive # of Dest. Disk (1 or 2):":22000:NC1:F11:5400:Q$""Q$"2"Q$"1"130c D2(Q$) 8:1403,10:"Source : Slot ";S1;" Drive ";D1 10:1403,5:"Destination : Slot ";S2;" Drive ";D2 U1S116((D12)128):U2S216((D22)128): setQ$"5"100 iS1(Q$){ nQE$"Enter Drive # of Source Disk (1 or 2):":22000:NC1:F11:5400:Q$""Q$"2"Q$"1"110 sD1(Q$) xQE$"Enter Slot # of Dest. Disk (6 or 5):":22000:NC1:F11:5400:Q$""Q$"6"Q$"5"120 }S2(Q$)V QE$"Ent  diskci 32,0,191,128,22,83,208,10,96,32,0,191,129,22,83,208,1,96,141,28,83,96,3,80,0,84,2,0,038400:J129:A:21247J,A:J 1868820000Z600 dQE$"Enter Slot # of Source Disk (6 or 5):":22000:NC1:F11:5400:Q$""Q$"6"NESuHUSTON!' '5NV%4A$"Disk is Write Protected"I6NV%6A$"File was Not Found"|7NV%8A$"with I/O Procedures, Check Hardware"8NV%9A$"Disk is Full"9NV%10A$"Accessed File is Locked":NV%13A$"File Accessed is not of Correct type for Procedure"C>N:7:1403,4:"Error ";A$:::" Press any Key to Con't"YHN16368,0:A$:90U24:1403,1:" ";:1403,1UB260U(QE$)60Ģ24:1403,1:QE$;:"->";:16368,0:A$:25