Define new characters
Posted: Thu Jan 13, 2022 3:06 pm
Since I got my IBM XT I wondered how I can define my own characters but I didn't know how to do it using GW-BASIC or QuickBasic or any other BASIC.
I learned how to do it on my MSX in BASIC and it is very easy just like this:
10 SCREEN 1
20 LOCATE 0,10 : PRINT"A"
30 ST=ASC("A")*8 :REM ASC("A")=65 *8=520
40 FORI=0TO7 :REM read 8 datas
50 READ R$
60 VPOKE ST+I, VAL("&H"+R$)
70 NEXT I
80 GOTO 80
1000 DATA 02,06,0E,1E,3E,76,E6,76
Later in I found a source program written in Turbo Pascal. It defines Arabic characters and then use them in a screen zero (text screen with 80 columns) puzzle game. Now I can't find that program anywhere.
So if anyone here could help me or teach me how can I define my own character in GW-BASIC and QuickBasic especially on XT/AT in SCREEN zero (40-columns and 80-columns). Of course other screens are welcome too. Or provide me with web-links in which I can find examples and/or details/hints on how to do it.
Thanks in advance.
I learned how to do it on my MSX in BASIC and it is very easy just like this:
10 SCREEN 1
20 LOCATE 0,10 : PRINT"A"
30 ST=ASC("A")*8 :REM ASC("A")=65 *8=520
40 FORI=0TO7 :REM read 8 datas
50 READ R$
60 VPOKE ST+I, VAL("&H"+R$)
70 NEXT I
80 GOTO 80
1000 DATA 02,06,0E,1E,3E,76,E6,76
Later in I found a source program written in Turbo Pascal. It defines Arabic characters and then use them in a screen zero (text screen with 80 columns) puzzle game. Now I can't find that program anywhere.
So if anyone here could help me or teach me how can I define my own character in GW-BASIC and QuickBasic especially on XT/AT in SCREEN zero (40-columns and 80-columns). Of course other screens are welcome too. Or provide me with web-links in which I can find examples and/or details/hints on how to do it.
Thanks in advance.