home *** CD-ROM | disk | FTP | other *** search
- .hσ FILEPRIN.BA╙ (1/1/83⌐ pagσ #
- .p∩ 10
-
-
-
-
- FILEPRIN.BA╙
-
-
- Gar∙ W« Addison
- 220╡ Wes⌠ ConcorΣ Road
- Muncie¼ I╬ 47304
-
-
-
- FILEPRI╬ i≤ designeΣ t∩ takσ MAST.CA╘ a≤ ì
- formatteΣ b∙ NEWCA╘ o≥ FMAP/UCAT/CA╘ anΣ prin⌠ thσ ì
- director∙ oµ an∙ disδ yo⌡ choosσ oε thσ screeε o≥ ì
- printer« Yo⌡ ma∙ havσ thσ printe≥ outpu⌠ oε ß ì
- standarΣ ▒ 1/▓ b∙ ┤ incΦ labe∞ iµ yo⌡ prefe≥ (ma° oµ ì
- 2╖ files)« ┴ men⌡ oµ catalogeΣ disks¼ sorteΣ b∙ ì
- disδ number¼ i≤ presenteΣ fo≥ yo⌡ t∩ choose« Outpu⌠ ì
- i≤ directeΣ t∩ thσ printe≥ b∙ POKEinτ thσ outpu⌠ ì
- routσ froφ consolσ t∩ printe≥ thu≤ simplifyinτ thσ ì
- prograφ sincσ thσ samσ prin⌠ statement≤ caε bσ useΣ ì
- oε thσ screeε o≥ printer.
-
- Thσ disknamσ i≤ determineΣ b∙ onσ oµ thesσ ì
- methods:
- 1« Firs⌠ methoΣ i≤ t∩ seeδ thσ "-ó oε ß filσ ì
- listed« Iµ ß filenamσ iε MAST.CA╘ start≤ witΦ thi≤ ì
- character¼ i⌠ i≤ assumeΣ t∩ flaτ thσ disknamσ anΣ i≤ ì
- useΣ iε tha⌠ way.
- 2« Second¼ iµ thσ abovσ marke≥ doe≤ no⌠ apì
- pear¼ i⌠ look≤ fo≥ ß filσ startinτ witΦ ß "+ó sigε ì
- a≤ iε thσ forφ useΣ t∩ sho≈ freσ spacσ -- ì
- +++45k.FRE« Thσ disδ namσ i≤ theε pickeΣ u≡ froφ ì
- thσ seconΣ par⌠ oµ thσ entry.
- 3« Iµ neithe≥ oµ thσ abovσ appears¼ i⌠ look≤ ì
- fo≥ thσ "[[ó tha⌠ start≤ thσ [[45]].LF╘ (spacσ left⌐ ì
- filσ anΣ pick≤ u≡ thσ disδ namσ froφ thσ seconΣ par⌠ ì
- oµ thσ entry.
-
- Iµ thσ file≤ iε thσ forφ +++45k.FR┼ o≥ ì
- [[45]].LF╘ appear¼ the∙ arσ useΣ t∩ determinσ thσ ì
- amoun⌠ oµ disδ freσ space« Iµ neithe≥ oµ theφ ì
- appears¼ disδ spacσ i≤ listeΣ a≤ "unknown".
-
- Thσ prograφ ha≤ beeε testeΣ oε MAST.CA╘ entrie≤ ì
- formatteΣ iε thσ followinτ ways:
- -filname.typ,dskname,nnn
- -filname.typ,dskname,nnn;u
- +++nnk.FRE,dskname.nnn
- +++nnk.FRE,dskname.nnn;u
- [[nn]].LFT,dskname.nnn;u
- .pa
- è Becausσ oµ thσ above¼ i⌠ i≤ assumeΣ tha⌠ iµ ß ì
- filσ start≤ witΦ "-"¼ "+",o≥ "[[ó tha⌠ i⌠ i≤ no⌠ ß ì
- valiΣ filσ bu⌠ i≤ ß disδ namσ o≥ ß freσ spacσ inì
- dicator.
-
- Thσ prograφ load≤ thσ entirσ MAST.CA╘ int∩ aε ì
- arra∙ s∩ tha⌠ i⌠ caε bσ searcheΣ fo≥ files« TesteΣ ì
- witΦ ß cataloτ oµ abou⌠ 32╡ entries¼ therσ wa≤ stil∞ ì
- abou⌠ 12╦ oµ memor∙ left« Therefore¼ thσ arra∙ ì
- dimensioninτ oµ 75░ files¼ anΣ 7╡ disk≤ i≤ probabl∙ ì
- valid.
-
- Occasionally¼ thσ printou⌠ wil∞ seeφ slow¼ bu⌠ ì
- kee≡ iε minΣ tha⌠ fo≥ eacΦ filσ ß pas≤ i≤ madσ ì
- througΦ thσ array¼ usinτ severa∞ strinτ function≤ t∩ ì
- selec⌠ thσ necessar∙ component≤ oµ thσ filσ entries« ì
- An∙ filσ usinτ thσ +++nnk.FR┼ notatioε wil∞ star⌠ ì
- slo≈ whilσ thσ prograφ strip≤ ofµ thσ "+ó sign≤ anΣ ì
- determine≤ freσ space« Thσ [[nn]].LF╘ freσ spacσ i≤ ì
- no⌠ a≤ slow.
-
- Thσ printe≥ configuration≤ arσ currentl∙ se⌠ ì
- fo≥ aε NEC-8032┴ printer« Norma∞ printou⌠ i≤ ì
- initializeΣ witΦ thσ strinτ iε Linσ 26░ fo≥ 1░ ì
- character≤ pe≥ incΦ anΣ ╢ line≤ pe≥ inch« Label≤ ì
- arσ initializeΣ b∙ thσ value≤ iε Line≤ 24░ anΣ 25░ ì
- t∩ 1▓ character≤ pe≥ incΦ anΣ ╕ line≤ pe≥ inch« Yo⌡ ì
- wi∞ neeΣ t∩ changσ theφ t∩ conforφ witΦ you≥ ì
- printer«
-
- Iµ yo⌡ happeε t∩ abor⌠ thσ prograφ whilσ iε thσ ì
- prin⌠ al∞ disk≤ modσ (choicσ <999>)¼ anΣ you≥ outpu⌠ ì
- i≤ directeΣ t∩ thσ printer¼ yo⌡ wil∞ neeΣ t∩ ì
- immediatel∙ typσ POK┼ 58637,2▒ t∩ ge⌠ outpu⌠ bacδ oε ì
- thσ screen« Yo⌡ won'⌠ seσ i⌠ bu⌠ it'l∞ ge⌠ yo⌡ ì
- back.
-
- Iµ yo⌡ havσ an∙ comments¼ pleasσ le⌠ mσ know« ì
- ╔ hopσ yo⌡ finΣ thi≤ useful.
-
- Gar∙ Addison
-
-
- N.B« Iε casσ yo⌡ wan⌠ t∩ usσ it¼ t∩ routσ thσ outpu⌠
- froφ Basiπ t∩ thσ printe≥ insteaΣ oµ thσ console¼
- POK┼ 58637,29« T∩ routσ bacδ t∩ thσ screen¼ POK┼ ì
- 58637,21.
- Credi⌠ fo≥ thi≤ informatioε t∩ Craiτ Feied¼ Suddení
- Software¼ Honolulu¼ HI.