Programmiertes LISTing: LISTX-Y

Bei Hilfsprogrammen, die viele Benutzeranleitungen enthalten, gibt man diese Anleitungen normalerweise über PRINT-Anweisungen auf dem Bildschirm aus. An sich würde es bei geschickter Formulierung jedoch reichen, die sowieso vorhandenen REM-Erläuterungen als Anleitungen für den Benutzer mitzuverwenden.

Nur, wie bringt man diese auf den Bildschirm? Mit LIST wird das Basic-Programm jedesmal zum Direktmodus hin verlassen und, was noch schwerer wiegt, die Anfangs- und Endzeilennummern können nur als direkte Zahlen, nicht über Variablen, angegeben werden. Unser Programmvorschlag (Listing 1) simuliert den im VC 20-Basic nicht vorhandenen Befehl LISTX-Y (X=Variable, die die Anfangszeilennummer des zu listenden Programms übergibt, Y = Endzeilennummer).

Man könnte sich ein solches Hilfsprogramm durch Beschreiben des Tastaturpuffers konstruieren. Dann würden sich aber die in den Puffer geschriebenen LIST-Anweisungen auf dem Bildschirm störend bemerkbar machen. Andererseits kommt aus Geschwindigkeitsgründen nur ein Maschinenprogramm in Frage. Will man ein solches Maschinenprogramm per DATA-Zeilen einlesbar gestalten, wäre der Aufwand recht hoch. Außerdem gäbe es Schwierigkeiten mit dem nur immer auf den Datenanfang zurückstellbaren DATA-Zeiger (kein RESTORE X vorhanden). Einlesen per POKE wäre noch aufwendiger. Umgekehrt muß aber ein solches Maschinenprogramm zur Simulation von LIST Y notwendigerweise viele Teile enthalten, die bereits im Betriebssystem vorkommen. Wir lösen das Problem, indem wir mit zwei einfachen FOR-NEXT-Schleifen geeignete Teile des Betriebssystems in den Kassettenpuffer kopieren und diese Kopien dann durch sechs POKE-Anweisungen so abändern, daß sie unseren Ansprüchen genügen. Listing 1 zeigt das entsprechende Unterprogramm, das beim ersten Aufruf mit »GOSUB 63000« die Maschinenroutine erzeugt. Alle weiteren Aufrufe können mit »GOSUB 6350« erfolgen, wodurch, einiges an Zeit gespart wird. In der Variablen X wird die Anfangszeile, in Y die Endzeile übergeben. Listing 3 zeigt ein Demo-Programm. In Listing 2 gebe wir ein Anwendungsbeispiel an: In einem längeren Programm mögen alle REM-Erläuterungen in den Zeilen 100*a bis 100*a+4 untergebracht sein, also in den ersten fünf Zeilen ab jeder vollen Hunderternummer. Das Beispielprogramm nach Listing 2 wird per GOSUB63100 angesprungen und listet per Cursor-Down-Taste alle oben genannten REM-Zeilen (und nur diese, eventuelle weitere REM-Zeilen werden nicht berücksichtigt). Und zwar geschieht dies in Endlosform, das heißt nach Durchgang durch die letzte zu listende REM-Erläuterung erscheint wieder die erste und so fort. Durch Drücken der Return-Taste gelangt man wieder ins Hauptprogramm.

63000 rem list x-y
63001 rem ========
63002 rem
63010 fori=0to45:poke828+i,peek(50707+i):next
63020 poke845,252:poke856,251
63030 fori=0to120:poke874+i,peek(50889+i):next
63040 poke896,254:poke900,253:poke935,19:poke949,96
63050 poke252,x/256:poke251,x-256*peek(252)
63060 poke254,y/256:poke253,y-256*peek(254)
63070 sys828:return

63100 rem ausdrucken der zeilen 100*a bis 100*a+4
63105 rem
63110 gosub63000:printchr$(147);
63120 x=0
63130 getx$:ifx$=""then63130
63140 ifx$=chr$(13)then63200
63150 ifx$<>chr$(17)then63120
63160 y=x+4:gosub63050:printchr$(145);
63170 x=x+100:ifx>63999thenx=0:goto63130
63180 i=peek(781)+256*peek(780):ifi<y+1ori>x+4thenx=int(i/100)*100
63190 goto63130
63200 return

10 rem list-demo
20 rem =========
30 rem
40 rem
50 rem
60 rem
70 print"list-demo"
80 print
90 input"von";x:input"bis";y
100 print
110 gosub63000:rem list x-y
120 print:print"** ok ** (taste)"
130 geta$:ifa$=""then130
140 print:print
150 goto70
160 rem
170 rem
180 rem