Compucolor.org – Virtual Media

Listing of file='CHRTST.BAS;02' on disk='vmedia/printer_pkg_src-sideA-sector.ccvf'

100 PLOT  27,18,4,27,13
110 PRINT  "TEST CHARACTER SET"
120 GOSUB  50000
130 FOR  CN= 0 TO  95
140 GOSUB  55000
150 NEXT  CN
160 PRINT : PRINT
170 PLOT  12
180 POKE  33265,0
190 END
50000 REM  *** DEFINE THE SPECIAL CHARACTER SET ***
50010 CLEAR  1000:RESTORE  50100:NC= 96
50020 DIM  CS(NC,7)
50030 FOR  I= 1 TO  NC
50040 FOR  J= 1 TO  7
50050 READ  CS(I- 1,J)
50060 NEXT  J
50070 NEXT  I
50080 RETURN
50100 DATA  0,0,0,0,0,0,0
50110 DATA  121,6,10,50,65,0,0
50120 DATA  127,0,0,0,0,0,0
50130 DATA  0,0,0,0,0,127,0
50140 DATA  28,34,34,65,65,65,0
50150 DATA  65,65,65,34,34,28,0
50160 DATA  1,1,1,1,1,1,0
50170 DATA  1,1,2,4,4,8,0
50180 DATA  8,16,16,32,64,64,0
50190 DATA  8,4,4,2,1,1,0
50200 DATA  64,64,32,16,16,8,0
50210 DATA  7,24,96,0,0,0,0
50220 DATA  0,0,0,7,24,96,0
50230 DATA  127,64,64,64,64,64,0
50240 DATA  64,64,64,64,64,127,0
50250 DATA  127,1,1,1,1,1,0
50260 DATA  1,1,1,1,1,127,0
50270 DATA  127,6,8,16,32,64,0
50280 DATA  64,32,16,8,6,127,0
50290 DATA  127,96,16,8,6,1,0
50300 DATA  1,6,8,16,96,127,0
50310 DATA  112,12,2,2,1,1,0
50320 DATA  1,1,2,2,12,112,0
50330 DATA  7,24,32,32,64,64,0
50340 DATA  64,64,32,32,24,7,0
50350 DATA  65,38,40,48,48,79,0
50360 DATA  64,112,80,72,70,65,0
50370 DATA  65,49,17,9,7,1,0
50380 DATA  127,65,65,65,65,65,0
50390 DATA  1,6,8,16,32,64,0
50400 DATA  65,65,65,65,65,127,0
50410 DATA  64,32,16,8,6,1,0
50420 DATA  64,64,64,64,64,64,0
50430 DATA  85,42,85,42,85,42,0
50440 DATA  8,76,110,127,127,76,0
50450 DATA  127,64,32,16,48,72,0
50460 DATA  0,12,45,127,45,12,0
50470 DATA  0,4,14,31,14,4,0
50480 DATA  2,2,2,2,2,2,0
50490 DATA  4,4,4,4,4,4,0
50500 DATA  8,8,8,8,8,8,0
50510 DATA  0,3,15,60,15,3,0
50520 DATA  16,16,16,16,16,16,0
50530 DATA  65,65,65,65,65,65,0
50540 DATA  66,114,127,127,114,66,0
50550 DATA  0,127,0,0,0,0,0
50560 DATA  0,0,127,0,0,0,0
50570 DATA  0,0,0,127,0,0,0
50580 DATA  0,0,0,0,127,0,0
50590 DATA  0,0,72,124,72,0,0
50600 DATA  67,98,127,127,98,67,0
50610 DATA  0,35,62,63,62,35,0
50620 DATA  0,24,92,127,92,24,0
50630 DATA  96,112,120,124,126,127,0
50640 DATA  127,126,124,120,112,96,0
50650 DATA  3,7,15,31,63,127,0
50660 DATA  127,63,31,15,7,3,0
50670 DATA  65,34,8,8,34,65,0
50680 DATA  96,24,7,0,0,0,0
50690 DATA  0,0,0,112,12,3,0
50700 DATA  31,34,34,65,65,65,0
50710 DATA  127,126,120,112,96,64,0
50720 DATA  65,65,65,34,34,124,0
50730 DATA  64,96,112,120,126,127,0
50740 DATA  32,32,32,32,32,32,0
50750 DATA  0,8,20,34,65,0,0
50760 DATA  65,34,20,8,0,0,0
50770 DATA  0,20,20,20,0,0,0
50780 DATA  0,8,62,8,0,0,0
50790 DATA  4,2,1,2,4,0,0
50800 DATA  16,32,64,32,16,0,0
50810 DATA  8,28,42,8,8,0,0
50820 DATA  8,8,42,28,8,0,0
50830 DATA  4,2,127,2,4,0,0
50840 DATA  16,32,127,32,16,0,0
50850 DATA  32,16,8,4,2,0,0
50860 DATA  2,4,8,16,32,0,0
50870 DATA  8,16,32,56,8,0,0
50880 DATA  0,127,65,65,0,0,0
50890 DATA  0,65,65,127,0,0,0
50900 DATA  24,36,74,74,44,0,0
50910 DATA  127,0,120,16,112,0,0
50920 DATA  127,0,92,84,124,0,0
50930 DATA  0,28,34,65,0,0,0
50940 DATA  0,65,34,28,0,0,0
50950 DATA  8,127,65,65,0,0,0
50960 DATA  0,65,65,127,8,0,0
50970 DATA  0,0,3,2,0,0,0
50980 DATA  0,0,2,3,0,0,0
50990 DATA  0,0,3,0,0,0,0
51000 DATA  0,1,2,4,0,0,0
51010 DATA  0,4,2,1,0,0,0
51020 DATA  62,34,42,34,62,0,0
51030 DATA  4,124,4,124,4,0,0
51040 DATA  0,0,0,0,0,0,0
51050 DATA  0,0,0,0,0,0,0
55000 REM  *** "PRINT" ONE SPECIAL CHARACTER ***
55010 XX =  PEEK (33288)+ 1
55020 IF  XX> PEEK (33289) THEN  PRINT
55030 PLOT  3:REM  ENTER GRAPHICS MODE
55040 FOR  I= 1 TO  7
55050 PLOT  CS(CN,I):IF  CS(CN,I)= 3 THEN  PLOT  3
55060 NEXT  I
55070 PLOT  3,2
55080 XX =  PEEK (33288)+ 1
55090 POKE  33288,XX
55100 RETURN