
101
110 OUT &H378,1 : OUT &H37A,5 : OUT &H37A,4
120 RETURN
40 GOSUB 100
100 O=INP(&H3BD) : IF 0<128 THEN 100
110 OUT &H3BC,I : OUT &H3BE,5 : OUT &H3BE,4
120 RETURN
nPrinting BIG characters
You can even enlarge your character sets for
Table |
|
| |
Big character | commands | ||
Function | Control code | ||
(ES0 | “h” | CHR$(l) | |
(ESC) | “h” | CHR$(B) | |
Cancelenlargedprint | (ESC) “h"CHR$(O) |
Try this program to see the big characters.
10 ' Demo of big characters
20 LPRINT "THIS IS ";
30 LPRINT CHR$(27);"h";CHR$(l);
40 LPRINT "DOUBLE";
50 LPRINT CHR$(27);"h";CHR$(O);
60 LPRINT ' SIZED PRINTING."
70 LPRINT
80 LPRINT "THIS IS ";
90 LPRINT CHR$(27);"h";CHR$(Z);
100 LPRINT "QUAD";
110 LPRINT CBR$(27);"h";CHR$(O);
120 LPRINT w SIZED PRINTING."
130 END
When you run this program, you will get like this: