' +JJJJ ?x\>0='+l>  / X+鷎귌 췠fᷠr ᷠ 뷎L -       Ȍ LҦ뷌Ȍ췩ᷩ L.H hB@ յյLLҦ :;N:NNH hN ;պ Ժ;L,&Z[\p2Q"(0 P3Q ɿi pLLRͲɊR ^׮p Ѷ8RP˵B̵CpBZ\ @ յյ\BIR -^ ➭\ (p\I Z𐐪L NLA巬 췌`x (`(8`rm`Ժsmaպ`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`,G8`0($ p,&"H hH @D@ Jh  DL_LҦ Ϡž !"#$%&'(')*+,-./0123456789:;<=>?ĭӠɠԠĠΠŠĠӠӠФbptťܥm2<(-Py0\|mRǿxɍL)?GG `iмؼ ` `l8mµLTHIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3LLB &RL &QL d L4 Ne)n `D@$8 D@ f`L . tQLѤ LҦLL` OPu d L Ne)noon Rɍ`\õL ^iPɴ LER \L RNLҦHv 3h`0h8` LQ õ`A@`8. ŵ` Lq  F 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`-µ µ L8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`LծHIDOLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFٯTLOATLISDUMDISATSAVDATApppp p p p p`" t""#x"p0p@p@@@p@!y q q p@p y@@y@y@p!y@p@  LANGUAGE UNAVAILABLRANGE ERWRITE PROTECTEDATA ENFILE NOT FOUNVOL MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERROOUT OF BUFFILE TYPE MISMATCFILE TOO BIINDIRECT CMUSE D-DOS DIS˭ɎL L /7EQZcnzӠҠӠ@跻~!b]*9~~e)rsrs`_ r j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ! f 8صٵ紭ﵝ 7L (0BC  7LL{Lg0& JJ yõLõ ALµ%J y B B A L  Jn Ͱ,0 # ̵µ аꩀ (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ  ^* B0 HȱBh ӵԵ 8 `L8 ݲ` ܫ f , @D B O , , ZƴP0Gȴ ȴ)  紅D贅@ B ɴ  , 0L Ν Ƀ`HD8H@ຐ@hDh h` ŵBѵ-`, ѵB8` Ꝣ u %ﵭ` fm ﳐ 7i볍 8 `ЉLw`H fh ݲL`~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH P(` dƭ֍z#05 :?@i$,V6 LLּ%i[ci,,,ּ躥̺غi躭i3مLABCGحɠ іLƭȭ֍ 떙L֠LXZdflpVVxT媗߷iȿ@JX ocu!*3㘙TUߍߠSVЌW蘅@蘅A@8BACBlLBʽ"@Ƚ"@6ʩ ݍ⍳L䍲6_  / X  "<% "ּmNvʎn hLĭӠΠǠ      ԠĠLLLL``LhhHHL9DLQLྐL ݤv`ghijLx hhLFINbݕݻN7x6 žb8$а?еN׾6-߾ HI h L h OL h yL Lh`A Am$inmNvޢNm Lh h L h ,,(` L6 e hL Ll6 ξLhl8 LNLhlll hL hL h L h QL @Lh JLh XLh Lh Lh oLh Lh Lh Lh ¾,,(` -Lh Lh cLh uLh Lh Lh Lh LhHZݭ[%H\ݭ]H^ݭ_H`ݭa rsLuHվ־hLѾrrss``aau` {FG1 < -G >G FGȄFɍɠ`hhG NO ׾NNOO  NO OOLȠ ܫ XI볩쳢8  DH E𳈈췍Ȍ X0`HA>VDP (FD Z $0x8x D- ܸDD# H8`?F vk *f???0xfF E E EHh D#-FFF8` D ܸx D - ܸx8`-f0ݩf?ʥD FFF`80^݌Hh  ݌   A D ? AEDE?HJ>h    `HJ>݌h Hh݌` XWTRPɛLɱL/ɲLɳLyɴL-pɵL+ɶL P"`  /  V X  $% " #  Ȫ`c Yk e| e e  eɱlɲLɳ`A / [BM XLɛLɍ`H e```INSTALL DAVID-DOON BLANK DISK:INSERT INITIALIZED DISAND PRESS RETURPRESS ESC TO RETURN TO MENFINISHE1-DO ANOTHER DIS2-RETURN TO MEN3-QUI(PRESS NUMBERON FULL DISSAVE HELLO PROGRAM ON THIS DISK LATEWHENEVER ON PROTECTED DISENTER HELLO PROGRAMNAMTYPWIT1-BASI2-BINAR3-EXEINSERT DIS *WARNING*-WIPES ENTIRE DISK UNABLE TO READ DOS DISK IS WRITE PROTECTED I/O ERRO [HELLO(Y/NBARE BONES USE STANDARD DOS DISK INIENTER DISK VOL#:FORMATTINǩ! Y8 e `/  H   e- բ  eD   1 GLy  H    GL "`  /  V X  $% " #  Ȫ`Hzh`z`uZע   e  eۢ   oɍɍ*ɍ ɰɺ] FлD Y  #  uuZKɍGɛL  $% " oɍuuZ0uuZ Y       e ɍɱɲ4ɳɛLBBN! 8  e-     eu    eB 4   @D B    eѢ  ec e %L L K `L _u uZB BN `뷍췩   %뷍췩   `_ hhL@J y    `,ᷩ뷍l췩   췌``mߪ થf ` ^   ` x ` < e hhl,uxF3>XӁ聍̂gd@ m `   ݱ`ᷩ뷍췍L췌  3`췌    `L :` :` Aɀ     L /V X`Ӡ٠ĭӠɍԠĠ΍ĭӠɠӠנΠƠō̠ĭӠȠĠӠĠӮӍҠǠĠǠĭӠɍŠΠŠ̠ĠȠōˮŠ̠ϠӍĠǠΠ芊ӮӬӬĠӍǠĭӠɠΠŠΠōҠԠΠŭōŮϠԠŠŬٍ٠Ƞ̠ҠٍҠŠ̠ŠĠĠˍҠŠҠҠŠĭӠɍŭŠŠϺĠŠĬӠӬŠӠ٠ŠĭӠɠΠŠŠ٠ٍ̠ǠŠŮĠύϠŠŠӠҠōŠԮΠŠčԠȠŠŠŠƠՠ̠ŠԠŠŠōǠ̠ҠԠĠōŮĠȠŠŠӍ̠ΠƠĭӠɬȍҠԠԠŮҠΩˠΠ͠ӠϠԍҠՠϠŠƠՠȮҠƠ̠ӍĠŠҬîōϠӬӠҠĬԠŠ٬Ŭ٬ҠӠҠٍҠŠƠӠŠčӮŠŠˠĠԍӠȠŠҠҠ٠ԬԬ̬Ҡ̍ӠҠӠǠ͠ōŠƠӠŠĠӬΠƠĠӠΠĠƍŠ٠ƠȠӮōӠϠԠנ̠ƠŠŮźĠӠŠԍϠŠӠΠӠԠԍ٠ŠĠԠŮ@@@`x!(q   !y q)x)!p@@ "H $@H "@H@@ $H $xH $@@#@H@ H!x y ! y) I @x`E"">"@ $@@  @@`n1 cc8n@@@   I @`FcF""&"""" @@@@    !  !(@ppq qp ppq@@.!$D $$! $ !d@@@`pqx xxxqp yxy @@ H!x y ! I xI)!)@@ "H $H@D p@H@@@ $@$H $@D@H@  !  Q   I @8@l """ """""""@ $@  @@`F1 ccF@@@xppp ppxpp@""*"<"" @@@@ x!(q   !y q)x !p@@@"AG# $$! eC!$@@@ !    Y A@@  !  Q     I!I@@ $@ H $H $@@H@@@ $ $H $@@H@ppq yyx!pxxppx yxpyq@`@AT " """"""@`p`22 > "" @@xpqxyqxqpq@@ H!x y ! I !)@@@.$d d'! %!$@@@ !   ) @`@x""@@@xpppqyxpp@`F1 ccF@@@8"""""""""""@@  ! !  @@  !  Q    !I@@@ " $D!`& !$@@@xx ! xxxpp( )yxx@  H $@   Dl@@@ $H $H $@D@H@xpqx!x qxxppx xxxpyq@@ "@$H@D @H@@`0 c@`?"* " """@@`   @`~accx~@@@x>""<>>>">@@x    @@ppq yyx!pxxppppxyxpp@@@cA`#Ac dGA#@@ppqx!x qxxpppx  xpp@( ! (H (@ H $@@   DT@@@ $H $xH $@@H@  !PQ! Q  @@ D$@H @H@@`80 c?`a?8"6""""@@P P  @`~accx~@@@@@y!(q x )q@@@@@@  !PQ!   PI!I@H! H  H@@ ~?#H $H |GGx<OGD@@@ $H $H $@@H@@    !    @@ @""$ H"D@H@@`|0 csp|>>">"">>@@Hxyqp  y q@`FAcsF"<>>>@@@ pqx!x qxxpppx xpp@ H!( I@AC`!Dc dGcG#@@@@@    !  )!(@p0qp yqpqyx !@ @DDH $ HD@H@@@ $H $H $@ @H@`x!(q   !y qxyxx)yp@@ ~?D$H |GD#x<O@@`l0 cc0l@@x   ) @`FAc?F"""""""""@@@@0  !PQ!   !I@  !H !  @@ @!$ D"! $ !$@@@y,&Z[\p2Q"(0 P3Q ɿi pLLRͲɊR ^׮p ߾8RP˵B̵CpBZ\ @ յյ\BIR -^ ➭\ ş j(p\I Z𐐪L' +JJJJ ?x\>0='+l>  / X #+鷎귌췠ᷠ 뷎LĭӠ         Ȍ LҦ뷌Ȍ췩ᷩ L.H hB@ յյLLҦ :;N:NNH hN ;պ Ժ;L,&Z[\p2Q"(0 P3Q ɿi pLLRͲɊR ^׮p Ѷ8RP˵B̵CpBZ\ @ յյ\BIR -^ ➭\ (p\I Z𐐪L NLA巬 췌`x (`(8`rm`Ժsmaպ`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`,G8`0($ p,&"H hH @D@ Jh  DL_LҦ Ϡž !"#$%&'(')*+,-./0123456789:;<=>?  / X-+LŠҠˠҠԠĭӠɠԠĠάŠĠӠӠФbptťܥm2<(-Py0\|mRǿxɍL)?GG `iмؼ ` `l8mµLTHIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3LLB &RL &QL d L4 Ne)n `D@$8 D@ f`L . tQLѤ LҦLL` OPu d L Ne)noon Rɍ`\õLꭜiɴ LER \L RNLҦHv 3h`0h8` LQ õ`A@`8. ŵ` Lq  F 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`-µ µ L8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`LծHIDOLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFٯTLOATLISDUMDISATSAVDATApppp p p p p`" t""#x"p0p@p@@@p@!y q q p@p y@@y@y@p!y@p@  LANGUAGE UNAVAILABLRANGE ERWRITE PROTECTEDATA ENFILE NOT FOUNVOL MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERROOUT OF BUFFILE TYPE MISMATCFILE TOO BIINDIRECT CMUSE D-DOS DIS˭ɎL L /7EQZcnzϠ@跻~!b]*9~~e)rsrs`_ r j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ! f 8صٵ紭ﵝ 7L (0BC  7LL{Lg0& JJ yõLõ ALµ%J y B B A L  Jn Ͱ,0 # ̵µ аꩀ (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ  ^* B0 HȱBh ӵԵ 8 `L8 ݲ` ܫ f , @D B O , , ZƴP0Gȴ ȴ)  紅D贅@ B ɴ  , 0L Ν Ƀ`HD8H@ຐ@hDh h` ŵBѵ-`, ѵB8` Ꝣ u %ﵭ` fm ﳐ 7i볍 8 `ЉLw`H fh ݲL`~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH P(` dƭ֍z#05 :?@i$,V6 LLּ%i[ci,,,ּ躥̺غi躭i3مLABCGحɠ іLƭȭ֍ 떙L֠LXZdflpVVxT媗߷iȿ@JX ocu!*3㘙TUߍߠSVЌW蘅@蘅A@8BACBlLBʽ"@Ƚ"@6ʩ ݍ⍳L䍲6_  / X  "<% "ּmNvʎn hLĭӠΠǠ      ԠĠLLLL``LhhHHL9DLQLྐL ݤv`ghijLx hhLFINbݕݻN7x6 žb8$а?еN׾6-߾ HI h L h OL h yL Lh`A Am$inmNvޢNm Lh h L h ,,(` L6 e hL Ll6 ξLhl8 LNLhlll hL hL h L h QL @Lh JLh XLh Lh Lh oLh Lh Lh Lh ¾,,(` -Lh Lh cLh uLh Lh Lh Lh LhHZݭ[%H\ݭ]H^ݭ_H`ݭa rsLuHվ־hLѾrrss``aau` {FG1 < -G >G FGȄFɍɠ`hhG NO ׾NNOO  NO OOLȠ}} ~0 L&H\(hAzL L~? ` ` ` YL # `҆ Vϊb]  v p v @ @~, ѵB8`ɑ vo v pʒ vڒLp ` ֠ }/]Ll `hk `ć-µ µ LXL{Lg0& JJ õLõ Lµ%J B B L  Jn Ͱ,0 # ̵µ а(BHD8H@@hDh şh`ꥶ^ 8nܵݵ ޵ߵ ^`8ܵ i B '8`ֵȱB׵, ܯ䵍൭嵍 ` DȑB׵Bֵ,  ַ յյн@ ^ tJ $8혿䵭 찠BL`rVw\h ~Lύ`  BLLo LЦH hB@ յյL˵õõ˵̵ĵĵ̵`      eD hhL / X@`ALJ5,238:160a xA$"85F:8D 81 C0 4C 93 FE"" N30CF:20 10 09 05 20 32 2E 31 20 08 09 04 0F 13":360 D$"BSAVE PIE,A$803,L";(43616)256(43617):D$"LOCK PIE":170 A$"3242:B2 AE B1 A0 C8 C9 C4 CF D3":360:150 D$"UNLOCK CP AUX":D$"BLOAD CP AUX08 9D 66 EA CA 10 F7 60" dA$A$" N819:BD"" NA4C:EA EA EA"" ND48:EA":360:A$"D78:BF"" ND7F:BF"" NEAE:EA EA EA"" N10A4:DD"" N10A9:DD"" N10BF:DD 8C 5A DD"" N11DA:EA"" NAA8:EE 2F"" N2FEE:20 68 BF 20 04 33 4C A1 BE":360 n975,0:(2064)3Ĺ97 Z430::"IN HIDOS, PROVIDING 50% MORE ROOM"::"FOR YOUR TEXT. PATCH TAKES 1 MIN.":440:D$(4):D$"UNLOCK PIE":D$"BLOAD PIE":A$"3310:59 E8 8D 5D E8 A2 23 BD 56 DD"" N332B:DD" _A$A$" N11DF:20 68 BF A2 05 BD 66 EA 9D 7A 3F CA 10 F7 A2 05 BD 2A HIDOS OPTION WHICH RUNS"::"PIE WRITER WITH DOS IN THE LANGUAGE"::"CARD, OTHERWISE, USE THE LODOS OPTION."::" 1. PIE WRITER HIDOS" 2:" 2. PIE WRITER LODOS" <:" (PRESS NUMBER)";:974,0:Z$:Z$"2"Ĺ974,238:380 FZ$"1"ī90 P60< PIE WRITER 2.1 PATCH PROG COPYRIGHT 1984 DAVID WESTONO(104)64ī4016384,0:16385,0:16386,0:104,64:::255:D$(13)(4):D$"RUN PIE WRITER 2.1" (10:"PIE WRITER 2.1 PATCH":::"IF YOU HAVE A LANGUAGE CARD, YOU CAN"::"CHOOSE THE          :"NO1";::" ON THIS DISK."1104,8:D$"FP": ;1,33:LL(43616)256(43617)wv2541,121:2542,18:4729,169:4730,0:4731,133:4732,243:4733,76:4734,106:4735,253D$"BSAVE APPLE PIE,A$800,L";LLD$"LOCK APPLE PIE":11:"APPLE PIE PATCH IS COMPLETE"::"INSTALL DAVID-DOS II ";:ROCESSOR RUN WITH DAVID-DOS II LODOS."S::"INSERT COPY OF YOUR APPLE PIE DISK,"D:"THEN PRESS RETURN.";Z$:::" WORKING ":ND$(13)(4)XD$"UNLOCK APPLE PIE"bD$"BLOAD APPLE PIE"l2673,89:2676,93:2933,89:2938,93:2693,33:291:"10 D$=CHR$(4):POKE 217,0"G"20 PRINT D$";(34);"HIDOS";(34)g"30 POKE 103,1:POKE 104,8"|"40 D$=CHR$(4)""50 PRINT D$";(34);"BRUN APPLE PIE";(34)104,8:D$"FP":&::"THIS PATCH MAKES THE APPLE PIE WORD"&0:"P7)#D$"BSAVE FORMAT,A$800,L";LL8D$"LOCK FORMAT"i:13:"APPLE PIE HIDOS PATCH IS COMPLETE"::"INSTALL ";::"NO1";::" DAVID-DOS II ON THIS DISK.":"FOR A TURNKEY HIDOS APPLE PIE DISK,":"USE THE FOLLOWING HELLO PROGRAM:" 96.^4191,221:4196,221:4317,221:4322,221rh2566,65:2567,19:3304,19:3309,137:3310,19:3322,52:3323,19rD$"BSAVE APPLE PIE,A$800,L";LL|D$"LOCK APPLE PIE"D$"UNLOCK FORMAT"D$"BLOAD FORMAT"3599,191:LL(43616)256(4361,234:3810,234:4184,234:4185,234:4186,234N @2568,234:2569,234:2570,234 J2672,32:2673,121:2674,18:4729,32:4730,104:4731,191:4732,141:4733,89:4734,232:4735,96T4330,76:4331,128:4332,18:4736,104:4737,104:4738,104:4739,104:4740,4727,106:4728,253:2057,189z "2696,221:2707,221:2710,221:2713,221:2716,221:2719,221:2722,221:2727,221:2730,221 ,2733,221:2736,221:2739,221:2742,221:2747,221:2750,221:2753,221:2758,221:2761,221:2764,221:2917,221, 63808,234:3809": D$(13)(4)/ D$"UNLOCK APPLE PIE"H D$"BLOAD APPLE PIE"x 2676,93:2677,232:LL(43616)256(43617) 2933,89:2934,232:2938,93:2939,232 2693,33:2911,33 2541,114:2542,18:4722,169:4723,0:4724,133:4725,243:4726,76:"1"ī170 130D :::"THIS PATCH MAKES YOUR APPLE PIE WORD"t :"PROCESSOR RUN WITH DAVID-DOS II HIDOS," :"PROVIDING 50% MORE ROOM FOR YOUR TEXT." :"INSERT COPY OF YOUR APPLE PIE DISK," :"THEN PRESS RETURN.";Z$:::" WORKING "- P:"CHOOSE THE HIDOS OPTION WHICH RUNS"Y Z:"APPLE PIE WITH DOS IN THE LANGUAGE" d:"CARD, OTHERWISE, USE THE LODOS OPTION." n:" 1. APPLE PIE HIDOS" x:" 2. APPLE PIE LODOS" :" (PRESS NUMBER)";:Z$ Z$"2"ī540 Z$3 ; APPLE PIE PATCH PROGRAM COPYRIGHT 1984 DAVID WESTONN(104)64ī60u16384,0:16385,0:16386,0:104,64(::255:D$(13)(4)2D$"RUN APPLE PIE WORD PROCESSOR"<11:"APPLE PIE PATCH" F::"IF YOU HAVE A LANGUAGE CARD, YOU CAN      HIDOS" 103,1:104,8$ D$(4)K 24576,0:24577,0:24578,0:104,96^ D$"RUN HELLO"j D$(4) 8:"LOADING ASCII EXPRESS PRO" D$"BLOAD AE" (175)256(176)21 / LDAVE THIS"9 P:"PROGRAM AS YOUR HELLO ON YOUR AE DISK."j U:"ALSO INSTALL DAVID-DOS ON YOUR AE DISK." Z::"NOTE: USE HIDOS ONLY ON EARLY VERSIONS" d:"OF AE PRO, THAT DO NOT HAVE A DOS MOVER.": n(104)96ī180 xD$(4):217,0 D$" ASCII EXPRESS PRO-HIDOS3::255:D$(4)U6:"ASCII EXPRESS PRO-HIDOS"(:"USE THIS HELLO PROGRAM TO RUN ASCII"2:"EXPRESS PRO WITH HIDOS FOR MUCH MORE"<:"DATA ROOM, (9050 CHARACTERS MORE)." F:"DEL LINES 10 THRU 100 AND SURN FOR FLASH, ESC FOR EXIT";:16384,128:Z(16384)128:Z$(Z):Z13Z$(ZZ$,ZZ,1)16368,0::1:868:HT1:VT:ZZ$Z$:Z27ĺ"NO CHANGE":ű˨ű˨ĠŢΠìɬύōǠҠԠŠ٢ŷ˨ŷ˨˨˨ɽϴ½˨˨¾ºɍűԨűԨҠԠŠԠٍ  s h ɍڥԥ rs`rs` l݅)   L(A$) ^ĂJ hĂI rı |:5 IJTHREE REAL ARRAYS; :H DI%DI3d ĆB(DI%):C(DI%):D(DI%)q āI1DI% ČIMPUT,A$ B(I)(A$) ČIMPUT,A$ C(I)(A$) ČIMPUT,A$ D(I)(A$) ĂI ıɾrsԺպrOUNT:DI(4)256(5) :1 ò1X3 STRING ARRAY7 :D DI%DI3S ÆA$(DI%,3)` ÁI1DI%k ÁJ13~ ÌIMPUT,A$(I,J) ÂJ ÂI ñ : IJ1X3 REAL ARRAY : "DI%DI3 ,ĆA(DI%,3) 6āI1DI% @āJ13 JČIMPUT,A$ TA(I,J)4PÉ::" SUPER FAST TEXT FILE INPUT UTILITY":ZZÖ7:"COPYRIGHT 1984 DAVID WESTON"dú:5:"SEE INSTRUCTION MANUAL FOR USE":nES1000:ADR256((110)(ES40))xú(4)"TLOAD"NAME$",A"ADRZ(175)256(176):COUNTZ227:IMPUTZ85 ÌC  ɍڥԥ rs`rs` l݅)   L1DI IMPUT,A$(I) Iy 198:198:(37)1:958::"ALL DONE. THERE ARE ";DI;" STRINGS"::"IN THE ARRAY.": ES1000:ESTIMATED STRINGS ADR256((110)(ES40)):ɾrsԺպrs h "NOW WE WILL CLEAR ALL STRINGS,"::"AND DO IT AGAIN, SUPER FAST."::"HIT RETURN AND START TIMING";:Z$: ::" WORKING ": 240:(4)"TLOAD"N$",A"ADR Z(175)256(176):COUNTZ227:IMPUTZ85 COUNT:DI(4)256(5):A$(DI) IOTAL NUMBER OF STRINGS = ";DI:Z P"HIT BAR FOR PAUSE DURING STRINGS"::"HIT RETURN";Z$f ZI1DIw dIMPUT,A$(I) n"A$(";I;")= ";A$(I): x(49152)127Ĺ49168,0:Z$ Ij 198:198::"THAT WAS SLOWED UP BY"::"THE SCREEN DISPLAY."::4 ::255:4:"SUPER FAST TEXT FILE INPUT DEMO"_6:"COPYRIGHT 1984 DAVID WESTON":30}:"TYPE TLOAD NAME: ";N$(240:(4)"TLOAD"N$",A"ADR2216,0:Z(175)256(176):COUNTZ227:IMPUTZ85<COUNT:DI(4)256(5):A$(DI) F:"T      :2:"INSERT COPY OF DAVID-DOS II MASTER DISK";::960:1:958::160Z(37)::24:1:958:14:"PRESS RETURN";::Z$:1:958:Z:----(Y,N)--------------:VHT(36):VT(37)1:ZZ$;:HTZZ::(ZZ$,ZZ,1);::24:1:868:3:"PRESS RETO0:CMD1:PGS44:900:940:UzTRK8:SEC11:VOL0:BHI108:BLO0:CMD2:PGS44:900:47084,TRK:47085,SEC:47083,VOL:47088,BLO:47089,BHI:47092,CMD:47073,PGS:46995::----NOT MASTER DISK-----:(16840)201ıF23:1:958:$,N16X1,1)A$;:NX:N0780#) :G*----NOT HEX ERR---------M4:>VT(37)1:22:"NOT HEX NUMBER ERROR;":"HIT RETURN";:Z$:(Z$)27Ĺ216,0:H:VT:958:250R:\----CALL R/W PGS--------f:pTRK8:SEC11:VOL0:BHI108:BLAD/WRITE----------:(216,0:880GI1K:ADR1I,CODE(I):IP890z:"YOUR DAVID-DOS INSTALLATION DISK":"PATCH IS COMPLETE."::----DEC TO HEX----------:A$(8)(8):B$"0123456789ABCDEF":HT X(N16):(B)1:22:"ADDRESS NOT IN DOS ERROR;":"HIT RETURN";:Z$:(Z$)27Ĺ216,0:_D:VT:958:250eN:X----HEX TO DEC----------b:lI1N:DEC((HEX$,I,1))48:DEC9DECDEC7vDEC0DEC15ī830NUM16NUMDEC:I:----REOFFSET---- :M ADR40191ADR46080ADRADR20480:690:9D00.B3FF D-DOS ADR46335ADR49152ADRADR29440:690:B500.BFFF D-DOS ADR53247ADR53754ADRADR25851:690:D000.D1F9 D-DOS : &----ADR ERR------------- 0:J:VT(37UATED AS BELOW"4 VTVT2:VT17VT10:VT1:958a :"PATCH= $";:NADR:HT12:770:13:";"l I1K NCODE(I):HT(I312) VT:HT1:"00";:VT:770 I ::"PATCH OK? ";:ZZ$"(Y,N) ":ZZ2:990:Z$"Y"160 : ----ADR CHECK/0:Z$"Y"160 :2 ----ADR CODE------------8 ":` ,HEX$(P$,4):NUM0:N4:620:ADRNUMh 6K0y @J6(P$)3 JKK1:NUM0 THEX$(P$,J,2) ^N2:620:CODE(K)NUM hJ r: |----EVALUATE INPUT------ : VT:"YOUR INPUT EVALRT*"" :" ADDR; CODE"G :"PATCH= $AE39;20 0C FD C9 9B"v "---------------------------------------" :13:";":998:CURSOR UP 1 : ----INPUT--------------- : "PATCH= $";P$ :"PATCH OK? ";:ZZ$"(Y,N) ":ZZ2:99 P:"THE NEW CHANGE WILL THEN APPEAR IN THE"_ Z:"DISKS THAT YOU INSTALL DAVID-DOS II ON." d:"THIS DOES NOT APPLY TO DDII BARE BONES." n960 x830 : ----HEADING------------- : : "TYPE PATCH IN THIS FORM: *ESC=ABO  ::255:D$(13)(4)+CODE(255)T5:"DAVID-DOS II UNIVERSAL PATCHER"(:"THIS PROGRAM IS FOR USE ON YOUR BACK-UP"2:"DAVID-DOS II INSTALLATION DISK."<:"INSTALL CHANGES IN DOS ON YOUR BACK-UP"F:"DISK WITH THIS PROGRAM..      E 2ND 4K (ACCESSED BY ($C080)."C "HIMEM IS $BE00 (48640).":170 3:1:958:8:"THE PLE DOS MOVER IS NOT COMPATIBLE":"WITH ";A$;" #1&2. ";A$;" HIDOS":"IS ONLY COMPATIBLE WITH THE ORIG PLE.": :14:24:"PRESS RETURN";::Z$:DITSELF AT $8D00 TO $9D00.":A$;" STAYS PUT AND DOS BUFFERS ARE":"MOVED TO $8600.8D00. HIMEM=$8600 (34304)":170 10:1:958:"PLE.DM"::"1 BOOT ";A$;" #3":"2 BRUN PLE DOS MOVER" :A$;" #3 IS MOVED TO ";C$:B$:C$;" ";A$;" BUFFERS ARE":"IN TH2 OR 3":"3 RUN GPLE HELLO PROGRAM"i d:B$:C$;" (ACCESSED BY $C088).":A$;" STAYS PUT AT $9D00.":170 n10:1:958:"PLE.48"::"1 CHANGE LINE 120 IN GPLE HELLO TO REM":"2 BOOT ";A$;" #1,2 OR 3":"3 RUN GPLE HELLO (MODIFIED)"p x:"PLE.48 LOADS P"THERE ARE THREE FLAVORS OF GPLE:"::"PLE.LC, PLE.48, AND PLE.DM."::"THE PROCEEDURES ARE:"# Z:"PLE.LC":::"1 ADD AT START OF LINE 120 IN GPLE HELLO";:" POKE 40194,129: POKE 40195,158":" POKE 40196,189: POKE 40197,158":"2 BOOT ";A$;" #1, :"1 BOOT ";A$:"2 RUN PLE"::"THE PROCEEDURE FOR HIDOS IS:"::"1 BOOT ";A$:"2 HIDOS":"3 RUN PLE":"4 HIMEM: 47104" <:"PLE LOADS ITSELF AT $B800 (47104) TO":"$BE00 (48640). THEN WE SET HIMEM TO":"PROTECT PLE." F170::18::"GPLE"::4b  PLE & GPLEm:255:D$(4):A$"DAVID-DOS":B$"GPLE MOVES TO THE 1ST 4K BANK OF":C$"THE LANG CARD.":14::"THE ORIG PLE"::(:"PLE WILL RUN PERFECTLY WITH ";A$:"IN THE LODOS LOCATION OR IN HIDOS.":"THE PROCEEDURE FOR LODOS IS:"y 2      ōԠҠˠȠ٠ƢҠΠԬΠӠήɽϱ˽˨˼ɍĠҍ̭¶àݍİùĶİà àİǍŠҭӍō "$"FP" DDISK WITH COPY OF FID ON IT,"OAd:"THEN PRESS RETURN.";Z$:::" WORKING ":aAnD$(13)(4)tAxD$"BLOAD FID"A2132,169:2133,120AD$"BSAVE FID-HIDOS,A$803,L$124E"AD$"LOCK FID-HIDOS"A14:"FID-HIDOS IS COMPLETE.":104,8AD$"FP"@ FID HIDOS#@(104)64ī60J@16384,0:16385,0:16386,0:104,64e@(::255:D$(13)(4)|@2D$"RUN FID-HIDOS"@<10:"MAKE FID-HIDOS"@F::"THIS PROGRAM CREATES A PROGRAM NAMED"@P:"FID-HIDOS WHICH RUNS WITH HIDOS."AZ:"INSERT  HEN SAVE IT."< P::"THIS CHANGE MAKES THE COPY PROGRAMS"k Z:"COPY A DISK WITH OUT INITING. TO USE," d:"FIRST INIT A DISK WITH DAVID-DOS THEN" n:"COPY THE PROGRAMS ON THE DISK WITH" x:"THESE."D ::255:D$(13)(4)D4:"COPYA AND COPY WITH DAVID-DOS"p:"TO MAKE THE CHANGE, LOAD COPYA AND"(:"CHANGE LINE 250 TO FT=1 AND SAVE IT."2:"TO CHANGE INTEGER COPY, LOAD IT AND"<:"CHANGE LINE 320 TO FT=1: GOTO 340" F:"T  :"APPLESOFT DOES NOT HANDLE POKES TO THE"F :"LANGUAGE CARD."X I112000:It D$"TLOAD INSTRUCTIONS" D$"TLIST" ,:10:14:"THAT'S IT":B0:46634,21:ORIGINAL SCROLL SPEED:(40(A$B$))2:::HT:A$A$B$::A$:34,1r VT(37)::24:958:14:" PRESS RETURN ";::Z$:1:958:VT: UP BY" :"POKING 46634,1" :"USE 46634,255 FOR THE SLOWEST SCROLL." 46634,1 :"THIS DOES NOT WORK IN HIDOS BECAUSE".AIN WITH THE MON C,I,O ON"A :8:"TO SHOW THE COMMANDS.":250` D$"MON,C,I,O":10:B1:20z D$"NOMON C,I,O":255 A$"HIDOS":240 230 217,0 D$"HIDOS" 103,1:104,8 D$(4):250 216,0:10:15:"BYE, DAVID":- HTTHE TLOAD.":250# <A$"DUMP":240? FL(43616)256(43617)W PD$"DUMP,A$1000,L"L Z::"THIS IS A DUMP OF THE TLOAD.":250 dA$"DISA":240 nD$"DISA,A$FF59,L$31" x:"THIS IS THE MONITOR RESET ROUTINE.":250:B1160 :10:"DO IT AGsQ ::255:B0:D$(13)(4):3:"USING DAVID-DOS COMMANDS IN PROGRAMS.":250}A$"TLOAD AND TLIST":B$" COMMAND":240D$"TLOAD APPEND SUPER FAST TFILE UTIL"(D$"TLIST":250 2A$"AL":240:D$"AL":::"THIS IS THE ADDRESS & LENGTH":"OF      HIDOS HELLO PROGRAM6::255:D$(4):217,0ED$"HIDOS"W(103,1:104,8c2D$(4)~<REST OF HELLO PROGRAM :24:1:868:9:"PRESS RETURN FOR FLASH";:16384,128:Z(16384)128:Z$(Z):Z13Z$(ZZ$,ZZ,1) 16368,0::1:868:HT1:VT:ZZ$Z$: REST OF HELLO PROGRAM HERED:47092,CMD:47073,PGS:ZZ(37):24:15::"READ/WRITE";::46995:1:958:ZZ: DT$(T$,B1):DT$(DT$,B2B1):3:958:: (978)190Ģ11:3::"PLEASE REBOOT AND RUN THIS IN LODOS":: d HT(36):VT(37)1:ZZ$;:HTZZ::(ZZ$,ZZ,1);:,A128:RAI,A128:I:TRK0:SEC6:CMD2:120:180~ dTRK1:SEC5:VOL0:BHI64:BLO0:CMD1:PGS1:120:B1(DA4):B2(DA13): nTRK0:SEC6:CMD1:120:T$"":T0:I111:T(MDI):T$T$(T):I:P x47084,TRK:47085,SEC:47083,VOL:47088,BLO:47089,BHI"]";:20:DT$" "A (I150:Z$:Z$;:DT$DT$Z$:L(DT$):L130Z 2AS(Z$):AS13I50 <AS31LL1:DT$(DT$,L):L130 FAS8LL1:DT$(DT$,L) PI:DT$(DT$,2):(DT$)SP301 Z10:19:"[";DT$;"]":IB1B21:A$(DT$,I,1):A(A$):MDI ::14:"DAVID-DOS II":11:"MANUAL DATE HELLO":140:DA16505:MD16575:RA47807:100:SPB2B1:110:130:8:"LAST DATE ENTERED [";DT$;"]":"ENTER NEW DATE? ";:ZZ$"(Y,N) ":ZZ2:160:Z$"N"180 10:1:958:"ENTER TODAYS DATE [";:20SP:   :2260@/Z11ĺ:958:"EXEC NUMBER 11 LATER. SEE MANUAL.":K/2320^/ D$"RUN";M$(Z)i/ 216,0}/ D$"EXEC";M$(Z)/$ ----END----------------DPROCESSOR":M$(14)"PIE WRITER 2.1":M$(15)"PIE WRITER 2.2"F.I1MI_.I;:I9ĺ" ";:2240j." ";.M$(I):I:X(37)..24:9:"PRESS RETURN TO END";.X:::"ENTER NUMBER TO RUN PROGRAM ";Z$:Z(Z$):Z0ĺ"END":/ZMIĢX:958IDOS":M$(6)"RENUMBER-HIDOS"-M$(7)"PLE & GPLE":M$(8)"UNIVERSAL PATCHER":M$(9)"SUPER FAST TFILE INPUT DEMO":M$(10)"SUPER FAST TFILE INPUT UTILITY":M$(11)"APPEND SUPER FAST TFILE UTIL":.M$(12)"HI SPEED TEXT FILE TRANSFER":M$(13)"APPLE PIE WORD 85,1,2,153,88,2,136,208,247,76,224,158: PROMETHEUS VC<,\:Y,f----UTILITY-MENU-------_,p:,z1730::7:"MENU OF UTILITY PROGRAMS":-M$(1)"MANUAL DATE":M$(2)"HIDOS HELLO PROGRAM":M$(3)"COMMAND DEMONSTRATION":M$(4)"COPY & COPYA":M$(5)"FID-HTN HDWRE CPS+H32,81,168,169,4,208,8,153,248,5,32,8,196,169,160,32,139,254,160,1,32,186,158,153,80,2,200,201,141,208,245,160,7:MTN HDWRE APPLE6,R32,81,168,169,60,32,11,196,32,8,196,160,8,185,3,2,153,80,2,136,208,247,169,47,32,11,196,32,8,196,160,2,18,160,4,169,0,153,248,5,32,8,196,169,160,141,81,2,160,0,185,0,2,153,82,2,200,201,141,208,245,160,7: THUNDERCLOCK/YEAR +>32,81,168,169,4,208,8,153,248,5,32,8,196,169,160,32,139,254,160,1,32,186,158,153,80,2,200,201,141,208,245,240,11:SUPER CLOCK II, M"A) A(SKIPLN12):B$(10)(A):A160B$(10)"CONTROL "(A64)b)A(SKIPLN16):B$(11)(A2)h) )*32,81,168,169,186,32,11,196,32,8,196,208,5,169,160,32,139,254,160,0,185,0,2,153,80,2,200,201,141,208,245,240,11:TIMEMASTER II MODEw*4 32,81,16K(CT):B$(1)"MANUAL"CLOCK03(B$(2)C$(CLOCK)L(I49:B$(I)"NO":Ij((WDIR1)33B$(4)"YES"((VFYP10)125B$(5)"YES"((I1)40B$(6)"YES"((WRITE1)1B$(7)"YES"((STBAS2)176B$(8)"YES")(FSPACE)141B$(9)"YES:ZZ$;:HTZZ::(ZZ$,ZZ,1);::24:9:"PRESS RETURN FOR FLASH";:16384,128:Z(16384)128:Z$(Z):16368,0:HT1:VT::Z13Z$(ZZ$,ZZ,1)'bZZ$Z$:':'----READ-SETUP---------':'B$(1)"MANUAL":(DAYTE6)80B$(1)"CLOCK"(CLOC47088,BLO:47089,BHI:47092,CMD:47073,PGS:46995:X&DT$(T$,B1):DT$(DT$,B2B1):l&&(16840)201ı&010:958::2:"INSERT COPY OF DAVID-DOS II MASTER DISK"::1760::1740:100&::&D----INPUT (Y/N)--------&N:'XHT(36):VT(37)14)"YES"Ĺ25091,IN:22403,IN1:u%:"MOVE ";A$;" WITH ARROW KEYS. PRESS"::"RETURN WHEN SATISFIED WITH ";A$".":%B1(DA4):B2(DA13):Y1(IM48):Y2(IM49):NY(IM32):SL(IM4):SL7SL(IM7)192%4&47084,TRK:47085,SEC:47083,VOL:::3:D$(2)::9:D$(3)::d$1:1730:3:K%(38(A$(MENU)))2:J1K%:" ";:::A$(MENU):::$:24:868:14:"PRESS RETURN";::Z$: %FD13,H2LEFT10:FD23,H3RIGHT11:DA4,H2LEFT10:DA13,H3RIGHT11:IN31(H3RIGHTH2LEFT):FD10,IN:B$(--CATALOG-PAGE-SIZE--#|:S#1750:7:"PRESENT PAGE SIZE IS ";B$(11);" LINES":#"TYPE PAGE SIZE ";Z$:Z(Z$):Z1Z253Ģ(37):958:1680#SKIPLN16,Z2:CA12,Z3:#:#----MISC-ROUTINES------#:#:4:D$(2):$::3:D$(1)"NEW STOP KEY IS: ";:Z31ĺ"CONTROL ";(Z64)T",Z27Ģ12:"WHICH EQUALS: ESCAPE"v"6Z9Ģ12:"WHICH EQUALS: TAB""@Z13Ģ12:"WHICH EQUALS: RETURN""JZ30ĺ(Z)"T16:"IS THIS OK? (Y/N) ";Z$:Z$"N"ī1570"^SKIPLN12,Z128:"h:#r--3:FS4,204:FS5,207:FS6,214z!FS7,160:FS8,203:FS9,211:FS10,201:FS11,196:24000,234:24001,234:24002,234:!:!----CATALOG-STOP-KEY---!:.""1750:7:"EXISTING STOP KEY IS: ";B$(10):10:"TYPE NEW STOP KEY ";:Z$::Z(Z$):10:B$(9)"YES"B$(9)"NO":1520~ B$(9)"NO"B$(9)"YES":FS,141:FS1,197:FS2,197:FS3,210:FS4,198:FS5,173:FS6,170 FS7,173:FS8,204:FS9,207:FS10,214:FS11,141:24000,32:24001,79:24002,165:!FS,160:FS1,197:FS2,205:FS3,2124,11:28192,12::5----80-COL-CARD--------;:B$(8)"NO"B$(8)"YES":STBAS2,176:25628,177:25675,176:27042,176:B$(8)"YES"B$(8)"NO":STBAS2,128:25628,129:25675,128:27042,128::----CATALOG-FREE-SPACE-: FB$(6)"YES"B$(6)"NO":25583,35:28194,140:I1,35:=P:ZZ----DATA-DISK----------`d:nB$(7)"NO"B$(7)"YES":WRITE1,1:WRITE14,72:WRITE19,0:WRITE24,0:28192,4:xB$(7)"YES"B$(7)"NO":WRITE1,44:WRITE14,108:WRITE19,2:WRITE::%----VERIFY-SAVES-------+:c B$(5)"NO"B$(5)"YES":VFYP10,125:VFYP11,162:B$(5)"YES"B$(5)"NO":VFYP10,73:VFYP11,191::(----40-TRACK-DISK------2:<B$(6)"NO"B$(6)"YES":25583,40:28194,160:I1,40:7MDI,A128:I:1770::8----FILE-DATING-------->:B$(4)"NO"B$(4)"YES":WDIR1,33:WDIR2,166:1790:IN30B1B2:FD10,IN:FD13,B1:FD23,B2:25091,IN:22403,IN1:B$(4)"YES"B$(4)"NO":WDIR1,69:WDIR2,176:25091,30:22403,29$,L)3I:DT$(DT$,2):SP(DT$):SP11SP11120B11:B2SP1:13:"YOUR NEW DATE WILL BE ";SP;" CHARACTERS":"LONG INCLUDING SPACES: [";DT$;"]"::"IS THIS OK? (Y/N) ";:Z$::Z$"N"1120H2B110:H3B211IB1B21:A$(DT$,I,1):A(A$):NG SPACES.":"EXAMPLES: [JUL-20-1983] [ 07/20/83]":SP11:DT$" ":H121::"ENTER TYPICAL DATE [";:H1SP:"]";:H1jI150:Z$:Z$;:DT$DT$Z$:L(DT$):L11120tAS(Z$):AS13I50~AS31LL1:DT$(DT$,L):L11120AS8LL1:DT$(DT;/H1141HTHT1:H3RIGHTHT:HT:"]":10709$1030.958:::12:"IS THIS OK? (Y/N) ";Z$:Z$"N"Ģ4:958:790:93081770:B:L----MANUAL-DATE-STYLE--V:s`1750:"ENTER YOUR TYPICAL DATE UP TO ELEVEN":"CHARACTERS LONG INCLUDI"[":H2LEFT1%HTHT1:650:HTHT1;HT12LTHTHT1\T1$(T$,12LTHT):HT:T1$;H1141HTHT1:H2LEFTHT:HT:"[":1020970A$"RIGHT ]"::1780:VT:HTLT11:A$"]"HTHT1:650:HTHT1T2$(T1$,HTH2LEFT):H2LEFT1:T2$STYLE----------:.B$(1)"MANUAL"11201750:"CHOOSE THE PORTION OF DATE, AND/OR TIME,":"YOU WANT TO APPEAR IN THE DATE COMMAND.":A$"LEFT [":1780:::"EXISTING [";DT$;"]":VT(37)3790VT:"NEW [";T$;"]" VT:HT12:A$E---------- :8707 CLOCK6ČIM:T$"":820Z*IM35,97:IM:IM35,177:T$""g4J1124>A((592J1)):A141J124:850HT$T$(A)RJ1\216,0:LT(T$):43089:f216,0:43089::130pT$" "T$:860z:----DATE---:HT::A$;:?H1(49152):H127ġ::1740:130OH1128660^Z(49168)pVT:HT:" ";H1149HTHT1H1136HTHT1HTLT12HTLT12HT11HT11HTH2LEFT2HTH2LEFT2:HT: ----INPUT-TIM1:DA13,10:UND1100:D2132:610:IM4,SL:IM48,Y1:IM49,Y2:DA4,1:DA13,10:XD1133:D2176:610:IM7,SL192:IM10,SL192:IM26,SL192:IM29,SL192:DA4,1:DA13,11:bI0:JD1D2:IMI,D(J):II1:J:l:v----MOVE-[-]----------OUT TO LUNCH.">X1:"IS THIS OK? (Y/N) ";Z$:Z$"N"ġ:410D&0D11:D233:610:IM7,SL192:IM10,SL192:DA4,2:DA13,11::D134:D266:610:IM4,SL:IM12,SL192:IM48,Y1:IM49,Y2:DA4,1:DA13,10: DD167:D299:610:IM4,SL:DA4,-:X1ĺ"YEAR: ";Y$;" SLOT#: ";SL:530:X1500Q"SLOT#: ";SL:530s:I1176:D(I):I:CT,CLOCKCLOCK560,570,580,590,580,600,5801740:130::X1(37):16:"NO HARM IF YOU ENTER THE WRONG SLOT.":"JUST REBOOT IF IT GOES OF THE CURRENT YEAR: ";Y$:(Y$)2Ģ5:958:420^X1Y1((Y$,1))176:Y2((Y$,1))176o::X1(37)X1:868:"ENTER YOUR CLOCK SLOT#: ";SL$:SL(SL$)48:SL0SL7ī450(64435)6SL3ĺ:7::"SLOT 3 IS IIE 80 COL CARD"::1760:450EASE TURN ITEM #1 TO CLOCK, FIRST.":1760:h1750:"CHOOSE ONE OF THESE:"::I17:I;" ";C$(I):I:X0:"PRESS NUMBER ";Z$:CLOCK(Z$):CLOCK1CLOCK7Ģ(37):958:4005:958:CLOCK2CLOCK4X11X1ĺ"ENTER THE LAST TWO DIGITS"::"1,94:FD2,177:FD15,80:FD16,2:TB$(MENU)"CLOCK"B$(MENU)"MANUAL":DA6,191:DA7,186:DA,234:DA1,234:DA2,234:FD,234:FD1,234:FD2,234:FD15,191:FD16,186:CT,0:^:h----CLOCK-CARD----------r:+|B$(1)"MANUAL"Ģ23:2:"PL(Z$):MENU1MENUNIĢ(37):958:270iA11:MENU330,380,920,1240,1290,1340,1390,1440,1490,1570,1670x"1740:130~,:6----CLOCK/MANUAL--------@:$JB$(MENU)"MANUAL"B$(MENU)"CLOCK":DA6,80:DA7,2:DA,32:DA1,91:DA2,177:FD,32:FD7)Q X:1:"DO YOU WANT TO CHANGE ANY ITEM? ";:ZZ$"(Y,N) ":ZZ2:1880::958n Z$"N"A10İ2170:2260 Z$"N"İ2170:TRK8:SEC11:VOL0:BHI108:BLO0:CMD2:PGS44:1810:TRK3:SEC7:BHI120:PGS12:1810:2260&"WHICH ITEM NUMBER? ";Z$:MENU" ";2 A$(I);:K21(A$(I)):J1K:".";:Ja I2CLOCK0Ė14:" IN #";SL;".....";:220 I3B$(1)"CLOCK"B$(2)C$(0)B$(I)C$(0):220 I3CLOCK0ĹDA7,71:DA3:DA7,186::230 I3İ790:1820:B$(I)DT$ B$(I) I:::X(3A$(4)"FILE DATING":A$(5)"VERIFY SAVES" xA$(6)"40 TRACK DISK":A$(7)"DATA DISK (NO DOS)":A$(8)"SPECIAL 80 COL CARD":A$(9)"CATALOG FREE SPACE":A$(10)"CATALOG STOP KEY":A$(11)"CATALOG PAGE SIZE" 1960:1790 I1NI I;:I9ĺ" ";:170 CLOCK II":C$(4)"MTN HDWRE APPLE":C$(5)"MTN HDWRE CPS":C$(6)"PROMETHEUS VC":C$(7)"OTHER" dTRK8:SEC11:VOL0:BHI108:BLO0:CMD1:PGS44:1810:1830:TRK3:SEC7:BHI120:PGS12:1810( nA$(1)"CLOCK/MANUAL DATE":A$(2)"CLOCK CARD":A$(3)"DATE STYLE":5:M$(MI):D(176) FWRITE30432:DAYTE22137:IM24923:WDIR24631:VFYP19832:I128348:STBAS18881:FSPACE25519:SKIPLN24108:CA23960:MD18367:CT18332 PCLOCK0:FD22049:IN(FD10)\ ZC$(0)"NONE":C$(1)"TIMEMASTER II":C$(2)"THUNDERCLOCK":C$(3)"SUPER' DAVID-DOS II UTILITIES 2COPYRIGHT 1984DDAVID WESTON(D$(1)"ALL SUBSEQUENT DISKS MADE FROM THIS":D$(2)"DAVID-DOS II INSTALLATION DISK COPY":D$(3)"WILL HAVE THIS SET UP:"2:255:D$(4):1740:A10 <NITEMS11:A$(NI):B$(NI):MI1               z#    ŠҠŠҠ ŠŠ ̠Ҡ ҠԠŠԠϠ ҠԠŠԠ ĠҠԠŠ̠ ɠĠԠŠҠ ŠŠĠҠ ӠҠӠ'̠Š ӠϠ͠ ĠΠ ٠ ĭӠ ҭӠAVID-DOS II":l:"INSERT COPY OF YOUR PIE WRITER DISK,"::"THEN PRESS RETURN.";Z$:::" WORKING ":: TURN.";Z$:::" WORKING ":: ":: N"NO1";::" ON THIS DISK.":y:::"THIS PATCH MAKES THE PIE WRITER 2.1"::"WORD PROCESSOR RUN WITH DAVID-DOS II"::"INSERT COPY OF YOUR PIE WRITER DISK,"::"THEN PRESS RETURN.";Z$:::" WORKING ":: TURN.";Z$:::" WORKING ":: D617)D$"LOCK PIE":D$"UNLOCK CP AUX":D$"BLOAD CP AUX":350:A$"3407:4C"" N3547:21"" N356F:59 A8 A9 53 8D 5D":360:D$"BSAVE CP AUX,A$3300,L$6FD":D$"LOCK CP AUX":13:420:280:"PIE WRITER PATCH IS COMPLETE":::"INSTALL DAVID-DOS II, ";::T250*^A$"3310:59 A8 8D 5D A8 A2 23"uhA$A$" ND9C6G":I1(A$):511I,((A$,I,1))128::72,0:144:16:|430::"IN LODOS. PATCH TAKES 20 SECONDS.":440:D$(4):D$"UNLOCK PIE":D$"BLOAD PIE":350:D$"BSAVE PIE,A$803,L";(43616)256(4345":"IF FILE NOT FOUND."::"NOTE: THIS BYPASSES VERIFY PIE DISK IN":"DRIVE 1 AND GOES TO BASIC IF NOT FOUND."6"RESTART CALLS ARE VALID & HARMLESS."::"REVIEW INSTRUCTIONS AGAIN? (Y/N)";:Z$:Z$"Y"ė:330@104,8:D$"FP":J(974)238280O THIS:":""BLOAD CP AUX":"POKE 13377,48: POKE 13378,18":"BSAVE CP AUX,A$3300,L$6FD"::"RESTART WITH CALL 13425 IF FILE":"NOT FOUND. (NO PIE DISK IN DRV1)"::"BLOAD FORMAT"p,"POKE 3191,96":"BSAVE FORMAT,A$803,L$2A00"::"RESTART WITH CALL 3104,8":"4 D$=CHR$(4)";:(975)238ĺ":PRINT D$";(34);"PR#3";(34);n:"5 PRINT D$";(34);"BRUN PIE";(34) ::"HIT RETURN FOR MORE INSTRUCTIONS";Z$::"TO CUT THE FORMAT LOAD TIME FROM":"9 TO 6 SECONDS AND RETURN TO PIE":"FROM 7 TO 4 SECONDS, D20 77 31"" N14A9:4C 80 31":360:D$"BSAVE FORMAT,A$803,L$2A00":D$"LOCK FORMAT":15:420::"FOR A TURNKEY HIDOS PIE WRITER DISK,"C"USE THE FOLLOWING HELLO PROGRAM:"::"1 D$=CHR$(4):POKE 217,0":"2 PRINT D$";(34);"HIDOS";(34):"3 POKE 103,1:POKE 10 52 31"" N10E1:20 49 31"" N10ED:20 49 31"" N10F6:20 52 31"" N12A8:4C AC 31":360:(2066)40ī240A$"165C:32 2E 31 20 08 09 04 0F 13":360A$"1229:20 5B 31 EA"" N1276:EA"" N127C:EA"" N1282:EA"" N1358:20 65 31"" N137A:20 6E 31"" N13A9:68 BF 8D F2 03 8D 71 BF 68 8D 74 BF 68 8D BA BF A9 BE 48 A9 A0 48 AD BA BF 48 AD 74 BF 48 AD 71 BF 60 20 68 BF B1 04 20 A1 BE 48 4C AB 12":360gA$"D3B:20 40 31"" NDC1:20 89 31"" NDCE:A9 DD EA"" NE28:A9 F1 20 89 31 A9 BE"" N10C6:20 49 31"" N10CF:26 EA 4C A1 BE 20 68 BF A9 DD":360A$"3160:85 05 4C 8F 31 20 68 BF 8D 6A EA 4C A1 BE 20 68 BF 8D 68 EA 4C A1 BE 20 68 BF 8E 66 EA 4C A1 BE":360:(2066)40ī210A$"167D:B2 AE B1 A0 C8 C9 C4 CF D3":360A$"3180:20 68 BF 20 02 E7 4C A1 BE 20 D"" N3552:F1"" N3557:BE"" N356F:59 E8"" N3574:5D E8"" N3407:4C":360:D$"BSAVECP AUX,A$3300,L";(43616)256(43617)"D$"LOCK CP AUX":D$"UNLOCK FORMAT":D$"BLOAD FORMAT":A$"3140:20 68 BF 8E 5F EA 4C A1 BE 20 68 BF 9D 66 EA 4C A1 BE 20 68 BF BD 6":A$"3310:59 E8 8D 5D E8 A2 21 BD 56 DD"" N332B:DD"" N37E2:20 68 BF 8E 5F EA A0 03 B9 F3 37 99 40 DE 88 D0 F7 60 A9 06 D0"" N35A7:20 E2 37"" N35E4:B2 85 74 85 70 EA EA":360yA$"3609:C2 B5"" N34EB:B5"" N34FC:B5"" N3509:B5"" N3547:21"" N354D:DETURN FOR FLASH, ESC FOR EXIT";:16384,128:Z(16384)128:Z$(Z):Z13Z$(ZZ$,ZZ,1)16368,0::1:868:HT1:VT:ZZ$Z$:Z27370COPYRIGHT 1984 DAVID DATACOR"::"THE FILE NAME. IF YOU HIT RETURN FOR"::"THE FILE NAME, THE CATALOG OF YOUR"::"DISK WILL COME UP. THEN IT WILL ASK"::"THE FILE NAME AGAIN."390:2:CLEOP:XHT(36):VT(37)1:ZZ$;:HTZZ::(ZZ$,ZZ,1);::24:1:868:3:"PRESS R4:450:Z13Z78Ģ3:CLEOP:+3:CLEOP"THIS IS A PROGRAM TO READ A SEQUENTIAL"::"TEXT FILE WHICH YOU CAN THEN TRANSFER"::"TO ANOTHER DISK, IF SO DESIRED."::"IF AN INCORRECT TEXT FILE NAME IS EN-":"TERED, THE PROGRAM WILL AGAIN ASK F"(Y,N) ":ZZ2:450:Z$"Y"Ģ2::80Or(4)"CLOSE":34,0::"TOODLE OO...":|KLEOL::KLEOL:"IS THIS OK? ";:ZZ$"(Y,N) ":ZZ2:450:24:1:958:14::"PRESS RETURN";::Z$::1:CLEOP:3:"DO YOU WANT INSTRUCTIONS? ";:ZZ$"(Y,N) ":ZZ4:1:KLEOL:"SAVE TO DRIVE ";D4 6380:Z$"N"280V @16::CLEOP:16:"SAVING"::` J270 TD$(13)(4):D$"OPEN"NA$",D"D:D$"UNLOCK"NA$:D$"TSAVE"NA$",A"ADR",L"L:15::CLEOP ^216,0:16:"ALL DONE"$h18:"DO YOU WANT ANOTHER FILE? ";:ZZ$E AGAIN? ";:ZZ$"(Y,N) ":ZZ2:450:Z$"N"Ģ12:"FILE NAME: ";NA$:280z 12:CLEOP:"FILE NAME: ";NA$:380:Z$"N"250 280 3288 13::CLEOP:"SAVE TO DRIVE ";D;"? ";:ZZ$"(Y,N) ":ZZ4:450:Z$"N"D1D2:300 "Z$"N"D2D1 ,1DR ";ADR;", SECTORS ";S 7:"DO YOU WANT TO LIST THIS FILE? ";:ZZ$"(Y,N) ":ZZ2:450:Z$"Y"ė:23::(4)"TLIST":(7):390 :7:"DO YOU WANT TO SAVE THIS DATA":"TO ANOTHER DISK? ";:ZZ$"(Y,N) ":ZZ2:450:Z$"N"360G 10:"USE THE SAME NAM 380:Z$"N"140* ADR256((110)2)P 5:1:KLEOL::15:" LOADING ":} (4)"CLOSE":(4)"TLOAD"NA$",A"ADR",D"D 6:CLEOP:216,0 L(LL)256(LL1):S(L256)2:ENADRL:NEN256:IENN:I,0::S123SS1 5:"LENGTH ";L;", ADROM DRIVE ";:ZZ$"(1,2)? ":ZZ2:450:D(Z$)< ZD1D280P d380:Z$"N"80w n3:CLEOP:1:"LOAD FROM DRIVE ";D xD$"CLOSE"::7:CLEOP:8:"PRESS RETURN FOR CATALOG";: 70 4::KLEOL:"FILE NAME: ";NA$:NA$""ČCLEOP:D$"/,D"D:140 > ::255:CLEOP958:KLEOL868:D$(4):D$;"NOMON C,I,O"q:6:1:"HI SPEED TEXT FILE TRANSFER"::34,5z400(HIDOS0:(984)190HIDOS12AA43634:LL43616:HIDOSAA49010:LL48992<80F3288:ONERR FIX, P2:CLEOP::"LOAD F ,93:13592,89:13595,93:14206,89:14211,93\ D$"BSAVE PIE,A$803,L";(43616)256(43617)n D$"LOCK PIE" :16:"PIE WRITER 2.2 PATCH IS COMPLETE": :"INSTALL ";::"NO1";::" DAVID-DOS II ON THIS DISK." 104,8:D$"FP": :"0 P:"WORD PROCESSOR RUN WITH DAVID-DOS II."] Z:"INSERT COPY OF YOUR PIE WRITER DISK" d:"THAT YOU HAVE CONFIGURED," n:"THEN PRESS RETURN.";Z$:::" WORKING ": xD$(13)(4) D$"UNLOCK PIE" D$"BLOAD PIE"+ 13462,89:13467@ PIE WRITER 2.2 PATCH PROGRAM COPYRIGHT 1984 DAVID WESTONS(104)64ī60z16384,0:16385,0:16386,0:104,64(::255:D$(13)(4)2D$"RUN PIE WRITER 2.2"<10:"PIE WRITER 2.2 PATCH" F::"THIS PATCH MAKES YOUR PIE WRITER 2.2   ILINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0ONGINCREMENT = 0Ȫ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝 & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ,LLL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lѥȥ񥰶Ls 8tit8sB@tCtABCB>?><>=?>BPݱ>BL@ /@L  ipm@8e@@AiA8ϥ_^8LKLKLp iLe ꤸ ML#g jA$ t(A$)3Ā* ~(A$)131110V :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" (4)"MAXFILES3" '(121)(122)256316yi<>zi=i?< COMPUTER INC";40);"&";:SS$;S$:I $::"RENUMBER (DEFAULT VALUES)"{ .:"& [FIRST 10] [,INC 10] [,S 0] [,E 63999]" 8:"MERGE" B:"&H PUT PROGRAM ON HOLD" L"&M MERGE TO PROGRAM ON HOLD" V24 `"PRESS 'RETURN' TO CONTINUE..."; DO NOT CHANGE ANYTHING*::255W(978)190Ģ10:14:"DO HIDOS FIRST"::S$"&":SS$S$:I138:SS$SS$" "::SS$SS$S$:I139:S$S$"&":S$;SS$;:"&";11);"APPLESOFT RENUMBER";40);"&";:SS$;" "&";4);"COPYRIGHT 1978 APPLE