!p † FคAคHDRคษมCOUNิDIRECิยฤDฬDISะCOฬ€€€ **** Read and Plot Packed Picture Data› ** 3/84 J. Morrison››&&€;@ ,;@,‚;@2,** get file to display **›: +(6(!Enter Device:Filename for picture:€ )%(Plot image on hardcopy (Y/N))#** process file header **›(- @@€-@‚-%ƒ-B:‚,@%!)@„% ƒ/ Asetup graphics›2C6„-A#ƒ-@@1„@:‚7ƒ<ƒ,,?6„-„%@C ƒ7##** read and unpack picture **›<:@:‚7@,,"@% A/ @p:vertical›A Aelse horizontal›F&7@<@,4Y& APZ›d ** get next packed byte **›i+…!AP+no read necessary›n)6†-)@…))@‡xD…")@…46…-…%AV$‡&@A)@‡D$‚3…!A'6…-…&A()6†-@3 A`–†)@‡ 6…-…&@$ด›##** setup Antic mode E display›•B6ˆ-F:A,*6‰-+ˆ&@,$AVB6Š-+ˆ&@1,$AVš!„-‰‰%@"‡„‡! „ค112,112,112,78,0›ฎ‰%@ˆ&@1ธ+„-‰%@‰%A˜'„@+ „ยA‰%A@x+‰%AA‰%Aˆ&@ฬA‰%A™@e+‰%AA‰%Aˆ&@ึ)A`)Aaˆ&@เ$๊›X** vertical decoding **›b‹-@96ˆ-Š%‹l/„-ˆˆ%Av@€% A+„‡/ „v7#„-ˆ%@@ˆ%Av@@€- A3„‡7 „€ ‹Š$”›ผ** horizontal decoding **›ฦ'„-ŠŠ%Avy A#„‡' „ะ$ฺ› ""** Hardcopy plot to MX-70 **›*.@.@@P:4‹-@96ˆ-Š%‹>.‡-@@ **@. ‡C^^(@ >:@',A>:@,>:@',K>:A’,>:,H „-Av@6@@M4P:„'A2,$A2"„0‡-@A4 ‡R&6‡-F:„%ˆ,‡"AU&6‡-ATT‡"@6‡-@W#*@‡ „(@# ‹\@f$€D:SOFTOUC5.BAS