Input "Zeichen";Ch$ 60 For X=1 To - NCR GW-BASIC Betriebsanleitung

Um auf eine Farbbildschirmanzeige umzuschalten, ist folgendes einzuge­
ben:
10 DEF SEG=0
20 POKE &H410,(PEEK(&H410) AND &HCF OR &H10
30 SCREEN 1,0,0,0
40 SCREEN 0:WIDTH 40
50 LOCATE „1,6,7
Zeile 50 erzeugt den Cursor.
Mit Hilfe folgender Befehle ist es Ihnen möglich, den Wert 1,2, oder 3 in
COL% als Vordergrundfarbe anzugeben:
10 DEF SEG
20 POKE &H4E,COL%
Sie können die Bitmuster des Standard ASCII-Teils des GW-BASIC Zei­
chensatzes untersuchen und ausgeben. Diese Zeichen sind im ROM
Ihres NCR Personal Computers gespeichert. Das ROM befindet sich an
der Speicheradresse F000:0000 (Paragraph: Offset). Der 8x8 Bildpunkt-
Zeichensatz beginnt bei F000:FA6E und belegt Adressen bis zu
F000:FE6D. Der 8 x 16 Zeichensatz ist im Speicher von F000H:D000H
bis F000H:D7FFH eingelagert. Das Bitmuster für jedes Zeichen befin­
det sich in acht benachbarten Byte. Das ASCII-Zeichen für den Wert 0
belegt die ersten acht Byte, das ASCII-Zeichen für den Wert 1 belegt die
nächsten acht Byte, etc.
Das folgende Programm liest das Bitmuster eines 8 x 8-Zeichens, das Sie
eingeben; und ergibt ein entsprechendes Muster von Punkten am Bild­
schirm:
10 DEFINT A-Z
20 OPTION BASE 1
30 DIM PATT(8)
40 DEF SEG=&HF000
50 INPUT "Zeichen";CH$
60 FOR X=1 TO 8
70 PATT(X)=PEEK(ASC8CH$)#8+X+&HFA6D)
80 NEXT X
90 CLS
100 FOR X=1 TO 8
110 BYTE=PATT(X)
7-12
ZEICHENSATZ
FÜR PEEKER UND POKER
GW-BASIC