Compucolor.org – Virtual Media

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

100 DIM  LE(59,4):REM  SET UP ARRAY SPACE FOR LETTERS
110 POKE  33289,255:REM  SET LINE LENGTH AT MAXIMUM
120 SP$(1) =  CHR$ (10)+ CHR$ (26):REM  MOVES DOWN AND BACK
125 SP$(2) =  ""
130 SP$(3) =  CHR$ (28)+ CHR$ (26):REM  MOVES UP AND BACK
135 SP$(4) =  CHR$ (32):REM  SPACES ACROSS
140 FOR  X= 1 TO  59:FOR  Y= 1 TO  4
150 READ  LE(X,Y):REM  READ VALUES INTO THE ARRAY
160 NEXT  Y,X
170 REM
180 REM
500 PLOT  6,2,15,29:PRINT  :PRINT  :PRINT
510 INPUT  "ENTER A STRING: ";A$:GOSUB  700
515 IF  LEN (A$)= 0 THEN  500
520 FOR  Y= 1 TO  LEN (A$)
530 C =  ASC (MID$ (A$,Y,1)):REM  GET CHARACTER'S ASCII VALUE
540 IF  C> 90 THEN  640:REM  SKIP INVALID CHARACTERS
550 IF  C< 32 THEN  PLOT  C:GOTO  640:REM  PLOT CONTROL CHRS
560 M =  PEEK (33227):REM  GET X CURSOR POSITION
570 X =  C- 31:REM  GET SUBSCRIPT OF CHARACTER IN ARRAY
575 REM  LINE 580 - IF AT END OF LINE SET UP NEXT LINE
580 IF  M> 60 THEN  GOSUB  700:PRINT  :PRINT
590 FOR  Z= 1 TO  4
600 IF  LE(X,Z)> = 32 THEN  PLOT  29: PRINT  CHR$ (LE(X,Z));
610 IF  LE(X,Z)< 32 THEN  PLOT  30:PRINT  CHR$ (LE(X,Z)+ 96);
620 PRINT  SP$(Z);:NEXT  Z
630 PRINT  SP$(1);" ";SP$(3);
640 NEXT  Y
650 GOTO  500
699 REM  THESE LINES SET UP A LINE TO PRINT ON
700 PLOT  6,2,15,29
710 PLOT  10,10,10,10
720 PLOT  28,28,28,28:RETURN
9999 REM  DATA FOR EACH CHARACTER
10000 DATA  32,32,32,32,32,32,33,110,2,32,32,2,43,43,43,43,3,13,4,14
10010 DATA  79,30,79,30,3,3,24,4,32,32,32,30,20,22,32,32,32,32,23,21
10020 DATA  19,26,16,25,2,15,5,32,32,30,32,32,32,5,5,32,32,42,32,32
10030 DATA  32,30,32,30,0,22,24,21,8,32,1,1,8,25,31,4,5,7,4,26
10040 DATA  30,5,14,1,27,7,4,5,20,123,4,6,5,30,32,26,3,3,4,4
10050 DATA  3,7,23,125,42,42,32,32,42,30,32,32,6,9,8,7,105,102,102,105
10060 DATA  9,6,7,8,8,32,1,4,20,22,9,4,30,14,15,28,27,12,4,4
10070 DATA  20,22,9,6,14,12,23,21,27,12,31,5,27,1,32,5,20,22,29,6
10080 DATA  1,14,15,2,5,31,12,14,32,7,23,2,98,1,28,8,1,12,31,32
10090 DATA  16,1,2,17,16,1,19,2,20,22,23,21,27,1,32,4,20,22,24,21
10100 DATA  27,1,28,4,3,7,4,6,5,32,1,14,1,22,23,2,1,28,30,2
10110 DATA  1,18,19,2,28,30,28,30,28,2,32,30,5,25,31,26