Commodore MPS 1200 - Page 91

1(' open 4,4,7
2(' op en 6, 4, 6
25 for t==l to 5
3(' t~ead i
40 print#6,chr$(i)
50 pt~int#4, "HHHHH";
6':' ne:·:t t
70 close 6:close 4
100 datal,27,36,72,144
A Variable Line Spacing Example
The following program demonstrates the different spacing you call
get with the variable line spacing commands:
10 open 1,4,7
20 k=O: pt~int#l ~ cht~$ (27) ; "-1"
30 sp$ (1) =cht~$ (27) +"A": sp$ (2) =:cht~$ (27)
+cht~$ (126) +"0": sp$ (3) =cht~$ (27) +"3"
40 pt~int#1,"Spacin8 vat~ied by 1/72 of an inch:"
50 gosub 110
60 pt~int#l, "Spac'j.ng vat~ied by 1/144 of an inch:"
70 90sub 110
80 pt~int#1,"Spacin9 vat~ied by 1/216 of an inch:"
90 90SLlb 110
100 pt~int#1,cht~$(27)"-0";:end
110 k=k+l
120 for n=O to 20
130 if n=9 then 90to 170
140
if n=13 then goto 170
150
print#l,sp$(k);chr$(n);
160 gosub 210
170 ne>:t n
180 pt~int#1,cht~$(27)"2"
190 print#l
205 rem ne>:t line leave 40 spaces
210 print#l,"
220 retut~n
230 closel
4-9