Compucolor.org – Virtual Media

Listing of file='PRINT.BAS;01' on disk='vmedia/demos-sector.ccvf'

2 PLOT 27:PRINT "R3
4 PLOT 27:PRINT "M"
8 FOR T= 1TO 4
9 PLOT 10,10,10,10
10 READ A,B,C
12 POKE 33289,B
15 PLOT A:PLOT C
20 PRINT "DEMO OF";B;"CHRS PER LINE AND";C;
40 PRINT " LINES PER INCH"
55 PLOT 10
57 FOR A= 1TO 4
60 FOR X= 32TO 127
70 PRINT CHR$ (X);
80 NEXT
90 NEXT
92 FOR X= 128TO 160
93 PRINT CHR$ (X);
94 NEXT
100 DATA 29,132,6,29,132,8,30,80,6,31,40,6
110 NEXT T
120 PLOT 10,10,10,10
130 END