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