
[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 Ñ
