Commodore CBM Printer 4022 User Manual page 25

^N
To
execute
this
program, simply type:
RUN
Tliis
is
the result:
CBM
•=+eSS:
FR INTER
CHRRRCTER SET
I
"
#*; A
•••
O
*+
,
-
.
/M
1
2:"!4!=!b789
:
;
<=>?eflECriEFGH
I
JKLMNOPQRSTUVWK VZ
C
\
]
t^
tmTJ ^
l:^
ll-ih_r-SHI
I
r"--b
^"V-*!—
"-I
h
'-TK-rii-^l
.->»•! t*+g Itr^
m n«KaP^in=P4SRiiHai^«iuiJi'S3EBMSHeifii«s6HrKiK^isars£«rrk
I
"#$•',";.
i'
i#+
,
-.
/fil2:"i4!^'i^?!-"^
•
•
<'=">'"'@abcdef
Eihi
ok
lriiriof:":v"s+U'v'i.i.i::::yz+*
\''.'^
I«-J'i~s^
ll-'ih-VsHI
I
r"-*-i
'-"
V-flECIiEFOHIJK LriHQpQRST U
VNl^'T'ZE
S]
Tt-
[•sj»««sjiaia5ii!»]s»r*f*Jiweafit^5i3?^HBwa
t^am^mwismsssm
m
m
ii
im
hin
>
miiin
n
iiiirniiinriirriiii
m
t i
mwnri
wnwr
10
OPEN
4..
4
2(^
FOR 1=32
TO
95
:fl$=fl$+i::HR*< I)
^NEKT
30 FOR 1=160
TO
223:Bf=E*+CHR$<I>:NEKT
40
C:*="a"+fl$
50
D*="a"+E*:
60
Ef="W+m
70
F*="M"+E*
80
Gt="W"+C*
90
m="W'+m
100 PRIHT#4..
CHR$':;i::'"CBM
4022 PRINTER
CHflRFlCTER SET'
1
i
PR
I
NT#4
:
PR
I
NT#4
:
PR
I
NT#4
120
PRINT#4..fl$
130
PRINT#4.. E*
140 PRINT#4..f:$
150 PRINT#4..D*
160 PRINT#4..E$
170 PRINT#4..F*
1S0 PRINT#4..G*
190 PRINT#4..H$
200
CriD4
2
1
PR
INT:
PR
I
NT
:
PR
I
NT
PR
I
NT
:
PR
I
NT
220 LIST
REflDV.
Now,
to
close the channel
and
the
file,
type:
PRINT#4
CLOSE
4
-
20