Moin Freunde,
Kann man das Scrollen irgendwie unterdrücken?
Unterdrücken nicht.
aber verhindern.
Beispiel unten im Code.
Da wird nur das letzte Zeichen unterdrückt.

Alternativ könnte ich Ctrl-Codes
für Cursor-An Cursor-Aus in das
Video-Terminal-Programm einbauen.
Wenn diese Funktion oft gebraucht wird.

Gruß Jan


Code:
$regfile = "M16def.dat"
$crystal = 16000000
$baud = 9600

Dim Zeile as String * 28
Dim Zeichen as String * 1
Dim Reihe as Byte
Dim Spalte as Byte
Dim Nummer as Byte
Dim Zpz as Byte '<---hier

Restore Daten

Zpz=28  '<---hier
For Reihe = 1 To 24
   Read Zeile
   if reihe=24 then Zpz=27   '<---hier
   For Spalte = 1 To Zpz  '<---hier
      Zeichen = Mid(Zeile , Spalte , 1)
      Nummer = Asc(Zeichen)
      If Nummer > 32 Then Nummer = Nummer - 48
      Print Chr(Nummer);
   Next Spalte
Next Zeile

Do
Loop

End

Daten:
Data "      I    F         OCCM   "
Data "       ICCF          O  O   "
Data "      HA  BD         OLLG   "
Data "      FJEJEI         O      "
Data "      E    J         OHD    "
Data "     J      E         BA    "
Data "    HNCGKCGKOD        JE    "
Data "   LADDDDDDDDFML      JE    "
Data " NCK GFFFFFFEEE I     JE    "
Data "J  J GFFFFFFEEML I    BA    "
Data "F GK GFFFFFFEOEBEJ   L  L   "
Data "EJAJ MLLLLLLLOE EJ   BMNA   "
Data "IJDJ        HNEHEJ    NM    "
Data "JCCGMLLLLNOOOOEGHN   NABM   "
Data "JBEEHC KMJC JM EGN          "
Data "BCCAJ DNOJHLNG CCA   HGKD   "
Data "     ONOEJONNE       JGCA   "
Data "    J  JOJ  JO       JEHD   "
Data "    BNFOGJLGOG        CC    "
Data "    HC JIJC JE        HD    "
Data "    J DNOJHLNN        JE    "
Data "    HONOMJONNM        JE    "
Data "    GBCOOF CKOE       JE    "
Data "    MNOOOMLLNOE       JE    "