ABBUC e.V. Forum

Verfasst: **29.10.2022 12:47**

Hallo
Ich bin schon Jahrzehnte von der Bedienung und Programmierung des 800xl entfernt
Hab damals einige Menü Programme selbst gemacht
Jetzt Mal ne ganz blöde Frage
Ich kriegs nicht mehr hin
Wie bewege ich den Cursor in einem Programmlisting was grösser wie der Bildschirm ist?
Mit Control und Pfeiltasten ist es nur möglich sich auf dem Bildschirm zu bewegen
Scrollen tut das Listing nicht
Hab in allen wälzern gesucht, nüx
Gruß Norbert

Verfasst: **29.10.2022 14:33**

In BASIC geht erstmal nur das, was am Bildschirm zu sehen ist. Aber man kann ja mit

Code: Alles auswählen

L. 100,200

nur einen Teil des Listings ausgeben lassen.

CTRL und 1

Hilft beim Anhalten eines Listings.

Verfasst: **29.10.2022 16:44**

Hi,
ich hatte vor etlichen Monaten mal ein kleines Basic-Programm geschrieben, das es ermöglicht ein Basic-Listing anzuzeigen und vorwärts und Rückwärts zu scrollen.
Bild

Ist in Turbobasic geschrieben und extrem primitiv.
Speichert man es als LISTER.LST ab kann es von jedes andere Basic Programm per ENTER"D:LISTER.LST" geladen werden.
Fängt das eigene Basic aber schon bei Zeile 10 an, kann ein RENUM 0,100,10 in TurboBasic helfen die Zeilennummern anzupassen.
Man startet den Lister mittels RUN,
* Space drücken für Abbruch,
* hoch und runter für jeweils 100 Zeilen weiter scrollen.
* Links und Rechts geht in 10er Schritten weiter,
* Plus und Minus erhöht/vermindert den Zeilen Step, sollte das jeweilige Listing für den kleinen Screen zu lang sein.
* R startet das eigentliche Programm.

Wer das für das alte Atari Basic braucht, kann es sich gerne umschreiben.
Ist nur mal als Idee entstanden.

Damals kam man noch nicht auf die Idee von solchen Tools.

Hier der Code ohne lästige Zeilennummern

Code: Alles auswählen

START=10
LET STP=100
DO
  LET ENDE=START+STP-%1
  CLS
  ? "L:";START;",";ENDE;"     + - STOP R:RUN"   :REM Hier fehlen die Steuerzeichen, diese aus dem Bild nehmen, sorry!
  LIST START,ENDE
  GET KEY
  IF KEY=29:START=START+STP:ENDIF
  IF KEY=28:START=START-STP
    IF START<0 THEN START=100
  ENDIF
  IF KEY=31:START=START+10:ENDIF
  IF KEY=30:START=START-10:ENDIF
  IF KEY=43:STP=STP+10:ENDIF
  IF KEY=45:STP=STP-10:ENDIF
  IF KEY=32:STOP :ENDIF
  IF KEY=82:GO# BEGIN:ENDIF
LOOP
# BEGIN

Leider fehlen die Sonderzeichen, die sind oben im Bild zu sehen und nur für die Statuszeile da.

Lars

Verfasst: **29.10.2022 17:37**

Danke für den Tip
Gott seis gepfiffen und getrommelt
Ich hab seit den 90ern das erste Mal wieder Mal ein Programm editiert
Und sogar Änderungen zum laufen gekriegt
Durch den ganzen PC Wahn trocknet einem der Hirnschmalz ein, grinst
Werde mich demnächst Mal wieder etwas mehr um meinen XL kümmern

Verfasst: **03.11.2022 12:04**

pps hat geschrieben: ↑
29.10.2022 14:33
In BASIC geht erstmal nur das, was am Bildschirm zu sehen ist. Aber man kann ja mit
Code: Alles auswählen
L. 100,200
nur einen Teil des Listings ausgeben lassen.

CTRL und 1

Hilft beim Anhalten eines Listings.

Und mit der Break-Taste brichst du die Ausgabe ab, wenn du eine gesuchte Stelle gefunden hast (egal, ob die Ausgabe mit Control+1 angehalten wurde).

Ich habe die Freiheit, auf dem Bildschirm mit dem Cursor herumtanzen zu können immer gerne einem Editor, bei dem ich nur innerhalb des Textes bleiben konnte, vorgezogen.

ABBUC e.V. Forum

Cursor bewegen

Cursor bewegen

Re: Cursor bewegen

Re: Cursor bewegen

Re: Cursor bewegen

Re: Cursor bewegen