IMD 1.16: 29/05/2007 8:06:59 FOG/CPM 002 --FOGCPM002GRAPHICSCOMGRAPHICSDOCHEADING-WSN BLOCK COM; BLOCK PAS2BLOCK---WSNDOUBLE COM; DOUBLE PAS0!"#$%&FINE COM:'()*+,-.FINE PAS-/01234LIST COM567MEDIUM COM:89:;<=>?MEDIUM PAS0@ABCDEMODIFINECOM;FGHIJKLMMODIFINEPAS.NOPQRSSCRIPT COMTUVWXYZ[\]^_`abcSCRIPT COMdef-10-00 85 SCRIPT PASghijklmnopqrstuvSCRIPT PAS5wxyz{|}-CPM002 DOCSCRIPT--WSN~This is the disk name.   g$.MT 0 .OP .MB 0 RUDOLF BURKHARDT COLUMBUSSTR.2/11 PHONE 0471/22325 2850 BREMERHAVEN WEST GERMANY ------------ GRAPHICS.DOC ------------ The idea to get the OSBORNE 1's graphics from the screen onto a printer via editing the files to be printed by WordStar was realized by EBERHARD HEWICKER and a solution for the EPSON MX 80 printer was published in the German computer magazin called c't (Issue 84/4). All I did was to modify and expand the system for the ITOH 8510 A printer. The programs to enable printing are written in Pascal and compiled by means of the British Pascal compiler by HighSoft called HP4D15. I think that the files BLOCK.PAS and SCRIPT.PAS can easily be compiled (perhaps with slight modifications) by any other compiler. To make the graphics to be printed visible in WordStar the program GRAPHICS.COM has to be started by the R command when WordStar is loaded. Unfortunately the sreen won't look nice, but after pressing a letter key things will become better. Now the Wordstar N-mode has to be called and the file to be edited (later printed) has to be named. (In my examples they have the extension -------- .WSN) By invoking BLOCK.COM an input filename is asked. If a specification of the drive (where the *.WSN is on) is not wished, two spaces have to be inserted before entering the 8-letter filename.ext. (A particularity of HP4D15) BLOCK.COM, DOUBLE.COM, MEDIUM.COM, FINE.COM and MODIFINE.COM do all the same job. SCRIPT.COM prints out a two-lined 'western' script. There is no need to go through the GRAPHICS.COM routine when editing. But when in the WordStar N-mode the upper half of the line has to be written in shifted letters and the lower half line (exactly underneath) in unshifted letters. A view at SCRIPT--.WSN makes things obvious. --------------------------------------------------  become better. Now the Wordstar N-mode has to be called and the file to be edited (later printed) has to be named. (In my examples they have the extension -------- .WSN) By invoking BLOCK.COM an input filename is asked. If a specification of the drive (where the *.WSN is on) is not wished, two spaces have to be inserted before entering the 8-letter filename.ext. (A particularity of HP4D15) BLOCK.COM, DOUBLE.COM, MEDIUM.COM, FINE.COM and MODIFINE.COM do all the same job. SCRIPT.COM prints out a two-lined 'western' script. There is no need to go through the GRAPHICS.COM routine when editing. But when in the WordStar N-mode the upper half of the line has to be written in shifted letters and the lower half line (exactly underneath) in unshifted letters. A view at SCRIPT--.WSN makes things obvious. ----- i{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{p k k k THE OSBORNE 1 GRAPHIC SYMBOLS k k k k PRINTED ON THE ITOH 8510 A k k k k 1. BY USING BLOCK.COM k k k k (ORIGINAL OSBORNE SYMBOLS) k k k k 2. BY USING DOUBLE.COM k k k k (DOUBLE MIDDLE LINES) k k k k 3. BY USING MEDIUM.COM k k k k (MEDIUM LINE THICKNESS) k k k k 4. BY USING FINE.COM k k k k (FINE LINES) k k k k 5. BY USING MODIFINE.COM k k  k k (MODIFIED FINE LINES) k k k |{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}  k k 1. BY USING BLOCK.COM k k k k (ORIGINAL OSBORNE SYMBOLS) k k k k 2. BY USING DOUBLE.COM k k k k (DOUBLE MIDDLE LINES) k k k k 3. BY USING MEDIUM.COM k k k k (MEDIUM LINE THICKNESS) k k k k 4. BY USING FINE.COM k k k k (FINE LINES) k k k k 5. BY USING MODIFINE.COM k k  ÚN#F#(Gn(!*0 `iB23P  ^#V !*!*0 N#F#(i (Á(N++n(!*0 Y>!*0  ͕>=: _͕> > _͕0?:|(!R!J^VR0##HB8EY|( >-Ϸ!R!J0>0^VR8<( ##'d DG> ~#ɷ !w!}~# FALSETRUEu d !" p!*!+9H ͕͓!" !pLͷ*~ #^#V#~!^#V Halt at PC=OverflowOut of RAM/ by ZeroIndex too LowIndex too HighMaths Call ErrorFile ErrorNumber too largeNumber expectedT]^#VɯR0Z¢)0 ÔzGR0 Z)80 Z8|o>g|ʩ|ժDM!>)=0j 8B= {* >Y×^#V###~= +++r+s (##N#F##B #~< `# ͕#N#~ 6 6 #6 ͕ ͕! r+s+p+q6###͕++<(B6!(s#r#N#F###~ͥ#ͽ͕  B( 6~ >6ͷ##N#F>~ (#@ͥ###!wɯ!(s#r#N#F#`iRDM bk66###͕͕<66* ^#V+ͣ_Õ^#V###~<7##~ <(r+s!(s#r#N#F###~ͥ#ͽ͕ B bk++6!(N#F>##͕ ^#V >< ( )-(7+҈!400_{0(( )))|Ï<R* ^#V{ (w#(ɯw#!9O999G7 *#//R>6ɷR>+-{(-(-(-(EYzQ{OZyƐ'@'![R "s#rt(!9|Fp(DzPC^N(_˺˼:= x~ "Z<_x怴g0Rt jÔHFpFDx˼˺~(R (0O/GRT\!9>@F(^|G~O˼Kn0g~00Z_Qt jxg!\Utʩ!9Fpʢ~PK^z˺˼~R0ZjR0)/o|0y/g{/| _|g<>0 !RZtB )8 gt>O˼>( i G< !R!!@t>O˼z >ڔGʓ <ʠ < ʧ #!R !+))) J!@U]! ?0fn^V5 PdN _^G 5NjzP B8`iͫ:<2:%*[= {2%}2>(V ="S l ˼=6 2!@&: ͫ"S>:O:=2y ͫ z 0 :(W> z=*[ >0: >.z*![#D( o&# P5 0>0 A>-"!S#G U:!> p:0pD >28-> zMbj ?0) |2 ͫ :_!* ^#V#N#fi BS\ej)>0>.:0>E: DO>-O>+y 08 0Gyx/?0) |/2D 5z !P5!5É fffQ6AhS 0.E+00|S"*KKͫ)-( +͉ ͉ >g҈!T]͵ 0OB 0{0( {0(. (҇J(͵ 0OB 0 {0({0(QE (- ̓ E(z +̓ O{v s )C]l`yW 5D 0 ͫ ͫ!Nj# ;0"0G{(0OxGG{ڍ ×Exponent Expected!"Q2S>22!" !%":2 ! ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Gͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Üͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Fͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!<}!<}Ûͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Eͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Úͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !<}!<}!}!}!" !}!}!<}!<}Dͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ùͽ!9!9[Ԃ!" !}!<}!~}!~}!" !~}!~}!<}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Cͽ!9!9[Ԃ!" !<}!<}!}!}!" !}!}!<}!<}Øͽ!9!9[Ԃ!" !}!}!}!}!" !}!?}!}!}ͽ!9!9[Ԃ!" !<}!<}!}!}!" !}!}!}!}Bͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}×ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !3}!3}!}!}!" !3}!3}!}!}Aͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Öͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!?}!}!" !}!}!}!}@ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Õͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !<}!<}!<}!<}!" !<}!<}!<}!<}?ͽ!9!9[Ԃ!" !}!}!?}!?}!" !?}!?}!<}!<}Ôͽ!9!9[Ԃ!" !<}!<}!?}!?}!" !?}!?}!<}!<}ͽ!9!9[Ԃ!" !}!S}0008!_)ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}~ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !<}!<}!?}!?}!" !?}!?}!}!}(ͽ!9!9[Ԃ!O!ͮ>2!" !}!T}e16!c_!" !}!>}ͽ!O~!O>!Oʪ!" *O~>aG>!" *O~*O~aͅͅ bͅͅGg͜ͅͅd5ͅͅiOͅͅFei͛ͅͅfƒͅͅjͅͅEh·͚ͅͅlͅͅu͘ͅͅm͙ͅͅnͅͅo9ͅͅCwSͅͅBpmͅͅx‡ͅͅAk¡ͅͅ)r»͗ͅͅsͅͅyͅͅv ͖ͅͅz#͕ͅͅc=ͅͅ~tWͅͅ@qqͅͅD{‹ͅͅ|¥ͅͅ?~¿͔ͅͅ}ͅͅ}"!O!" !}!" ! ----------------------------!" !"_!" ] (C) HEWICKER, BURKHARDT 1984!" !;"_!" Ù ----------------------------!" !w"_!"  PROGRAM BLOCK.COM PRODUCES!" ! _!"  THE OSBORNE 1 GRAPHIC SYMBOLS!" !#_!" K ON THE ITOH 8510 A PRINTER.!" !*!_!" Ç ----------------------------!" !e"_!"  INPUT FILENAME.EXT - BUT:!" !_!"  2 SPACES AHEAD ..........!" !_!)" !)" !͇(q:mW W:mWW:fWW 2GqfW:9q29q#&YʍW:fW:W:fWW&Y> ʣVTAk¡ͅͅ)r»͗ͅͅsͅͅyͅͅv ͖ͅͅz#͕ͅͅc=ͅͅ~tWͅͅ@qqͅͅD{‹ͅͅ|¥ͅͅ?~¿͔ͅͅ}ͅͅ}"!O!" !}!" ! ----------------------------!" !"_!" ] (C) HEWICKER, BURKHARDT 1984!" !;"_!" Ù ----------------------------!" !w"_!"  PROGRAM BLOCK.COM PRODUCES!" ! _!"  THE OSBORNE 1 PROGRAM Graphik;{Fuer Block-Graphik mit ITOH 8510A} {Eberhard Hewicker, Koblenz, 1983 } {ITOH VERSION Rudolf Burkhardt } VAR Name :ARRAY[1..14] OF CHAR; Data :FILE OF CHAR; PROCEDURE KA; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE KB; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KG;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KD;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KI;BEGIN WRITE(CHR(0),CHR(0),CHR(252),CHR(252)); WRITE(CHR(252),CHR(252),CHR(60),CHR(60));END; PROCEDURE KE;BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KF; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240));  WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE KJ; BEGIN WRITE(CHR(128),CHR(192),CHR(224),CHR(240)); WRITE(CHR(248),CHR(252),CHR(254),CHR(255));END; PROCEDURE KH; BEGIN WRITE(CHR(255),CHR(254),CHR(252),CHR(248)); WRITE(CHR(240),CHR(224),CHR(192),CHR(128));END; PROCEDURE KL; BEGIN WRITE(CHR(60),CHR(60),CHR(255),CHR(255)); WRITE(CHR(255),CHR(255),CHR(60),CHR(60));END; PROCEDURE KQ; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KM; BEGIN WRITE(CHR(0),CHR(60),CHR(126),CHR(126)); WRITE(CHR(126),CHR(126),CHR(60),CHR(0));END; PROCEDURE KN; BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KO; BEGIN WRITE(CHR(60),CHR(60),CHR(252),CHR(252)); WRITE(CHR(252),CHR(252),CHR(60),CHR(60));END; PROCEDURE KU; BEGIN WRITE(CHR(1),CHR(3),CHR(7),CHR(15)); WRITE(CHR(31),CHR(63),CHR(127),CHR(255)); END; PROCEDURE KP; BEGIN WRITE(CHR(60),CHR(60),CHR(252),CHR(252)); WRITE(CHR(252),CHR(252),CHR(0),CHR(0));END; PROCEDURE KW; BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KR; BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE KS; BEGIN WRITE(CHR(51),CHR(51),CHR(204),CHR(204)); WRITE(CHR(51),CHR(51),CHR(204),CHR(204));END; PROCEDURE KX; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KV; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KY; BEGIN WRITE(CHR(255),CHR(127),CHR(63),CHR(31)); WRITE(CHR(15),CHR(7),CHR(3),CHR(1));END; PROCEDURE KT; BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KZ; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KKLA; BEGIN WRITE(CHR(60),CHR(60),CHR(60),CHR(60)); WRITE(CHR(60),CHR(60),CHR(60),CHR(60));END; PROCEDURE KDA; BEGIN WRITE(CHR(0),CHR(0),CHR(63),CHR(63)); WRITE(CHR(63),CHR(63),CHR(60),CHR(60));END; PROCEDURE KTILDE; BEGIN WRITE(CHR(60),CHR(60),CHR(63),CHR(63)); WRITE(CHR(63),CHR(63),CHR(60),CHR(60));END; PROCEDURE GRAFIK; BEGIN WRITE(CHR(27),CHR(83),'0008');END;{meldet dem ITOH 8510A 8er Grafikworte} PROCEDURE KK; BEGIN WRITE(CHR(0),CHR(0),CHR(255),CHR(255)); WRITE(CHR(255),CHR(255),CHR(0),CHR(0));END; PROCEDURE KC; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KKLZ; BEGIN WRITE(CHR(60),CHR(60),CHR(63),CHR(63)); WRITE(CHR(63),CHR(63),CHR(0),CHR(0));END; PROCEDURE Ausgabe; BEGIN RESET(Data, Name);PRON; {File eroeffnen, Drucker ein}  WRITE(CHR(27),CHR(84),'16'); {Zeilenabstand=0} WRITE(CHR(27),CHR(62)); {Unidirektional} WHILE NOT EOF(Data) DO {End of File?} BEGIN {wenn ja, dann END!} GET(Data); {Lies ein Zeichen} IF EOLN(Data) THEN WRITELN {wenn Zeilenende, dann 1 Zeilenvorschub} ELSE BEGIN; IF (Data^<'a') THEN WRITE(Data^){Normalzeichen, zum Drucker} ELSE BEGIN {Sonderzeichen, Procedure suchen} CASE Data^ OF 'a':BEGIN GRAFIK;KA END; 'b':BEGIN GRAFIK;KB END; 'g':BEGIN GRAFIK;KG END; 'd':BEGIN GRAFIK;KD END; 'i':BEGIN GRAFIK;KI END; 'e':BEGIN GRAFIK;KE END; 'f':BEGIN GRAFIK;KF END; 'j':BEGIN GRAFIK;KJ END; 'h':BEGIN GRAFIK;KH END; 'l':BEGIN GRAFIK;KL END; 'u':BEGIN GRAFIK;KU END; 'm':BEGIN GRAFIK;KM END; 'n':BEGIN GRAFIK;KN END; 'o':BEGIN GRAFIK;KO END; 'w':BEGIN GRAFIK;KW END; 'p':BEGIN GRAFIK;KP END; 'x':BEGIN GRAFIK;KX END; 'k':BEGIN GRAFIK;KK END; 'r':BEGIN GRAFIK;KR END; 's':BEGIN GRAFIK;KS END; 'y':BEGIN GRAFIK;KY END; 'v':BEGIN GRAFIK;KV END; 'z':BEGIN GRAFIK;KZ END; 'c':BEGIN GRAFIK;KC END; 't':BEGIN GRAFIK;KT END; 'q':BEGIN GRAFIK;KQ END; '{':BEGIN GRAFIK;KKLA END; '|':BEGIN GRAFIK;KDA END; '~':BEGIN GRAFIK;KTILDE END; '}':BEGIN GRAFIK;KKLZ END END END END END END; BEGIN {Beginn des Hauptprogrammes} WRITE(CHR(26)); WRITELN;WRITE(' ----------------------------'); WRITELN;WRITE(' (C) HEWICKER, BURKHARDT 1984'); WRITELN;WRITE(' ----------------------------'); WRITELN;WRITE(' PROGRAM BLOCK.COM PRODUCES'); WRITELN;WRITE(' THE OSBORNE 1 GRAPHIC SYMBOLS'); WRITELN;WRITE(' ON THE ITOH 8510 A PRINTER.'); WRITELN;WRITE(' ----------------------------'); WRITELN;WRITE(' INPUT FILENAME.EXT - BUT:'); WRITELN;WRITE(' 2 SPACES AHEAD ..........'); READLN; READ(Name); Ausgabe; END. 'z':BEGIN GRAFIK;KZ END; 'c':BEGIN GRAFIK;KC END; 't':BEGIN GRAFIK;KT END; 'q':BEGIN GRAFIK;KQ END; '{':BEGIN GRAFIK;KKLA END; '|':BEGIN GRAFIK;KDA END; '~':BEGIN GRAFIK;KTILDE END; '}':BEGIN GRAFIK;KKLZ END END END END END END; BEGIN {Beginn des Hauptprogrammes} WRITE(CHR(26)); WRITELN;WRITE(' ----------------------------'); WRITELN;WRITE(' (C) HEWICKER, BURKHARDT 1984'); WRITELN;WRITE(' ----------------------------'); WRITELN;WRITE(' PROGRAM BLOCK.COM PRODUCES'); WRITELN;WRITE(' THE OSBORNE 1 GRAPHIC SYMBOLS'); WRITELN;WRITE(' ON THE ITOH 8510 A PRINTER.'); WRITELN;WRITE(' ---- {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ CORNERS VERT: HORIZ: SQUARES OTHERS Q E I P A K D W [ X V B N R T Y U L O ? q e i p a k d w { x v b n r t y u l o ~ z c | } f g h j m s Z C \ ] F G H J M S {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{  ÚN#F#(Gn(!*0 `iB23P  ^#V !*!*0 N#F#(i (Á(N++n(!*0 Y>!*0  ͕>=: _͕> > _͕0?:|(!R!J^VR0##HB8EY|( >-Ϸ!R!J0>0^VR8<( ##'d DG> ~#ɷ !w!}~# FALSETRUEu d !" p!*!+9H ͕͓!" !pLͷ*~ #^#V#~!^#V Halt at PC=OverflowOut of RAM/ by ZeroIndex too LowIndex too HighMaths Call ErrorFile ErrorNumber too largeNumber expectedT]^#VɯR0Z¢)0 ÔzGR0 Z)80 Z8|o>g|ʩ|ժDM!>)=0j 8B= {* >Y×^#V###~= +++r+s (##N#F##B #~< `# ͕#N#~ 6 6 #6 ͕ ͕! r+s+p+q6###͕++<(B6!(s#r#N#F###~ͥ#ͽ͕  B( 6~ >6ͷ##N#F>~ (#@ͥ###!wɯ!(s#r#N#F#`iRDM bk66###͕͕<66* ^#V+ͣ_Õ^#V###~<7##~ <(r+s!(s#r#N#F###~ͥ#ͽ͕ B bk++6!(N#F>##͕ ^#V >< ( )-(7+҈!400_{0(( )))|Ï<R* ^#V{ (w#(ɯw#!9O999G7 *#//R>6ɷR>+-{(-(-(-(EYzQ{OZyƐ'@'![R "s#rt(!9|Fp(DzPC^N(_˺˼:= x~ "Z<_x怴g0Rt jÔHFpFDx˼˺~(R (0O/GRT\!9>@F(^|G~O˼Kn0g~00Z_Qt jxg!\Utʩ!9Fpʢ~PK^z˺˼~R0ZjR0)/o|0y/g{/| _|g<>0 !RZtB )8 gt>O˼>( i G< !R!!@t>O˼z >ڔGʓ <ʠ < ʧ #!R !+))) J!@U]! ?0fn^V5 PdN _^G 5NjzP B8`iͫ:<2:%*[= {2%}2>(V ="S l ˼=6 2!@&: ͫ"S>:O:=2y ͫ z 0 :(W> z=*[ >0: >.z*![#D( o&# P5 0>0 A>-"!S#G U:!> p:0pD >28-> zMbj ?0) |2 ͫ :_!* ^#V#N#fi BS\ej)>0>.:0>E: DO>-O>+y 08 0Gyx/?0) |/2D 5z !P5!5É fffQ6AhS 0.E+00|S"*KKͫ)-( +͉ ͉ >g҈!T]͵ 0OB 0{0( {0(. (҇J(͵ 0OB 0 {0({0(QE (- ̓ E(z +̓ O{v s )C]l`yW 5D 0 ͫ ͫ!Nj# ;0"0G{(0OxGG{ڍ ×Exponent Expected!"Q2S>22!" !%":2 ! ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Gͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Üͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Fͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!$}!$}Ûͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Eͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Úͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !$}!$}!}!}!" !}!}!$}!$}Dͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ùͽ!9!9[Ԃ!" !$}!$}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Cͽ!9!9[Ԃ!" !$}!$}!}!}!" !}!}!$}!$}Øͽ!9!9[Ԃ!" !}!}!}!}!" !}!?}!}!}ͽ!9!9[Ԃ!" !$}!$}!}!}!" !}!}!}!}Bͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}×ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!$}!$}Aͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Öͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[ Ԃ!" !}!}!?}!}!" !}!}!}!}@ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Õͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !$}!$}!$}!$}!" !$}!$}!$}!$}?ͽ!9!9[Ԃ!" !}!}!?}! }!" ! }!'}!$}!$}Ôͽ!9!9[Ԃ!" !$}!$}!'}! }!" ! }!'}!$}!$}ͽ!9!9[Ԃ!" !}!S}0008!_)ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}~ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !$}!$}!'}! }!" ! }!?}!}!}(ͽ!9!9[Ԃ!O!ͮ>2!" !}!T}e16!c_!" !}!>}ͽ!O~!O>!Oʪ!" *O~>aG>!" *O~*O~aͅͅ bͅͅGg͜ͅͅd5ͅͅiOͅͅFei͛ͅͅfƒͅͅjͅͅEh·͚ͅͅlͅͅu͘ͅͅm͙ͅͅnͅͅo9ͅͅCwSͅͅBpmͅͅx‡ͅͅAk¡ͅͅ)r»͗ͅͅsͅͅyͅͅv ͖ͅͅz#͕ͅͅc=ͅͅ~tWͅͅ@qqͅͅD{‹ͅͅ|¥ͅͅ?~¿͔ͅͅ}ͅͅ}"!O!" !}!" !" ) ----------------------------!" !!_!" d (C) HEWICKER, BURKHARDT 1984!" !C!_!" ß ----------------------------!" !~!_!"  DOUBLE.COM PRINTS MODIFIED!" !_!"  GRAPHIC SYMBOLS OF THE OSBORNE 1!" !%_!" Q ON THE ITOH 8510 A PRINTER.!" !1 _!" Ì ----------------------------!" !k!_!"  INPUT FILENAME.EXT - BUT:!" !_!"  2 SPACES AHEAD ..........!" !_!)" !)" !͇(mW W:mWW:fWW 2GqfW:9q29q#&YʍW:fW:W:fWW&Y> ʣVTAk¡ͅͅ)r»͗ͅͅsͅͅyͅͅv ͖ͅͅz#͕ͅͅc=ͅͅ~tWͅͅ@qqͅͅD{‹ͅͅ|¥ͅͅ?~¿͔ͅͅ}ͅͅ}"!O!" !}!" !" ) ----------------------------!" !!_!" d (C) HEWICKER, BURKHARDT 1984!" !C!_!" ß ----------------------------!" !~!_!"  DOUBLE.COM PRINTS MODIFIED!" !_!"  GRAPHIC S PROGRAM Graphik;{Fuer Block-Graphik mit ITOH 8510A} {Eberhard Hewicker, Koblenz, 1983 } {ITOH VERSION Rudolf Burkhardt } VAR Name :ARRAY[1..14] OF CHAR; Data :FILE OF CHAR; PROCEDURE KA; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE KB; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KG;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KD;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KI;BEGIN WRITE(CHR(0),CHR(0),CHR(252),CHR(4)); WRITE(CHR(4),CHR(228),CHR(36),CHR(36));END; PROCEDURE KE;BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KF; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240));  WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE KJ; BEGIN WRITE(CHR(128),CHR(192),CHR(224),CHR(240)); WRITE(CHR(248),CHR(252),CHR(254),CHR(255));END; PROCEDURE KH; BEGIN WRITE(CHR(255),CHR(254),CHR(252),CHR(248)); WRITE(CHR(240),CHR(224),CHR(192),CHR(128));END; PROCEDURE KL; BEGIN WRITE(CHR(36),CHR(36),CHR(231),CHR(0)); WRITE(CHR(0),CHR(231),CHR(36),CHR(36));END; PROCEDURE KQ; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KM; BEGIN WRITE(CHR(36),CHR(36),CHR(231),CHR(0)); WRITE(CHR(0),CHR(255),CHR(0),CHR(0));END; PROCEDURE KN; BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KO; BEGIN WRITE(CHR(36),CHR(36),CHR(228),CHR(4)); WRITE(CHR(4),CHR(228),CHR(36),CHR(36));END; PROCEDURE KU; BEGIN WRITE(CHR(1),CHR(3),CHR(7),CHR(15)); WRITE(CHR(31),CHR(63),CHR(127),CHR(255)); END;  PROCEDURE KP; BEGIN WRITE(CHR(36),CHR(36),CHR(228),CHR(4)); WRITE(CHR(4),CHR(252),CHR(0),CHR(0));END; PROCEDURE KW; BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KR; BEGIN WRITE(CHR(15),CHR(15),CHR(15),CHR(15)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE KS; BEGIN WRITE(CHR(0),CHR(0),CHR(255),CHR(0)); WRITE(CHR(0),CHR(231),CHR(36),CHR(36));END; PROCEDURE KX; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KV; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KY; BEGIN WRITE(CHR(255),CHR(127),CHR(63),CHR(31)); WRITE(CHR(15),CHR(7),CHR(3),CHR(1));END; PROCEDURE KT; BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(15),CHR(15),CHR(15),CHR(15));END; PROCEDURE KZ; BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(240),CHR(240),CHR(240),CHR(240));END; PROCEDURE KKLA; BEGIN WRITE(CHR(36),CHR(36),CHR(36),CHR(36)); WRITE(CHR(36),CHR(36),CHR(36),CHR(36));END; PROCEDURE KDA; BEGIN WRITE(CHR(0),CHR(0),CHR(63),CHR(32)); WRITE(CHR(32),CHR(39),CHR(36),CHR(36));END; PROCEDURE KTILDE; BEGIN WRITE(CHR(36),CHR(36),CHR(39),CHR(32)); WRITE(CHR(32),CHR(39),CHR(36),CHR(36));END; PROCEDURE GRAFIK; BEGIN WRITE(CHR(27),CHR(83),'0008');END;{meldet dem ITOH 8510A 8er Grafikworte} PROCEDURE KK; BEGIN WRITE(CHR(0),CHR(0),CHR(255),CHR(0)); WRITE(CHR(0),CHR(255),CHR(0),CHR(0));END; PROCEDURE KC; BEGIN WRITE(CHR(240),CHR(240),CHR(240),CHR(240)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KKLZ; BEGIN WRITE(CHR(36),CHR(36),CHR(39),CHR(32)); WRITE(CHR(32),CHR(63),CHR(0),CHR(0));END; PROCEDURE Ausgabe; BEGIN RESET(Data, Name);PRON; {File eroeffnen, Drucker ein} WRITE(CHR(27),CHR(84),'16'); {Zeilenabstand=0} WRITE(CHR(27),CHR(62)); {Unidirektional} WHILE NOT EOF(Data) DO {End of File?} BEGIN {wenn ja, dann END!} GET(Data); {Lies ein Zeichen} IF EOLN(Data) THEN WRITELN {wenn Zeilenende, dann 1 Zeilenvorschub} ELSE BEGIN; IF (Data^<'a') THEN WRITE(Data^){Normalzeichen, zum Drucker} ELSE BEGIN {Sonderzeichen, Procedure suchen} CASE Data^ OF 'a':BEGIN GRAFIK;KA END; 'b':BEGIN GRAFIK;KB END; 'g':BEGIN GRAFIK;KG END; 'd':BEGIN GRAFIK;KD END; 'i':BEGIN GRAFIK;KI END; 'e':BEGIN GRAFIK;KE END; 'f':BEGIN GRAFIK;KF END; 'j':BEGIN GRAFIK;KJ END; 'h':BEGIN GRAFIK;KH END; 'l':BEGIN GRAFIK;KL END; 'u':BEGIN GRAFIK;KU END; 'm':BEGIN GRAFIK;KM END; 'n':BEGIN GRAFIK;KN END; 'o':BEGIN GRAFIK;KO END; 'w':BEGIN GRAFIK;KW END; 'p':BEGIN GRAFIK;KP END; 'x':BEGIN GRAFIK;KX END; 'k':BEGIN GRAFIK;KK END; 'r':BEGIN GRAFIK;KR END; 's':BEGIN GRAFIK;KS END; 'y':BEGIN GRAFIK;KY END; 'v':BEGIN GRAFIK;KV END; 'z':BEGIN GRAFIK;KZ END; 'c':BEGIN GRAFIK;KC END; 't':BEGIN GRAFIK;KT END; 'q':BEGIN GRAFIK;KQ END; '{':BEGIN GRAFIK;KKLA END; '|':BEGIN GRAFIK;KDA END; '~':BEGIN GRAFIK;KTILDE END; '}':BEGIN GRAFIK;KKLZ END END END END END END; BEGIN {Beginn des Hauptprogrammes} WRITELN;WRITE('Eingabe des Filenamens:'); WRITELN;WRITE('2 Spaces,'); WRITELN;WRITE('8-stelliger Filename.PAS :'); READLN; READ(Name); {Lies Namen des zu druckenden Files. Name muss 14 Zeichen} Ausgabe; {lang sein, durch SPACES auffuellen! } WRITE(CHR(27),CHR(76),'000'); {linker Rand=0} END. {z.B.: A: VERSUCHE.PAS }  ÚN#F#(Gn(!*0 `iB23P  ^#V !*!*0 N#F#(i (Á(N++n(!*0 Y>!*0  ͕>=: _͕> > _͕0?:|(!R!J^VR0##HB8EY|( >-Ϸ!R!J0>0^VR8<( ##'d DG> ~#ɷ !w!}~# FALSETRUEu d !" p!*!+9H ͕͓!" !pLͷ*~ #^#V#~!^#V Halt at PC=OverflowOut of RAM/ by ZeroIndex too LowIndex too HighMaths Call ErrorFile ErrorNumber too largeNumber expectedT]^#VɯR0Z¢)0 ÔzGR0 Z)80 Z8|o>g|ʩ|ժDM!>)=0j 8B= {* >Y×^#V###~= +++r+s (##N#F##B #~< `# ͕#N#~ 6 6 #6 ͕ ͕! r+s+p+q6###͕++<(B6!(s#r#N#F###~ͥ#ͽ͕  B( 6 ~ >6ͷ##N#F>~ (#@ͥ###!wɯ!(s#r#N#F#`iRDM bk66###͕͕<66* ^#V+ͣ_Õ^#V###~<7##~ <(r+s!(s#r#N#F###~ͥ#ͽ͕ B bk++6!(N#F>##͕ ^#V >< ( )-(7+҈!400_{0(( )))|Ï<R* ^#V{ (w#(ɯw#!9O999G7 *#//R>6ɷR>+-{(-(-(-(EYzQ{OZyƐ'@'![R "s#rt(!9|Fp(DzPC^N(_˺˼:= x~ "Z<_x怴g0Rt jÔHFpFDx˼˺~(R (0O/GRT\!9>@F(^|G~O˼Kn0g~00Z_Qt jxg!\Utʩ!9Fpʢ~PK^z˺˼~R0ZjR0)/o|0y/g{/| _|g<>0 !RZtB )8 gt>O˼>( i G< !R!!@t>O˼z >ڔGʓ <ʠ < ʧ #!R !+))) J!@U]! ?0fn^V5 PdN _^G 5NjzP B8`iͫ:<2:%*[= {2%}2>(V ="S l ˼=6 2!@&: ͫ"S>:O:=2y ͫ z 0 :(W> z=*[ >0: >.z*![#D( o&# P5 0>0 A>-"!S#G U:!> p:0pD >28-> zMbj ?0) |2 ͫ :_!* ^#V#N#fi BS\ej)>0>.:0>E: DO>-O>+y 08 0Gyx/?0) |/2D 5z !P5!5É fffQ6AhS 0.E+00|S"*KKͫ)-( +͉ ͉ >g҈!T]͵ 0OB 0{0( {0(. (҇J(͵ 0OB 0 {0({0(QE (- ̓ E(z +̓ O{v s )C]l`yW 5D 0 ͫ ͫ!Nj# ;0"0G{(0OxGG{ڍ ×Exponent Expected!"Q2S>22!" !%":2 ! ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Gͽ!9!9[Ԃ!" !}!@}! }!}!" !}!}!}!}Üͽ!9!9[Ԃ!" !}!}!}!}!" !}!@}! }!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Fͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ûͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}! }!@}!}!" !}!}!}!}Eͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Úͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Dͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ùͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}! }!@}!}Cͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Øͽ!9!9[Ԃ!" !}!}!}!}!" !}!?}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Bͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}×ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Aͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Öͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!?}!}!" !}!}!}!}@ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Õͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}?ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ôͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!S}0008!_)ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}~ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}(ͽ!9!9[Ԃ!O!ͮ>2!" !}!T}e16!c_!" !}!>}ͽ!O~!O>!Oʪ!" *O~>aG>!" *O~*O~aͅͅ bͅͅG g͜ͅͅd5ͅͅiOͅͅFei͛ͅͅfƒͅͅjͅͅEh·͚ͅͅlͅͅu͘ͅͅm͙ͅͅnͅͅo9ͅͅCwSͅͅBpmͅͅx‡ͅͅAk¡ͅͅ)r»͗ͅͅsͅͅyͅͅv ͖ͅͅz#͕ͅͅc=ͅͅ~tWͅͅ@qqͅͅD{‹ͅͅ|¥ͅͅ?~¿͔ͅͅ}ͅͅ}"!O!" !}!" !" ) ----------------------------!" !!_!" d (C) HEWICKER, BURKHARDT 1984!" !C!_!" ß ----------------------------!" !~!_!"  FINE.COM PRINTS MODIFIED!" !_!"  OSBORNE 1 GRAPHICS ON ITOH!" !_!" J ----------------------------!" !)!_!"  INPUT FILENAME.EXT - BUT:!" !d_!" ú 2 SPACES AHEAD ..........!" !_!)" !)" !͇(*Eq"Cq*?q!.Ͱ> ~# °z{:e=2e  |:e=2e> {0 6?#  ~/# 6 # !N# 6~#ʚ/,~#ʚNJ>2d7E_>2c! "\7Pt*">2g722h̀Invalid option "" error$ 2`:\ʰ=_##~2#~2#~2#^#V"#^#V":>2!]~/  !m~/5 5  ~#? !jlw# 6# )>2h>?2h \!o:\O~# b*T#"TG:hʘ:g̀printer\$>2hj<& :h2h̀file: $!j͙͒2h:g>2d̀Output directed to the $>*T}®2h̀File not found$ ͒:=G:c+:bG>--Ò:_> =:>2e:cd̀ Records,$::/o}:2e:cʨ̀ Kbytes, $x=7v:H-HP y2_*T"X}o|g:_ͺ"ZDM*T!!a4 ͺFyO+:_Oy2b>2f:c! ¿P:aG!\͙̀ RECS KBS$x=7J:aG:\|)t ͙##V#^G*X+"X}E *Z*Tͺo͒:f<2f!Fj:d2è Extent,$}o~o>gG̀Attributes: $} o~t̀R/O $ #~҂̀SYS$ y“̀NONE SET$̀\Block size: $:G>ìo&̀K Last block: $*̀ $!:)̀-bit DM pointers in decimal:\|$:f<<2fog:5 |\ >2eV }\ &>2e|\ l&>2e{ ̀ |$*\~E ̀\\$:f<<2f!2f:d *\~7ʴ # ʨ ɯ2h̀** WARNING **\Multiple directories for file: $͙ 2h̀Output file is ambiguous$ 2h̀Disk or $2h̀Directory full error$ ̀DEVICE: $A*Tͺ{ ̀ FILES: $̀ FREE SPACE: $*F#xGҦ +zʳ  Ù := )ù >K:h ͒:i > j< 2h̀File close error$:`_*V#w6 R 1**!W~4ʼ #~#F#¼ x¼ ~#s#r#w>Qʅ = =Uͧᯕo>gͧ 'd o:{ƀ_zW= :G'~wn&>2è Extent,$}o~o>gG̀Attributes: $} o~t̀R/O $ #~҂̀SYS$ y“̀NONE SET$̀\Block size: $:G>ìo&̀K Last block: $*̀ $!:)̀-bit DM pointers in de ÚN#F#(Gn(!*0 `iB23P  ^#V !*!*0 N#F#(i (Á(N++n(!*0 Y>!*0  ͕>=: _͕> > _͕0?:|(!R!J^VR0##HB8EY|( >-Ϸ!R!J0>0^VR8<( ##'d DG> ~#ɷ !w!}~# FALSETRUEu d !" p!*!+9H ͕͓!" !pLͷ*~ #^#V#~!^#V Halt at PC=OverflowOut of RAM/ by ZeroIndex too LowIndex too HighMaths Call ErrorFile ErrorNumber too largeNumber expectedT]^#VɯR0Z¢)0 ÔzGR0 Z)80 Z8|o>g|ʩ|ժDM!>)=0j 8B= {* >Y×^#V###~= +++r+s (##N#F##B #~< `# ͕#N#~ 6 6 #6 ͕ ͕! r+s+p+q6###͕++<(B6!(s#r#N#F###~ͥ#ͽ͕  B( 6~ >6ͷ##N#F>~ (#@ͥ###!wɯ!(s#r#N#F#`iRDM bk66###͕͕<66* ^#V+ͣ_Õ^#V###~<7##~ <(r+s!(s#r#N#F###~ͥ#ͽ͕ B bk++6!(N#F>##͕ ^#V >< ( )-(7+҈!400_{0(( )))|Ï<R* ^#V{ (w#(ɯw#!9O999G7 *#//R>6ɷR>+-{(-(-(-(EYzQ{OZyƐ'@'![R "s#rt(!9|Fp(DzPC^N(_˺˼:= x~ "Z<_x怴g0Rt jÔHFpFDx˼˺~(R (0O/GRT\!9>@F(^|G~O˼Kn0g~00Z_Qt jxg!\Utʩ!9Fpʢ~PK^z˺˼~R0ZjR0)/o|0y/g{/| _|g<>0 !RZtB )8 gt>O˼>( i G< !R!!@t>O˼z >ڔGʓ <ʠ < ʧ #!R !+))) J!@U]! ?0fn^V5 PdN _^G 5NjzP B8`iͫ:<2:%*[= {2%}2>(V ="S l ˼=6 2!@&: ͫ"S>:O:=2y ͫ z 0 :(W> z=*[ >0: >.z*![#D( o&# P5 0>0 A>-"!S#G U:!> p:0pD >28-> zMbj ?0) |2 ͫ :_!* ^#V#N#fi BS\ej)>0>.:0>E: DO>-O>+y 08 0Gyx/?0) |/2D 5z !P5!5É fffQ6AhS 0.E+00|S"*KKͫ)-( +͉ ͉ >g҈!T]͵ 0OB 0{0( {0(. (҇J(͵ 0OB 0 {0({0(QE (- ̓ E(z +̓ O{v s )C]l`yW 5D 0 ͫ ͫ!Nj# ;0"0G{(0OxGG{ڍ ×Exponent Expected!"Q2S>22!" !%":2 ! ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Gͽ!9!9[Ԃ!" !}!}!p}!8}!" !}!}!}!}Üͽ!9!9[Ԃ!" !}!}!}!}!" !p}!8}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Fͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ûͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!8}!p}!" !}!}!}!}Eͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Úͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Dͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ùͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !8}!p}!}!}Cͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Øͽ!9!9[Ԃ!" !}!}!}!}!" !}!?}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Bͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}×ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Aͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Öͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!?}!}!" !}!}!}!}@ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Õͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}?ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ôͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!S}0008!_)ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}~ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}(ͽ!9!9[Ԃ!O!ͮ>2!" !}!T}e16!c_!" !}!>}ͽ!O~!O>!Oʪ!" *O~>aG>!" *O~*O~aͅͅ bͅͅGg͜ͅͅd5ͅͅiOͅͅFei͛ͅͅfƒͅͅjͅͅEh·͚ͅͅlͅͅu͘ͅͅm͙ͅͅnͅͅo9ͅͅCwSͅͅBpmͅͅx‡ͅͅAk¡ͅͅ)r»͗ͅͅsͅͅyͅͅv ͖ͅͅz#͕ͅͅc=ͅͅ~tWͅͅ@qqͅͅD{‹ͅͅ|¥ͅͅ?~¿͔ͅͅ}ͅͅ}"!O!"  ----------------------------!" !!_!" P (C) HEWICKER, BURKHARDT 1984!" !/!_!" Ë ----------------------------!" !j!_!"  MEDIUM.COM PRINTS MODIFIED!" !_!"  OSBORNE 1 GRAPHICS ON ITOH!" !_!" 8 ----------------------------!" !!_!" p INPUT FILENAME.EXT - BUT:!" !R_!" è 2 SPACES AHEAD ..........!" !_!)" !)" !͇(8O:!*0  ͕>=: _͕> > _͕0?:|(!R!J^VR0##HB8EY|( >-Ϸ!R!J0>0^VR8<( ##'d DG> ~#ɷ !w!}~# FALSETRUEu d !" p!*!+9H ͕͓!" !pLͷ*~ #^#V#~!^#V Halt at PC=OverflowOut of RAM/ by ZeroIndex too LowIndex too HighMaths Call ErrorFile ErrorNumber too largeNumber expectedT]^#VɯR0Z¢)0 ÔzGR0 Z)80 Z8|o>g|ʩ|ժDM!>)=0j 8B= {* >Y×^#V###~= +++r+s (##N#F##B #~< `# ͕#N#~ 6 6 #6 ͕ ͕! r+s+p+q6###͕++<(B6!(s#r#N#F###~ͥ#ͽ͕  B( 6~ >6ͷ##N#F>~ (#@ͥ###!wɯ!(s#r#N#F#`iRDM bk66###͕͕<66* ^#V+ͣ_Õ^#V###~<7##~ <(r+s!(s#r#N#F###~ͥ#ͽ͕ B bk++6!(N#F>##͕ ^#V >< ( )-(7+҈!400_{0(( )))|Ï<R* ^#V{ (w#(ɯw#!9O999G7 *#//R>6ɷR>+-{(-(-(-(EYzQ{OZyƐ'@'![R "s#rt(!9|Fp(DzPC^N(_˺˼:= x~ "Z<_x怴g0Rt jÔHFpFDx˼˺~(R (0O/GRT\!9>@F(^|G~O˼Kn0g~00Z_Qt jxg!\Utʩ!9Fpʢ~PK^z˺˼~R0ZjR0)/o|0y/g{/| _|g<>0 !RZtB )8 gt>O˼>( i G< !R!!@t>O˼z >ڔGʓ <ʠ < ʧ #!R !+))) J!@U]! ?0fn^V5 PdN _^G 5NjzP B8`iͫ:<2:%*[= {2%}2>(V ="S l ˼=6 2!@&: ͫ"S>:O:=2y ͫ z 0 :(W> z=*[ >0: >.z*![#D( o&# P5 0>0 A>-"!S#G U:!> p:0pD >28-> zMbj ?0) |2 ͫ :_!* ^#V#N#fi BS\ej)>0>.:0>E: DO>-O>+y 08 0Gyx/?0) |/2D 5z !P5!5É fffQ6AhS 0.E+00|S"*KKͫ)-( +͉ ͉ >g҈!T]͵ 0OB 0{0( {0(. (҇J(͵ 0OB 0 {0({0(QE (- ̓ E(z +̓ O{v s )C]l`yW 5D 0 ͫ ͫ!Nj# ;0"0G{(0OxGG{ڍ ×Exponent Expected!"Q2S>22!" !%":2 ! ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Gͽ!9!9[Ԃ!" !}!@}! }!}!" !}!}!}!}Üͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Fͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ûͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Eͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Úͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Dͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ùͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}! }!@}!}Cͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Øͽ!9!9[Ԃ!" !}!}!}!}!" !}!?}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Bͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}×ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Aͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Öͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!?}!}!" !}!}!}!}@ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Õͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}?ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}Ôͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!S}0008!_)ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}~ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}(ͽ!9!9[Ԃ!O!ͮ>2!" !}!T}e16!c_!" !}!>}!" !}!" !}!Q}ͽ!O~!O>!O!" *O~>aG>!" *O~*O~aͅͅ bͅͅGg6͜ͅͅdPͅͅijͅͅFe„͛ͅͅfžͅͅj¸ͅͅEh͚ͅͅlͅͅu͘ͅͅm ͙ͅͅn:ͅͅoTͅͅCwnͅͅBpˆͅͅx¢ͅͅAk¼ͅͅ)r͗ͅͅsͅͅy ͅͅv$͖ͅͅz>͕ͅͅcXͅͅ~trͅͅ@qŒͅͅD{¦ͅͅ|ͅͅ?~͔ͅͅ}ͅͅØ"!O!" !}!" !" D ----------------------------!" !#!_!"  (C) HEWICKER, BURKHARDT 1984!" !^!_!" ú ----------------------------!" !!_!"  MODIFINE.COM PRINTS MODIFIED!" !!_!" . OSBORNE 1 GRAPHICS ON ITOH!" !_!" i ----------------------------!" !H!_!" á INPUT FILENAME.EXT - BUT:!" !_!"  2 SPACES AHEAD ..........!" !_!)" !)" !͇(W ʫW{W ʖW £VÍW+2 q:mW W:mWW:fWW 2GqfW:9q29q#&YʍW:fW:W:fWW&Y> ʣVTx¢ͅͅAk¼ͅͅ)r͗ͅͅsͅͅy ͅͅv$͖ͅͅz>͕ͅͅcXͅͅ~trͅͅ@qŒͅͅD{¦ͅͅ|ͅͅ?~͔ͅͅ}ͅͅØ"!O!" !}!" !" D ----------------------------!" !#!_!"  (C) HEWICKER, BURKHARDT 1984!" !^!_!" ú ----------------------------!" !!_!"  MODIFINE.COM PRINTS MODIFIED!" !! PROGRAM Graphik;{Fuer Block-Graphik mit ITOH 8510A} {Eberhard Hewicker, Koblenz, 1983 } {ITOH VERSION Rudolf Burkhardt } VAR Name :ARRAY[1..14] OF CHAR; Data :FILE OF CHAR; PROCEDURE KA; BEGIN WRITE(CHR(255),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE KB; BEGIN WRITE(CHR(128),CHR(64),CHR(32),CHR(16)); WRITE(CHR(8),CHR(4),CHR(2),CHR(1));END; PROCEDURE KG;BEGIN WRITE(CHR(255),CHR(128),CHR(128),CHR(128)); WRITE(CHR(128),CHR(128),CHR(128),CHR(255));END; PROCEDURE KD;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(255));END; PROCEDURE KI;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(248),CHR(8),CHR(8),CHR(8));END; PROCEDURE KE;BEGIN WRITE(CHR(1),CHR(1),CHR(1),CHR(1)); WRITE(CHR(1),CHR(1),CHR(1),CHR(255));END; PROCEDURE KF;BEGIN WRITE(CHR(255),CHR(129),CHR(129),CHR(129)); WRITE(CHR(129),CHR(129),CHR(129),CHR(129));END; PROCEDURE KJ;BEGIN WRITE(CHR(128),CHR(192),CHR(224),CHR(240)); WRITE(CHR(248),CHR(252),CHR(254),CHR(255));END; PROCEDURE KH;BEGIN WRITE(CHR(255),CHR(254),CHR(252),CHR(248)); WRITE(CHR(240),CHR(224),CHR(192),CHR(128));END; PROCEDURE KL;BEGIN WRITE(CHR(8),CHR(8),CHR(8),CHR(8)); WRITE(CHR(255),CHR(8),CHR(8),CHR(8));END; PROCEDURE KQ;BEGIN WRITE(CHR(255),CHR(1),CHR(1),CHR(1)); WRITE(CHR(1),CHR(1),CHR(1),CHR(1));END; PROCEDURE KM;BEGIN WRITE(CHR(129),CHR(129),CHR(129),CHR(129)); WRITE(CHR(129),CHR(129),CHR(129),CHR(129));END; PROCEDURE KN;BEGIN WRITE(CHR(1),CHR(2),CHR(4),CHR(8)); WRITE(CHR(16),CHR(32),CHR(64),CHR(128));END; PROCEDURE KO;BEGIN WRITE(CHR(8),CHR(8),CHR(8),CHR(8)); WRITE(CHR(248),CHR(8),CHR(8),CHR(8));END; PROCEDURE KU;BEGIN WRITE(CHR(1),CHR(3),CHR(7),CHR(15)); WRITE(CHR(31),CHR(63),CHR(127),CHR(255)); END; PROCEDURE KP;BEGIN WRITE(CHR(8),CHR(8),CHR(8),CHR(8)); WRITE(CHR(248),CHR(0),CHR(0),CHR(0));END; PROCEDURE KW;BEGIN WRITE(CHR(1),CHR(1),CHR(1),CHR(1)); WRITE(CHR(1),CHR(1),CHR(1),CHR(1));END; PROCEDURE KR;BEGIN WRITE(CHR(255),CHR(1),CHR(1),CHR(1)); WRITE(CHR(1),CHR(1),CHR(1),CHR(255));END; PROCEDURE KS;BEGIN WRITE(CHR(255),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(255));END; PROCEDURE KX;BEGIN WRITE(CHR(128),CHR(128),CHR(128),CHR(128)); WRITE(CHR(128),CHR(128),CHR(128),CHR(128));END; PROCEDURE KV;BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(255)); WRITE(CHR(255),CHR(255),CHR(255),CHR(255));END; PROCEDURE KY;BEGIN WRITE(CHR(255),CHR(127),CHR(63),CHR(31)); WRITE(CHR(15),CHR(7),CHR(3),CHR(1));END; PROCEDURE KT;BEGIN WRITE(CHR(129),CHR(129),CHR(129),CHR(129)); WRITE(CHR(129),CHR(129),CHR(129),CHR(255));END; PROCEDURE KZ;BEGIN WRITE(CHR(255),CHR(128),CHR(128),CHR(128)); WRITE(CHR(128),CHR(128),CHR(128),CHR(128));END; PROCEDURE KKLA;BEGIN WRITE(CHR(8),CHR(8),CHR(8),CHR(8)); WRITE(CHR(8),CHR(8),CHR(8),CHR(8));END; PROCEDURE KDA;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(15),CHR(8),CHR(8),CHR(8));END; PROCEDURE KTILDE;BEGIN WRITE(CHR(8),CHR(8),CHR(8),CHR(8)); WRITE(CHR(15),CHR(8),CHR(8),CHR(8));END; PROCEDURE GRAFIK;BEGIN WRITE(CHR(27),CHR(83),'0008');END; PROCEDURE KK;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(255),CHR(0),CHR(0),CHR(0));END; PROCEDURE KC;BEGIN WRITE(CHR(128),CHR(128),CHR(128),CHR(128)); WRITE(CHR(128),CHR(128),CHR(128),CHR(255));END; PROCEDURE KKLZ;BEGIN WRITE(CHR(8),CHR(8),CHR(8),CHR(8)); WRITE(CHR(15),CHR(0),CHR(0),CHR(0));END; PROCEDURE Ausgabe; BEGIN RESET(Data, Name);PRON; {File eroeffnen, Drucker ein} WRITE(CHR(27),CHR(84),'16'); {Zeilenabstand=0} WRITE(CHR(27),CHR(62)); {Unidirektional} WRITE(CHR(14)); WRITE(CHR(27),CHR(81)); WHILE NOT EOF(Data) DO  {End of File?} BEGIN {wenn ja, dann END!} GET(Data); {Lies ein Zeichen} IF EOLN(Data) THEN WRITELN {wenn Zeilenende, dann 1 Zeilenvorschub} ELSE BEGIN; IF (Data^<'a') THEN WRITE(Data^){Normalzeichen, zum Drucker} ELSE BEGIN {Sonderzeichen, Procedure suchen} CASE Data^ OF 'a':BEGIN GRAFIK;KA END; 'b':BEGIN GRAFIK;KB END; 'g':BEGIN GRAFIK;KG END; 'd':BEGIN GRAFIK;KD END; 'i':BEGIN GRAFIK;KI END; 'e':BEGIN GRAFIK;KE END; 'f':BEGIN GRAFIK;KF END; 'j':BEGIN GRAFIK;KJ END; 'h':BEGIN GRAFIK;KH END; 'l':BEGIN GRAFIK;KL END; 'u':BEGIN GRAFIK;KU END; 'm':BEGIN GRAFIK;KM END; 'n':BEGIN GRAFIK;KN END; 'o':BEGIN GRAFIK;KO END; 'w':BEGIN GRAFIK;KW END; 'p':BEGIN GRAFIK;KP END; 'x':BEGIN GRAFIK;KX END; 'k':BEGIN GRAFIK;KK END; 'r':BEGIN GRAFIK;KR END; 's':BEGIN GRAFIK;KS END; 'y':BEGIN GRAFIK;KY END; 'v':BEGIN GRAFIK;KV END; 'z':BEGIN GRAFIK;KZ END; 'c':BEGIN GRAFIK;KC END; 't':BEGIN GRAFIK;KT END; 'q':BEGIN GRAFIK;KQ END; '{':BEGIN GRAFIK;KKLA END; '|':BEGIN GRAFIK;KDA END; '~':BEGIN GRAFIK;KTILDE END; '}':BEGIN GRAFIK;KKLZ END END END END END END; BEGIN WRITELN;WRITE('EINGABE DES FILENAMENS:'); WRITELN;WRITE('2 SPACES VORWEG........'); WRITELN;WRITE('DANN 8-STELLIGER FILENAME.EXT :'); READLN; READ(Name); Ausgabe; WRITE(CHR(27),CHR(76),'000'); END. FIK;KU END; 'm':BEGIN GRAFIK;KM END; 'n':BEGIN GRAFIK;KN END; 'o':BEGIN GRAFIK;KO END; 'w':BEGIN GRAFIK;KW END; 'p':BEGIN GRAFIK;KP END; 'x':BEGIN GRAFIK;KX END; 'k':BEGIN GRAFIK;KK END; 'r':B ÚN#F#(Gn(!*0 `iB23P  ^#V !*!*0 N#F#(i (Á(N++n(!*0 Y>!*0  ͕>=: _͕> > _͕0?:|(!R!J^VR0##HB8EY|( >-Ϸ!R!J0>0^VR8<( ##'d DG> ~#ɷ !w!}~# FALSETRUEu d !" p!*!+9H ͕͓!" !pLͷ*~ #^#V#~!^#V Halt at PC=OverflowOut of RAM/ by ZeroIndex too LowIndex too HighMaths Call ErrorFile ErrorNumber too largeNumber expectedT]^#VɯR0Z¢)0 ÔzGR0 Z)80 Z8|o>g|ʩ|ժDM!>)=0j 8B= {* >Y×^#V###~= +++r+s (##N#F##B #~< `# ͕#N#~ 6 6 #6 ͕ ͕! r+s+p+q6###͕++<(B6!(s#r#N#F###~ͥ#ͽ͕  B( 6~ >6ͷ##N#F>~ (#@ͥ###!wɯ!(s#r#N#F#`iRDM bk66###͕͕<66* ^#V+ͣ_Õ^#V###~<7##~ <(r+s!(s#r#N#F###~ͥ#ͽ͕ B bk++6!(N#F>##͕ ^#V >< ( )-(7+҈!400_{0(( )))|Ï<R* ^#V{ (w#(ɯw#!9O999G7 *#//R>6ɷR>+-{(-(-(-(EYzQ{OZyƐ'@'![R "s#rt(!9|Fp(DzPC^N(_˺˼:= x~ "Z<_x怴g0Rt jÔHFpFDx˼˺~(R (0O/GRT\!9>@F(^|G~O˼Kn0g~00Z_Qt jxg!\Utʩ!9Fpʢ~PK^z˺˼~R0ZjR0)/o|0y/g{/| _|g<>0 !RZtB )8 gt>O˼>( i G< !R!!@t>O˼z >ڔGʓ <ʠ < ʧ #!R !+))) J!@U]! ?0fn^V5 PdN _^G 5NjzP B8`iͫ:<2:%*[= {2%}2>(V ="S l ˼=6 2!@&: ͫ"S>:O:=2y ͫ z 0 :(W> z=*[ >0: >.z*![#D( o&# P5 0>0 A>-"!S#G U:!> p:0pD >28-> zMbj ?0) |2 ͫ :_!* ^#V#N#fi BS\ej)>0>.:0>E: DO>-O>+y 08 0Gyx/?0) |/2D 5z !P5!5É fffQ6AhS 0.E+00|S"*KKͫ)-( +͉ ͉ >g҈!T]͵ 0OB 0{0( {0(. (҇J(͵ 0OB 0 {0({0(QE (- ̓ E(z +̓ O{v s )C]l`yW 5D 0 ͫ ͫ!Nj# ;0"0G{(0OxGG{ڍ ×Exponent Expected!"J2L>22!" !%":2 !/G ͽ!9!9[Ԃ!" !}!}!}!}!" !}!E}!}! }!" !}!}!}!}!" !1}!A}!}!}!}!" !}!}!}!}Úͽ!9!9[Ԃ!" ! }!P}!@}!8}!" !F}!Q}!"}!}!" !}!}!"}!Q}!" !F}!}!6}!x}!@}!" !P}! }!}!}Bͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!A}!" !}!}!I}!w}!" !"}!6}! }!}!}ͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!A}!" ! }!@}!I}!w}!" !#}!6}!}!}!}^ͽ!9!9[Ԃ!" !}!|}!6}!}!" !}!}!}!}!" !}!}! }!?}!" !}!}ͽ!9!9[Ԃ!" !}!}!6}!}!" !`}!@}!@}! }!" !@}!@}!0}! }!" !}!}\ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!}!" !}!}!}!}!" !6}!|}!}!}!}ͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!@}!" ! }!@}!@}!}!" !6}!}!}!}!}xͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!A}!" !"}!q}!}!}!" ! }!?}!}!}ͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!A}!" !"}!G}!@}!8}!" !(}!|}!}!}Êͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!A}!" !"}!q}!}!}!" ! }!?}!}!}ͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!Q}!" !"}!}!}!}!" !}!}!}!}Üͽ!9!9[Ԃ!" !}!|}!6}!}!" !}!}!}!}!" !}!}! }!?}!" !}!}!}!}!}!}/ͽ!9!9[Ԃ!" !}!}!6}!}!" !`}!@}!@}!!}!" !B}!H}!w}!"}!" !w}!}!}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!}!" !B}!}!}!}!" !6}!}!}!}!" !}!}!}`ͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!P}!" !!}!P}!@}!}!" !6}!}!@}!P}! }!" !}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!}!" !}!}!}hͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!P}!" ! }!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!6}!}!}!" !}!}!}!}[ͽ!9!9[Ԃ!" !}!}!2}!\}!" !D}! }!@}!@}!" !}!6}!}!}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!E}!" !}!}!}! }!" !}!}!}!}!}!" !}!}Âͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!A}!" !}! }!Q}!Z}!" !l}!0}!P}!@}!@}!" !}!} ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!}!" !}!}!}!}!" !}!}!}!}éͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!@}!" ! }!D}!\}!2}!" !}!}!}!}2ͽ!9!9[Ԃ!" !}!}!}!~}!" !}!}!}!=}!" !a}!}!}!}!" !u}!}!}!}!6}!" !}!}!}!}!" !}!}ͽ!9!9[Ԃ!" ! }!P}!@}!?}!" !@}!@}!}!}!" !w}!>}!`}!}!" !'}!P}!@}!}!6}!" !}!@}!P}! }!" !}!}âͽ!9!9[Ԃ!" !}!}!}!~}!" !}!}!}!|}!" !0}!@}!}!}!" !}!~}!}!}!}!" !}!}@ͽ!9!9[Ԃ!" ! }!P}!@}!?}!" !@}!P}! }!}!" !}!}!v}!=}!" !`}!}!}!}!}!" !}!}ͽ!9!9[Ԃ!" !}!x}!6}!~}!" !}!}!}!}!" !}!}!~}!6}!" !x}!}!}!}gͽ!9!9[Ԃ!" !}!}!6}!?}!" !p}!@}! }! }!" !@}!p}!?}!6}!" !}!}!}!}ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!A}!" !}!}!}!}!" !}!l}!}!}!}~ͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!Q}!" ! }!}!}!}!" !}!}!}!}!} ͽ!9!9[Ԃ!" !}!x}!6}!~}!" !}!}!}!}!" !}!}!~}!6}!" !x}!}!}!}!}Ú ͽ!9!9[Ԃ!" !}!}!6}!?}!" !p}!@}! }!(}!" !H}!p}!?}!6}!" !O}!`}!`}!}!}(!ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!A}!" !}!}!I}!w}!" !b}!6}!}!}!}!" !}!ͽ!9!9[Ԃ!" ! }!P}!@}!}!" !6}!}!@}!Q}!" ! }!}! }!7}!" !c}!t}!H}!@}!}!" !}Z"ͽ!9!9[Ԃ!" !}!7}!>}!}!" !b}!"}!A}!}!" !}! }!?}!}!" !}"ͽ!9!9[Ԃ!" !~}!(}!8}!@}!" !A}!"}!C}!G}!" !>}!v}!<}!}!" !}N#ͽ!9!9[Ԃ!" !?}!}!}!}!" !}!}!6}!}!" !}!}!}!}!" !?}!}!}#ͽ!9!9[Ԃ!" !}!}! }!P}!" !@}!}!6}!}!" !@}!P}! }!}!" !}!}!}V$ͽ!9!9[Ԃ!" !}!}!}!}!" !6}!}!}!}!" !}!}!}!}!" !~}!}!}!}!" !}!}$ͽ!9!9[Ԃ!" !}!}!}!?}!" !6}!}!@}!@}!" ! }!@}!@}! }!" !}!}!}!}!" !}!}È%ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!1}!e}!" !}!}!}!E}!" !}!}!}!}!" !}!}!}&&ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!w}!" !~}!}!}!}!" !}!}!}!}!" !}!}!}&ͽ!9!9[Ԃ!" !}!}!}!}!" !v}!?}!q}!}!" !}!}!}!y}!" !7}!y}!}!}!" !}!A}!}!}!" !}!}!}!}!" !}Ì'ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!w}!~}!" !}!}!}!}!" !}!w}!~}!}!" !}!}!}!}!" !}!}!}!}!" !}T(ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}}!" !}!r}! }!@}!" !}!}! }!}!" ! }!}!}!}!" !}!}!} )ͽ!9!9[Ԃ!" !}!}! }!P}!" !@}!0}!H}!D}!" !"}!}!&}!W}!" !G}!_}!t}!<}!" !x}!`}!@}!P}!" ! }!}!})ͽ!9!9[Ԃ!" !}!}!}!}!" !}!?}!}!e}!" !"}!@}!}!%}!" !}!}!}!}!" !}!}!}b*ͽ!9!9[Ԃ!" !}!}!}!}!" ! }!P}!@}!}!" !6}!}!@}!P}!" ! }!}!}!}!" !}!}!}+ͽ!9!9[Ԃ!" !?}!}!}!}!" !}!b}!1}!q}!" !}!}!}!}!" !}!}!}Ä+ͽ!9!9[Ԃ!" !`}!p}!<}!t}!" !_}!G}!F}!#}!" !@}!@}!8}!,}!" !~}!}!},ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}m,ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!},ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!~}!<}!" !}!}!}V-ͽ!9!9[Ԃ!" !@}!`}!p}!x}!" !|}!n}!g}!c}!" !a}!`}!p}!p}!" !}!}!}-ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!~}!<}!" !}!}!}^.ͽ!9!9[Ԃ!" !}!<}!|}!p}!" !`}!`}!`}!`}!" !q}!}!?}!}!" !}!}!}.ͽ!9!9[Ԃ!" !}!}!}!?}!" !}!}!}!}!" !}!}!}!}!" !}!}!}f/ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!}!}!" !}!}!}/ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!}!}!" !}!}!}n0ͽ!9!9[Ԃ!" !}!<}!|}!p}!" !`}!`}!`}!`}!" !q}!}!?}!}!" !}!}!}0ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!}! }!" !}!}!}v1ͽ!9!9[Ԃ!" !}!?}!}!q}!" !`}!`}!`}!`}!" !q}!}!?}!}!" !}!}!}1ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!?}!}!" !}!}!}~2ͽ!9!9[Ԃ!" !}!}!x}!|}!" !~}!}!}!}!" !}!}!}!}!" !}!}!}3ͽ!9!9[Ԃ!" !<}!~}!}!}!" !}!}!}!}!" !}!}!~}!<}!" !}!}!}Æ3ͽ!9!9[Ԃ!" !}!?}!}!q}!" !`}!`}!`}!`}!" !q}!}!?}!}!" !}!}!} 4ͽ!9!9[Ԃ!" !|}!}!}!}!" !}!}!}!}!" !}!}!}!}!" !}!}!}Î4ͽ!9!9[Ԃ!" !}!8}!y}!q}!" !a}!a}!a}!a}!" !p}!}!?}!}!" !}!}!}5ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!C}!#}!" !}!}!}!}!" !}!}!}Ö5ͽ!9!9[Ԃ!" !}!?}!}!r}!" !a}!`}!`}!`}!" !p}!}!?}!}!" !}!}!}6ͽ!9!9[Ԃ!" !}!}!}!p}!" !p}!p}!}!}o6ͽ!9!9[Ԃ!" !}!}!}!}!" !}!8}!}!}6ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!}!}!" !}!}!}H7ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!@}!}!" !}!}!}!}7ͽ!9!9[Ԃ!" !}!}!}!}!" !}!}!}!}!" !}!}!}!}!" !}!}!}!}Z8ͽ!9!9[Ԃ!" !}!}!}!y}!" !}!}!}!}!" !}!}!}!}!" !}!}!}!}!" !}!}!}!}8ͽ!9!9[Ԃ!" !}!}!@}!@}!A}!" !C}!G}!N}!L}!\}!" !\}!^}!\}!H}!@}!" !}!}!}!}!}Ú9ͽ!9!9[Ԃ!" !8}!<}!>}!}!}!" !}!}!}!}!}!" !}!}!}!}!}!" !}!}!}!}!>}!" !<}!8}!}!}!}V:ͽ!9!9[Ԃ!" !}!}!}!}!}!" !}!p}!g}!o}!o}!" !o}!o}!o}!o}!g}!" !p}!}!}!}!}!" !}!}!}!}!};ͽ!9!9[Ԃ!" !}!S}A;0008!=;_R;ͽ!9!9[Ԃ!" !}!S}Á;0010!};_Ò;ͽ!9!9[Ԃ!" !}!S};0011!;_;ͽ!9!9[Ԃ!" !}!S}<0012!;_<ͽ!9!9[Ԃ!" !}!S}A<0013!=<_R<ͽ!9!9[Ԃ!" !}!S}Á<0014!}<_Ò<ͽ!9!9[Ԃ!" !}!S}<0015!<_<ͽ!9!9[Ԃ!" !}!S}=0016!<_=ͽ!9!9[Ԃ!" !}!S}A=0017!==_R=ͽ!9!9[Ԃ!" !}!S}Á=0018!}=_Ò=ͽ!9!9[Ԃ!" !}!S}=0019!=_=ͽ!9!9[Ԃ!" !}!S}>0020!=_>ͽ!9!9[Ԃ!" !}!S}A>0021!=>_R>ͽ!9!9[Ԃ!" !}!S}Á>0023!}>_Ò>ͽ!9!9[Ԃ!" !}!S}>0025!>_>ͽ!9!9[Ԃ!H!ͮ>2!" !}!T}?16! ?_!" !}!>}!" !}*}ͽ!H~G!H>!Hd?!" G*H~>!G>ʃ?!" *H~G*H~A¡?ͅ>ͅ Ga»?ͅ>͚ͅGB?ͅ=ͅBGb?ͅ=ͅGC @ͅR<ͅ^Gc#@ͅR<ͅGD=@ͅ<ͅ\GdW@ͅ<ͅGEq@ͅ<ͅxGe‹@ͅ<ͅGF¥@ͅ<͊ͅGf¿@ͅ<ͅGG@ͅR=͜ͅGg@ͅR=ͅ/GH A͒ͅ=ͅGh'A͒ͅ=ͅ`GIAA͒ͅ;ͅGi[A͒ͅ;ͅhGJuAͅ<ͅGjAͅ<ͅ[GK©A͒ͅ=ͅGkA͒ͅ=͂ͅGLAͅ<ͅ GlAͅ<ͩͅGMBͅR>ͅ2Gm+BͅR>ͅGNEB͒ͅ=͢ͅGn_B͒ͅ=ͅ@GOyBͅ<ͅGo“Bͅ<ͅgGP­Bͅ=ͅGpBͅ=ͅ~GQBͅ=ͅ GqBͅ=͚ͅ GRCͅR=ͅ(!Gr/CͅR=ͅ!GSICͅ<ͅZ"GscCͅ<ͅ"GT}C͒ͅ<ͅN#Gt—C͒ͅ<ͅ#GU±CͅR=ͅV$GuCͅR=ͅ$GVC͒ͅ=͈ͅ%GvC͒ͅ=ͅ&&GWD͒ͅ>ͅ&Gw3D͒ͅ>͌ͅ'GXMDͅR>ͅT(GxgDͅR>ͅ )GYD͒ͅ=ͅ)Gy›D͒ͅ=ͅb*GZµD͒ͅ<ͅ+GzD͒ͅ<̈́ͅ+G!DͅR;ͅ,G1EͅR;ͅm,G"E͒ͅ<ͅ,G27E͒ͅ<ͅV-G@QE͒ͅ<ͅ-G3kE͒ͅ<ͅ^.G$…E͒ͅ<ͅ.G4ŸE͒ͅ<ͅf/G%¹E͒ͅ<ͅ/G5E͒ͅ<ͅn0G&E͒ͅ<ͅ0G6F͒ͅ<ͅv1G/!F͒ͅ<ͅ1G7;F͒ͅ<ͅ~2G(UF͒ͅ<ͅ3G8oF͒ͅ<͆ͅ3G)‰F͒ͅ<ͅ 4G9£F͒ͅ<͎ͅ4G=½F͒ͅ<ͅ5G0F͒ͅ<͖ͅ5G[Fͅ=ͅZ8G{ Gͅ=ͅ8G\%G͒ͅ>͚ͅ9G|?G͒ͅ>ͅV:G.YGͅ;ͅ6G,sGͅ;ͅo6G?G͒ͅ<ͅ,G~§G͒ͅ<ͅ6G_Gͅ<ͅH7G-Gͅ<ͅ77?"!H!" !}!" !" 4H --------------------------------------!" ! H*_!" xH COPYRIGHT (C) HEWICKER, BURKHARDT 1984!" !NH*_!" üH --------------------------------------!" !H*_!" !" I The program SCRIPT.COM prints files !" !H)_!" JI written in WordStar N-mode in a two-!" !"I(_!" ÉI lined SCRIPT on the C.ITOH 8510 A!" !dI%_!" !" I --------------------------------------!" !I*_!"  J You can optionally print:!" !I_!" OJ E (Elite), P (Pica), C (Condensed): !" !'J(_!)" !)" 2:EJ!E"ãJPJ!N"ãJCJ!Q"ãJ!E"!" J --------------------------------------!" !J*_!" K EINGABE DES FILENAMENS !" !J_!" GK 2 SPACES VORWEG .........!" !*K_!" ÃK DANN 8-STELLIGER FILENAME.EXT:!" !aK"_!" K --------------------------------------!" !K*_!" L INPUT FILENAME.EXT - BUT :!" !K_!" 9L 2 SPACES AHEAD ............!" !L_!" rL IF NO DRIVE SPECIFICATION :!" !SL_!)" !)" !͇>(0),CHR(0));END;{ 15 } PROCEDURE KZ7;BEGIN WRITE(CHR(0),CHR(0),CHR(120),CHR(124)); WRITE( PROGRAM Graphik;{Fuer Block-Graphik mit ITOH 8510A} {Eberhard Hewicker, Koblenz, 1983 } {ITOH VERSION Rudolf Burkhardt } VAR A :CHAR; D,B,C:INTEGER; Name :ARRAY[1..14] OF CHAR; Data :FILE OF CHAR; PROCEDURE GA;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(130),CHR(69),CHR(177),CHR(13)); WRITE(CHR(3),CHR(14),CHR(183),CHR(127)); WRITE(CHR(49),CHR(65),CHR(133),CHR(2),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END;{ 21 } PROCEDURE KA;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(56)); WRITE(CHR(70),CHR(81),CHR(34),CHR(2)); WRITE(CHR(4),CHR(2),CHR(34),CHR(81)); WRITE(CHR(70),CHR(127),CHR(54),CHR(120),CHR(64)); WRITE(CHR(80),CHR(32),CHR(0),CHR(0));END; PROCEDURE GB;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(65)); WRITE(CHR(130),CHR(129),CHR(73),CHR(119)); WRITE(CHR(34),CHR(54),CHR(12),CHR(0),CHR(0));END;{ 17 } PROCEDURE KB;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(65)); WRITE(CHR(32),CHR(64),CHR(73),CHR(119)); WRITE(CHR(35),CHR(54),CHR(24),CHR(0),CHR(0));END; PROCEDURE GC;BEGIN WRITE(CHR(128),CHR(124),CHR(54),CHR(127)); WRITE(CHR(135),CHR(1),CHR(1),CHR(2)); WRITE(CHR(1),CHR(14),CHR(10),CHR(63)); WRITE(CHR(0),CHR(0));END;{ 14 } PROCEDURE KC;BEGIN WRITE(CHR(0),CHR(31),CHR(54),CHR(127)); WRITE(CHR(96),CHR(64),CHR(64),CHR(32)); WRITE(CHR(64),CHR(64),CHR(48),CHR(12)); WRITE(CHR(0),CHR(0));END; PROCEDURE GD;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(1)); WRITE(CHR(2),CHR(1),CHR(129),CHR(127)); WRITE(CHR(54),CHR(124),CHR(128),CHR(0),CHR(0));END;{ 17 } PROCEDURE KD;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(64)); WRITE(CHR(32),CHR(64),CHR(64),CHR(127)); WRITE(CHR(54),CHR(31),CHR(0),CHR(0),CHR(0));END; PROCEDURE GE;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(65)); WRITE(CHR(34),CHR(113),CHR(129),CHR(14)); WRITE(CHR(10),CHR(63),CHR(0),CHR(0));END;{ 16 } PROCEDURE KE;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(65)); WRITE(CHR(34),CHR(71),CHR(64),CHR(56)); WRITE(CHR(40),CHR(124),CHR(0),CHR(0));END; PROCEDURE GF;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(65)); WRITE(CHR(34),CHR(113),CHR(129),CHR(14)); WRITE(CHR(10),CHR(63),CHR(0),CHR(0));END;{ 16 } PROCEDURE KF;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(81)); WRITE(CHR(34),CHR(7),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE GG;BEGIN WRITE(CHR(128),CHR(124),CHR(54),CHR(127)); WRITE(CHR(135),CHR(1),CHR(1),CHR(2)); WRITE(CHR(129),CHR(142),CHR(10),CHR(63)); WRITE(CHR(0),CHR(128),CHR(128),CHR(0),CHR(0),CHR(0));END;{ 18 } PROCEDURE KG;BEGIN WRITE(CHR(0),CHR(31),CHR(54),CHR(127)); WRITE(CHR(96),CHR(64),CHR(64),CHR(33)); WRITE(CHR(66),CHR(72),CHR(119),CHR(34)); WRITE(CHR(119),CHR(8),CHR(2),CHR(1),CHR(0),CHR(0));END; PROCEDURE GH;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(133)); WRITE(CHR(66),CHR(133),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(5)); WRITE(CHR(2),CHR(0),CHR(0));END;{ 19 } PROCEDURE KH;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(80)); WRITE(CHR(33),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(80),CHR(32)); WRITE(CHR(0),CHR(0));END; PROCEDURE GI;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(5)); WRITE(CHR(2),CHR(0),CHR(0));END;{ 11 } PROCEDURE KI;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(80)); WRITE(CHR(32),CHR(0),CHR(0));END; PROCEDURE GJ;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(2),CHR(5),CHR(129)); WRITE(CHR(127),CHR(54),CHR(127),CHR(129)); WRITE(CHR(5),CHR(2),CHR(0),CHR(0));END;{ 16 } PROCEDURE KJ;BEGIN WRITE(CHR(4),CHR(28),CHR(50),CHR(92)); WRITE(CHR(68),CHR(32),CHR(64),CHR(64)); WRITE(CHR(127),CHR(54),CHR(31),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE GK;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(69)); WRITE(CHR(162),CHR(160),CHR(18),CHR(9)); WRITE(CHR(5),CHR(2),CHR(1),CHR(5),CHR(2)); WRITE(CHR(0),CHR(0));END;{ 19 } PROCEDURE KK;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(65)); WRITE(CHR(7),CHR(11),CHR(81),CHR(90)); WRITE(CHR(108),CHR(48),CHR(80),CHR(64),CHR(64)); WRITE(CHR(0),CHR(0));END; PROCEDURE GL;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(5)); WRITE(CHR(2),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END;{ 16 } PROCEDURE KL;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(64)); WRITE(CHR(32),CHR(68),CHR(92),CHR(50)); WRITE(CHR(28),CHR(4),CHR(0),CHR(0));END; PROCEDURE GM;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(126)); WRITE(CHR(131),CHR(142),CHR(127),CHR(61)); WRITE(CHR(97),CHR(130),CHR(0),CHR(130)); WRITE(CHR(117),CHR(141),CHR(131),CHR(127),CHR(54)); WRITE(CHR(127),CHR(129),CHR(5),CHR(2)); WRITE(CHR(0),CHR(0));END;{ 23 } PROCEDURE KM;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(63)); WRITE(CHR(64),CHR(64),CHR(3),CHR(30)); WRITE(CHR(119),CHR(62),CHR(96),CHR(24)); WRITE(CHR(39),CHR(80),CHR(64),CHR(127),CHR(54)); WRITE(CHR(127),CHR(64),CHR(80),CHR(32)); WRITE(CHR(0),CHR(0));END; PROCEDURE GN;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(126)); WRITE(CHR(131),CHR(14),CHR(183),CHR(124)); WRITE(CHR(48),CHR(64),CHR(130),CHR(5)); WRITE(CHR(129),CHR(126),CHR(129),CHR(5),CHR(2)); WRITE(CHR(0),CHR(0));END;{ 19 } PROCEDURE KN;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(63)); WRITE(CHR(64),CHR(80),CHR(32),CHR(1)); WRITE(CHR(6),CHR(31),CHR(118),CHR(61)); WRITE(CHR(96),CHR(127),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0));END; PROCEDURE GO;BEGIN WRITE(CHR(128),CHR(120),CHR(54),CHR(126)); WRITE(CHR(135),CHR(1),CHR(2),CHR(2)); WRITE(CHR(1),CHR(135),CHR(126),CHR(54)); WRITE(CHR(120),CHR(128),CHR(0),CHR(0));END;{ 16 } PROCEDURE KO;BEGIN WRITE(CHR(0),CHR(15),CHR(54),CHR(63)); WRITE(CHR(112),CHR(64),CHR(32),CHR(32)); WRITE(CHR(64),CHR(112),CHR(63),CHR(54)); WRITE(CHR(15),CHR(0),CHR(0),CHR(0));END; PROCEDURE GP;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(65)); WRITE(CHR(130),CHR(129),CHR(211),CHR(239)); WRITE(CHR(198),CHR(108),CHR(16),CHR(0),CHR(0));END;{ 17 } PROCEDURE KP;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(81)); WRITE(CHR(32),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE GQ;BEGIN WRITE(CHR(128),CHR(120),CHR(54),CHR(126)); WRITE(CHR(135),CHR(1),CHR(2),CHR(2)); WRITE(CHR(1),CHR(135),CHR(126),CHR(54)); WRITE(CHR(120),CHR(128),CHR(0),CHR(0),CHR(0));END;{ 17 } PROCEDURE KQ;BEGIN WRITE(CHR(0),CHR(15),CHR(54),CHR(63)); WRITE(CHR(112),CHR(64),CHR(32),CHR(40)); WRITE(CHR(72),CHR(112),CHR(63),CHR(54)); WRITE(CHR(79),CHR(96),CHR(96),CHR(0),CHR(0));END; PROCEDURE GR;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(65)); WRITE(CHR(130),CHR(129),CHR(73),CHR(119)); WRITE(CHR(98),CHR(54),CHR(8),CHR(0),CHR(0)); WRITE(CHR(0));END;{ 18 } PROCEDURE KR;BEGIN WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(81)); WRITE(CHR(32),CHR(0),CHR(9),CHR(55)); WRITE(CHR(99),CHR(116),CHR(72),CHR(64),CHR(0)); WRITE(CHR(0));END; PROCEDURE GS;BEGIN WRITE(CHR(30),CHR(55),CHR(62),CHR(241)); WRITE(CHR(98),CHR(34),CHR(65),CHR(129)); WRITE(CHR(14),CHR(10),CHR(63),CHR(0)); WRITE(CHR(0));END;{ 13 } PROCEDURE KS;BEGIN WRITE(CHR(126),CHR(40),CHR(56),CHR(64)); WRITE(CHR(65),CHR(34),CHR(67),CHR(71)); WRITE(CHR(62),CHR(118),CHR(60),CHR(0)); WRITE(CHR(0));END; PROCEDURE GT;BEGIN WRITE(CHR(63),CHR(26),CHR(14),CHR(1)); WRITE(CHR(129),CHR(127),CHR(54),CHR(127)); WRITE(CHR(129),CHR(1),CHR(14),CHR(26)); WRITE(CHR(63),CHR(0),CHR(0));END;{ 15 } PROCEDURE KT;BEGIN WRITE(CHR(0),CHR(0),CHR(32),CHR(80)); WRITE(CHR(64),CHR(127),CHR(54),CHR(127)); WRITE(CHR(64),CHR(80),CHR(32),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GU;BEGIN WRITE(CHR(2),CHR(5),CHR(129),CHR(127)); WRITE(CHR(54),CHR(127),CHR(129),CHR(5)); WRITE(CHR(2),CHR(2),CHR(5),CHR(129)); WRITE(CHR(126),CHR(129),CHR(5),CHR(2)); WRITE(CHR(0),CHR(0));END;{ 18 } PROCEDURE KU;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(63)); WRITE(CHR(54),CHR(127),CHR(64),CHR(64)); WRITE(CHR(32),CHR(64),CHR(64),CHR(32)); WRITE(CHR(31),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0));END; PROCEDURE GV;BEGIN WRITE(CHR(2),CHR(5),CHR(1),CHR(15)); WRITE(CHR(182),CHR(127),CHR(49),CHR(101)); WRITE(CHR(130),CHR(0),CHR(130),CHR(69)); WRITE(CHR(177),CHR(14),CHR(1),CHR(5)); WRITE(CHR(2),CHR(0),CHR(0));END;{ 19 } PROCEDURE KV;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(1),CHR(30),CHR(119)); WRITE(CHR(126),CHR(24),CHR(6),CHR(1)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GW;BEGIN WRITE(CHR(2),CHR(5),CHR(1),CHR(143)); WRITE(CHR(118),CHR(63),CHR(113),CHR(129)); WRITE(CHR(5),CHR(2),CHR(128),CHR(121)); WRITE(CHR(55),CHR(121),CHR(128),CHR(2)); WRITE(CHR(133),CHR(65),CHR(177),CHR(14)); WRITE(CHR(1),CHR(5),CHR(2),CHR(0)); WRITE(CHR(0));END;{ 25 } PROCEDURE KW;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(1),CHR(30),CHR(119),CHR(126)); WRITE(CHR(24),CHR(4),CHR(3),CHR(1)); WRITE(CHR(30),CHR(119),CHR(126),CHR(24)); WRITE(CHR(6),CHR(1),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0));END; PROCEDURE GX;BEGIN WRITE(CHR(2),CHR(5),CHR(1),CHR(3)); WRITE(CHR(14),CHR(31),CHR(23),CHR(125)); WRITE(CHR(242),CHR(114),CHR(32),CHR(64)); WRITE(CHR(162),CHR(17),CHR(9),CHR(6)); WRITE(CHR(9),CHR(5),CHR(2),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 23 } PROCEDURE KX;BEGIN WRITE(CHR(0),CHR(0),CHR(32),CHR(80)); WRITE(CHR(64),CHR(48),CHR(72),CHR(68)); WRITE(CHR(34),CHR(1),CHR(38),CHR(87)); WRITE(CHR(71),CHR(95),CHR(116),CHR(60)); WRITE(CHR(120),CHR(96),CHR(64),CHR(80)); WRITE(CHR(32),CHR(0),CHR(0));END; PROCEDURE GY;BEGIN WRITE(CHR(2),CHR(5),CHR(1),CHR(15)); WRITE(CHR(22),CHR(63),CHR(241),CHR(101)); WRITE(CHR(34),CHR(64),CHR(194),CHR(37)); WRITE(CHR(17),CHR(14),CHR(1),CHR(5)); WRITE(CHR(2),CHR(0),CHR(0));END;{ 19 } PROCEDURE KY;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(32),CHR(80),CHR(64),CHR(127)); WRITE(CHR(54),CHR(127),CHR(64),CHR(80)); WRITE(CHR(32),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ;BEGIN WRITE(CHR(63),CHR(26),CHR(14),CHR(1)); WRITE(CHR(129),CHR(98),CHR(49),CHR(113)); WRITE(CHR(253),CHR(23),CHR(30),CHR(3)); WRITE(CHR(1),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ;BEGIN WRITE(CHR(96),CHR(112),CHR(60),CHR(116)); WRITE(CHR(95),CHR(71),CHR(70),CHR(35)); WRITE(CHR(64),CHR(64),CHR(56),CHR(44)); WRITE(CHR(126),CHR(0),CHR(0));END; PROCEDURE GZ1;BEGIN WRITE(CHR(16),CHR(24),CHR(28),CHR(14)); WRITE(CHR(255),CHR(255),CHR(255),CHR(0)); WRITE(CHR(0),CHR(0));END;{ 10 } PROCEDURE KZ1;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(127),CHR(127),CHR(127),CHR(0)); WRITE(CHR(0),CHR(0));END; PROCEDURE GZ2;BEGIN WRITE(CHR(28),CHR(30),CHR(31),CHR(7)); WRITE(CHR(3),CHR(3),CHR(3),CHR(131)); WRITE(CHR(199),CHR(255),CHR(126),CHR(60)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ2;BEGIN WRITE(CHR(64),CHR(96),CHR(112),CHR(120)); WRITE(CHR(124),CHR(110),CHR(103),CHR(99)); WRITE(CHR(97),CHR(96),CHR(112),CHR(112)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ3;BEGIN WRITE(CHR(28),CHR(30),CHR(31),CHR(7)); WRITE(CHR(3),CHR(195),CHR(195),CHR(195)); WRITE(CHR(231),CHR(255),CHR(126),CHR(60)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ3;BEGIN WRITE(CHR(28),CHR(60),CHR(124),CHR(112)); WRITE(CHR(96),CHR(96),CHR(96),CHR(96)); WRITE(CHR(113),CHR(127),CHR(63),CHR(30)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ4;BEGIN WRITE(CHR(192),CHR(240),CHR(252),CHR(63)); WRITE(CHR(15),CHR(3),CHR(0),CHR(255)); WRITE(CHR(255),CHR(255),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ4;BEGIN WRITE(CHR(3),CHR(3),CHR(3),CHR(3)); WRITE(CHR(3),CHR(3),CHR(3),CHR(127)); WRITE(CHR(127),CHR(127),CHR(3),CHR(3)); WRITE(CHR(3),CHR(0),CHR(0));END; PROCEDURE GZ5;BEGIN WRITE(CHR(255),CHR(255),CHR(255),CHR(195)); WRITE(CHR(195),CHR(195),CHR(195),CHR(195)); WRITE(CHR(195),CHR(195),CHR(135),CHR(7)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ5;BEGIN WRITE(CHR(28),CHR(60),CHR(124),CHR(112)); WRITE(CHR(96),CHR(96),CHR(96),CHR(96)); WRITE(CHR(113),CHR(127),CHR(63),CHR(31)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ6;BEGIN WRITE(CHR(252),CHR(254),CHR(255),CHR(135)); WRITE(CHR(195),CHR(195),CHR(195),CHR(195)); WRITE(CHR(199),CHR(207),CHR(142),CHR(12)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ6;BEGIN WRITE(CHR(31),CHR(63),CHR(127),CHR(113)); WRITE(CHR(96),CHR(96),CHR(96),CHR(96)); WRITE(CHR(113),CHR(127),CHR(63),CHR(31)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ7;BEGIN WRITE(CHR(15),CHR(15),CHR(3),CHR(3)); WRITE(CHR(3),CHR(3),CHR(131),CHR(195)); WRITE(CHR(227),CHR(127),CHR(63),CHR(31)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ7;BEGIN WRITE(CHR(0),CHR(0),CHR(120),CHR(124)); WRITE(CHR(126),CHR(7),CHR(3),CHR(1)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ8;BEGIN WRITE(CHR(60),CHR(126),CHR(255),CHR(231)); WRITE(CHR(195),CHR(195),CHR(195),CHR(195)); WRITE(CHR(231),CHR(255),CHR(126),CHR(60)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ8;BEGIN WRITE(CHR(30),CHR(63),CHR(127),CHR(113)); WRITE(CHR(96),CHR(96),CHR(96),CHR(96)); WRITE(CHR(113),CHR(127),CHR(63),CHR(30)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ9;BEGIN WRITE(CHR(124),CHR(254),CHR(255),CHR(199)); WRITE(CHR(131),CHR(131),CHR(131),CHR(131)); WRITE(CHR(199),CHR(255),CHR(254),CHR(252)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ9;BEGIN WRITE(CHR(24),CHR(56),CHR(121),CHR(113)); WRITE(CHR(97),CHR(97),CHR(97),CHR(97)); WRITE(CHR(112),CHR(127),CHR(63),CHR(31)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE GZ0;BEGIN WRITE(CHR(252),CHR(254),CHR(255),CHR(7)); WRITE(CHR(3),CHR(131),CHR(67),CHR(35)); WRITE(CHR(23),CHR(255),CHR(254),CHR(252)); WRITE(CHR(0),CHR(0),CHR(0));END;{ 15 } PROCEDURE KZ0;BEGIN WRITE(CHR(31),CHR(63),CHR(127),CHR(114)); WRITE(CHR(97),CHR(96),CHR(96),CHR(96)); WRITE(CHR(112),CHR(127),CHR(63),CHR(31)); WRITE(CHR(0),CHR(0),CHR(0));END; PROCEDURE KZP;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(112)); WRITE(CHR(112),CHR(112),CHR(0),CHR(0));END;{ 8 } PROCEDURE KZK;BEGIN WRITE(CHR(0),CHR(0),CHR(192),CHR(248)); WRITE(CHR(248),CHR(56),CHR(0),CHR(0));END;{ 8 } PROCEDURE KZF;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(238),CHR(239),CHR(239)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0));END;{ GZF WIE GZ2 } PROCEDURE GZT;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(128),CHR(192),CHR(192),CHR(192)); WRITE(CHR(192),CHR(192),CHR(64),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END;{ 16 } PROCEDURE KZT;BEGIN WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE GTEL;BEGIN WRITE(CHR(0),CHR(255),CHR(1),CHR(121)); WRITE(CHR(253),CHR(249),CHR(17),CHR(1)); WRITE(CHR(1),CHR(1),CHR(1),CHR(1)); WRITE(CHR(1),CHR(1),CHR(1),CHR(255)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0));END;{ 20 } PROCEDURE KTEL;BEGIN WRITE(CHR(0),CHR(127),CHR(64),CHR(64),CHR(65)); WRITE(CHR(67),CHR(71),CHR(78),CHR(76),CHR(92)); WRITE(CHR(92),CHR(94),CHR(92),CHR(72),CHR(64)); WRITE(CHR(127),CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE GTEL2;BEGIN WRITE(CHR(56),CHR(60),CHR(62),CHR(158),CHR(223)); WRITE(CHR(219),CHR(3),CHR(195),CHR(227),CHR(227)); WRITE(CHR(227),CHR(227),CHR(227),CHR(227),CHR(195)); WRITE(CHR(3),CHR(219),CHR(223),CHR(158),CHR(62)); WRITE(CHR(60),CHR(56),CHR(0),CHR(0),CHR(0));END;{ 25 } PROCEDURE KTEL2;BEGIN WRITE(CHR(0),CHR(0),CHR(127),CHR(127),CHR(127)); WRITE(CHR(127),CHR(112),CHR(103),CHR(111),CHR(111)); WRITE(CHR(111),CHR(111),CHR(111),CHR(111),CHR(103)); WRITE(CHR(112),CHR(127),CHR(127),CHR(127),CHR(127)); WRITE(CHR(0),CHR(0),CHR(0),CHR(0),CHR(0));END; PROCEDURE GRAFIK8;BEGIN { SENDS AN 8-COLUMN GRAFICS WORD TO ITOH } WRITE(CHR(27),CHR(83),'0008');END; PROCEDURE GRAFIK10;BEGIN WRITE(CHR(27),CHR(83),'0010');END; PROCEDURE GRAFIK11;BEGIN WRITE(CHR(27),CHR(83),'0011');END; PROCEDURE GRAFIK12;BEGIN WRITE(CHR(27),CHR(83),'0012');END; PROCEDURE GRAFIK13;BEGIN WRITE(CHR(27),CHR(83),'0013');END; PROCEDURE GRAFIK14;BEGIN WRITE(CHR(27),CHR(83),'0014');END; PROCEDURE GRAFIK15;BEGIN WRITE(CHR(27),CHR(83),'0015');END; PROCEDURE GRAFIK16;BEGIN WRITE(CHR(27),CHR(83),'0016');END; PROCEDURE GRAFIK17;BEGIN WRITE(CHR(27),CHR(83),'0017');END; PROCEDURE GRAFIK18;BEGIN WRITE(CHR(27),CHR(83),'0018');END; PROCEDURE GRAFIK19;BEGIN WRITE(CHR(27),CHR(83),'0019');END; PROCEDURE GRAFIK20;BEGIN WRITE(CHR(27),CHR(83),'0020');END; PROCEDURE GRAFIK21;BEGIN WRITE(CHR(27),CHR(83),'0021');END; PROCEDURE GRAFIK23;BEGIN WRITE(CHR(27),CHR(83),'0023');END; PROCEDURE GRAFIK25;BEGIN WRITE(CHR(27),CHR(83),'0025');END; PROCEDURE Ausgabe; BEGIN RESET(Data, Name);PRON; { SETS PRINTER ON } WRITE(CHR(27),CHR(84),'16'); { DISTANCE BETWEEN LINES } WRITE(CHR(27),CHR(62)); { UNIDIRECTIONAL PRINTING } WRITE(CHR(27),CHR(B)); { ELITE LETTER PRINTING MODE } WHILE NOT EOF(Data) DO BEGIN GET(Data); IF EOLN(Data) THEN WRITELN ELSE BEGIN; IF (Data^<'!') THEN WRITE(Data^) ELSE BEGIN CASE Data^ OF { FUNCTION KEYS } 'A':BEGIN GRAFIK21;GA END; 'a':BEGIN GRAFIK21;KA END; 'B':BEGIN GRAFIK17;GB END; 'b':BEGIN GRAFIK17;KB END; 'C':BEGIN GRAFIK14;GC END; 'c':BEGIN GRAFIK14;KC END; 'D':BEGIN GRAFIK16;GD END; 'd':BEGIN GRAFIK16;KD END; 'E':BEGIN GRAFIK16;GE END; 'e':BEGIN GRAFIK16;KE END; 'F':BEGIN GRAFIK16;GF END; 'f':BEGIN GRAFIK16;KF END; 'G':BEGIN GRAFIK18;GG END; 'g':BEGIN GRAFIK18;KG END; 'H':BEGIN GRAFIK19;GH END; 'h':BEGIN GRAFIK19;KH END; 'I':BEGIN GRAFIK11;GI END; 'i':BEGIN GRAFIK11;KI END; 'J':BEGIN GRAFIK16;GJ END; 'j':BEGIN GRAFIK16;KJ END; 'K':BEGIN GRAFIK19;GK END; 'k':BEGIN GRAFIK19;KK END; 'L':BEGIN GRAFIK16;GL END; 'l':BEGIN GRAFIK16;KL END; 'M':BEGIN GRAFIK23;GM END; 'm':BEGIN GRAFIK23;KM END; 'N':BEGIN GRAFIK19;GN END; 'n':BEGIN GRAFIK19;KN END; 'O':BEGIN GRAFIK16;GO END; 'o':BEGIN GRAFIK16;KO END; 'P':BEGIN GRAFIK17;GP END; 'p':BEGIN GRAFIK17;KP END; 'Q':BEGIN GRAFIK17;GQ END; 'q':BEGIN GRAFIK17;KQ END; 'R':BEGIN GRAFIK18;GR END; 'r':BEGIN GRAFIK18;KR END; 'S':BEGIN GRAFIK13;GS END; 's':BEGIN GRAFIK13;KS END; 'T':BEGIN GRAFIK15;GT END; 't':BEGIN GRAFIK15;KT END; 'U':BEGIN GRAFIK18;GU END; 'u':BEGIN GRAFIK18;KU END; 'V':BEGIN GRAFIK19;GV END; 'v':BEGIN GRAFIK19;KV END; 'W':BEGIN GRAFIK25;GW END; 'w':BEGIN GRAFIK25;KW END; 'X':BEGIN GRAFIK23;GX END; 'x':BEGIN GRAFIK23;KX END; 'Y':BEGIN GRAFIK19;GY END; 'y':BEGIN GRAFIK19;KY END; 'Z':BEGIN GRAFIK15;GZ END; 'z':BEGIN GRAFIK15;KZ END; '!':BEGIN GRAFIK10;GZ1 END; '1':BEGIN GRAFIK10;KZ1 END; '"':BEGIN GRAFIK15;GZ2 END; '2':BEGIN GRAFIK15;KZ2 END; '@':BEGIN GRAFIK15;GZ3 END; '3':BEGIN GRAFIK15;KZ3 END; '$':BEGIN GRAFIK15;GZ4 END; '4':BEGIN GRAFIK15;KZ4 END; '%':BEGIN GRAFIK15;GZ5 END; '5':BEGIN GRAFIK15;KZ5 END; '&':BEGIN GRAFIK15;GZ6 END; '6':BEGIN GRAFIK15;KZ6 END; '/':BEGIN GRAFIK15;GZ7 END; '7':BEGIN GRAFIK15;KZ7 END; '(':BEGIN GRAFIK15;GZ8 END; '8':BEGIN GRAFIK15;KZ8 END; ')':BEGIN GRAFIK15;GZ9 END; '9':BEGIN GRAFIK15;KZ9 END; '=':BEGIN GRAFIK15;GZ0 END; '0':BEGIN GRAFIK15;KZ0 END; '[':BEGIN GRAFIK20;GTEL END; '{':BEGIN GRAFIK20;KTEL END;{ PHONE } '\':BEGIN GRAFIK25;GTEL2 END; '|':BEGIN GRAFIK25;KTEL2 END; { -"- } '.':BEGIN GRAFIK8;KZP END; ',':BEGIN GRAFIK8;KZK END; '?':BEGIN GRAFIK15;GZ2 END; '~':BEGIN GRAFIK15;KZF END; '_':BEGIN GRAFIK16;GZT END; '-':BEGIN GRAFIK16;KZT END END END END END END; BEGIN WRITE(CHR(26)); WRITELN; WRITELN;WRITE(' --------------------------------------'); WRITELN;WRITE(' COPYRIGHT (C) HEWICKER, BURKHARDT 1984'); WRITELN;WRITE(' --------------------------------------'); WRITELN; WRITELN;WRITE(' The program SCRIPT.COM prints files '); WRITELN;WRITE(' written in WordStar N-mode in a two-'); WRITELN;WRITE(' lined SCRIPT on the C.ITOH 8510 A'); WRITELN; WRITELN;WRITE(' --------------------------------------'); WRITELN;WRITE(' You can optionally print:'); WRITELN;WRITE(' E (Elite), P (Pica), C (Condensed): '); READLN; READ(A); CASE A OF 'E':B:=69;'P':B:=78;'C':B:=81 ELSE B:=69; WRITELN;WRITE(' --------------------------------------'); WRITELN;WRITE(' EINGABE DES FILENAMENS '); WRITELN;WRITE(' 2 SPACES VORWEG .........'); WRITELN;WRITE(' DANN 8-STELLIGER FILENAME.EXT:'); WRITELN;WRITE(' --------------------------------------'); WRITELN;WRITE(' INPUT FILENAME.EXT - BUT :'); WRITELN;WRITE(' 2 SPACES AHEAD ............'); WRITELN;WRITE(' IF NO DRIVE SPECIFICATION :'); READLN; READ(Name); Ausgabe; END. Star N-mode in a two-'); WRITELN;WRITE(' lined SCRIPT on the C.ITOH 8510 A'); WRITELN; WRITELN;WRITE(' --------------------------------------'); WRITELN;WRITE(' You can optionally print:'); WRITELN;WRITE(' E (Elite), P (Pica), C (Condensed): '); READLN; READ(A); CASE A OF 'E':B:=69;'P':B:=78;'C':B:=81 ELSE B:=69; WRITELN;WRIT THIS IS A SAMPLE OF this is a sample of THE WESTERN SCRIPT the western script. ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz !"@$%&/()= [ \ ? _ 1234567890 { | ~ ., - MEDIUM COM:89:;<=>?MEDIUM PAS0@ABCDEMODIFINECOM;FGHIJKLMMODIFINEPAS.NOPQRSSCRIPT COMTUVWXYZ[\]^_`abcSCRIPT COMdefSCRIPT PASghijklmnopqrstuvSCRIPT PAS5wxyz{|}SCRIPT--$$$ This is the release date of the disk. GRAPHICSDOC HEADING-WSN BLOCK COM BLOCK PAS BLOCK---WSN DOUBLE COM DOUBLE PAS !FINE COM 'FINE PAS /LIST COM 5 MEDIUM COM 8MEDIUM PAS @MODIFINECOM FMODIFINEPAS NFINE .PAS 4A 7B 5760 45 LIST .COM 25 0B 2816 22 MEDIUM .COM 33 EB 7424 58 MEDIUM .PAS 52 71 6144 48 MODIFINE.COM 73 CB 7552 59 MODIFINE.PAS A8 DB 5888 46 SCRIPT .COM B1 AD 19456 152 SCRIPT .PAS 31 57 23168 181 SCRIPT--.WSN AF F6 384 3  Fog Library Disk FOG-CPM.002 Copyright (1985) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. C.Itoh 8510 printer graphics program -- create some beautiful printouts with this. The source is included so you can learn Turbo Pascal while modifying the code for your printer. Filename Description -10-00 .85 This is the release date of the disk. -CPM002 .DOC This is the description of the disk contents. GRAPHICS.COM 3642 1K [C.Itoh 8510 Graphic 1 of 18] C.Itoh 8510 printer graphics program written in Pascal. Source code comments are in German, documentation is in English. Several demonstration files are included. GRAPHICS.DOC EA62 3K [C.Itoh 8510 Graphic 2 of 18] HEADING-.WSN 297B 2K [C.Itoh 8510 Graphic 3 of 18] BLOCK .COM A3C8 8K [C.Itoh 8510 Graphic 4 of 18] BLOCK .PAS 7B38 7K [C.Itoh 8510 Graphic 5 of 18] BLOCK---.WSN 5EC7 1K [C.Itoh 8510 Graphic 6 of 18] DOUBLE .COM C5FC 8K [C.Itoh 8510 Graphic 7 of 18] DOUBLE .PAS 42AB 6K [C.Itoh 8510 Graphic 8 of 18] FINE .COM AB1C 8K [C.Itoh 8510 Graphic 9 of 18] FINE .PAS 4A7B 6K [C.Itoh 8510 Graphic 10 of 18] LIST .COM 250B 3K [C.Itoh 8510 Graphic 11 of 18] MEDIUM .COM 33EB 8K [C.Itoh 8510 Graphic 12 of 18] MEDIUM .PAS 5271 6K [C.Itoh 8510 Graphic 13 of 18] MODIFINE.COM 73CB 8K [C.Itoh 8510 Graphic 14 of 18] MODIFINE.PAS A8DB 6K [C.Itoh 8510 Graphic 15 of 18] SCRIPT .COM B1AD 19K [C.Itoh 8510 Graphic 16 of 18] SCRIPT .PAS 3157 23K [C.Itoh 8510 Graphic 17 of 18] SCRIPT--.WSN AFF6 1K [C.Itoh 8510 Graphic 18 of 18]  [C.Itoh 8510 Graphic 11 of 18] MEDIUM .COM 33EB 8K [C.Itoh 8510 Graphic 12 of 18] MEDIUM .PAS 5271 6K [C.Itoh 8510 Graphic 13 of 18] MODIFINE.COM 73CB 8K [C.Itoh 8510 Graphic 14 of 18] MODIFINE.PAS A8DB 6K [C.Itoh 8510 Graphic 15 of 18] SCRIPT .COM B1AD 19K [C.Itoh 8510 Graphic 16 of 18] SCRIPT .PAS 3157 23K [C.Itoh 85 [C.Itoh 8510 Graphic 10 of 18] LIST .COM 250B 3K [C.Itoh 8510 Graphic 11 of 18] MEDIUM .COM 33EB 8K [C.Itoh 8510 Graphic 12 of 18] MEDIUM .PAS 5271 6K [C.Itoh 8510 Graphic 13 of 18] MODIFINE.COM 73CB 8K [C.Itoh 8510 Graphic 14 of 18] MODIFINE.PAS A8DB 6K [C.Itoh 8510 Graphic 15 of 18] SCRIPT .COM B1AD 19K [C.Itoh 8510 Graphic 16 of 18] SCRIPT .PAS 3157 23K [C.Itoh 8510 Graphic 17 of 18] SCRIPT--.WSN AFF6 1K [C.Itoh 8510 Graphic 18 of 18] n -10-00 .85 This is the release date of the disk. -CPM002 .DOC This is the description of the disk contents. GRAPHICS.COM 3642 1K [C.Itoh 8510 Graphic 1 of 18] C.Itoh 8510 printer graphics program written in Pascal. Source code comments are in German, documentation is in English. Several demonstration files are included. GRAPHICS.DOC EA62 3K [C.Itoh 8510 Gr !"#$%&'