![](/images/new-backgrounds/1263696/263696109x1.webp)
[Sample Program]
LPRINT CHR$ (&H1B) ; "*" ; |
|
|
LPRINT CHR$ (0) ; CHR$ (20) ; CHR$ (0) ; | *IMG1: |
|
GOSUB *IMG1 | LPRINT CHR$ (&HFF) ; | |
LPRINT CHR$ (&HA) ; | FOR I=1 TO 18 |
|
LPRINT CHR$ (&H1B) ; "*" ; | LPRINTCHR$ (&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) ; | 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 |
|
[Print Results]
8-dots single density
8-dots double density
55 | CITIZEN |