Operating instructions
— 89 —
GOSUB *IMG
LPRINT CHR$ (&H1D) ; "/" ; CHR$ (0) ;
LPRINT CHR$ (&H1D) ; "/" ; CHR$ (1) ;
LPRINT CHR$ (&H1D) ; "/" ; CHR$ (2) ;
LPRINT CHR$ (&H1D) ; "/" ; CHR$ (3) ;
END
*IMG :
N1 = 8 : N2= 8
LPRINT CHR$ (&H1D) ; "*" ;
LPRINT CHR$ (N1) ; CHR$ (N2) ;
FOR J=1 TO N1*8
FOR I=1 TO N2
LPRINT CHR$ (J) ;
NEXT I
NEXT J
RETURN
END
<
Normal Mode
< Double Width Mode
< Double Height Mode
<
Quadruple Mode
[Sample Program]
[Print Results]