Figure 4.3 sample program 1 – AMT Datasouth 41AY89AR777 User Manual
Page 89
Attention! The text in this document has been recognized automatically. To view the original document, you can use the "Original mode".
100
l i o
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
THIS PROGRAM DOWN-LOADS A USER DEFINED
DRAFT CHARACTER IN PLACE OF THE
CHARACTER
LPRINT CHR$(27);“$F9?10.';
LPRINT CHR$<27);'S’;CHR$<0);
LPRINT CHR$<61>;CHR$<61>;
LPRINT CHR$<128>;
LPRINT CHR$<6>;CHR$<8);CHR$<18);
LPRINT CHR$<32)}CHR$<66> ÍCHR$<32)J
LPRINT CHR$<18);CHR^(8);CHR$<6);
LPRINT CHR*<O)ÍCHR$<0)}
LPRINT CHR$<27);■%* ?CHR$<1);CHR$<0);
LPRINT "USER DEFINED CHARACTERS...,.'
LPRINT • = = = = = = = •
LPRINT
LPRINT CHR$ < 27);■% *;CHR* < O);CHR$ < 0);
LPRINT 'STANDARD ROM CHARACTERS.....'
LPRINT • = = = = = = = •
LPRINT
END
CHR$<27>;'8C
SET FTN 9 TO DRAf
ENTRY ESCAPE SEQl
“==• RANGE
DESCENDER DATA
COLUMNS 1-3
DA'
COLUMNS 4-6
DA'
COLUMNS 7-9
DA-
COLUMNS 10,11
DA'
SELECT USER CHAR<
SELECT ROM CHARA(
CLEAR USER CHARA(
USER DEFINED CHARACTERS....
.A A A A A A A
STANDARD ROM CHARACTERS.....= = = = = = =
Figure 4.3 Sample Program 1
4-30