' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|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ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(0 ؠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`z#?     Ԡ ؠήȮӠĠҮӠ=ҮӮӠҮҮӠ$ҮԠϠҮΠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    Ω ΧǠȠҠˍԠŠ ġӍ֠ȮōRˠΠĵŠðǠıΠȍѠō΍ŠҠčҠˍҠȠŧ ؍РΩ֠Ȯˍ  Χ 卪 ά ȧ ҍ ԍȠ¶Π·Ġˠø  ήЍ٠Ҡč ͍ΠҠ֠ Ƞ Ҡԍà ٯΩ ҠٍРĹٿŠDZРٍDZРŠοŠ΍Рұ ҮԠĠ ԿŠױРՠ ծױРĵտŠײҠԍàТРٍײРôĿѠ׳Ҡ Χ ҮРװ ή׳Ҡԍà΢ÍЍàī бРӠ ήЍ ľРРнѠٍװҠ֠ Ƞ Ҡ̠ ЮҠԍà թ ĩο Ҡٍȱ ٮҠРȍȱбЍ Ҡ֠ Ƞ Ҡ̠ ЮҠ̍вŠ ٮҠРŠҠԍвŠұ ٮҠРҍұбЍР Ȯ ōȠҠ֠ Ƞ Ҡ̠ ЮҠԍвŠŠβ ٮαҠР΍βؠбѠα ŮؠЍ΍РſѠȠ Ү ōҠҠ֠ Ƞ Ҡ̠ Ю֠ Ƞ Ҡύ΍ŠΠ ĮҠ  ŮРҲ ȍΠҠ֠ Ƞ Ҡ̠ ӮҠȍв ō ӮŠҠōȠ Ҡԍà ŢčàЍұҠōҠ΍ ōҲҠ´ѠčРŠ ήĠҠōРİ ŭٍ ō Ս Ԯ Ů ů ΢ĸčà ԢŠҠ֠ Ƞ Ҡԍà ҠٍР±ŠòРōòР²ŠóРύóР³ŠôР͍ôР Ҡԍà٢İȠ Ҡԍà ӢҠ֠ Ƞ Ҡԍà Ţĸčà ϭ΢ĸčà Š٠ՠİÍαՠĶƍŠՠԱՠư ՍՠҠԠԍҠōȠ Ҡԍà ҢİȠ Ҡԍà İȠՠĠՠōàՠĠՠؠՠРՠРՠРՠÍƠՠ ɯ ӍĠՠð ՠðҠՠðԠՠ²ƍ֠ՠµŠՠõ̠ՠùÍԠǠ ӍРՠȍ̠ՠȍƠՠҍĠՠΠՠ ōбՠвՠ̠ՠȠՠҠՠÍ̠ՠčȠՠōРՠ͠ՠ M;Ԡ î Ԡ                    Ҡύ΍ŠαҠР΍αҠ֠ Ƞ Ҡԍà Ԯ ԍΠҠ֠ Ƞ Ҡ̠ ЮҠō Ǎ ŮϠҠōȠ Ҡԍàϭ΢čàҠ΍ ōΠҠ֠ Ƞ ҍԠčѠıٍŠıٍɠ΍РàЍŠıΠàЍĠƍٍıà̭Šвà̠̍вԠӍ ϭ ȍ Ӯ ύŠčٍɠԍԠƍѠčàƍŠčԠàƍĠƍٍĠЍà̭Šбà̍ŠбӍ ŠčĠƍٍؠЍҍв؍ŠԍؠРŮ Ԡ ŠÍà̍ؠƍб̠̠̍ȍѠӍ؍ӠŠˍàˍˠҍؠƍˠҍҍҍҠȍ̍̍̍РЮčѠčٱЍҠōӍԠ ЮЮ̮Ů ӠŠĠƠ ӮÍàбӠŠ Įбв вӍŠв ٮӍ  č̍РӠŠĠƠ Ӯ٠ҮРÍàتٍŠЍÍàбӠŠ Įбؠ Ү ōұƬ؍Р°àŠР ҿŠō ōҳƬ؍Р±ŠҳбРҳҳР²ŠŠ ҍøбҳ ؠ Ү ōҲƬ؍Р°àŠč΍РſŠıЍЍҠōРIJıЍƍҠōIJƍҠԍӍ Šؠ ҮؠбР ҿѠұР ҿѠҲР ٮРՍԱҠōӍ ̠Ҡԍà ҠαŠ̱Ю ٮРՍ̱ҠōӍ ĠЍ̍ЍŠӍ ԠҠԍà ҠαŠԲЮ ٮРՍԲҠōӍ ԠҠԍà ҠαŠԱЮ ҠٍРĠ ԿŠϱЮ ӮРՍϱРŠοŠϲҠԍàŢ΍ӍϲРĴԿŠŠҮҠԍàŢ΍ բӍ ȠҠԍà ҠαŠȲЮ ٮРՍȲҠōӍ ŭ Ϡ΍Ҡԍàԩ Ωſҍҫ٠аàҍŠбàҫбҩٍѠ΍ҠԱРаΠҫҍԠӍ ΠҠ֠ Ƞ Ҡԍàճ ЮЮ̮Ů ԠԠ ƮРƠ ή ȍРЍҠÍȍѠб ŮÍà° ԱؠؠȠ ҠԱ̍Рвб̍Рàг Ů ŮؠؠȠ ̲ҠŠ ŮР΍̳Íà° ԱؠؠȠ ҠԱΠ΍РſŠР ȮؠؠȠ ҠԍàƢ ̮ҠԱ ȍԠЍҠÍȍѠ̱ ŮÍà° ԱؠؠȠ ҠԱ̍Р̲̱̍Рà̳ ıвҍҍҍҠ ؍ѠIJ؍̍čбÍàتàвàȍв؍Šб̍čIJӍ Ԡв ̮ѠԍĠ Я բ͍ҠōӍ àвؠؠȠ ؠ̍ĠƠ ӮѠı؍čРÍà؍ŠЍ̍č Ю ԠҠԍà ТàЍҠ֠ Ҡԍàà ̠Ҡ΍čѠ̠ ŮЍ ȯҍƠҠ΍čЍ ĠҠ΍čЍҠԍҠčҠà ӍР̠ҭ ҍҠōȠ ΍РſŠIJ ٮҠԍà РijIJҠԍà ijҠԍà ΢İҠԍв ȍ Ƞ Ҡύ΍Šı ٮҠР΍ıҠ֠ Ƞ Ҡԍà Ҡ٠ ȮҠč Ԫ č Ӯ ٍ Ů͠ҠōȠ Ҡԍà ҢčàҠ΍ΠҠ֠îЍЍРƠ пàЍ Ч ččҠԱȠ Ҡԍà ҠٍРՍ ҍ ǮЍРàЍРàЍРàЍРҠԍҠčҠÍЍРƠ пàЍЍРƠ пàЍб ϮÍà ɍРſŠϱ ٮҠԍà РϲϱҠԍà ϲҠԍàϭ΢İҠԍвР н ů ЍŠРвŠԱҠРԍԱбЍԠҠ֠ Ƞ Ҡԍà Ҡٍ ҍϠҠōȠ ΠҠ̠ ЮҠԍвŠ̱ҠР̱̍бЍРԠ Ϯ ōԠҠ֠ Ƞ Ҡ̠ ЮҠԍȍвŠβ ҮαҠР΍βбѠα ŮЍ΍РſѠԠ Ү ō̠Ҡ֠ Ƞ ̴̳ؠ̵ؠؠ؍̵ٍ̠Š̲ӍԠƍ Ԡ̠٠ Ӎ̲à čҠ ì čà̴ ٬à čؠō̳īؠ ةàثؠ čīؠĩ؍Š Ӯ Ԡ ź ٯ Ӣ ŭ ٯ é Ҭ ͍ë ҍؠ΍ ثҠ̍Ӎ͠čÍàīàīčؠԠĬ؍ī؍؍̠ԍӍĠӠԠ Ů ԠĠččīīàčī̍īàīīҍīӍΠčīҠ͍ÍҠàР ÿŠčЮРՍĠӍԠ Ǯ ЮЮĠƍвӍ ů àčɠӠ ĿӍ ſӠРſŠÍРčɠӲ̠ЍӲР οŠЍӍЍѠӳĽРѠӳӠӲ ľؠؠȠ ҠԍàТРčӲؠؠȠ Ҡԍà΢РčӳؠؠȠ ҠԍàŢؠؠȠ ҠԱ̍РijIJ̍РàĴؠؠȠ ijҠŠ ŮРӍĴÍà° ԱؠؠȠ ҠԱ ЍӠƳÍà° ԱؠؠȠ ҠԱ ĠЍРàı ľà΍à ıҠÍȍѠIJ ŮÍà° ԱЍҠÍȍѠƱ ŮÍà° ԱؠؠȠ ҠԱ̍РƲƱ̍РàƳؠؠȠ ƲҠŠ ŮРčƠؠؠȠ вҠŠ ŮРƍгÍà° ԱؠؠȠ ҠԱƠؠؠȠ ҠԍàƢ ήРč ҍƠŠ čàР ÍҠóōӍ ōǠԠà ԍ ԍĠ ԍ ԍƍƠ čƍ é Ӯ ΍ é é Í  T Ů    ΍ֱ ҍҍؠ өР֠ ōРҠ ҍà ٍàҠ ҍ̠ ԍ ؍؍؍ؠ ӿŠӠϬ ΍ؠӬ ؍٠ ҍàҠ ӿŠӠϬ οӠӬ ҍ٠ ҍ ҍҍӠÍҠӬؠ ٍ ԍ ԍؠ ؍̠ӱؠ ˍÍàР Ӎ̠Ҡ̍Ҡ̠ Ƨ ōҠҍӍӠؠΪנҠ̠ ōҠ ōР ͿӠ̠Ӭ ЍÍàϬ ҍҍ̠ ̍Š ӍҠӠ ӍҠ̠ ōŠ ōРҠ οӠנӬ ׍àŠϬ ԍÍàР Ӎ ˍ̠ ΍Š ԍРҠҠ ӍҠӠ ΍ҠҠ Ԡ ҽԍ̠ ҍ ҍ̫Ԡ ˍҠ ҍҠà ˍҠàҠӠҍӠӠ ΍ӱӠ Ӎ ō²Ӡ̠Ӡ ōҠӠ ōԠӠ ӍҠӠ ҍΠӠ ֱ ԩҠӠҍčРԍ ō̠Ӡ ҠӠ ԠӠ  Ӡ ҠӠ ŠӠ ٠ðŲՠðűؠՠð Ǡ ̍ƴ̠ՠȠՠ ӍγΠՠðƍγƠՠðō̸Πՠðč̸ƠՠðÍӠՠðԠՠðӠՠðӠՠðŸՠðŸƠՠðűՠðŲƠչ Ӯ ΍ ̠ՠĠՠ ӍԠՠ ӍΠՠ ! Ү é             ìÍ Ĭč Ĭč Ŭō Ŭō ¬Ƭ¬ƍ ¬Ƭ¬ƍ  İİİİİİİİ  İİİİİİİİ  İİİİİİİİȠ ìÍ       İİİİİİİİ         Ӎ̠     ӍӍӍҠγΠ ̸ƍԍӍŸƍűӍײγΠ ̸ƍŸƍӍӍŲӍ ȍàĠ ӍӍà  ōà ԍàԍԍӍˠՠӠðˍҠγƠ ̸΍ŸРҠҍҠֱΫҠ ̠̍ ΍Π ō̫ΫҍҠֱΫ ԍ̍ҍÍà̍Ġө٠ ΍à̠ ōŠ΍à̫Íà΍àҠ ōΠ čҫΫ čҍ Ĭ ԍà̫Πؠ ҍؠ ӿŠ̲Ϭ ЍΠӠӬ ΍̠Ơ ҍ٠Ӎ̠ؠ ҍ̲٠ ҍӱؠ ōĠƠ ԍ̩٠ ōà̠ ҍŠΠ à čàԠ ҍ؍̬؍̍Ȭ؍ȍ٠² ̬ ȍؠԍ̩٠ ΍Ӭ؍àԍԍРŠԱٍ̩٠ ΍ŲƠ čӬؠ ōàԠ ҍԠſРŠԱؠϬ ΍ӠӬ ΍ԱҠ ٍÍàԠ ҍؠ ԍ̬ؠ ō̠ ōȬ؍ȍ٠² ԍؠԠ ҍŲ ӍӠ ҍԍŠ ԍҠ Ŀ² ҍӠԱĬ ΍ٍԱؠҠά Ԡ ō֠àԽРѠ эԠҠ ҍÍѠ̠Ϋ ō̠Π ōؠ ҍѠΠ ō̠Ҡ ԍРРōΠ ¬Ƭ¬ƍ ¬Ƭ¬ƍҠӠ ō Ү Ӭ ĸ  ¬Ƭ¬ƍ ìÍ ìÍ Ĭč Ĭč Ŭō ŬŤìÍ ìÍ Ĭč Ĭč Ŭō Ŭō ¬Ƭ¬ƍT MARGIN: ";TA` A:"VERTICAL POSITION OF TABLE 1: ";T1::"VERTICAL POSITION OF TABLE 2: ";T2 B8,SP(256(SP256)):9,(SP256):239,TA F235,0:236,64:237,0:238,96:250,T1:251,T2 P32768:% :"DHR.LOGOPRINT TEST ROUTINE"E(4);"BLOAD DHR.LOGOPRINT"d:"NAME OF TABLE 1: ";T1$(4);"BLOAD"T1$",A$4000"(:"NAME OF TABLE 2: ";T2$2(4);"BLOAD"T2$",A$6000"<:"HOW MANY BIT-WIDE SPACES BETWEEN TABLES?";SP >:"LEF 1)2)((DR2)1): 3"İ4000A$"4"İ4200*A$"5"ė:45000KpN140:"";:N:xzL13:"";:N138:" ";:N:"";:L:X20:1:"INPUT - FOR CATALOG":"INPUT - TO CHANGE DRIVE":788,56:768: 788,24:768:DR((DRDR1:M:DR1:6000:6010:6000:3:6:"LOGOMAKER TABLE CREATION MENU"7:8:"1 - GET IMAGE":8:"2 - SCAN SHAPES":8:"3 - LOAD GRAPHIC IMAGES":8:"4 - SAVE GRAPHIC TABLES":8:"5 - QUIT"A$:A$"1"İ100A$"2"İ1000A$"DHRA$::KILL:DR1:>T:(4);"CATALOG,D"DR:A$:A$H^4000h::KILL:8:1:"TYPE THE NAME OF IMAGE TO SAVE"::IM$:IM$"LT."IM$r:"TO DRIVE ";DR:DR1DR24210wTL(5)(256(6))24575|(4);"BSAVE"IM$",A$6000,L"TL",D"DR 0:X,YX(8(X8)),Y:X,YX,Y(8(Y8)):0:::KILL:7000:8:1:"CURRENT DRIVE IS "DR:"TYPE THE NAME OF IMAGE: ";IM$IM$"C"ī4180IM$"D"İ7300:40007100(4);"BLOAD"IM$"1X,D"DR7100(4);"BLOAD"IM$"1,D"DR(27)ı100016302,0:16299,0:X(1.05(0)):Y(.72(1)):3:X,YX(8(X279)),Y:X,YX,Y(8(Y191)):0:X,YX(8(X279)),Y:X,YX,Y(8(Y191)):*16302,0:16299,0:X(1.05(0)):Y(.72(1)):3:X,YX(8(X8)),Y:X,YX,Y(8(Y8)):L BYTES ";TL:"IS THIS O.K.? ";:A$3SA$(27)ıFTA$"Y"ī1000VAR,(XR256):AR1,XR(256(XR256)): HI-BYTE FIRST`AB,YBoSTARTt:"DONE. . ."::"PRESS FOR MENU OR ANY OTHER KEY TO DO OVER AGAIN"~A$:A$ī1080 LXR2X:YBY:::8:8:"XR=";XR;:20:"YB=";YB:8:"XL=";XL;:20:"YT=";YT::2:"BIT WIDTH=";XRXL1;:16:"HEIGHT=";YBYT:1:"BYTE WIDTH ";((XRXL1)7)1 NHYBYT1:WXRXL1:BW((XRXL1)7)1:TL((H7)1)(BW7)(H7)1#Q:"TOTA, DRAW ON PAGE 2- DHR:N140::S2:2000F (16287)128ī1010u XL2X:YTY:::"XL = ";XL::":YT = ";YT AL,(XL256):AL1,XL(256(XL256)) AY,YT ."PRESS ANY KEY TO CONTINUE":A$ 8DHR:N140::S2:2010 B(16287)128 d:8:1 i" n(4);"IN#5"_ x"PRESS CTRL-A TO INITIALIZE FIRMWARE CARDAND GET IMAGE" :"PRESS TO RETURN TO TEXT SCREEN" :"AND - TO TURN FIRMWARE CARD OFF" A$:A$ (4);"IN#0"  230,64: SHOW PAGE 1 * IS FOR USE WITH *4 S * THE COMPUTECH *Q T * VIDEO DIGITIZER *n U * AND VIDEO FIRMWARE * V * CARD. DELETE LINES * W * 100 TO 150 IF YOU * X * DO NOT HAVE THESE * Y * CARDS INSTALLED. * Z *************************************a AL32771:AR32773:AY32775:AB32776:DHR33216:KILL33232:S233251:START32768 (4);"BLOAD DHR.SCREENMOVES" :3:: (4);"BLOAD DHR.LOGOMAKER" <5000 N: P ********************** Q * THE FOLLOWING CODE * R  ***********************= * *[ * DHR.LOGOSCAN *y * * * COPYRIGHT (C) 1985 * * BY * * SCOTT ANTHONY * * * ********     TALOG OVERHEAD FROM LINES PRINTED8DIRNUMRECNUM230|XLPRT63:::" PAGE ";PG1D$;"PR#0":D$;"PR#3"dESTFILESNFILES" ";DASH$;DASH$:PTH$;": ";NFILES;" FILES"::"DATA BLOCKS: ";NBLOCKS;:BNUM4(DIRNUM1)(1BNUM)(DIRNUM1):" DIR BLOCKS: ";BNUM;" TOTAL: ";NBLOCKSBNUMNBLOCKS0:NFILES0ĺD$;"CATALOG";PTH$:420!LPRTLPRT8:DEDUCT CA1:PTR(RECNUM)DIRNUM:X1NAMELNGTH:DIR$(RECNUM)DIR$(RECNUM)((BUFFERBPTRX)):^NBLOCKSNBLOCKS(BUFFERBPTR19)(BUFFERBPTR20)256h(BFILESBLFILES)(PROCESSEDNFILES)BPTRBPTRELNGTH:330r(PROCESSEDNFILES)BNUMBNUM1:270|TFILL 6LPRT3ĺ"PRODOS TOTAL VOLUME CATALOG OF /";DIR$(1);" DATED: ";DT$d @LPRTLPRTNFILES12 JNAMELGTHLNYB((BUFFERBPTR))(HNYB((BUFFERBPTR))):BFILESBFILES1:NAMELNGTH0360STPROCESSEDPROCESSED1:(BUFFERBPTR16)15RECNUMRECNUMR:BPTR4:BFILES0:BNUM0330o ELNGTH(BUFFER35):NFILES(BUFFER37)(BUFFER38)256:BLFILES(BUFFER36) "PROCESSED0:BPTR43:BFILES1 ,((LPRTNFILES12)61)PGPG1:XLPRT63:::" PAGE ";PG;(12)::LPRT3STORE THIS NUMBER IN CURRENT RECNUM OF A FOUND DIR FILE^ PTH$"/"DIR$(DIRNUM):TNUMDIRNUM PTR(TNUM)0TNUMPTR(TNUM):PTH$"/"DIR$(TNUM)PTH$:250 BNUM0:START WITH BLOCK 0 OF DIR FILE D$;"BLOAD";PTH$;",TDIR,L512,B";BNUM512;",A";BUFFE):(DIR$(1),1)"/"DIR$(1)(DIR$(1),2):(DIR$(1),1)"/"DIR$(1)(DIR$(1),(DIR$(1))1)g RECNUM1{ :"DATE: ";DT$ DASH$"---------------------------------------" D$;"PR#1":::LPRT3 BUILD CATALOG COMMAND STRING8 DIRNUMDIRNUM1:UFFER(105)(106)256512:MAKE ROOM FOR BLOAD BUFFERY xLNYB(Q)((Q16)(Q16))16o HNYB(Q)(Q16){ D$(4) PTR(200),DIR$(200):CAN BE AS LARGE AS 1600! :Z "PRODOS MASTER VOLUME DIRECTORY"::"ENTER VOLUME NAME";:": ";DIR$(1d ****************************** * * * MASTER.CAT * * * * DAVID G. SPARKS * * * ****************************** 7 n(105)(106)256512:B