Citizen CBM-292 Bedienungsanleitung Seite 51

[Example]
[Sample Program]
[Print Results]
LPRINT CHR$ (&H1B) + "∗" ;
LPRINT CHR$ (0) + CHR$ (20) + CHR$ (0) ; IMG1 :
GOSUB IMG1
LPRINT CHR$ (&HA) ;
LPRINT CHR$ (&H1B) + "∗" ;
LPRINT CHR$ (1) + CHR$ (20) + CHR$ (0) ;
GOSUB IMG1
LPRINT CHR$ (&HA) ;
LPRINT CHR$ (&H1B) + "∗" ;
LPRINT CHR$ (32) + CHR$ (20) + CHR$ (0) ;
GOSUB IMG2
LPRINT CHR$ (&HA) ;
LPRINT CHR$ (&H1B) + "∗" ;
LPRINT CHR$ (33) + CHR$ (20) + CHR$ (0) ;
GOSUB IMG2
LPRINT CHR& (&HA) ;
END
NEXT I
50
CBM-292/293 User's Manual
LPRINT CHR$ (&HFF) ;
FOR I=1 TO 18
LPRINT CHR$ (&H85) ;
LPRINT CHR$ (&HFF) ;
RETURN
IMG2 ;
LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&HFF) ;
FOR I=1 TO 18
LPRINTCHR$ (&H80) ;
LPRINTCHR$ (&H00) ;
LPRINTCHR$ (&H05) ;
NEXT I
LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&HFF) ;
RETURN
CITIZEN