[Sample Program] |
|
LPRINT CHR$(&H1B) + “*”; | IMG1: |
LPRINT CHR$(0) + CHR$(20) + CHR$(0); | |
GOSUB IMG1 | LPRINT CHR$(&HFF); |
LPRINT CHR$(&HA); | FOR I=1 TO 18 |
LPRINT CHR$(&H1B + “*”; | LPRINT CHR$(&H85); |
LPRINT CHR$(1) + CHR$(20) + CHR$(0); | NEXT I |
GOSUB IMG1 | LPRINT CHR$(&HFF); |
LPRINT CHR$(&HA); | RETURN |
LPRINT CHR$(&H1B) + “*”; | IMG2: |
LPRINT CHR$(32) + CHR$(20) + CHR$(0); | LPRINT CHR$(&HFF); |
GOSUB IMG2 | LPRINT CHR$(&HFF); |
LPRINT CHR$(&HA); | LPRINT CHR$(&HFF); |
LPRINT CHR$(&H1B) + “*”; | FOR I=1 TO 18 |
LPRINT CHR$(33) + CHR$(20) + CHR$(0); | LPRINT CHR$(&H80); |
GOSUB IMG2 | LPRINT CHR$(&H00); |
LPRINT CHR$(&HA); | LPRINT CHR$(&H05); |
END | NEXT I |
| LPRINT CHR$(&HFF); |
| LPRINT CHR$(&HFF); |
| LPRINT CHR$(&HFF); |
| RETURN |
[Print Results]
←
←
←
←
— 25 —
