L-hhɈ LHH` X% " * THIS IS A DOSLESS UNBOOTABLE DATA DISK. INSERT DOS 3.3 MASTER IN DRIVE, TYPE "PR#6", PUT THIS DISK IN DRIVE, CATALOG, RUN PROGRAMS AS REQUIRED. * +LZALL ABOUT DOS #106.02.83DOS鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  ( =+. ".$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0#?((#)<;?+0<#0?2$4:?(Eb)+ H+ `H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`   ɑ `HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  Lӌu`".Q`pNФbptťܥm2<(-޼y0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?L TO GO ON:";ADDR$o ADDR$""160:ADDR(ADDR$):140 230,0,208,2,230,1,136,208,247,152,160,2,32,233,227,76,154,218k "GIVE DECIMAL ADDRESS (TRY 53456):";ADDR 1,ADDR256:0,ADDR256(1) : ::"STARTING ADDR = "(0)256(1) MAKSTR,A$:A$  "LENGTH = "(A$)20)"RFLAG = "(p6d MAKSTR BY R.D. PURVES cnMAKSTR768:JMAKSTRMAKSTR60:K:J,K:= x32,190,222,32,227,223,32,108,221,133,133,132,134,160,0,177,0,41,127,153,0,2,170,240,15,201,13,240,11,200,208,239,162,0,142,255,2,169,254,168,133,2,200,  د ˠ ٠ 뿍ٍ̩Ҡ àˠ덠̍Ҡ򣍠ٍ̩Ƭؠ殮ӠԠҠŠ àŠ󮍠Ҡ䡡ӠҠ  卪 ӠҲ 䍠Р덠Ҡ̠፠ؠԠ ؍ŠÍؠ Ҡà٠䍠àԠ ̠ҠﮍҠҠŠϱ ԠЍàԠ ҠĠ占Р̠堰쮍РōѠ̠Š 󡍠Šϱ ̠٠ԍРٍ̩ѠԠﬠ荪ˠ٠̩٠占堣Š占٠Š 占ٍ̩덠Ѡ占ɠҲ Ҡ ˮҠϱЍҠРҍŠѠōˠ٠ٍ̩ōР͠묠٠ˠ뿍٠ˍѠˠﬠ䍪 덠ˠ덠Ҡˍàԍ̠̠Ҡˠ렰̠Ҡˠ 塍Р˲ 뮍 묠䮍Ԡ롡̠Ҡ쬠宍ˍ Ҡˠ렸àԠ 塍ŠҠ占宍Ҡ̍˲٠ 䮍٠ԍҠؠԠ ح獠ҠҠ 䍠àԠ衍ҲàԠˠ٠Í̩٠堣ѠŠ䬠䮍Р뿍Ѡˠ 쮮Ҡ 占РӠ˲:"OF DOS UNTIL YOU REBOOT"! h T$T$" ND9C6G":J1(T$):511J,((T$,J,1))128::72,0:144: 5 A2 03 8E BB B5 CA 8E BC B5 AD 6C AA 8D C1 B5 38 6D 72 AA 85 50 AD 6D AA 8D C2 B5 6D 73 AA 85 51 AD 72 AA 85 85 AD 73 AA 85 86 A9 00 A8 91 85 E6 85 D0 02 E6 86 A6 85 E4 50 D0 F2 A6 86 E4 51 D0 EC 4C 85 A3" 500::"LTXT IS LOADED AND WILL REMAIN PART"i5d LTXT BY R.D. PURVES dnT$"A884:4C 54 58": CHANGE INIT TO LTXTxT$T$" NA909:20 7F": ALLOW PARMS A,L,B,R,S,D,V; DISALLOW NEW-FILE CREATIONT$T$" N9D1E:8D AE":ADDRESS-1 OF PATCH500 T$"AE8E:20 26 A  ٠ ԠٍŠԍàōŠƍàūŠƠ亠뺠䬍󰰰٠̩٠덠Ҡˠ 򍪠迍РŠˠ 欠𮍪άؠ Ӡ̠笠報䍠ֱά؍̠ҠϠ䍠٠̩٠占ōٍٍ̩ū٠忍Рٍ̩Ѡˠ ̩٠占Р捠٠獠РˠҠ 占Рάؠ٠ٍ̩֠ԭٍٍ٠󿍠Š֍٠̩٠殮؍􍪍Ԡѷ̬ؠ占Ѷ̬؍Ѷ̬ؠ፠ 占ؠԍРѶ̬ؠ򢍠ѷ̬ؠΠ٠嬠Ѷ̬ؠ򠹶ŠРѶ̬ؠ翍ŠΠﬠ獠ٍŠŠ迠捪笠􍪠̩٠ 򢍠؍덠̩٠ ©٠ٍ̩؍٠Ԡ 썠٠Ơ󿍠Рٍ̩ѠԠ ۩ ԠӠ٠̠ Ƞɯ ۩ ۩ κ Ԡ ĺ κ ȑȑȑȑȑȑȑȑ@ȑȑȑȑ$L@ȑ@ȑȑȑȑ@ ȑȑLAȑȑ@ȑ@ȑL2Aȑ 2AZ@ @ `O@Lg@РҠΠҠįŠҠŠҠ@80@ : `  @<@ L@ UAH@ L@ A` HE R h@ LAHȱhHL@6 Ժ ĺ к κ ˺ Ժ к κ ̺ ź Ժ Ԡ ɯ ¢ º ĠՠĠҠՠ̠ՠñӠՠŠ덪 Ԡ į ˠՠԫΠՠˍŠՠ˫ԠՠƸҠՠҠՠŠՠҠՠԠՠ 󍪍̠ՠŠՠƸ̠ՠȠՠԠՠƸ ˠՠԠՠÍ̠ՠԍҠՠōŠՠРՠà ͠ՠЍԠՠ͍ԠՠͫϠՠѷ̠ՠðōѷȠՠðƠΠՠðƠՠð ź Ѷ ѷ  䍪 卪 䍪ְˠՠֱˠ Ү ԠǠİƠՠðΠՠðΠՠðֱΠՠð Ѷ̠ՠðàѶȠՠð VC Ԡ į ˭                    ,占Рٍҩ٠ 䍠٠ԠЍҠ΍àˍؠ̠Ҭ؍Ҡԍ؍ؠԠ̍٠ҩٍōҠōˠ٠ 占ЩٍӍٍҩٍРԍҠٍҩٍٍҩٍԠà ㍠ٍҩ٠ ëٍҩ٠ Р΍ 卍Š٠ҩ٠ ٍҩ٠ ٍҩ٠ 荠Р 捠Р 宍ԠҠ Ơ 占ٍҩ٠ Žĭ 卍נР ٠ҩ٠ 占ٍҩ٠ 獠Ϡ 占ٍҩ٠ ٍҩ٠ ٠ƍ٠бЩ٠ ٠Š ᬍ٠Ơԯ ٠󮍠ҩٍ٠ƍ٠ōٍ٠àбР͠ 򍍪 占ҩ٠ 占ōٍҩ٠ 占ōٍҩ٠ 卍 Πٍҩ٠ 占ٍҩ٠ 䍠ҩ٠ 䍠ٍҩ٠ 荠ٍҩ٠ 荠ٍҩ٠ ٍҩ٠ ٍҩ٠ ԍ 占ЩٍѠƠ ٠ 占Šư 卍ƠЩ٠ 卍 􍍠٠ҩ٠ ٍԍ٠٠Ѝ 卍ưЩ٠ ٍЩٍЫЍŠƠ 占 占РҠ 卍Ơ٠ 占Ӎ ؍Ҡ٠ҩ٠ 占ҠŠ ҠԍҍҠԍҠԍōҠōРō 卍Πͫ Ы٠ҍҫؠҠΠ 占àԱؠ̠Ҭ؍Ҡԍ؍ؠԠ̍РҍԱҠנ ፠àԲؠ̠Ҭ؍Ҡԍ؍ؠԠ̍РҍԲҠŠ Ҡà į Ҡà ԠР ÍàѠ΍àѠ΍ؠбŬ؍ҠԍҠ̍؍ؠԠбӍΠҠ̠ РԍŠ  РӠ ϠӠ 積àӠ ŠӠ 積Šà Ҡà ϳĶ ̠ՠà Šՠ ԠՠĠ ̠ՠƳԠ 卍 卪 ЮЮ̮Ů ԠǠ ҠՠРՠ 󍍍͠ՠİ ͠ՠ  Ԡ       占Ƭؠ 捠Ӡ Í à٠ƍ٠ҍƍҫ ̲ҩٍ٠ҍ Рð Ѷ̬؍̠̳РƵ Ƶ Š̵ ЍЍЍЍ̴Ѷ̬ؠ 占̴̠ЍЍҩ٠ àҍŠ̴àҫҫРƫ Š̴ ҍƫҫ٠̱Ѷ̬ؠ 占̠̱ Р Š̱ ̲Ѷ̬ؠ 占̠̲ ̵РŠ̱̳L Dȑ\  k + aH + JՐ?뷍췩  LF H 9 h  ɯϠL  ĠàԠ 9 Lɍɱɳ 8鰍`hh L l% "$ ` 7  ӠݠϠŠ ɍL g ; 7  Ϡ͠ҠŻſ$ LF LF +L  L L L G L 췩 L G  ` X  ԠŠ٠ʮ®ӠʮŮҍӠ̠͠٠ӠˍŠˠΠȠ٠ԠǠŠĠ̠ŠԠƠ` 7  ٠ˠΠŠ $ `8`뷍  `췍뷍  `뷩0 `  &DȱP Ly P8` 7  ȠŠΠˠЯ ԯȩ$ ɍɛ!L Hh ` LF XLk gWJN L췩귍`鷍뷩0ᷭ HI XL % "$ ǠŠĠ`hh Ll ``L  R(I);" "; I 800&  WRITE L "ENTER RECORD # TO WRITE ";RECNOW RWOP4c I051| ARR(RECNO,I)IRECNO VAR(I)ARR(RECNO,I) I 130 "RUN AGAIN? ";ST$ *ST$"Y"580 4 &(NAME$)30580/ 0"ERROR: NAME >30 CHRS"8 :520D DI051Q NVAR(I)0X XI} b"ENTER (R)EAD OR (W)RITE ";NGO$ lNGO$"W"730 v READ "ENTER RECORD # TO READ ";RECNO RWOP3 130 I051 ARR(RECNO,I)VAR(I) VAOCKED":440( "DISK I/O ERROR ";RCODEG "HIT ANY KEY TO CONTINUE"P RT$V b ST$"N" "BINARY I/O TEST PROGRAM" "USE BINARY I/O AS MACHINE LANG " "FILE MANAGER PROG" :: "ENTER DATA FILENAME " OLD$"" NAME$) @COUNTCOUNT1, JCOUNT,128(BLANK$)3 TI> ^KOUNTM hOLD$NAME$b rRCODE(KOUNT3)| |RCODE0RCODE10460 RCODE4ĺ"DISK WRITE PROTECTED":440 RCODE6ĺ"FILE NOT FOUND":440 RCODE9ĺ"DISK FULL":440 RCODE10ĺ"FILE L(107)256(108) ADAD7. AH(AD256)? ALADAH256Q COUNTCOUNT1_ COUNT,ALq COUNTCOUNT1 COUNT,AH NAME$OLD$350 I1(NAME$) COUNTCOUNT1 COUNT,128((NAME$,I,1)) "I ,BLANK$" " 6I130(NAME$P BINARY I/O DEMO CALL -A.P.P.L.E. IN DEPTH 3 ALL ABOUT DOS hdVAR(51),ARR(10,51)n(4)"BLOAD BINARY I/O"x470 DISK INTERFACE ROUTINE KOUNT16384:COUNTKOUNT4COUNT,RWOP:COUNTCOUNT1COUNT,RECNO AD     ҩٍ؍ά؍ѶȬؠ ѷ̬؍ɠԠ 䍠Ơà ÍƬؠ 捠Ӡ ÍԠѶ̬؍ѷ̬؍ƫˠ ҍ٠Ӎҩ٠ ˍ٠Íҩٍ̣ ٠ҩٍҠҠӍ٠ ԠРˠ Рà Рɠ Р͠ РР РԠ РҠ 덍ˠҠ ٠Ҡ占ҫ荠 Ѷ ѷ 卪 卪 퍪 宍 ӍǠİð ְΠð ֱΠð  Ѷ̠ðàѶ Ӳ ѶȠðĠ ѷ̠ðŠѷ Ӳ ѷȠðƠ 荪 ˯ҍ ų ٍԠĠԠؠˠƹ󠳠󍍪 ӍƠð Π٬ Р àƠ ōƠ Ơ 卍 ӍӠĹ Ӣ Ԡ čҠ Ҡ Ҡ ˠ  Ԡ Ӹ Ʈ ЮЮ̮Ů         #,169,64,141,183,170,76,242,2125,72,169,1,160,225,145,72,169,147,24,101,72,170,169|+n0,101,73,141,217,2,141,235,2,142,216,2,142,234,2,32,147,183,160,225+x173,245,2,153,0,183,160,243,169,0,153,0,183,32,147,183,96,76,0,0+MEMORY MOVER,160,91,185,0,47,153,0,2,200,208,247,96,162P*F252,160,3,185,255,7,157,254,1,136,232,208,246,96,162,3,160,252,185,254*P1,157,255,7,202,200,208,246,96,160,235,169,0,145,72,200,173,240,2,145*Z72,200,173,241,2,145,72,160,240,173,242,2,145,72,200,173,243,2,145,723+d200,200,173,244,2,14153,0,2,200,208,247,76,56,2,173,248,2,174i)(249,2,133,176,133,106,134,175,134,105,32,149,2,169,0,141,0)28,32,101,214,133,51,133,216,234,234,234,76,210,215,32,103,2,32,149,2,32,134,2*<76,237,2,165,72,141,224,2,141,231,2,165,73,141,225,2,141,232,2TORK(32,184,3,169,18,168,136,208,253,72,173,48,192,104,233,2,208,243,96e( FAST MACHINE LOADER( 0,20,8,255,255,140,226,40,49,48,52,41,202,50,53,54,200,51,50,0(0,0,0,0,0,0,0,0,0,0,0,0,160,45,165,104,145,103,160,8,132,104,160,56))185,0,8,,1,96,162,8,76,233,166,96]'162,0,169,0,157,0,46,157,0,47,232,208,247,166,0,165,2,157,0,46'232,165,3,157,0,46,232,198,1,165,1,240,222,230,3,165,3,201,16,208'6,230,2,169,0,133,3,224,0,208,220,238,139,3,238,145,3,162,12,208,210(SOUND GENERA41,236,183,173,2,47,141,237,183,173,241,183,133,2,169,47,141&241,183,32,100,3,162,12,234,234,165,2,141,241,183,189,0,47,141,236,183&232,189,0,47,141,237,183,232,134,0,32,100,3,238,241,183,198,1,144,184'169,0,141,235,183,32,227,3,32,217,3,176ESTORE VERIFY:%v44315,32:44316,182:44317,176:216,0:U%NORMAL MACHINE LOADER%173,209,181,141,236,183,173,210,181,141,237,183,169,47,141,241,183,169,0,141%240,183,32,100,3,238,241,183,164,1,240,87,166,0,208,38,169,12,133,0<&173,1,47,1SAGE$M1$M4$"$35,24:34,22($>$20(M1$)2:M1$U$&20(M2$)2:M2$;g$034,12:35,22r$:13:1$DM1$M4$ĵ49152,128:49168,0:M1$"":4360$NM1$"":M2$"":49168,0:$XVERIFY NAME ONLY$b44315,234:44316,234:44317,56: %lR(NN6X)#|N(NY16X)-#YY(Y9)748<#N$N$(Y)D#:U#CHECK RANGEr#PT4N767NLN46990ı#PT2N2048N36866(N$,2)"01"ı#:B$"OUT OF RANGE"#:4350#16:958#PL$X$:1320#Z11500::$DISPLAY MES DECIMAL"N$(N$,4)4"(N$)4N$"0"N$:4090<"N0G"X14]"Y((N$,X,1))48""(N$)N4YN0(Y9Y17)Y224290",YY(Y9)7"6NNYN6(N4X)"@:"JDECIMAL TO HEX"TN(N)(N1)256:NNN"^N$"""hX301#rYAND-BY...":110#! D$;"MAXFILES3"7! 43624,1:216,0A!4470M!::10s!9998,9999: RESET LOMEM AND ENDy!! SUBROUTINES!CHANGE DISKS!:16:6!949:949: SOUND!"INSERT "DK$" DISK IN DRIVE "D2!4350::"HEX TOİ4030 3450$ :"SAVING...". 4450A V$;NM$"*,D"D2K 4470 47073,NXMAX:47083,0:47084,ET:47085,ES:47088,0:47089,HB:47091,0:47092,2 46995 END? :17 "FORMAT ANOTHER PROGRAM? (Y/N) ";:E$:E$! E$"Y"ĺ:"ST,8:175,X:176,Y P035406* DK$SC$:D21İ4030A4 3370U> :"LOADING..."_H 4450pR V$;NN$",D1"z\ 4470a OF(46553):Z(46311OF):Z2ė:"WRONG DISK!";B$:4350:3370f 0,MAX212:1,NXMAX:768p HB(47089)1 z DK$TG$:D21X,Z: 3310( X576587:Z:X,Z:G 576: MOVE LOADER TO $25Bd P10Ĺ749,96:LOAD ONLY D$"BSAVE"NM$",A$25B,L$9B" 3360 APPLESOFT ONLY X(175):Y(176) 104,47:175,251:176,47 3350 D$"SAVE"NM$ 216,0:10412276,X:BYTES IN LAST SECTOR,X XPLLNXZb 12274,L(X):12275,H(X): WHERE TO LOADl 12277,NX1:NMBR SECTORS TO READv 12280,H(LNPL):12281,L(LNPL): LENGTH PT43250 BINARY ONLY X112:Z: P13āX1211012117:Z: LOADER") Y12032:X0239:Z:YX,Z:v XL(PL4):YH(PL4):12156,X:12157,Y:12174,X:12175,Y:WHERE TO LOAD& 12071,H(PL):12109,H(PL)0 12270,L(PS):12271,H(PS):BINARY START: 12272,ET:12273,ESD XL(LNPT):X256XX256N   "SAVING PROGRAM"2 P0:NNS:XET:SESt NXMAXP1:NMAX1(NS122):X((F1N1)16):S(F1N1)X16 47073,N:47083,0:47084,X:47085,S:47088,0:47089,HB:47091,0:47092,2 46995:FAST SAVE  X1200:Z: :"CREATING278OF,BT:46279OF,BS:CONNECT T/S:x 45111:STORE NAMET COMPUTE NEW T/S LISTz 907,46(NS123):913,46(NS123) XF11(NX121):T(XN6):SXT16 0,12:1,NX:2,T:3,S:888 NS122Ĺ11777,BT(BS15):11778,(BS1)(BS15):12037,122:2340 B$"I/O ERROR") 4350:25304( 216,0@2 T234p< 46067TN4,H(TR(T)):46068TN4,L(TR(T))vF P 46059,ET:46060,255:NEXT TRACK TO USEZ 45051:WRITE VTOCd OF(46553):46311OF,NS:46280OF,PT:UPDATE TYPE&SECTORS#n 46 XTN6S/ XF1XF2TR(T)TR(T)TEST(S)7 :P PUT NAME IN CATALOG[ 2560o D$"OPEN"NM$"*"~ D$"CLOSE" 2600 (222)4ė:16:B$"WRITE PROTECT ERROR":2590 (222)13ė:16:B$"ERROR. FAST VERSION ALREADY EXISTS.":216,0 (Y/N): ";:E$:E$:E$"Y"2020.$ 4350:310J. COMPUTE TRACKS/SECTORSf8 BT(F1N6):BSF1BTN6vB F2F1NSN1L ET(F2N6):ESF2ETN6` T234j TR(T)P(T)t ~ ::"CLOSING SECTORS" 35ET TBTET "*"; S015 1HIXHIXZN0XN03XNSF1TN6SHF1NSN2Y2360P:Z:16lNM$SR$2320 B$"NOT ENOUGH CONSECUTIVE FREE SECTORS." "LARGEST USABLE SPACE IS: "HI" SECTORS" "TOTAL FREE SECTORS: "Y :"CHECK ANOTHER DISK?:19:"I/O ERROR";B$:4350:2030Rp16:"SEARCHING FOR SPACE...( TRACKS=> * )"hzX0:Y0:F10:HI0wT3421"*";TR(T)P(T)TR(T)0XN0::2290S1501ZN0TR(T)TEST(S)N0TR(T)TR(T)TEST(S):ZN1:XXN1:YYN30V$;NM$",D"D2a "ORIGINAL NAME ON DRIVE "D2" WILL BE":"RENAMED-> "(NM$,29)"^":4350:D$"UNLOCK"NM$:D$"RENAME"NM$","(NM$,29)"^" D21NN$(NM$,29)"^"*21104(222)82150>216,0:4470H45047:READ VTOC\2160"f"R"1420<M1$M3$:M2$"RETURN : VALID HEX NUMBER":4360s20:"START PROGRAM AT(DEFAULT=$"PL$"): ";:"$";N$N$""N$PL$4090:PSN20:35:N$4350INSERT TARGET DISK222,0:2100:DK$TG$:4450D21İ40L$)ZPT2N$PL$P13:RESET LINKAGESEdPL$N$:4090:PLN:4270Vn16:35:PL$exPT21500M1$M2$:M2$"L-BLOAD PROGRAM : R-BRUN PROGRAM":436018:"BLOAD OR BRUN PROGRAM: ";:E$:E$E$"L"P10:1500:LOAD PROGRAM ONLYE$0:24::1HB(47089)1: HIGH BUFFER ADDRESSBGET CHANGESq(M1$M3$:PT4M2$"RETURN : $300 TO $B000"2PT2M2$"RTN : $801 TO $9001 (MUST END IN 01)"<X$PL$:4360:16F"LOAD PROGRAM AT(DEFAULT=$"PL$"):";:34:"$";N$PN$""N$PMAX(0,12:1,X: # SECTORS TO LOADCNXNS:NSNS1(NS122)ZSHOW PROGRAM DATAcP11|"PROGRAM TYPE: "OP$"PROGRAM LENGTH: $"LN$" "NS" SECTORS"NS11ĺ:B$"PROGRAM TO SMALL":23401120 768:READ A CHUNK 216,310*0,12:1,1:768:LOAD FIRST SECTORDGET START AND LENGTHfN12286PT:4180:LN$N$:LNNNPT2PL(12291)2561:NPL:4190:PL$N$:OP$"APPLESOFT"PT4N12288:4180:PL$N$:PLNN:OP$"BINARY"NS((LNPT)256)1XNS:XMAXX$1090.V$;NM$",D1"*84470:11304B:16\L(222)6ĺ"FILE NOT FOUND"B$:1120oV"I/O ERROR"B$`4470:2340jPT(46582): PROGRAM TYPEtPTPT(PT127)128~PT2PT4ĺ:B$"ERROR. BINARY OR APPLESOFT ONLY!":M1$M4$:4360:(NM$,X1) $ NM$"END"3570/ 1110^ NM$"CATALOG"ĉ::D$"CATALOG,D1"::2340x NM$SR$NS999:2020 NN$NM$  LOAD ORIGINAL DK$SC$:D22D21:4030:D22:DK$TG$ 4030 :"STANDBY...LOADING PROGRAM" 4450 NTER APPLESOFT OR BINARY PROGRAM NAME"= 34,12:SET WINDOW{ M1$M3$:M2$"PROGRAM NAME : CATALOG : SEARCH : END":4360 11:868:3570 X(0) ":";NM$:216,0 (NM$)0400 X(NM$)11 N$(NM$,X,1) N$" "490 NM$# 6::10:"FAST LOAD FORMATTER"< @13:"BY MARK BROWN"j J:"THIS PROGRAM WILL STORE APPLESOFT OR" T"BINARY PROGRAMS IN A 'FAST LOAD' FORMAT" ^"PROGRAMS WILL LOAD IN 5-8 SECONDS" h:" ONE PASS IF PROGRAM IS <= "MAX" SECTORS"& |10:"EL(X)X(X256)256' H(X)(X256)3 S015D TEST(S)N2SJ c X768967:Y:X,Y:u D$"NOMONIOC" CHECK FOR 2ND DRIVE 222,0:270 4450 V$"HELLO,D2" (222)8D21 43624,1:DRIVE 1 "4470 ,PRINT HEADERWAIT 10 SECONDS.."= nN00:N11:N22:N44:N616:MAX102:D22 xD$(13)(4):B$(7):SC$"SOURCE":TG$"TARGET":SR$"SEARCH":V$D$"VERIFY" M3$"* VALID INPUT *":M4$"PRESS ANY KEY" TR(35),TEST(15) P(T)(46067T4)256(46068T4) $$_ FAST LOAD FORMATTER BY MARK A BROWN CALL -A.P.P.L.E. IN DEPTH 3 "ALL ABOUT DOS" ((40192)211(40193)156ĺ"ERROR. NON-STANDARD DOS.":<(4);"MAXFILES1"F38404:39552P::12Z12:"FAST LOAD FORMATTER" d:12:"..                      ԠӠ 䭭 ӠӠ 䍠Ӡ ȠӠ ȠӠ 荠ԠƍӠ č Ӎ ԠРˠӠ 뭭 ҠӠ ƠӠ ƠӠ ٠ű Ӡ ӱ·٠ Ӎ٠Ƴ 䍠 Ӳ·٠ ӍIJҠ· Ӎ Íà 占ؠ 占à ҧı 퍠IJؠıؠIJıҠ· 占٠ ӍٍƠ 占٠ Ӎٍ٠Ԡ 䍠٠ Ӎ ٠ű ҍ٠ ٠ Ӎٍˠ 덠٠ Ӎ٠Ҡ ٠ Ӎ٠ư ƠŬ؍٠؍ŠвӠ 卪 Šؠ٠ÍгŬٍƬ؍ؠٍŠгӠ Ġ٠ ӱ 퍠Ӳ ӱ 퍠Ӳ ؠÍ٠вƬٍРРķIJ 퍪 卪 ҠӠ ӍҠĠ 퍠ҠŠ РԠ ĿӠ ҠĠ 퍪 퍠 ҠĶ 덠 ĸ 獪 ЍЍ ٍŠбРŠ  Šȍؠȍ °ؠƍؠ ٠ ٠ ٠٠Š б٠ ٠ 卪 庰 ˨ Ǡ Ƭƍ ìŲ  ø  ٠Ġϳ Ӣ ư ǭ   ЮЮ̮Ů          ":"305TEXT:HOME:?:?CHR$(4)"Q$"FP"Q$:"RUN":D$"CLOSE":79 Q$(34):D$(4):D$"OPENCOPYDOS":D$"DELETECOPYDOS":D$"OPENCOPYDOS":D$"WRITECOPYDOS":"LOADCOPYA":"70?CHR$(4)"Q$"BLOADCOPY.OBJ0"Q$":POKE770,3:POKE863,3"8 "80HOME:INVERSE:?"Q$"COPYDOS (MODIFIED COPYA) BY MIKE NORTON"Q$":NORMAL:VTAB3":"250FT=1  ARD":"CHARACTERS, MUCH LIKE THE USE OF THE":"'EQUALS' SIGN (=) IN APPLE'S FID AND":"MUFFIN PROGRAMS.":,A$A$" N D9C6G":I1(A$):511I,((A$,I,1))128::72,0:22:"TYPE THE COMMAND ";::"DIR";::" FOLLOWED BY":"A FILE NAME STRING TO SEARCH FOR AND":"OPTIONALLY, SLOT & DRIVE PARAMETERS"::"FILE NAMES CAN BE SEARCHED FOR ON THE"j"DISK, WITH A LEADING AND/OR TRAILING":"'AT' SIGN (@) TO ACT AS WILDCV:AAT3:VVT3:A1,V256:A,V256(A1):N93,231,123,231,226,87,229,97| MODIFY JSR'S, ETC. IF MEM SIZE NOT 48K (978)157X157(978):I020:A:AAT3:A,(A)X:5,8,11,14,19,24,40,65,77,82,85,89,99,102,114,129,156,165,201,209,2NTRY TO: FILENAME 1,SLOT,DRIVE 3A4,32:A41,48Y CHANGE ENTRY POINT FOR COMMAND A51,(T31)256:A5,T31256(A51) COMPUTE AND STORE RELOCATION VALUES FOR JMP'S, ETC. T339936230: UNNECESSARY IF LOADED AT $9C00,I14:A,NT MEMORY TO PRINTER  R: @ "DISK NOT WRITE PROTECTED":/)H h    )C`  ԠŠĠӠή Ǯ Ǯ Ǯ Ҡٿ٬Ω ҠɱɲH h8` XL $ȱ [ȱ L' ` ھ۾`ٮ ٠ˠԠ̠ź Šź Ԡ˿٬ΩǠ׿٬ΩӠΠϠή Ԡ̠ĠӠή ,, Ѝ A , A ` A ` W  ` H`,m  V  3 Lh DL ?E V * ? L L 8L)   ` ɍ ` ھ ۾ W 3  " x   x   x  x  x U  L XL 0 م  (  ,,L    6  , A A Ѝ A ,w>  I  Z  ɱɸH h8 e  x    L  ΍   " x N   D    EOR #$FF 0 DSTART10: PRINT ASCII TO SCREEN D N:"SHIFT # ";IS XJ110:J] b: FOR INTEGER BASIC ONLY 800 DIM I$(2), O$(2), PR$(10) *I$" " CTRL-I IN QUOTES 41 >I$;"80N": SET UP PRINTER FOR 80 COLUMNS  HSTART9: PRIH REM AT LINE 120)  : T  SHIFTS EIGHT TIMES TO PROVIDE ALL POSSIBILITIES _ I18r 540:540:570{ I: START15: SHIFT ONE BIT &START12: SAME AS LINE 160 0 DELETE FOLLOWING LINE FOR TRS80 READER :START6: ATARI  2,TR:"TRACK ";TR1 START: READ A TRACK A (767)900l START12: STRIP CLOCK BITS AND MOVE DELETE FOLLOWING LINE FOR TRS80 READER START6: ATARI EOR #$FF START10: PRINT ASCII TO SCREEN 500 NEXT TR (GOES WITAu ATARI/TRS80 READER.BASIC BY SAM VASS WITH LEE MEADOR CALL -A.P.P.L.E. IN DEPTH 3 "ALL ABOUT DOS" dFOR INTEGER BASIC ONLY 100 POKE 75,96 : POKE 205,96 : DIM A$(3) n767,0:START13256xTR0:(OR) FOR TR = 0 TO 34  2)H h     )C` Ƭà  Ԡƍà ή DZ ƬàǮ DZ ƬàǮ DZ ƬàǮ DZ ƍDZ à ٿ ٬Ω  Ǻ  Ԡ à ˿ ٬Ω  Ƕ à ׿ ٬Ω  Ƿ à ή Ǹ Ƭà ή ǹ ƬƍӍҠ΍ DZ Ƭàٮâ Dz à Ӣ dz à  Ǵ à ź  ǵ à ōŠ؍ҠōٍРӍؠ 占٠ج ǩٍҠµҠ٠ 占ǩٍѠԠ 䍠ҠԍРҍԠӍȠĠ 荠ҠҠٍРčŠҍҠԍӍ֠ҠٍРѠҍРŠ֍ҠҠԍÍàӍԠ٠ Ӡǩ٠ 占РƠ ͰˠӠԠӠРÍР ӠĠ ԠӠĠӠΠ Π à Ƭĸ 卍ƠӠԠӠǠӠ٠ӠˠӠϠӠ 󺍍͍ؠ͍ؠѠ̴̬؍ƍؠԍР̳̲РƸ̴ؠԍÍРƲ̠  Ӻ ӠŠ ԠӠΠӠ̠  נ Р̠׹ 뾲РưĠ ׹ƍ͍٠Š̱̳٠̱ҠõӠ̲Ҡ¸Ӡ̲à ư Ĺ ̢  àԍ̠ЍԍӍӠ٠ҠĹӠǠ ӍǠԠðԮDZԍҠŠ 占ԮDZҠȍРٍ ƍРƠ 捠̍̍̍̍ЫàˍˍРύѠԠ ҠٍàƍŠЍӍԠҠٍӍ٠ƠԍРҠӍàЫҠٍԠð 䍠Ġ РŠˍԠð Ԡðˠàˍİİ ЫҠٍԠð ͍ ƠҍҲԮDZǢԠð  Ӡư ưƍЫ 䍠ҠٍàˍŰŰƍЫҠٍàˍİİ ЫԮDZǢԠð ԠðРӍԠ٠ 占΍РǍŠҲԠ ѠҲ 占Ԯǹ 占Ҡ̍Ҡ ٠Ġ 䍠Р 占ŠԍǍ΍Р٠ Š֠ 䍠ԮǸ Ҡ̍Ҡҍ֠вŮĮŮԮDZ٠ҠٍР٢ŠÍРԍàҠōРİ ٮ 捪 ǹҠ̍ҠҍԠԮDZčč̍ˍР٢ŠǍ׍׍ǠҠӠ 덠ؠҠȍԲŮàԍĮҠԍύԮǶҠٍР٢ѠӍ΢ӠˍҠԍԠԮǷҠҍĮРύŠԲԍٍ΍РǍŠԍԮǴҠ֍ǍԮǵҠ֍ٍԮԍҠٍР٢Ѡԍ 卪 ύ΢ҠԍРԍ 퍪ԠԮDZԮDzԮdzؠ ̍ԠҠٍРàԍРӠԍҠԍÍà̍̍̍̍΍ԍԮӠԠՠč 󍪍ϠĠÍčݱˍҠٍ͍ŠÍčݱˍҠٍ͍ԠÍݱǍݱǫҠԍ͍΍ ԠǠ͠ՠčǠՠō̠ՠčŠՠõ٠ՠİÍŠ .Ԡ ٮ ЮЮ̮Ů Ӣ           6):63,T:62,T2256T:T(T3256):67,T:66,T3256T:768mA11,(A11)1:A2: RE-ALLOCATE FILE BUFFERS  CHANGE "VERIFY" TO "DIR" IN COMMAND TABLE I05:V:A3I,V:68,73,210,0,0,0: "D","I","R",AND NULLS CHANGE VALID-KEYWORD EWING ROUTINE SAVES Y REG., CLEARS IT, CALLS MONITOR MEMORY MOVE ROUTINE, RESTORES Y REG. nA$"300:84 47 A0 00 20 2C FE A4 47 60":300:144 s MOVE DIR CMD RTN INTO DOS BUF #1 9xT116384:T216615:T3A1256:T(T1256):61,T:60,T1256T:T(T22500:144 _ A1=START OF DOS; A2=ADDR OF BUFF ALLOC RTN; A3=ADDR OF "VERIFY" IN CMD TABLE; A4=ADDR OF "VERIFY" VALID-KEYWORD ENTRY; 5=ADDR OF "VERIFY" CMD VECTOR dA1(978)256:A2((978)10)256212:A3((978)12)2562:A4A361:A5A184Y i FOLLOɠ , ,@``0` H  H)  e @г`0 ****ȱ e  @``@ADEPQTU)Uݢ`8j0`0 ɍ ҠӫƠ Ҡӫà 덠Ϡ Ӹ Ҡӫ ΍Ҡӫ ͱð̠ͱðĠƍРÍѠͰӍԠƍ Ӣ ԠӠՠİ ӍӸð ̠Ӹð占ĠƠ ҠҠӫ ͰҠӫƠ Ǡ Ԡ ЮЮ̮Ů àҠԍà ĢؠԠ ҠڍР͍ԠƍԠ ҠڍР͍֠ԠٍԠƍ̍ЍˍƍЫÍҠčҠӍӠҍàčРōҠ ҠڍРѠÍҠҠԍàɯ ҢؠРԠ؍ؠčԠčƠƬؠ ƍ؍Šƍˠ迍РԠčؠΫ Ƭ؍Ġ ҍč,`  '3?W_-n> > Q::L@"A& ȩș $-6BHT`r{ 6 `O6 %+4:ο"AAAA^A`AVgu`hhHHL9>LP>>L)> > > > > >>>>>>>>,,`,,,`,,`,,`,`Ih,, ,,L$h, ,L$,@Tɽ@ @ L@L``ERROR``ӠӠԠΠŠ͠ġ,,, ߢ   ,, Lɭ f@@,L@ A;B 0B A@ML@t8@@B0 9\KR=;Aȹ;A ȄaA>  z# ŠӠ ɠҮӠɠҠ ӸҠ ɠҮӠɠҠɠҮà̠Ġ  ӠԠŮӠ(ԠŠ ӮӠEӠǮӠ ӠǠĠӠ ҮӠĮ̠ıӠ ı IJӠ IJӮӠ  ԠҮӠ ԠĠ&٠ɯϠϠ٠ɯϮӠ٠ɯϠԠҮà ӠҮӠ ӠҠ˧ӠҠ!ŠȮӠŠȠٮîӠ ٮà1 2 ... ..  3  -   34 "  " 5   1 6  Ӳ ´®µ Ԡ±àƵƱ´Ʋ´Í͠ōԠųŴӠŵĴҠŵŲǠưԠÍÍ˴Ӎë˴Ӎë ӍԠ  Ԡ ЮЮ̮Ů Ӣ ԠàԠDZ ٠ҩ٠ 占ҠŠ ҠǠ 婍РųŴРҍԠƍ ŧҠҠ ӍàΠ àӫ àԫ ŠŲ ųԠﺍѠŴ ҠǠ占ĠӍӍԫѠų Ҡ Ӡ ƍӫƫؠӠ ٠Ӡ ҠǠ ٠ 占ҩٍҠŠ ҠǠ 婍РōŲҠƠ 䍠Ơ 俍ҠǠ ҠŠ 㮮ҠǍ٠ҩٍРųŴРҍ 卪ŠΫѠŲ Ӡ ħҠҠ ӍàΠ àӫ àԫ ŠŲ ųԠﺍѠŴ ፠Ѡų Ҡ à̰ 忍Р̰Ӡ ƍӫƫؠӠ ٠ջ ҠǠ 婍ҠŠ 占 ҠǠ ٠ҩ٠ РŠ ŲԫӠՠµĶӠՠµķҠՠ°ŠՠŠՠƠՠƱčҠՠ³ƍՠöӠՠµĵ 卪ŠΫ ѠŲ 򍪍 󍪍Ǡ°ҠՠΠՠµŴǠՠ±µǠՠ±ԠՠµñӠՠµóՠ³ƍƠՠ·ư Ԡ ֱ ЮЮ̮Ů Ӣ Ԡ     <<=>=?8hAh<=8>?B<eA><@B0A L @ȭ@ȭ@h`=?8hAh<=8>?B<eA><@B0A L @ȭ@ȭ@h`=?8hAh<ҠֲԠé̠΍H XʽiH>iHi?@BACC@iAIL >B?C@ȭ@@A=i?< /< eA LɐQE? * C ? ՘LE 4 9 Eɠɰ ɺ L C E  똤A$B%CL$A%B`$! %#BLE  ` ⚆CEE$ɛ$Ɉ  L ɍ E`@ ꙝ L ɏ ( Ϛ  /ɑEE8C Jɘ< иɉC ޚ  Ʌ(ɍɘɗ F>$3P`E H 9u 4F=E$3pDɍHb6$3P텸h`CEED C`EL2$= ENN L LQ> 9N#L4N ɛh ޚ ? ? X0 XL  ` Xl 4Ln(N X$ɧLH hɲ˨ [\_̭ ̭ ŭ ´ ̷ ̭ ;Y ̭ ;YLL SSS-A›BÛCěDśEƛFŵ ɛʛ˛͛ ԍŭ ı IJ Ṱ ѧ˨˨˨ ק˨˨˨@ɠ$@ ɢE@@EE=h`ɂ *L Ɏ L LH))?(h`$( N ɓ&Ɂ!ɍ#ɘ, ɕ(`JN`ɠSH)? h` `89`67`HɆ Mh,0ɍɛɓ Ƀ%, N ɉ  HʽChE  LɃʱ()@ LɄ2E L E ECLDH hhhC`ɚJɆD? NE$?CC C @C @@ Lɒ$>  LɐQE? *  C ?  LHzzx`ӠҮӠ  /ɑEE8C Jɘ<  иɉC  E     BHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬 ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBLζȱBL8` DLŶ` ܫ  / / ED B / / ]ƴLꠠȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-`õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 LȱBh ӵԵ 8 L8 ݲȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I L`  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` 跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx->#"("0)xӠҮӠVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANG`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASA õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@utQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõLõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L @ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLqH`]ɍ]ɬ` ɠ``DE ɤ<(LΡ DE`80!  eDeE eDDeEE8`D&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  ?LVDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0H Z(G FG HZXj 0x D$xxH` ( Zh ZL.xxH hh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *Hh Լ ռ ռ ռ`HJ>݌h Hh݌`ȱBLBL`ȠHIHHHHhHH݌hHhHh݌H6 ?>274+:/#0>2*4)! ! 3<*! +! 9 < ,?;$?31 $) 2,*;....) <....9 40.+  */ 0) *(((24?949:4< Ю꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ƴLǴLLȘ `0 ǴL۹ꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'з巬 췌`x (`(8`I`B` ` `>J>J>VU)?`8'x0|&HhHh VY)'&Y)xL}BBL]HLhȱBLkhLpLL{ȱBL~L ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `04RDĵ zz44Xx^46 `' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF  ӠҮӠ ~(`p d ֠z#볍 |8 ЉLw`H h ݲL~ |`浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH쵌``õĵBCõĵ`µµ`L õBĵCصص QLi0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw0!0>ﵭ` m0 ﳐ 7ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i BL8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎88: 8 (8HϽ8 hόϽ8 ;Ȱȅ;ȅ:hhh HHϭ hh`l8P8,XxϊHHx P Q(p2a) 88 ʩ86?7;68I  Dʽ*x ɚ ) hh<%<(=о@AиV<Y<<Y<&，YЇV0&^*^*&'==+L,X8p8HHHx Xhhhhʚh 88(P79685V80)ɝɞA8i:2OĀDC3({:jEAALrHȨS6 P"ONH::e3F AHJ a$"4"ODAй "AW1 "@TO |BDLF4;TR:Jia2O""DClE;"RAS1S /T#T:N|CDILF:;ATFR퐢L" ;;:-LS1A@(N(4SM$H@@h@N3 x` ː8) 0  5٭xɑе ͩ@ h˽)H/)@ 3 0   Dʽ0 5 Q fХF ` LhАm)LLr1:: A o$Э: O1S2:K (;:TNOR[Хh:6Q" S"1I(T)3hh7DAr$̭TЪ:"RQ)L@H!Bj:BLU$C=@E:OBGP"Dխ$A,,5L1:Lʰ:R'MM:::"A:"SDD`ȭMODJ `RMT(:8P8,XxϊHHx P Q(p2a) 88 ʩ86?7;68I  Dʽ*x ɚ ) hhDTLI2) )) 2C"h2AD@:F RCEJ /D:) :A"@"SKGE:2`80p880p000p00008A:KII,5ILI:3:4'eDJ $ 1SPMّDйDHi LhАA mOLLr18: Ao$D: O1S2:K `;TNOR[Хh:6Q" ӠƷŸ٠Π͍Ƴٍٍ̠ŲҠŰҠҍؠӬؠŠϠΠҍ؍׬ؠĠŠԍŸؠĠ٠č؍̠ðԠ͠ˍҠŹ٠ƍ٠àԭͭŠͬ٠̠ͯӍŵƬ٠Ӎٍ̠ō٠ ͭ±ű±٠̠ȠҍƷ٠ԠӍٍ̠ű٠ŲƵ¬٠̠ ōƴ٠ĠՠĬ؍àĠƲٍ؍ŠӍҠà̠̠ЧӍŴÍŸĹĠҧӍŲ٠àĭ±Р±ٍư٠Ʋ±ٍ٠̠ŠƍŠЍؠˠȠŠōѠҠ٠ƠӠŽ٠ٍРàԠпŠҠȠƠԍÍ٠ŠŠȠЍҠٍÍ؍Ĭ؍à ƲŠȍٍ؍ٍӍȠӍ ҠԠԯŠŠ͍٠РĬٍŵ²ٍ٠ŠРƠӍ̠ЍؠԠحҍĬ؍ԠȠӍ؍Ĭ؍ĠŠΠĬƠٍРԠ̮ԠԠƠҮƠƍ٠ƍ٠ٍ٠ŠӠύ٠ŠčٍŠàԠԡѠ ȠƠٍààŠϠԍϠԠ΍àؠ³ÍРԴ؍ӠҠРРȠƠԠٍŠҍРԴ؍àҠȠƠԠٍҠÍàؽث؍ؠÍӠƠȠ٠έ؍٠Šȍٍά؍ŠӳӍԠ؍ŠŠȠƠԠٍѠӲӍӠÍ٠٠ŠՍàĠԍӳٍӲÍƍàԠſàӲȠƠԍİŠȠōٍٍ٠ŠנŠΠٍؠέ΍Š؍İԠȠŠ΍Рά؍ŠԠȠƠϠȍԠנŠΠՍРέ؍ŠԠȠƠϠȍϠӠŠӠȠƠԍ٠ԠנōàĠˠԍàӍРčӠӍàƴԠӠƮϠӠ ٠ԠůƮٍэŠӳӍΠРưҠàƠӍРðӠԠƠōӠ΍ٍР· ŠſŠؠȠƠԍ٠ԠנōàŸĠˠԍàӍРӠӍàƳԠӠΠ ōà ӍؠРµţàϠԠōؠԠؠ³ÍԳؠԳ؍РؠةҠƸŠŠŠ΍٠ƍ٠ŠӲȠƠȠٍРčàӲϠԠٍàԠōٍٍŠà٠Ԡ٠ōŠàРԲ؍àϠȠƠԠٍРԲ؍àϠȠƠԠٍÍàؽث؍ؠٍ̠ҍӠˠϠÍ͠àƠĠάŢؠčӠðԠ͠ĠðŠŠ͍ԠԠҍؠؠԱ؍٠Ա؍ŠӍϠÍǠѠՠƍŠӍźŠҍIJӠԿРčѠӠȠƠӍ٠Ҡͬ٠ԠҠōҠư ңӠҠ٠îҠ̠ЮЮ̮Ů̯Ǡ č·Ŵ·Ÿ·ō·ưԳĸԴč³¶č·Űõƍ¸İøƍ͍ӾӠҠҠƠύРŲРϠӠōҠРŶIJ٠ŠҍԠؠԱİԲĵĵĵĶĶĶÍķķķÍķōĸÍ·ԭԭԭԭ͠ӍͯӠōѠͽԭ¶РŸˠϠĠōƠРРƷ ЫƲ¶ҠƷ ҭ±°ƲĠč٠ƍҠƷح±°Ʋؠư٠ԭٍҠƱ ³ƲԠԠĠȍ٠ƠĠōҍà؍ҠĠŠ΍РƱ²ƲԠӍĵƍŠʠӍ²٠ĵÍĵčŠʍ³٠ĵĵŠʍ´٠ĶĶŠʍµ٠РƴŠΫƲʱʠ٠ƷƠƲƸƲŶŶŶųŸĴıčŵðİčŲΠİÍčŸŹΠư±ƲƱ²ƲƲ´ƲƲĠ¶Ʋ±٠ĵŠŴŶƍŷŶÍĶŴčõčŵÍŵƹčİİƳĹŵŵŵŵŵÍŵōŶŶÍĵƲƠƲг°µ±ŵƲŵƫƭͭƲà°¶±µİƲƳƲ ƴƲ°·±ĠŴÍŵƷϫ³±Í°´±ƍǍ͍͍͍ӱӲӳбвŵ²ƲͱгİгijгĶгĹÍŶƲƠƲ΍ԠՠðРƠРūԠŠΠŠٍԠ΍ӠՠƷӠԠĠ·ƳՠԭƲՠƳč°ՠŵӭƲƴՠƳàՠŠѪƲ¸°°Šϫ²±̫ƲͱðŰŠԠӍгİҠƶРƠŠЧӬҧӍгijҠƶРĸгĶҠƶҠčРƹгĹҠƶҠƷµРƹгҠƶҠŸРƹɶРðРԠРҍӱðԯ˯ɠӍРӲðРéӳðРũбҠƶɯϠӍҠŸ̠ðӍвҠƶҠčРƹύƠðӠԍҠƵĠгƲРƶгРǠðӠԍҠƶƠгƲԠЍԠðԯŠŠ͍ԠðЍӠгР͠ðРŰȠȠōРƴðҠŸҠŸРƶ¶ðҠŹРƶ·ðҠĶҠàōҠƶРŴƍ¸ðРķIJàðРŸΠҠƷĠ°ʱ±ƲРƶҠԠĠӍҠŸРгijԠĠӍӠàϢנؠôàŠ٠Рō±ðҠİàҠҠӍРƶ²ðҠčРƶ³ðҠРƶ 򠱠򍍠ҠԠ𠢬 ؠƲ٠ƲؠÍ٠ë ҠԍDZ٠DZРӠ򠲠 ŠЍҲӠҠԠ𠢾 ؠƱ٠ƱؠÍ٠ë ҠԍDZ٠DZҠӠ Ҳ ±² ӲҮ Ԡ˴ҠР֧ ҲӍŠҠРҠԠ 썠Р 祉栲􍍠РҍӠ Ԡ Ҳ 占Ҡ͠Ҡԍ堲Ҡ٠ԩٍٍÍԩٍٍëԩٍ٠´栲驍ؠà栲à獠ԩ٠ٍë獠ԩ٠򍍠٠´驍ؠ 祉婠ҠҠ 箍 Ҡ 卪 Ү٠ԩ٠ٍҠ˴ӠРҧ ӲҍŠӠРҠԠ 썠Р ŠЍӲҠҠԠ𠢾 ҠԠ婠 Ӳ ±² ԰ H hBLµ* `Loõĵֵ׵ Rĵµѭ H hBLL B ڬ L -յյµ% `õĵֵ׵ Rĵµ˭ B ڬ LZL lpx|~𷄝]V߼ȿBhzBB5zaM|wQTWZ\^`cegkޔ6G݀ $-H^ݭ_%H\ݭ]HZݭ[H`ݭa rsLNHhL{ K @ jLrs`au`hhHHL9DLQL#VXZdfLf Lf Lf Lf e fL䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f QLB'Byyyy-Bz9BEBWBWBWBfBlBrBxBBhBBBBBBimBXmB z5hDLw@@DiLj@AC@B@BCAC KB C@ CAB"@lL@ʽBi@ȽBi}@ΩL6 ݍ̹A_COkhC濹տ AuA LBPADL Lf @1ɝ @ `ƠĠάō#C@CCA @i@@AAACCi$΢D@DA@ /k@ɝe*ɷ@MIiՐɵA@餐;-7iϑ@ȩ53@ʭXCWC _C@Ƚ`C @i@@8/e@@eAA    àҍŠ̳àҫҫРƫ Š̳Ӡ Í̳٠Íà̳ЍƠàҍѠ̳àҍŠ̳Ѡ̳̳àҍ̳àҫ̳Í̠ 占̍̍̍Р ٍҩ٠ 占ҠԠ ÍàР 占ҩ٠ 占ҠƠ 卍Р٠Ơ ٠ҍƫҫ ƫҍƍҫ ̳ҩ٠ 占ҠԠ 占 ҠԠ ũ̵ٍ٠Š̵Íàҍҍà̵àҫ̵čҠԠ ҫРƫŠ̵Ӎ Ҡ 箬 ±² ±²ԠƍӍٍҩ٠ Ӎ ԯ 䍠ӍӍӍԠƍӠ ٍҩٍӍ̳ÍӍ 卪٠Ҡ ԯ Ҡà ٠ҍٍҩ٠ Ӡ΍àԍ̍àÍٍҠƍҩ٠ Š̲ 򿍠ĠﺍРѠ̱忍à Ӎ̱Ҡ Р̳̲̰̰ΫРԫà̱Š̰΍Рԍà̱ ԯ ̰ҠԠ àӠ ̱à ԯ Ġՠµàՠ²ԠՠƵōƠՠưÍՠµư 卪Ϋ Рԫà̰Š̰΍Рԍà 򍪍 󍪍ǠöҠՠΠՠµŴӠՠµĶӠՠµķӠՠµĵԠՠµÍԠՠµōҠՠ³č Ԡ ֱ ЮЮ̮Ů Ӣ Ԡ   F$(2)::12)"FILES? (1 0R 2) ";:A$C 2ME((A$,1)):ME1ME2Ā` <D0256(978):X0D04139n FME2150 P:"PLEASE GIVE THE EXACT NAME OF THE FILE YOU WISH TO "F$(ME):"(NO WILDCARDS ALLOWED)"::"==>";A$:A$""ĴT1110:T11:120:80 Z:D$Fi RICK'S RELETER BY RICK SUTCLIFFE CALL -A.P.P.L.E. IN DEPTH 3 "ALL ABOUT DOS" D$(4)::10)"RICKS RELETER":7)"BY RICK SUTCLIFFE":F$(1)"DELETE":F$(2)"RELETE"$ ("DO YOU WISH TO"::"1)"F$(1):17)"OR":"2)" 6 B4 D9 00 03":300:144 PA$"40A9:D0 14 C8 C4 07 F0 03 E8 D0 F0 A5 09 F0 10 A5 1B C5 07 D0 1F F0 08 A5 08 D0 19 E6 1A D0 C3":300:144 ZA$"40C7:AE 9C B3 E8 E8 E8 A0 1D BD C6 B4 20 ED FD E8 88 10 F6 20 8E FD 20 30 B2 90 03 4C 57 9C 4C 61 9C 60":3 00 8E 9C B3 BD C6 B4 30 73 F0 0F 8A 18 69 20":300:144 <A$"406F:AA BD C6 B4 C9 A0 D0 06 CA D0 F6 4C E7 9C 8A 38 ED 9C B3 E9 03 85 06 A2 00 86 1A A0 00":300:144 FA$"408C:A5 06 38 E5 1A 18 69 01 85 1B C5 07 90 42 AD 9C B3 18 69 03 65 1A AA BD CD0 03 CA D0 F6 86 07 49 C0 85 09 AD 75 AA 49 C0 85 08 A0 00 A2 00 A5 09 D0 02 C6 07":300:144 (A$"4037:A5 08 D0 04 C6 07 A2 01 BD 75 AA 99 00 03 E8 C8 C4 07 D0 F4 20 DC AB A9 FF 8D F9 B5":300:1449 2A$"4053:20 F7 AF 18 20 11 B0 90 03 4C E7 9C A2  INSTALL DIR WITH WILDCARDS COMMAND IN PLACE OF VERIFY BY LEE REYNOLDS CALL -A.P.P.L.E. IN DEPTH 3 "ALL ABOUT DOS" A$"4000:20 8E FD AD 68 AA 8D C0 B5 AD 6A AA 8D C1 B5 A9 00 8D BF B5 A2 1E BD 74 AA C9 A0":300:144_ A$"401B:    ĠҿѠ̲Р Ӡ̲à̳̲ҠԠ ̳٠ٍŠ̱àԠð̴̠ð̳Ԡð̠̳ð̴Рƫà̱ӍԠƍŠ̴àРƫ Š̴Ӡ Í  ҍҠ٠ƍƍ٠̱٠ ٠ 􍍍Ԡƫƫؠ٠̴Íؠ Š̴Í̴٠ 占Ҡ ٠ 占ؠà̴ؠƍ̴àӍ ōРؠؠؠ ōԠؠĠ ñ؍ѠòРЭؠ 占Šñòؠ 占Ӎ L`RK ߩ Rȥqȥr ߩ RȥqȥrLV1 qr ߅ qr ߅L `wݵܵߵ޵ ^`8ܵ i B8` LֵȱB׵` DȑB׵Bֵ յյ` Ѝ²àЍ̠ѶȬ؍РѶ̬؍ӍԠƍѶ̬؍ӍԠƍ0,29:X0388,230:X01171,827 X024,198:X01482,89= Y DELETE ON/RELETE OFF X018,198:X027,255:X029,198:X01224,48:X01240,30:X0388,198:X01171,68 X024,230:X01482,25 $(ME)A$Q d216,0::"WANT TO DO MORE "F$(ME);:"ING? (Y/N) ";A$:(A$,1)"Y"80a nME2190:x x CATALOG HANDLER ME2ĹX0174,16 D$"CATALOG":X0174,48: RELETE ON/DELETE OFF  X018,230:X027,160:X029,230:X01224,16:X0124)::0"LAST TRACK ACCESSED =";::(TRACK);@ :" (DEC)"k"LAST SECTOR ACCESSED=";::(SECTR);} :" (DEC)":*"READ(1), WRITE(2), OR QUIT(0)? ";:RW%:RW%4RW%ı>"NEW TRACK, SECTOR: ";TK,SCHRWCODE,RW%RTRACK,TK:SECTURRENT SLOT =";::(SLOT)16:F"CURRENT DRIVE=";::(DRIVE)::r"ENTER NEW SLOT, DRIVE: ";SLOT%,DRIVE%$SLOT,SLOT%16:DRIVE,DRIVE%. READ/WRITE ANY SECTOR "CURRENT SLOT =";::(SLOT)16:"CURRENT DRIVE=";::(DRIVEALL FILE NAMES (INV=DEL.)":<|"6. REARRANGE DIRECTORY":O"7. QUIT"::u24:" WHICH?--->";:ANS$:ANS$ANS(ANS$): SELECT PROPER SUBROUTINE ANS1000,2000,3000,4000,5000,6000,7000280 CHANGE SLOT/DRIVE "CISPLAY MENU ,:J6::" S I M P L I F I E D R W T S ":a@:"CHOOSE ONE:":J"1. CHANGE SLOT/DRIVE":T"2. READ/WRITE ANY SECTOR":^"3. DISPLAY BUFFER":h"4. LOAD DIRECTORY INTO ARRAYS D1$, D2$":r"5. PRINT OUT ZATION * D1$(105),D2$(105),SLICE$(105)F SLOT46583:DRIVE46584c TRACK45975:SECTR45976 RWCODE45121:USERWTS45111 REGP72 KEYBD49152:CLRKEYBD49168 DIRSCAN45073:OFFSET15 FINISH1 (4)"BRUN RWTS STRING"  D d ******************************** * * * SIMPLIFIED RWTS: BILL PARKER * * CALL -A.P.P.L.E. IN DEPTH 3 * * "ALL ABOUT DOS" * * * ********************************  INITIALI     ŢؠԠؠؠؠؠؠԠؠðİŰưؠؠðİŰưؠؠԠƍō٠ҠӍӠ̱ōӍ̱ؠ ɯ Рҍ͠ؠϠà Ǡؠčà ؠčà ԠҠӍӠ̱ 𺍠 䍠à 䍠čƠ 䍠Ű 덠ōō٠ҠӍӠ̱ ōà͍ðР͍Š̱ Íˍҍӫō٠Š̱̱Ҡ٠ 占Ġ ͍̱٠͠ ӺԭĬٍˍԭĬٍҍ٠ӫЍčӠՠ·ưŠՠ·ƴӠՠ٠ ϧ ̱ϭٍŭٍٍŠ̱ҠĠ ӍҠč٠ ̱ǬٍѠ̱Ҡԍٍ 덪ǠŠՠŠՠҠՠIJӠՠ·µĠՠŹĠՠŸԠՠč٠ՠİÍ ՠ·ŸРՠ·Ġՠ·ƶˠՠ·ÍҠՠ· Ԡ ֱ ЮЮ̮Ů Ӣ Ԡ Ӻ Ӎ       $L L L L LULL    H0 `ɪɪ꽌0뽈`0 )ɡ۰ @`0I@` L90ꩠ T),1)):TB2556820*:TB0CT1:H:(SLICE$(CT),4,30);"?";Y:ANS$:ANS$DOUNTIL(ANS$"Y")(ANS$(13))::X END OF PROGRAM v0D2$(I)SLICE$(C3):5":VAR2RWTSD1$(I),D2$(I)D,:SECTR,SCR6:USERWTS`@:SCSC1fJlT:r^h DISPLAY NAMES AND SELECT SUBROUTINE CT0:DOUNTILSTARTFINISH:CTCT1:CTC1CT1::TB((SLICE$(CE$(C2)TEMP$:6260; SAVE REARRANGED DIRECTORY? s:"SAVE REARRANGED DIRECTORY (Y/N)?:";:ANS$:ANS$ANS$"Y"ı:C30:SC15:TRACK,17:I1NUMOFSECS:D2$(I)PROLAWG$(I):J17::C3C31::D2$(I)2CT :3C1C2C2C11ĺ:"BUM MOVE"::62609:O MAKE THE MOVE e TEMP$SLICE$(C1)uC1C26490{:(IC1C2112:SLICE$(I)SLICE$(I1)<F6530P:ZIC1C21d:SLICE$(I)SLICE$(I1)nx: SLIC$::SLICE$(C)(D2$(I),1135(J1),35)/.:58;B:[L REARRANGE FILE ENTRIES? ajt"MOVE FILE? (Y/N/CR=QUIT)":~6760ANS$(13)6550C1CT:"MOVE ON TOP OF? (Y/N/CR=QUIT)":6760ANS$(13)6550C< p REARRANGE DIRECTORY @ FRESH LOAD OF DIRECTORY J4000u SLICE DIRECTORY ARRAY INTO ENTRIES :"FORMATTING DIRECTORY ARRAY..."::C0:I1NUMOFSECS:PROLAWG$(I)(D2$(I),10):J17::CC1(3,1))255Ğ*::(D2$(DSECNO),NAME,30)A::LINENOLINENO1X::LINENO225130:::24:"HIT RETURN TO CONTINUE--->";:::ANS$:ANS$::LINENO0 :::NAMEDSECNO(:224:"HIT RETURN TO RETURN TO MENU--->";:ANS$:ANS$ ":/,1::"ALL FILE NAMES LOADED":b624:"HIT RETURN TO CONTINUE--->";:ANS$:ANS$h@:JNUMOFSECSDSECNO1T PRINT OUT FILE NAMES LINEN00:DSECNO1NUMOFSECS:NAME1422435 ::((D2$(DSECNO),NAMENG DIRECTORY..."::"DSECNO0(:BDOUNTILSTARTFINISHb:DIRSCANOFFSET(DSECNO0)x:DSECNODSECNO1:RWTS2VARD1$(DSECNO),D2$(DSECNO):DOUNTIL(((D2$(DSECNO),11,1))0):DOUNTILĺ"DIRECTORY SECTOR ";DSECNO;" LOADED":1));" ";: :(B2$,C3,1)AD DOUNTIL((KEYBD)127)(C3255):GN :YX CLRKEYBD,0:b "Q)UIT, R)ESTORE, OR =CONTINUE?";:ANS$:ANS$:l ANS$"Q"ıv ANS$"R"3060 C32553060 3090 LOAD DIRECTORY INTO ARRAY :"LOADIR,SC\USERWTSfRWCODE,2+pREGP,01zH DISPLAY BUFFER  "HIT ANY KEY TO START/STOP LISTING":ANS$:ANS$: RWTS2VARB1$,B2$ : C30 "0 ";B1$ : DOUNTILSTARTFINISH :C3C31& :C3" ";0 :((B2$,C3,   ?t ɀ \췹뷩詷 ZHͪͩ췩詷 /89<=@AH詷 H`LҦϠԠˠΠŠԠ٠٠Ϡ 卪 􍪍ԠЍҠÍŠč΍ҠÍŠčÍӍĠÍӍÍԠ Í 卪 ѠӠĠ РàѠӍĠ 䍠Рà ѠӍ 占ӍӠӍÍԠ ũ 卪ĠǠÍԠ Ӎ Í л ԍ 捪 ԠРà 䍪٠ Š ū àōŠÍàūàũٍѠčҠԍРĠàōŠōàūŠРӍԲҠōРӠ ӍŠ 占֍ҠȍҠà ؠӍ Ż 壤 ԍ΍ ̍ ÍӍҠčӠԠ 䍠Ӡ Բ ˠ 捠ˠ РƠ Í ưЍƍЫ Ӎč֠ ΍ à 占РÍŠӍĠ 占Ҡōà 䍠РР 䮍Ѡ΍РˍˍŠЍΠɻ Ġ à РР ӍѠӍР΍ѠӍ  䍠ōÍРÍŠӠ Ҡ 뮍 ݮ ° İƩ İƩ 宍Ԡ °ҠŠӍԠð  ð àŰ òŠõ̠ùÍҠİÍؠųԠčǠРŠ 卪ҍԠ Ӡ·ű Ԡ·Ź ֠·̠·ˠ·Íà·čР·ưĠ·ƴΠ·ƷΠ·ƸĠð Ġð ֠ ͠İ ӍӠĹ ӍĠų Ơ Ơ Ӡĸ ӍԲ·Բ Ġ· Ԡˠ Рà Π Ҡ Š ˠ Ƞ Ƞ  p&Ԡ ЮЮ̮Ů