download PDF (41MB) - Mike Schilli

...UND NOCH EIN LEXFILE:
BASICLEX
von Michael Fiedler
Wie in meinem letzten Artikel zu STRUC2
angekiindigt, mochte ich heute den File
BASICLEX vorstellen. Dabei handelt es
sich um eine neue Mbglichkeit, BASIC-
Programme zu listen, sodaB sie wesent
lich ubersichtlicher als bisher dargestellt
werden. Hauptsachlich im Zusammenhang
mit Strukturbefehlen des HP-71 B
(FOR...NEXT, DEFFN...ENDDEF),aber
auch mit den neu hinzukommenden aus
dem Lexfile STRUC2, zeigt sich die Star
ke dieses Lexfiles, da es auf Wunsch
automatisch Einriickungen entsprechend
den Blockstrukturen vornimmt und damit
die Obersichtlichkeit wesentlich erhoht.
Der File stammt von den Autoren Pierre
David und Janick Taillan hier nach einer
Idee von Jean-Pierre Bondu, alles Mit
glieder des PPC Paris. Eine erste Ver
sion wurde in JPC 38 veroffentlicht, diese
vorliegende in JPC 53. Die FilegroBe ist
1838 Bytes (1819 laut CAT), es sind 4
Schliisselwbrter vorhanden:
BASICLEX ID=E1 SIZE=1838 Bytes
5ADBLIST Stmt 225090
5BPBLIST Stmt 225091
5C RENUMREM Stmt 225092
BASICLEX ID=E1 (see:ID=E1)
*
C8 INDENT Word 225200
Die korrekte Syntax lautet:
DBLIST [file][,start][,end] [INDENT x] [TO file]
Der Befehl gleicht also im ersten Teil
genau dem normalen LIST-Befehl. Neu
hinzu gekommen ist die optionale Angabe
INDENT x
wobei mit x angegeben wird, umwieviele
Stellen ein Block eingeriickt werden soil.
Bei hierarchisch ineinander verschachtelten
Blocken addiert sich naturlich die
Einriickungstiefe entsprechend auf, daher
sollte der Wert bei komplexen Programmen
nicht zugroB gewahlt werden. Sonst
bleibt unter Umstanden nicht mehrgeniigend
Platz fur langere Zeilen.
TO file
bedeutet, daB man (optional) das Listing
auch direkt in ein Textfile ubertragen
lassen kann, statt es an das Display zu
schicken. Das ist immer dann niitzlich,
wenn man das Listing anschlieBend etwa
mit einem Texteditor weiterbearbeiten will,
oder per Modem verschicken will, oder
ahnliches.
Die Syntax des Befehls PBLIST ist identisch
mit der von DBLIST. Hierwird ledig
lich die gerade aktuelle PRINTER IS..
Einheit angesprochen, wahrend bei
DBLIST das aktuelle Display angespro
chen wird. Bei Verwendung der "TO file"
Option besteht zwischen den Befehlen
kein Unterschied.
Hier nun eine Auflistung, was bei Ver
wendung der DBLIST/PBLIST-Befehlen
im Listing anders gemacht wird als beim
LIST-Befehl:
1.) Sofern INDENT und ein Wert ange
geben ist: Einriickung von Block
strukturen.
2.) Blbcke mit DATA-Zeilen erhalten
jeweils eine Leerzeile vor und nach
dem Block.
3.) VorjedemLABELwird eine Leerzei
le eingefugt.
4.) REM-Zeilen werden ohne Zeilennummern
angezeigt. Die erste REM-
Zeile wird jeweils mit einem Bindestrich"-"
markiert.
5.) Unterprogramme (SUBs, also sol
che die mit CALL aufgerufen wer
den) stehen in einem mit einem waagrechten
Strich abgetrennten Bereich
am Ende des Listings.
Der Befehl RENUMREM wirkt im Prinzip
wie der RENUMBER-Befehl, nur daB er
bei der Neunumerierung alle Zeilen ausnimmt,
die mit! oder REM beginnen, also
reine REM-Zeilen sind. Diese werden
unabhangig von der angegebenen Schrittweite
immer nur in 1-er Schritten neu
numeriert. Der Sinn liegt darin, daB REM
Zeilen unter DBLIST und PBLIST ohne
Zeilennummern angezeigt werden. Da
durch bleibt die Kontinuitat der restlichen
Zeilennummern erhalten.
Als Beispiel fiir einen PBLIST-Ausdruck
mochte ich gleich noch ein BASIC-Programm
vorstellen, das auch fiir sich ganz
niitzlich sein kann. Es handelt sich um
ein Basis-Umwandlungsprogramm, das
Zahlen beliebiger Basis (zw. 2 und 16)
ineinander umwandelt.
Das Programm BASUM wird einfach
SERIE 70
gestartet und befindet sich danach in
einer Endlosschleife, die immer am Eingabebefehl
INPUT anhalt. Dabei wird links
im Display immer das Ergebnis der letz
ten Berechnung oder Eingabe angezeigt
und rechts kann eine neue Eingabe
gemacht werden. Als Eingaben sind zu
lassig:
1.) eine Zahl (wird als Dezimalzahl interpretiert).
Sie wird gespeichert.
2.) eine Basis in der Form Bxx, also
z.B. B16 fiir hexadezimal, B6 fiir
Basis6,etc.Zusatzlichverstehtdas
Programm die Kiirzel B fur binar, O
fiir oktal, D fiir dezimal (normaler
weise nicht notig, da Default Ein- u.
Ausgabe ohnehin dezimal) und H
fiir hexadezimal. Nach Eingabe einer
Basis wird die vorhin gespeicherte
Zahl in dieser Basis ausgegeben.
3.) eine Zahl mit Angabe der Basis dahinter.
Diese Zahl wird nach dezimal
umgewandelt, gespeichert und an
gezeigt.
4.) nichts (nur ENDLINE): die gespei
cherte Zahl wird dezimal angezeigt.
Beispiele:
Umwandeln der Zahl 23 dez. nach hexa
dezimal:
23 (ENDLINE) H (ENDLINE)
Umwandeln der Binarzahl 10101 nach
oktal:
10101B (ENDLINE) O (ENDLINE)
Umwandeln der Zahl 363A der Basis 12
nach dezimal:
363AB12 (ENDLINE)
Als Beispiel fiir PBLIST lege ich zwei
Listings des Programms BASUM bei, eines
herkommlich mit PUSTerstellt, das andere
mit PBLIST INDENT 2.
Beide Programme, BASICLEX und
BASUM sind auch bei unserer Programm
bibliothek auf magnetischen Medien
erhaltlich. Ebenso gibt es dort jetzt eine
neue, verbesserte Version von MAKEFI
LE, die etwas mehr Komfort bietet als die
aus PRISMA 7/86. U.a. sind die Tasten
rechts neben dem Ziffernblock mit den
Buchstaben A-F belegt, und auch ein
Unterbrechen des Eintippens ist jetzt
moglich, mit Fortfahren zu einem beliebi
gen spateren Zeitpunkt.
Computerclub Deutschland e.V PRISMA 6/89 17