All,
I have made a variation of John's original M100 Raster Character Data
routine that uses the M100's block characters along with the M100 ROM
Character ROM. This program allows you to enter a string (up to 13
characters max) and it will render that string using the ROM character
data, but using block characters CHR$(224) - CHR$(239), thus creating a
half-LCD-height font (see attached screenshot).
Here is the BIGTXT.DO BASIC program:
1 GOTO100
10 C=ASC(C$):IFC>=128THEND=B+480+(C-128)*6ELSED=B+(C-32)*5
20 FORJ=0TO4+W(C):B(J)=PEEK(D):D=D+1:NEXT
30
FORJ=0TO3:FORI=0TO2:K=I*2:L=(B(K)AND3)+(B(K+1)AND3)*4:B(K)=B(K)\4:B(K+1)=B(K+1)\4:PRINT@J*40+I+O,CHR$(C(L));:NEXTI,J
40 O=O+3:RETURN
90 DATA0,1,3,9,2,7,6,11,4,5,8,13,10,12,14,15
100
DEFINTA-Z:DIMC(15):FORJ=0TO15:READC:C(J)=C+224:NEXT:B=30481:A=255:DIMW(A):FORJ=128TOA:W(J)=1:NEXT:O=0
110 CLS:INPUT"String";S$:FORX=1TOLEN(S$):C$=MID$(S$,X,1):GOSUB10:NEXT
Ken
