CBM-270 User’s Manual
GOSUB *IMG1 | LPRINT CHR$ (&HFF) ; |
LPRINT CHR$ (&HA) ; | RETURN |
LPRINT CHR$ (&H1B) ; "*" ; | *IMG2 : |
LPRINT CHR$ (32) ; CHR$ (20) ; CHR$ (0) ; | FOR I=1 TO 3 |
GOSUB *IMG2 | LPRINT CHR$ (&HFF) ; |
LPRINT CHR$ (&HA) ; | NEXT I |
LPRINT CHR$ (&H1B) ; "*" ; | FOR I=1 TO 18 |
LPRINT CHR$ (33) ; CHR$ (20) ; CHR$ (0) ; | LPRINTCHR$ (&H80) ; |
GOSUB *IMG2 | LPRINTCHR$ (&H00) ; |
LPRINT CHR$ (&HA) ; | LPRINTCHR$ (&H05) ; |
END | NEXT I |
| FOR I=1 TO 3 |
| LPRINT CHR$ (&HFF) ; |
| NEXT I |
| RETURN |