� Printer Set Up Program
� Written by G B Titmuss
� Copyright 1988
(�
2� Set codes for printer
<� -1 means only 2 codes 
FReset$=�chr(27,64,-1)
PCpi96$=�chr(27,77,-1)
ZExpand$=�chr(27,87,1)
dCondense$=�chr(27,15,-1)
nEmph$=�chr(27,69,-1)
xBold$=�chr(27,71,-1)
�Italic$=�chr(27,52,-1)
�Doub$=�chr(27,104,1)
�Quad$=�chr(27,104,2)
�NLQ$=�chr(27,120,1)
�Super$=�chr(27,83,0)
�Sub$=�chr(27,83,1)
�Centre$=�chr(27,97,1)
�Right$=�chr(27,97,2)
�LMargin$=�chr(27,108,-1)
�RMargin$=�chr(27,81,-1)
� 
�� �:�error:�
�	�init

�7


�start

�print(�lots)

" 

,� :� main loop

6�cursor(X%,Y%)

@�23,1,1;0;0;0;

J*FX21,0

T	in%=�

^�23,1,0;0;0;0;

h� in%<136:�text:� �

r"� in%=138 Y%=Y%+1:� Y%=10 Y%=1

|!� in%=139 Y%=Y%-1:� Y%=0 Y%=9

�&� Y%=1:Cpi%=�set(Cpi%,1,6):X%=Cpi%

�/� Y%=2:Strike%=�set(Strike%,1,4):X%=Strike%

�,� Y%=3:Style%=�set(Style%,0,1):X%=Style%

�)� Y%=4:Face%=�set(Face%,0,1):X%=Face%

�)� Y%=5:High%=�set(High%,1,3):X%=High%

�7� Y%=6:Size%=�set(Size%,1,3):X%=Size%:�cursor(J%,9)

�9� Y%=7:L%=�set(L%,0,R%-1):X%=1:@%=2:� �13,19) L%;:� �

�;� Y%=8:R%=�set(R%,L%+1,240):X%=2:@%=3:� �19,19) R%;:� �

� � Y%=9:J%=�set(J%,3,5):X%=J%

��print(�lots+�codes)

�� Y%<7:�disp(Reset$+P$)

�� � :� end loop

� 
ݤlots :� much used code
)=Reset$+LMargin$+�(L%)+RMargin$+�(R%)
 
& ݤcodes :� Set printer codes
0	P$=""
:+� Cpi%=2 � Cpi%=4 � Cpi%=6:P$=P$+Cpi96$
D#� Cpi%=1 � Cpi%=2:P$=P$+Expand$
N%� Cpi%=5 � Cpi%=6:P$=P$+Condense$
X'� Strike%=2 � Strike%=4:P$=P$+Emph$
b'� Strike%=3 � Strike%=4:P$=P$+Bold$
l� Style%=1:P$=P$+Italic$
v� Face%=1:P$=P$+NLQ$
�� Size%=2:P$=P$+Doub$
�� Size%=3:P$=P$+Quad$
�� High%=2:P$=P$+Super$
�� High%=3:P$=P$+Sub$
�=P$
� 
�ݤset(f%,min%,max%)
�%� in%=137:f%=f%+1:� f%>max% =min%
�%� in%=136:f%=f%-1:� f%<min% =max%
�=f%
� 
�=��cursor(A%,B%) :� handle high lighting & position cursor
�C%=B%+10:� B%>=7 C%=19:B%=7
'� I%=0 � 6:�31,XY%(I%,B%),C%,dim%:�
�31,XY%(A%,B%),C%,bright%
�
  
*'��print(a$) :� send text to printer
4�buffer
>*FX3,10
H*FX6,254
R	� a$;
\*FX6,10
f
*FX3,0
p�
z 
���text :� handle all text
�8� in%>31 � in%<127:� �(Word$)<250:Word$=Word$+�(in%)
�(� in%=127:Word$=�Word$,(�(Word$)-1))
�/� in%=9 � Word$<>"":oldWord$=Word$:Word$=""
�� in%=135:Word$=oldWord$
� � in%=14:�:*LOAD PHelp 7C00 
�� in%=14:�:� �:�start:� 
�� in%=15:�example:�
�J$="":� J%=4:J$=Centre$
�� J%=5:J$=Right$
�6� in%=13:�print(�lots+�codes+J$):�print(Word$+nl$)
��28,3,7,37,6:�
�� Word$;
�28,0,24,39,0
�
 
$$��disp(a$) :� display codes used
.�28,3,23,36,22:�:@%=0
8)�:K%=�(a$):� �k;K%;:a$=�a$,2):� a$=""
B�28,0,24,39,0
L�
V 
`ݤk
j� K%=27:=" "
t=","
~ 
���buffer :� printer on?
�� �(-4)>50:�
�3�:� �7,23) "��Printer buffer full!�":� �(-4)>50
��disp(Reset$+P$):�
� 
�ݤchr(a%,b%,c%)
�� c%=-1:=�(a%)+�(b%)
�=�(a%)+�(b%)+�(c%)
� 
���example :� example text
�,T$="This is ":I$=" characters per inch)"
�=�print(�lots+Expand$+T$+"expanded Pica (5 per inch)"+nl$)
E�print(�lots+Cpi96$+Expand$+T$+"expanded Elite (6 per inch)"+nl$)

&�print(�lots+T$+"Pica (10"+I$+nl$)
.�print(�lots+Cpi96$+T$+"Elite (12"+I$+nl$)
:�print(�lots+Condense$+T$+"condensed Pica (17"+I$+nl$)
(F�print(�lots+Cpi96$+Condense$+T$+"condensed Elite (20"+I$+nl$+nl$)
2(�print(�lots+T$+"single strike"+nl$)
<.�print(Emph$+T$+"emphasized printing"+nl$)
F.�print(�lots+Bold$+T$+"bold printing"+nl$)
P2�print(Emph$+T$+"emphasized and bold"+nl$+nl$)
Z/�print(�lots+Italic$+T$+"italic style"+nl$)
d9�print(�lots+NLQ$+T$+"NLQ (Near letter quality)"+nl$)
n?�print(�lots+NLQ$+Italic$+T$+"NLQ in italic style"+nl$+nl$)
x�print(�lots+T$+"normal ")
�$�print(Super$+T$+"superscript ")
�#�print(Sub$+T$+"subscript"+nl$)
�+�print(�lots+Condense$+T$+"condensed ")
�$�print(Super$+T$+"superscript ")
�'�print(Sub$+T$+"subscript"+nl$+nl$)
��print(�lots+�codes+nl$)
��
� 
���start 
�*LOAD PScreen 7C00 
�in%=0:�text 
��cursor(Cpi%,1)
��cursor(Strike%,2)
�cursor(Style%,3)
�cursor(Face%,4)
�cursor(High%,5)
"�cursor(Size%,6) 
,�cursor(J%,9)
6� 
@ 
J
��init
T
*FX4,1
^
*FX225,14
h
*FX202,48
r
*FX118
|xY%=1:Cpi%=3:X%=Cpi%:Strike%=1:Style%=0:Size%=1:Face%=0:High%=1:L%=5:R%=75:J%=3:P$="":dim%=130:bright%=135:� XY%(6,7)
�?Word$="ABCDEFGHIJKlmnopqrstuvwxyz":oldWord$=Word$:nl$=�(13)
�*� y%=1 � 7:� i%=0 � 6:� XY%(i%,y%):�:�
� 
��
� 
���error
�� � �:�:�23,1,1;0;0;0;
�
*FX4,0
�*FX225,1
�� �<>17:�:�" at line ";�
��
� 
�� 11,11,13,15,18,21,24
� 11,11,18,23,28,28,28
� 11,18,18,18,18,18,18
� 11,18,18,18,18,18,18
&� 11,11,18,24,24,24,24
0� 11,11,18,25,25,25,25
:� 9,9,16,31,33,35,35
�

00000000  0d 00 0a 1c f4 20 50 72  69 6e 74 65 72 20 53 65  |..... Printer Se|
00000010  74 20 55 70 20 50 72 6f  67 72 61 6d 0d 00 14 1c  |t Up Program....|
00000020  f4 20 57 72 69 74 74 65  6e 20 62 79 20 47 20 42  |. Written by G B|
00000030  20 54 69 74 6d 75 73 73  0d 00 1e 14 f4 20 43 6f  | Titmuss..... Co|
00000040  70 79 72 69 67 68 74 20  31 39 38 38 0d 00 28 05  |pyright 1988..(.|
00000050  f4 0d 00 32 1b f4 20 53  65 74 20 63 6f 64 65 73  |...2.. Set codes|
00000060  20 66 6f 72 20 70 72 69  6e 74 65 72 0d 00 3c 1c  | for printer..<.|
00000070  f4 20 2d 31 20 6d 65 61  6e 73 20 6f 6e 6c 79 20  |. -1 means only |
00000080  32 20 63 6f 64 65 73 20  0d 00 46 19 52 65 73 65  |2 codes ..F.Rese|
00000090  74 24 3d a4 63 68 72 28  32 37 2c 36 34 2c 2d 31  |t$=.chr(27,64,-1|
000000a0  29 0d 00 50 19 43 70 69  39 36 24 3d a4 63 68 72  |)..P.Cpi96$=.chr|
000000b0  28 32 37 2c 37 37 2c 2d  31 29 0d 00 5a 19 45 78  |(27,77,-1)..Z.Ex|
000000c0  70 61 6e 64 24 3d a4 63  68 72 28 32 37 2c 38 37  |pand$=.chr(27,87|
000000d0  2c 31 29 0d 00 64 1c 43  6f 6e 64 65 6e 73 65 24  |,1)..d.Condense$|
000000e0  3d a4 63 68 72 28 32 37  2c 31 35 2c 2d 31 29 0d  |=.chr(27,15,-1).|
000000f0  00 6e 18 45 6d 70 68 24  3d a4 63 68 72 28 32 37  |.n.Emph$=.chr(27|
00000100  2c 36 39 2c 2d 31 29 0d  00 78 18 42 6f 6c 64 24  |,69,-1)..x.Bold$|
00000110  3d a4 63 68 72 28 32 37  2c 37 31 2c 2d 31 29 0d  |=.chr(27,71,-1).|
00000120  00 82 1a 49 74 61 6c 69  63 24 3d a4 63 68 72 28  |...Italic$=.chr(|
00000130  32 37 2c 35 32 2c 2d 31  29 0d 00 8c 18 44 6f 75  |27,52,-1)....Dou|
00000140  62 24 3d a4 63 68 72 28  32 37 2c 31 30 34 2c 31  |b$=.chr(27,104,1|
00000150  29 0d 00 96 18 51 75 61  64 24 3d a4 63 68 72 28  |)....Quad$=.chr(|
00000160  32 37 2c 31 30 34 2c 32  29 0d 00 a0 17 4e 4c 51  |27,104,2)....NLQ|
00000170  24 3d a4 63 68 72 28 32  37 2c 31 32 30 2c 31 29  |$=.chr(27,120,1)|
00000180  0d 00 aa 18 53 75 70 65  72 24 3d a4 63 68 72 28  |....Super$=.chr(|
00000190  32 37 2c 38 33 2c 30 29  0d 00 b4 16 53 75 62 24  |27,83,0)....Sub$|
000001a0  3d a4 63 68 72 28 32 37  2c 38 33 2c 31 29 0d 00  |=.chr(27,83,1)..|
000001b0  be 19 43 65 6e 74 72 65  24 3d a4 63 68 72 28 32  |..Centre$=.chr(2|
000001c0  37 2c 39 37 2c 31 29 0d  00 c8 18 52 69 67 68 74  |7,97,1)....Right|
000001d0  24 3d a4 63 68 72 28 32  37 2c 39 37 2c 32 29 0d  |$=.chr(27,97,2).|
000001e0  00 d2 1c 4c 4d 61 72 67  69 6e 24 3d a4 63 68 72  |...LMargin$=.chr|
000001f0  28 32 37 2c 31 30 38 2c  2d 31 29 0d 00 dc 1b 52  |(27,108,-1)....R|
00000200  4d 61 72 67 69 6e 24 3d  a4 63 68 72 28 32 37 2c  |Margin$=.chr(27,|
00000210  38 31 2c 2d 31 29 0d 00  e6 05 20 0d 00 f0 10 ee  |81,-1).... .....|
00000220  20 85 3a f2 65 72 72 6f  72 3a e0 0d 00 fa 09 f2  | .:.error:......|
00000230  69 6e 69 74 0d 01 04 06  eb 37 0d 01 0e 0a f2 73  |init.....7.....s|
00000240  74 61 72 74 0d 01 18 11  f2 70 72 69 6e 74 28 a4  |tart.....print(.|
00000250  6c 6f 74 73 29 0d 01 22  05 20 0d 01 2c 12 f5 20  |lots)..". ..,.. |
00000260  3a f4 20 6d 61 69 6e 20  6c 6f 6f 70 0d 01 36 12  |:. main loop..6.|
00000270  f2 63 75 72 73 6f 72 28  58 25 2c 59 25 29 0d 01  |.cursor(X%,Y%)..|
00000280  40 12 ef 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |@..23,1,1;0;0;0;|
00000290  0d 01 4a 0b 2a 46 58 32  31 2c 30 0d 01 54 09 69  |..J.*FX21,0..T.i|
000002a0  6e 25 3d a5 0d 01 5e 12  ef 32 33 2c 31 2c 30 3b  |n%=...^..23,1,0;|
000002b0  30 3b 30 3b 30 3b 0d 01  68 17 e7 20 69 6e 25 3c  |0;0;0;..h.. in%<|
000002c0  31 33 36 3a f2 74 65 78  74 3a fd 20 a3 0d 01 72  |136:.text:. ...r|
000002d0  22 e7 20 69 6e 25 3d 31  33 38 20 59 25 3d 59 25  |". in%=138 Y%=Y%|
000002e0  2b 31 3a e7 20 59 25 3d  31 30 20 59 25 3d 31 0d  |+1:. Y%=10 Y%=1.|
000002f0  01 7c 21 e7 20 69 6e 25  3d 31 33 39 20 59 25 3d  |.|!. in%=139 Y%=|
00000300  59 25 2d 31 3a e7 20 59  25 3d 30 20 59 25 3d 39  |Y%-1:. Y%=0 Y%=9|
00000310  0d 01 86 26 e7 20 59 25  3d 31 3a 43 70 69 25 3d  |...&. Y%=1:Cpi%=|
00000320  a4 73 65 74 28 43 70 69  25 2c 31 2c 36 29 3a 58  |.set(Cpi%,1,6):X|
00000330  25 3d 43 70 69 25 0d 01  90 2f e7 20 59 25 3d 32  |%=Cpi%.../. Y%=2|
00000340  3a 53 74 72 69 6b 65 25  3d a4 73 65 74 28 53 74  |:Strike%=.set(St|
00000350  72 69 6b 65 25 2c 31 2c  34 29 3a 58 25 3d 53 74  |rike%,1,4):X%=St|
00000360  72 69 6b 65 25 0d 01 9a  2c e7 20 59 25 3d 33 3a  |rike%...,. Y%=3:|
00000370  53 74 79 6c 65 25 3d a4  73 65 74 28 53 74 79 6c  |Style%=.set(Styl|
00000380  65 25 2c 30 2c 31 29 3a  58 25 3d 53 74 79 6c 65  |e%,0,1):X%=Style|
00000390  25 0d 01 a4 29 e7 20 59  25 3d 34 3a 46 61 63 65  |%...). Y%=4:Face|
000003a0  25 3d a4 73 65 74 28 46  61 63 65 25 2c 30 2c 31  |%=.set(Face%,0,1|
000003b0  29 3a 58 25 3d 46 61 63  65 25 0d 01 ae 29 e7 20  |):X%=Face%...). |
000003c0  59 25 3d 35 3a 48 69 67  68 25 3d a4 73 65 74 28  |Y%=5:High%=.set(|
000003d0  48 69 67 68 25 2c 31 2c  33 29 3a 58 25 3d 48 69  |High%,1,3):X%=Hi|
000003e0  67 68 25 0d 01 b8 37 e7  20 59 25 3d 36 3a 53 69  |gh%...7. Y%=6:Si|
000003f0  7a 65 25 3d a4 73 65 74  28 53 69 7a 65 25 2c 31  |ze%=.set(Size%,1|
00000400  2c 33 29 3a 58 25 3d 53  69 7a 65 25 3a f2 63 75  |,3):X%=Size%:.cu|
00000410  72 73 6f 72 28 4a 25 2c  39 29 0d 01 c2 39 e7 20  |rsor(J%,9)...9. |
00000420  59 25 3d 37 3a 4c 25 3d  a4 73 65 74 28 4c 25 2c  |Y%=7:L%=.set(L%,|
00000430  30 2c 52 25 2d 31 29 3a  58 25 3d 31 3a 40 25 3d  |0,R%-1):X%=1:@%=|
00000440  32 3a f1 20 8a 31 33 2c  31 39 29 20 4c 25 3b 3a  |2:. .13,19) L%;:|
00000450  fd 20 a3 0d 01 cc 3b e7  20 59 25 3d 38 3a 52 25  |. ....;. Y%=8:R%|
00000460  3d a4 73 65 74 28 52 25  2c 4c 25 2b 31 2c 32 34  |=.set(R%,L%+1,24|
00000470  30 29 3a 58 25 3d 32 3a  40 25 3d 33 3a f1 20 8a  |0):X%=2:@%=3:. .|
00000480  31 39 2c 31 39 29 20 52  25 3b 3a fd 20 a3 0d 01  |19,19) R%;:. ...|
00000490  d6 20 e7 20 59 25 3d 39  3a 4a 25 3d a4 73 65 74  |. . Y%=9:J%=.set|
000004a0  28 4a 25 2c 33 2c 35 29  3a 58 25 3d 4a 25 0d 01  |(J%,3,5):X%=J%..|
000004b0  e0 18 f2 70 72 69 6e 74  28 a4 6c 6f 74 73 2b a4  |...print(.lots+.|
000004c0  63 6f 64 65 73 29 0d 01  ea 1b e7 20 59 25 3c 37  |codes)..... Y%<7|
000004d0  3a f2 64 69 73 70 28 52  65 73 65 74 24 2b 50 24  |:.disp(Reset$+P$|
000004e0  29 0d 01 f4 13 fd 20 a3  20 3a f4 20 65 6e 64 20  |)..... . :. end |
000004f0  6c 6f 6f 70 0d 01 fe 05  20 0d 02 08 1c dd a4 6c  |loop.... ......l|
00000500  6f 74 73 20 3a f4 20 6d  75 63 68 20 75 73 65 64  |ots :. much used|
00000510  20 63 6f 64 65 0d 02 12  29 3d 52 65 73 65 74 24  | code...)=Reset$|
00000520  2b 4c 4d 61 72 67 69 6e  24 2b bd 28 4c 25 29 2b  |+LMargin$+.(L%)+|
00000530  52 4d 61 72 67 69 6e 24  2b bd 28 52 25 29 0d 02  |RMargin$+.(R%)..|
00000540  1c 05 20 0d 02 26 20 dd  a4 63 6f 64 65 73 20 3a  |.. ..& ..codes :|
00000550  f4 20 53 65 74 20 70 72  69 6e 74 65 72 20 63 6f  |. Set printer co|
00000560  64 65 73 0d 02 30 09 50  24 3d 22 22 0d 02 3a 2b  |des..0.P$=""..:+|
00000570  e7 20 43 70 69 25 3d 32  20 84 20 43 70 69 25 3d  |. Cpi%=2 . Cpi%=|
00000580  34 20 84 20 43 70 69 25  3d 36 3a 50 24 3d 50 24  |4 . Cpi%=6:P$=P$|
00000590  2b 43 70 69 39 36 24 0d  02 44 23 e7 20 43 70 69  |+Cpi96$..D#. Cpi|
000005a0  25 3d 31 20 84 20 43 70  69 25 3d 32 3a 50 24 3d  |%=1 . Cpi%=2:P$=|
000005b0  50 24 2b 45 78 70 61 6e  64 24 0d 02 4e 25 e7 20  |P$+Expand$..N%. |
000005c0  43 70 69 25 3d 35 20 84  20 43 70 69 25 3d 36 3a  |Cpi%=5 . Cpi%=6:|
000005d0  50 24 3d 50 24 2b 43 6f  6e 64 65 6e 73 65 24 0d  |P$=P$+Condense$.|
000005e0  02 58 27 e7 20 53 74 72  69 6b 65 25 3d 32 20 84  |.X'. Strike%=2 .|
000005f0  20 53 74 72 69 6b 65 25  3d 34 3a 50 24 3d 50 24  | Strike%=4:P$=P$|
00000600  2b 45 6d 70 68 24 0d 02  62 27 e7 20 53 74 72 69  |+Emph$..b'. Stri|
00000610  6b 65 25 3d 33 20 84 20  53 74 72 69 6b 65 25 3d  |ke%=3 . Strike%=|
00000620  34 3a 50 24 3d 50 24 2b  42 6f 6c 64 24 0d 02 6c  |4:P$=P$+Bold$..l|
00000630  1c e7 20 53 74 79 6c 65  25 3d 31 3a 50 24 3d 50  |.. Style%=1:P$=P|
00000640  24 2b 49 74 61 6c 69 63  24 0d 02 76 18 e7 20 46  |$+Italic$..v.. F|
00000650  61 63 65 25 3d 31 3a 50  24 3d 50 24 2b 4e 4c 51  |ace%=1:P$=P$+NLQ|
00000660  24 0d 02 80 19 e7 20 53  69 7a 65 25 3d 32 3a 50  |$..... Size%=2:P|
00000670  24 3d 50 24 2b 44 6f 75  62 24 0d 02 8a 19 e7 20  |$=P$+Doub$..... |
00000680  53 69 7a 65 25 3d 33 3a  50 24 3d 50 24 2b 51 75  |Size%=3:P$=P$+Qu|
00000690  61 64 24 0d 02 94 1a e7  20 48 69 67 68 25 3d 32  |ad$..... High%=2|
000006a0  3a 50 24 3d 50 24 2b 53  75 70 65 72 24 0d 02 9e  |:P$=P$+Super$...|
000006b0  18 e7 20 48 69 67 68 25  3d 33 3a 50 24 3d 50 24  |.. High%=3:P$=P$|
000006c0  2b 53 75 62 24 0d 02 a8  07 3d 50 24 0d 02 b2 05  |+Sub$....=P$....|
000006d0  20 0d 02 bc 17 dd a4 73  65 74 28 66 25 2c 6d 69  | ......set(f%,mi|
000006e0  6e 25 2c 6d 61 78 25 29  0d 02 c6 25 e7 20 69 6e  |n%,max%)...%. in|
000006f0  25 3d 31 33 37 3a 66 25  3d 66 25 2b 31 3a e7 20  |%=137:f%=f%+1:. |
00000700  66 25 3e 6d 61 78 25 20  3d 6d 69 6e 25 0d 02 d0  |f%>max% =min%...|
00000710  25 e7 20 69 6e 25 3d 31  33 36 3a 66 25 3d 66 25  |%. in%=136:f%=f%|
00000720  2d 31 3a e7 20 66 25 3c  6d 69 6e 25 20 3d 6d 61  |-1:. f%<min% =ma|
00000730  78 25 0d 02 da 07 3d 66  25 0d 02 e4 05 20 0d 02  |x%....=f%.... ..|
00000740  ee 3d dd f2 63 75 72 73  6f 72 28 41 25 2c 42 25  |.=..cursor(A%,B%|
00000750  29 20 3a f4 20 68 61 6e  64 6c 65 20 68 69 67 68  |) :. handle high|
00000760  20 6c 69 67 68 74 69 6e  67 20 26 20 70 6f 73 69  | lighting & posi|
00000770  74 69 6f 6e 20 63 75 72  73 6f 72 0d 02 f8 1f 43  |tion cursor....C|
00000780  25 3d 42 25 2b 31 30 3a  e7 20 42 25 3e 3d 37 20  |%=B%+10:. B%>=7 |
00000790  43 25 3d 31 39 3a 42 25  3d 37 0d 03 02 27 e3 20  |C%=19:B%=7...'. |
000007a0  49 25 3d 30 20 b8 20 36  3a ef 33 31 2c 58 59 25  |I%=0 . 6:.31,XY%|
000007b0  28 49 25 2c 42 25 29 2c  43 25 2c 64 69 6d 25 3a  |(I%,B%),C%,dim%:|
000007c0  ed 0d 03 0c 1d ef 33 31  2c 58 59 25 28 41 25 2c  |......31,XY%(A%,|
000007d0  42 25 29 2c 43 25 2c 62  72 69 67 68 74 25 0d 03  |B%),C%,bright%..|
000007e0  16 05 e1 0d 03 20 05 20  0d 03 2a 27 dd f2 70 72  |..... . ..*'..pr|
000007f0  69 6e 74 28 61 24 29 20  3a f4 20 73 65 6e 64 20  |int(a$) :. send |
00000800  74 65 78 74 20 74 6f 20  70 72 69 6e 74 65 72 0d  |text to printer.|
00000810  03 34 0b f2 62 75 66 66  65 72 0d 03 3e 0b 2a 46  |.4..buffer..>.*F|
00000820  58 33 2c 31 30 0d 03 48  0c 2a 46 58 36 2c 32 35  |X3,10..H.*FX6,25|
00000830  34 0d 03 52 09 f1 20 61  24 3b 0d 03 5c 0b 2a 46  |4..R.. a$;..\.*F|
00000840  58 36 2c 31 30 0d 03 66  0a 2a 46 58 33 2c 30 0d  |X6,10..f.*FX3,0.|
00000850  03 70 05 e1 0d 03 7a 05  20 0d 03 84 1d dd f2 74  |.p....z. ......t|
00000860  65 78 74 20 3a f4 20 68  61 6e 64 6c 65 20 61 6c  |ext :. handle al|
00000870  6c 20 74 65 78 74 0d 03  8e 38 e7 20 69 6e 25 3e  |l text...8. in%>|
00000880  33 31 20 80 20 69 6e 25  3c 31 32 37 3a e7 20 a9  |31 . in%<127:. .|
00000890  28 57 6f 72 64 24 29 3c  32 35 30 3a 57 6f 72 64  |(Word$)<250:Word|
000008a0  24 3d 57 6f 72 64 24 2b  bd 28 69 6e 25 29 0d 03  |$=Word$+.(in%)..|
000008b0  98 28 e7 20 69 6e 25 3d  31 32 37 3a 57 6f 72 64  |.(. in%=127:Word|
000008c0  24 3d c0 57 6f 72 64 24  2c 28 a9 28 57 6f 72 64  |$=.Word$,(.(Word|
000008d0  24 29 2d 31 29 29 0d 03  a2 2f e7 20 69 6e 25 3d  |$)-1)).../. in%=|
000008e0  39 20 80 20 57 6f 72 64  24 3c 3e 22 22 3a 6f 6c  |9 . Word$<>"":ol|
000008f0  64 57 6f 72 64 24 3d 57  6f 72 64 24 3a 57 6f 72  |dWord$=Word$:Wor|
00000900  64 24 3d 22 22 0d 03 ac  1c e7 20 69 6e 25 3d 31  |d$=""..... in%=1|
00000910  33 35 3a 57 6f 72 64 24  3d 6f 6c 64 57 6f 72 64  |35:Word$=oldWord|
00000920  24 0d 03 b6 20 e7 20 69  6e 25 3d 31 34 3a db 3a  |$... . in%=14:.:|
00000930  2a 4c 4f 41 44 20 50 48  65 6c 70 20 37 43 30 30  |*LOAD PHelp 7C00|
00000940  20 0d 03 c0 1c e7 20 69  6e 25 3d 31 34 3a f5 3a  | ..... in%=14:.:|
00000950  fd 20 a5 3a f2 73 74 61  72 74 3a e1 20 0d 03 ca  |. .:.start:. ...|
00000960  17 e7 20 69 6e 25 3d 31  35 3a f2 65 78 61 6d 70  |.. in%=15:.examp|
00000970  6c 65 3a e1 0d 03 d4 1b  4a 24 3d 22 22 3a e7 20  |le:.....J$="":. |
00000980  4a 25 3d 34 3a 4a 24 3d  43 65 6e 74 72 65 24 0d  |J%=4:J$=Centre$.|
00000990  03 de 14 e7 20 4a 25 3d  35 3a 4a 24 3d 52 69 67  |.... J%=5:J$=Rig|
000009a0  68 74 24 0d 03 e8 36 e7  20 69 6e 25 3d 31 33 3a  |ht$...6. in%=13:|
000009b0  f2 70 72 69 6e 74 28 a4  6c 6f 74 73 2b a4 63 6f  |.print(.lots+.co|
000009c0  64 65 73 2b 4a 24 29 3a  f2 70 72 69 6e 74 28 57  |des+J$):.print(W|
000009d0  6f 72 64 24 2b 6e 6c 24  29 0d 03 f2 12 ef 32 38  |ord$+nl$).....28|
000009e0  2c 33 2c 37 2c 33 37 2c  36 3a db 0d 03 fc 0c f1  |,3,7,37,6:......|
000009f0  20 57 6f 72 64 24 3b 0d  04 06 11 ef 32 38 2c 30  | Word$;.....28,0|
00000a00  2c 32 34 2c 33 39 2c 30  0d 04 10 05 e1 0d 04 1a  |,24,39,0........|
00000a10  05 20 0d 04 24 24 dd f2  64 69 73 70 28 61 24 29  |. ..$$..disp(a$)|
00000a20  20 3a f4 20 64 69 73 70  6c 61 79 20 63 6f 64 65  | :. display code|
00000a30  73 20 75 73 65 64 0d 04  2e 19 ef 32 38 2c 33 2c  |s used.....28,3,|
00000a40  32 33 2c 33 36 2c 32 32  3a db 3a 40 25 3d 30 0d  |23,36,22:.:@%=0.|
00000a50  04 38 29 f5 3a 4b 25 3d  97 28 61 24 29 3a f1 20  |.8).:K%=.(a$):. |
00000a60  a4 6b 3b 4b 25 3b 3a 61  24 3d c1 61 24 2c 32 29  |.k;K%;:a$=.a$,2)|
00000a70  3a fd 20 61 24 3d 22 22  0d 04 42 11 ef 32 38 2c  |:. a$=""..B..28,|
00000a80  30 2c 32 34 2c 33 39 2c  30 0d 04 4c 05 e1 0d 04  |0,24,39,0..L....|
00000a90  56 05 20 0d 04 60 07 dd  a4 6b 0d 04 6a 10 e7 20  |V. ..`...k..j.. |
00000aa0  4b 25 3d 32 37 3a 3d 22  20 22 0d 04 74 08 3d 22  |K%=27:=" "..t.="|
00000ab0  2c 22 0d 04 7e 05 20 0d  04 88 1b dd f2 62 75 66  |,"..~. ......buf|
00000ac0  66 65 72 20 3a f4 20 70  72 69 6e 74 65 72 20 6f  |fer :. printer o|
00000ad0  6e 3f 0d 04 92 10 e7 20  96 28 2d 34 29 3e 35 30  |n?..... .(-4)>50|
00000ae0  3a e1 0d 04 9c 33 f5 3a  f1 20 8a 37 2c 32 33 29  |:....3.:. .7,23)|
00000af0  20 22 88 87 50 72 69 6e  74 65 72 20 62 75 66 66  | "..Printer buff|
00000b00  65 72 20 66 75 6c 6c 21  89 22 3a fd 20 96 28 2d  |er full!.":. .(-|
00000b10  34 29 3e 35 30 0d 04 a6  16 f2 64 69 73 70 28 52  |4)>50.....disp(R|
00000b20  65 73 65 74 24 2b 50 24  29 3a e1 0d 04 b0 05 20  |eset$+P$):..... |
00000b30  0d 04 ba 13 dd a4 63 68  72 28 61 25 2c 62 25 2c  |......chr(a%,b%,|
00000b40  63 25 29 0d 04 c4 18 e7  20 63 25 3d 2d 31 3a 3d  |c%)..... c%=-1:=|
00000b50  bd 28 61 25 29 2b bd 28  62 25 29 0d 04 ce 16 3d  |.(a%)+.(b%)....=|
00000b60  bd 28 61 25 29 2b bd 28  62 25 29 2b bd 28 63 25  |.(a%)+.(b%)+.(c%|
00000b70  29 0d 04 d8 05 20 0d 04  e2 1d dd f2 65 78 61 6d  |).... ......exam|
00000b80  70 6c 65 20 3a f4 20 65  78 61 6d 70 6c 65 20 74  |ple :. example t|
00000b90  65 78 74 0d 04 ec 2c 54  24 3d 22 54 68 69 73 20  |ext...,T$="This |
00000ba0  69 73 20 22 3a 49 24 3d  22 20 63 68 61 72 61 63  |is ":I$=" charac|
00000bb0  74 65 72 73 20 70 65 72  20 69 6e 63 68 29 22 0d  |ters per inch)".|
00000bc0  04 f6 3d f2 70 72 69 6e  74 28 a4 6c 6f 74 73 2b  |..=.print(.lots+|
00000bd0  45 78 70 61 6e 64 24 2b  54 24 2b 22 65 78 70 61  |Expand$+T$+"expa|
00000be0  6e 64 65 64 20 50 69 63  61 20 28 35 20 70 65 72  |nded Pica (5 per|
00000bf0  20 69 6e 63 68 29 22 2b  6e 6c 24 29 0d 05 00 45  | inch)"+nl$)...E|
00000c00  f2 70 72 69 6e 74 28 a4  6c 6f 74 73 2b 43 70 69  |.print(.lots+Cpi|
00000c10  39 36 24 2b 45 78 70 61  6e 64 24 2b 54 24 2b 22  |96$+Expand$+T$+"|
00000c20  65 78 70 61 6e 64 65 64  20 45 6c 69 74 65 20 28  |expanded Elite (|
00000c30  36 20 70 65 72 20 69 6e  63 68 29 22 2b 6e 6c 24  |6 per inch)"+nl$|
00000c40  29 0d 05 0a 26 f2 70 72  69 6e 74 28 a4 6c 6f 74  |)...&.print(.lot|
00000c50  73 2b 54 24 2b 22 50 69  63 61 20 28 31 30 22 2b  |s+T$+"Pica (10"+|
00000c60  49 24 2b 6e 6c 24 29 0d  05 14 2e f2 70 72 69 6e  |I$+nl$).....prin|
00000c70  74 28 a4 6c 6f 74 73 2b  43 70 69 39 36 24 2b 54  |t(.lots+Cpi96$+T|
00000c80  24 2b 22 45 6c 69 74 65  20 28 31 32 22 2b 49 24  |$+"Elite (12"+I$|
00000c90  2b 6e 6c 24 29 0d 05 1e  3a f2 70 72 69 6e 74 28  |+nl$)...:.print(|
00000ca0  a4 6c 6f 74 73 2b 43 6f  6e 64 65 6e 73 65 24 2b  |.lots+Condense$+|
00000cb0  54 24 2b 22 63 6f 6e 64  65 6e 73 65 64 20 50 69  |T$+"condensed Pi|
00000cc0  63 61 20 28 31 37 22 2b  49 24 2b 6e 6c 24 29 0d  |ca (17"+I$+nl$).|
00000cd0  05 28 46 f2 70 72 69 6e  74 28 a4 6c 6f 74 73 2b  |.(F.print(.lots+|
00000ce0  43 70 69 39 36 24 2b 43  6f 6e 64 65 6e 73 65 24  |Cpi96$+Condense$|
00000cf0  2b 54 24 2b 22 63 6f 6e  64 65 6e 73 65 64 20 45  |+T$+"condensed E|
00000d00  6c 69 74 65 20 28 32 30  22 2b 49 24 2b 6e 6c 24  |lite (20"+I$+nl$|
00000d10  2b 6e 6c 24 29 0d 05 32  28 f2 70 72 69 6e 74 28  |+nl$)..2(.print(|
00000d20  a4 6c 6f 74 73 2b 54 24  2b 22 73 69 6e 67 6c 65  |.lots+T$+"single|
00000d30  20 73 74 72 69 6b 65 22  2b 6e 6c 24 29 0d 05 3c  | strike"+nl$)..<|
00000d40  2e f2 70 72 69 6e 74 28  45 6d 70 68 24 2b 54 24  |..print(Emph$+T$|
00000d50  2b 22 65 6d 70 68 61 73  69 7a 65 64 20 70 72 69  |+"emphasized pri|
00000d60  6e 74 69 6e 67 22 2b 6e  6c 24 29 0d 05 46 2e f2  |nting"+nl$)..F..|
00000d70  70 72 69 6e 74 28 a4 6c  6f 74 73 2b 42 6f 6c 64  |print(.lots+Bold|
00000d80  24 2b 54 24 2b 22 62 6f  6c 64 20 70 72 69 6e 74  |$+T$+"bold print|
00000d90  69 6e 67 22 2b 6e 6c 24  29 0d 05 50 32 f2 70 72  |ing"+nl$)..P2.pr|
00000da0  69 6e 74 28 45 6d 70 68  24 2b 54 24 2b 22 65 6d  |int(Emph$+T$+"em|
00000db0  70 68 61 73 69 7a 65 64  20 61 6e 64 20 62 6f 6c  |phasized and bol|
00000dc0  64 22 2b 6e 6c 24 2b 6e  6c 24 29 0d 05 5a 2f f2  |d"+nl$+nl$)..Z/.|
00000dd0  70 72 69 6e 74 28 a4 6c  6f 74 73 2b 49 74 61 6c  |print(.lots+Ital|
00000de0  69 63 24 2b 54 24 2b 22  69 74 61 6c 69 63 20 73  |ic$+T$+"italic s|
00000df0  74 79 6c 65 22 2b 6e 6c  24 29 0d 05 64 39 f2 70  |tyle"+nl$)..d9.p|
00000e00  72 69 6e 74 28 a4 6c 6f  74 73 2b 4e 4c 51 24 2b  |rint(.lots+NLQ$+|
00000e10  54 24 2b 22 4e 4c 51 20  28 4e 65 61 72 20 6c 65  |T$+"NLQ (Near le|
00000e20  74 74 65 72 20 71 75 61  6c 69 74 79 29 22 2b 6e  |tter quality)"+n|
00000e30  6c 24 29 0d 05 6e 3f f2  70 72 69 6e 74 28 a4 6c  |l$)..n?.print(.l|
00000e40  6f 74 73 2b 4e 4c 51 24  2b 49 74 61 6c 69 63 24  |ots+NLQ$+Italic$|
00000e50  2b 54 24 2b 22 4e 4c 51  20 69 6e 20 69 74 61 6c  |+T$+"NLQ in ital|
00000e60  69 63 20 73 74 79 6c 65  22 2b 6e 6c 24 2b 6e 6c  |ic style"+nl$+nl|
00000e70  24 29 0d 05 78 1e f2 70  72 69 6e 74 28 a4 6c 6f  |$)..x..print(.lo|
00000e80  74 73 2b 54 24 2b 22 6e  6f 72 6d 61 6c 20 22 29  |ts+T$+"normal ")|
00000e90  0d 05 82 24 f2 70 72 69  6e 74 28 53 75 70 65 72  |...$.print(Super|
00000ea0  24 2b 54 24 2b 22 73 75  70 65 72 73 63 72 69 70  |$+T$+"superscrip|
00000eb0  74 20 22 29 0d 05 8c 23  f2 70 72 69 6e 74 28 53  |t ")...#.print(S|
00000ec0  75 62 24 2b 54 24 2b 22  73 75 62 73 63 72 69 70  |ub$+T$+"subscrip|
00000ed0  74 22 2b 6e 6c 24 29 0d  05 96 2b f2 70 72 69 6e  |t"+nl$)...+.prin|
00000ee0  74 28 a4 6c 6f 74 73 2b  43 6f 6e 64 65 6e 73 65  |t(.lots+Condense|
00000ef0  24 2b 54 24 2b 22 63 6f  6e 64 65 6e 73 65 64 20  |$+T$+"condensed |
00000f00  22 29 0d 05 a0 24 f2 70  72 69 6e 74 28 53 75 70  |")...$.print(Sup|
00000f10  65 72 24 2b 54 24 2b 22  73 75 70 65 72 73 63 72  |er$+T$+"superscr|
00000f20  69 70 74 20 22 29 0d 05  aa 27 f2 70 72 69 6e 74  |ipt ")...'.print|
00000f30  28 53 75 62 24 2b 54 24  2b 22 73 75 62 73 63 72  |(Sub$+T$+"subscr|
00000f40  69 70 74 22 2b 6e 6c 24  2b 6e 6c 24 29 0d 05 b4  |ipt"+nl$+nl$)...|
00000f50  1c f2 70 72 69 6e 74 28  a4 6c 6f 74 73 2b a4 63  |..print(.lots+.c|
00000f60  6f 64 65 73 2b 6e 6c 24  29 0d 05 be 05 e1 0d 05  |odes+nl$).......|
00000f70  c8 05 20 0d 05 d2 0c dd  f2 73 74 61 72 74 20 0d  |.. ......start .|
00000f80  05 dc 17 2a 4c 4f 41 44  20 50 53 63 72 65 65 6e  |...*LOAD PScreen|
00000f90  20 37 43 30 30 20 0d 05  e6 10 69 6e 25 3d 30 3a  | 7C00 ....in%=0:|
00000fa0  f2 74 65 78 74 20 0d 05  f0 13 f2 63 75 72 73 6f  |.text .....curso|
00000fb0  72 28 43 70 69 25 2c 31  29 0d 05 fa 16 f2 63 75  |r(Cpi%,1).....cu|
00000fc0  72 73 6f 72 28 53 74 72  69 6b 65 25 2c 32 29 0d  |rsor(Strike%,2).|
00000fd0  06 04 15 f2 63 75 72 73  6f 72 28 53 74 79 6c 65  |....cursor(Style|
00000fe0  25 2c 33 29 0d 06 0e 14  f2 63 75 72 73 6f 72 28  |%,3).....cursor(|
00000ff0  46 61 63 65 25 2c 34 29  0d 06 18 14 f2 63 75 72  |Face%,4).....cur|
00001000  73 6f 72 28 48 69 67 68  25 2c 35 29 0d 06 22 15  |sor(High%,5)..".|
00001010  f2 63 75 72 73 6f 72 28  53 69 7a 65 25 2c 36 29  |.cursor(Size%,6)|
00001020  20 0d 06 2c 11 f2 63 75  72 73 6f 72 28 4a 25 2c  | ..,..cursor(J%,|
00001030  39 29 0d 06 36 06 e1 20  0d 06 40 05 20 0d 06 4a  |9)..6.. ..@. ..J|
00001040  0a dd f2 69 6e 69 74 0d  06 54 0a 2a 46 58 34 2c  |...init..T.*FX4,|
00001050  31 0d 06 5e 0d 2a 46 58  32 32 35 2c 31 34 0d 06  |1..^.*FX225,14..|
00001060  68 0d 2a 46 58 32 30 32  2c 34 38 0d 06 72 0a 2a  |h.*FX202,48..r.*|
00001070  46 58 31 31 38 0d 06 7c  78 59 25 3d 31 3a 43 70  |FX118..|xY%=1:Cp|
00001080  69 25 3d 33 3a 58 25 3d  43 70 69 25 3a 53 74 72  |i%=3:X%=Cpi%:Str|
00001090  69 6b 65 25 3d 31 3a 53  74 79 6c 65 25 3d 30 3a  |ike%=1:Style%=0:|
000010a0  53 69 7a 65 25 3d 31 3a  46 61 63 65 25 3d 30 3a  |Size%=1:Face%=0:|
000010b0  48 69 67 68 25 3d 31 3a  4c 25 3d 35 3a 52 25 3d  |High%=1:L%=5:R%=|
000010c0  37 35 3a 4a 25 3d 33 3a  50 24 3d 22 22 3a 64 69  |75:J%=3:P$="":di|
000010d0  6d 25 3d 31 33 30 3a 62  72 69 67 68 74 25 3d 31  |m%=130:bright%=1|
000010e0  33 35 3a de 20 58 59 25  28 36 2c 37 29 0d 06 86  |35:. XY%(6,7)...|
000010f0  3f 57 6f 72 64 24 3d 22  41 42 43 44 45 46 47 48  |?Word$="ABCDEFGH|
00001100  49 4a 4b 6c 6d 6e 6f 70  71 72 73 74 75 76 77 78  |IJKlmnopqrstuvwx|
00001110  79 7a 22 3a 6f 6c 64 57  6f 72 64 24 3d 57 6f 72  |yz":oldWord$=Wor|
00001120  64 24 3a 6e 6c 24 3d bd  28 31 33 29 0d 06 90 2a  |d$:nl$=.(13)...*|
00001130  e3 20 79 25 3d 31 20 b8  20 37 3a e3 20 69 25 3d  |. y%=1 . 7:. i%=|
00001140  30 20 b8 20 36 3a f3 20  58 59 25 28 69 25 2c 79  |0 . 6:. XY%(i%,y|
00001150  25 29 3a ed 3a ed 0d 06  9a 05 20 0d 06 a4 05 e1  |%):.:..... .....|
00001160  0d 06 ae 05 20 0d 06 b8  0b dd f2 65 72 72 6f 72  |.... ......error|
00001170  0d 06 c2 1a ee 20 85 20  87 3a db 3a ef 32 33 2c  |..... . .:.:.23,|
00001180  31 2c 31 3b 30 3b 30 3b  30 3b 0d 06 cc 0a 2a 46  |1,1;0;0;0;....*F|
00001190  58 34 2c 30 0d 06 d6 0c  2a 46 58 32 32 35 2c 31  |X4,0....*FX225,1|
000011a0  0d 06 e0 1c e7 20 9f 3c  3e 31 37 3a f6 3a f1 22  |..... .<>17:.:."|
000011b0  20 61 74 20 6c 69 6e 65  20 22 3b 9e 0d 06 ea 05  | at line ";.....|
000011c0  e1 0d 06 f4 05 20 0d 06  fe 1a dc 20 31 31 2c 31  |..... ..... 11,1|
000011d0  31 2c 31 33 2c 31 35 2c  31 38 2c 32 31 2c 32 34  |1,13,15,18,21,24|
000011e0  0d 07 08 1a dc 20 31 31  2c 31 31 2c 31 38 2c 32  |..... 11,11,18,2|
000011f0  33 2c 32 38 2c 32 38 2c  32 38 0d 07 12 1a dc 20  |3,28,28,28..... |
00001200  31 31 2c 31 38 2c 31 38  2c 31 38 2c 31 38 2c 31  |11,18,18,18,18,1|
00001210  38 2c 31 38 0d 07 1c 1a  dc 20 31 31 2c 31 38 2c  |8,18..... 11,18,|
00001220  31 38 2c 31 38 2c 31 38  2c 31 38 2c 31 38 0d 07  |18,18,18,18,18..|
00001230  26 1a dc 20 31 31 2c 31  31 2c 31 38 2c 32 34 2c  |&.. 11,11,18,24,|
00001240  32 34 2c 32 34 2c 32 34  0d 07 30 1a dc 20 31 31  |24,24,24..0.. 11|
00001250  2c 31 31 2c 31 38 2c 32  35 2c 32 35 2c 32 35 2c  |,11,18,25,25,25,|
00001260  32 35 0d 07 3a 18 dc 20  39 2c 39 2c 31 36 2c 33  |25..:.. 9,9,16,3|
00001270  31 2c 33 33 2c 33 35 2c  33 35 0d ff              |1,33,35,35..|
0000127c