Listing of file='CHAR3.BAS;01' on disk='vmedia/hardware_utilities-sector.ccvf'
100 REM PROGRAM TO DRAW SYMBOLS FROM CHAR EPROM DATA 110 REM K.G.WINDER. OCT 1983 120 B1= 0:B2= 0:B3= 0:B4= 0:B5= 0:B6= 0:B7= 0:B8= 0:PLOT 12,6,2 130 FOR I= 1TO 8:PLOT 3,0,2 140 PLOT 14,11,3,16,2:PRINT "ENTER THE EPROM DATA NUMBER " 142 PLOT 3,28,4:INPUT N 144 PLOT 3,24,4:PRINT " " 150 PLOT 15:PRINT :IF I= 8THEN PLOT 11:GOTO 170 160 PLOT 11:PRINT TAB( 18)"NEXT LINE NUMBER ";I+ 1;"" 170 Z= N:PRINT :GOSUB 1010 180 X= 10+ I 190 PLOT 3,12,X:PRINT "";B1;B2;B3;B4;B5;B6;B7;B8;"" 200 PLOT 3,32,X:IF B1= 1THEN PLOT 96:GOTO 220 210 PLOT 3,32,X:PLOT 46 220 PLOT 3,33,X:IF B2= 1THEN PLOT 96:GOTO 240 230 PLOT 3,33,X:PLOT 46 240 PLOT 3,34,X:IF B3= 1THEN PLOT 96:GOTO 260 250 PLOT 3,34,X:PLOT 46 260 PLOT 3,35,X:IF B4= 1THEN PLOT 96:GOTO 280 270 PLOT 3,35,X:PLOT 46 280 PLOT 3,36,X:IF B5= 1THEN PLOT 96:GOTO 300 290 PLOT 3,36,X:PLOT 46 300 PLOT 3,37,X:IF B6= 1THEN PLOT 96:GOTO 320 310 PLOT 3,37,X:PLOT 46 320 PLOT 3,38,X:IF B7= 1THEN PLOT 6,1,96:PLOT 6,3:GOTO 340 330 PLOT 3,38,X:PLOT 6,1,46 340 PLOT 3,39,X:IF B8= 1THEN PLOT 6,1,96:PLOT 6,3:GOTO 360 350 PLOT 3,39,X:PLOT 6,1,46 360 PLOT 3,43,X:PRINT "";N;"" 370 PLOT 6,3:NEXT I 380 GOSUB 410 390 PLOT 3,17,25:INPUT " AGAIN? THEN PRESS RETURN - ";Q 400 GOTO 120 410 PLOT 3,13,20:PRINT "1 6 3 1 8 4 2 1 SCREEN CHARACTER" 420 PLOT 3,13,21:PRINT "2 4 2 6 " 430 PLOT 3,13,22:PRINT "8 " 440 RETURN 1000 REM BINARY NUMBER CALCULATION 1010 B1= 0:B2= 0:B3= 0:B4= 0:B5= 0:B6= 0:B7= 0:B8= 0 1020 IF Z> 127AND Z< 256THEN B1= 1:Z= Z- 128 1030 IF Z> 63AND Z< 128THEN B2= 1:Z= Z- 64 1040 IF Z> 31AND Z< 64THEN B3= 1:Z= Z- 32 1050 IF Z> 15AND Z< 32THEN B4= 1:Z= Z- 16 1060 IF Z> 7AND Z< 16THEN B5= 1:Z= Z- 8 1070 IF Z> 3AND Z< 8THEN B6= 1:Z= Z- 4 1080 IF Z> 1AND Z< 4THEN B7= 1:Z= Z- 2 1090 IF Z= 1THEN B8= 1 1100 RETURN