PRDEMO.zx

10 REM PRDEMO

20 CLEAR 61439:LOAD "PRINTOUT"CODE:RANDOMIZE USR 61440

30 LPRINT CHR$29;CHR$0;:REM WINDOW 0

40 LPRINT CHR$30;CHR$0;CHR$11;CHR$31;CHR$0;:REM DEFINE WINDOW

50 LPRINT PAPER 1;INK 7;CHR$ 12;

60 LPRINT CHR$29;CHR$1;:REM WINDOW 1

70 LPRINT CHR$30;CHR$0;CHR$23;CHR$31;CHR$12;:REM DEFINE WINDOW

80 LPRINT PAPER 2;INK 7;CHR$12;

90 LPRINT CHR$29;CHR$0;:REM WINDOW 0

100 LPRINT CHR$26;CHR$1;"THIN CHARACTERS"

110 LPRINT CHR$26;CHR$3;

120 FOR A=32 TO 255:LPRINT CHR$A;:NEXT A

130 LPRINT CHR$26;CHR$2;"TALL CHARACTERS"

140 LPRINT CHR$26;CHR$5;"WIDE CHARACTERS"

150 LPRINT CHR$29;CHR$1;:REM WINDOW 1

160 LPRINT CHR$26;CHR$4;

170 FOR A=32 TO 127:LPRINT CHR$A;:NEXT A

180 LPRINT CHR$29;CHR$2;:REM WINDOW 2

190 LPRINT CHR$30;CHR$11;CHR$14;CHR$20;CHR$10;:REM DEFINE WINDOW

200 LPRINT PAPER 7;INK 0;CHR$12;

210 LPRINT '" EXTENDED"'" SCREEN"'" DRIVER"

220 PAUSE 0