★ APPLICATIONS ★ DIVERS ★ LISTER ★ |
| Lister (CPC Amstrad International) | Applications Divers |
Es ist wohl schon den meisten Programmierern passiert: Ein vor langer Zeit geschriebenes Programm soll erweitert werden, ist aber (z.B. wegen Speicherplatzoptimierung) so unübersichtlich. daß es erst einmal Stunden dauert, bis man den Programmablauf wieder übersehen kann. Dieses Programm untersucht ein in ASCII abgespeichertes Basic-Programm und gibt ein möglichst übersichtliches Listing aus (WICHTIG: Das zu listende Programm MUSS mit der Funktion 'SAVE "Programm",A' abgespeichert worden sein). Das Programm erstellt ein Listing mit folgenden Merkmalen:
Das Programm sucht jede Zeile nach Doppelpunkten ab und trennt die Zeile nach Bedarf auf. Doppclpunkte zwischen zwei Anführungszeichen werden nicht beachtet (Zeile 260 bis 340). zu 2. Nach jedem der in 2. genannten Befehle rückt die erste Druckposition der folgenden Zeilen um 11 Stellen nach rechts, und zwar solange, bis der entsprechende Folgebefehl erkannt wird. In Zeile 130 wird der Drucker initialisiert. Diese Werte für den
Das abgedruckte Listing wurde bereits mit diesem Programm erstellt. Da jedoch im Programm keine unbedingten Sprünge und keine Unterprogramme vorkommen, sind hier nicht alle Funktionen sichtbar. Das Programm wurde für den CPC464mit Diskette geschrieben. dürfte aber auch auf dem 664 laufen, wenn in Zeile 230 das erste Klammerzeichen weggelassen wird (der DEC$-Befehl funktioniert beim 664 ja richtig). Ebenfalls sollte es bei Kassettenbetrieb funktionieren, nur eben etwas langsamer. Sämtliche REMARK-Zeilen können beim Abtippen weggelassen werden. CPCAI 8601
|
