jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
 Verfasst am: 21.11.2005, 17:14 Titel: |
 |
|
Und falls das auch nicht gehen sollte, musst du direkt in den Textbildschirm schreiben,
indem du das Segment mit
setzt. So kannst du dann mit Hilfe von POKE die einzelnen Bytes setzen.
Wie das genau geht, steht in der MonsterFAQ unter Textverarbeitung, glaube ich zumindest.
Suche zur Not nach EPRINT.BAS, das ist ein fertiges Programm, das dir genau bietet, was du suchst.
/EDIT: Hier das Programm EPRINT.BAS aus der MonsterFAQ (du musst halt nurnoch Sonderzeichen
einsetzen, durch den Code-Tag des verschwinden die, hier der Direktlink):
| Code: |
'EPRINT.BAS
'Anzeige von ASCII-Steuerzeichen auf dem Bildschirm
'von Pawel, 1999
'====================================================
DECLARE SUB EPRINT (xp$, x, y, fc, hc, b)
DECLARE SUB EPRINT2 (zch, x, y, fc, hc, b)
'
EPRINT "Text", x, y, VordergrundFarbe, HGFarbe, Blinkend
EPRINT2 ASCII, x, y, VordergrundFarbe, HGFarbe, Blinkend
' Blinkend ist hierbei eine boolsche Zahl (0/1)
' EPRINT2 zeigt nur ein einzelnes Zeichen, EPRINT eine ganze Zeichenkette.
CLS
'*** Demonstration . . . ***
EPRINT "*** EPRINT und EPRINT2 ***", 21, 3, 5, 0, 0
FOR i = 1 TO 31
EPRINT2 i, 22 + i, 5, i, 1, 0
NEXT i
'*** ... fertig ***
'
SUB EPRINT (xp$, x, y, fc, hc, b)
IF xp$ = "" THEN GOTO endsub
xpos = 160 * (y - 1) + (x - 2) * 2 'Rechne Koordinaten um
c = fc + (hc * 16) + (b * 128) 'Berechne Farbcode
DEF SEG = &HB800
FOR i = 1 TO LEN(xp$)
xp = ASC(MID$(xp$, i, 1))
POKE xpos + i * 2, xp
POKE xpos + i * 2 + 1, c
NEXT i
endsub:
END SUB
'
SUB EPRINT2 (zch, x, y, fc, hc, b)
IF zch <= 0 THEN GOTO endsub2
xpos = 160 * (y - 1) + (x - 2) * 2
c = fc + (hc * 16) + (b * 128)
DEF SEG = &HB800
POKE xpos + i * 2, zch
POKE xpos + i * 2 + 1, c
endsub2:
END SUB
|
Viel Spaß...
/EDIT 2: Vergiss nur nicht, nacher das Segment mit
wieder zurückzusetzen, und füge das auch oben im Programm ein, da steht's nämlich nicht.
jb |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
