Commodore MPS 1200 - Page 138

Result:
-~-
All Bit Pattern Printing
All bit pattern printing works along the same principles as bit
image
printing. An all bit pattern is a pattern created by placing
each
dot individually, with the dots forming a pattern when a
program designed to display the pattern is run, as the following
program demonstrates:
10 open 1,4,7
20 a$=""
30 for i=O to 127
40 a$=a$+chr$(i+127)
50 ne:·:t i
60 b$=""
70 for j=127 to 0 step-l
80 b$=b$+chr$(j+127)
90 ne:·:t j
100 fat' k=l to 3
110 pt'int#l, cht'$ (8) ; a$; cht'$ (15) ; 11 All Bi t Pattet'n 1
120 ne:·:t k
130 pt'int#l
140 fat' k=l to 3
150 pt'int#l, cht'$ (8) ; b$; cht'$ (15) ; 11 All Bi t Pattet'n 2
160 ne:·:t k
170 for m=l to B:print#l:next m
180 close 1
Result:
... .:.I~~.4.:.1~· .. .:.IiiIiII·...:.I~·.a.»:ii·~
All Bit
Pattet'n
• .. .:..~~·..:.I~· .. .:.IIiiiiII·...:.I~ ... .:.t~-...:..iiiiI
All Bit Pattern
· .. ..:.I..::!.iII:· .. .:.II.;:.iII··.:.I~··.:.IiiIiII· .. .:.I~· .. ~·.t.:.I~··.:.IIiIiI
All
Bit
Pattet'n
5tu<'S""'·Mrt"·IIO.!:::..I'''·s;e:.''~''·g..:.''·IIi.!::.''.'
All Bit Pattet'n
1iIIi:ii .. t;:::&.-~.~ .. ~~~ ... ~~ ...
All Bit Pattet'n
1iiiiIi"·~~~~"~gK."·~If..'"
All
Bit Pattet'n
7-4
1
1
1
2
2
2