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