Magic Disk 64

home to index to text: MD8912-UTILITIES-ULTRA_BASIC.txt
             ULTRA BASIC                
            -------------               

Sie möchten ein Programm zur Generierung von Balkengrafiken schreiben? Kein Problem, mit einer Befehlserweiterung!
Sie möchten Komfort beim Editieren des Programms? Kein Problem, mit einer Befehlserweiterung im Stil von ExBasic Level II. Sie wollen beides zusammen? Es verträgt sich nicht? Und liegt auch noch genau in dem Speicherbereich, der für Maschinencode vorgesehen war? Kein Problem mit . . . !
Naja lassen wir das. Jedenfalls leistet ULTRA BAISC die simpelsten Befehle, die im normalen Basic schlichtweg fehlen.
Da das Programm kurz gehalten werden sollte, wurde auf jeden unnötigen Luxus, wie LIST-Scrolling und einen AUTO-Befehl verzichtet. Mit knapp 2 KByte ist Ultra-Basic ziemlich kurz und erweitert das Basic v2 .0 um 21 Befehle für den all- täglichen Programmier-Gebrauch. Die Schwerpunkte liegen dabei auf HiRes-Grafiken und Programmierhilfen.
Nachdem Sie ULTRA-BASIC absolut (,8,1) geladen haben, starten Sie es mit SYS 49152, gefolgt von NEW.
Die Befehle im einzelnen:
GRAPH schaltet die hochauflösende Grafik ab $2000(8129 d) ein.
TEXT schaltet wieder in den Textmodus.
CLEAR löscht den Grafikspeicher.
INVERT invertiert die vorhandene Grafik.
SET x, y setzt einen Punkt in der Grafik ( x:0 bis 319, y:0 bis 199) .
GRACOL zf, hf setzt die Farben für die Grafik ( zf: Zeichenfarbe,0-15 ; hf:
Hintergrundfarbe,0-15) .
CIRCLE x, y, r zeichnet einen Kreis um die Koordinate ( x, y) . Der Radius kann Werte von 1 bis 255 annehmen. Ein Programmierfehler war ursprünglich für ein " kleines Wunder" verantwortlich: Bei exotischen Radius-Werten ( etwa von 90 aufwärts) zeichnet der Befehl keinen exakten Kreis mehr, sondern ein - bei Werten ab etwa 160- fraktalähnliches Gebilde über den ganzen Bildschirm. Es entsteht, dadurch, daß der Kreis bei Randübertretungen am entgegengesetzten Rand weitergezeichnet wird, ein "4 Mal Viertel-Nahezu- Kreis" . Es ist praktisch kein richtiger Kreis mehr, sondern eine symmetrische Aneinandereihung von Punkten. Das Ergebnis kann hier nur unzureichend beschrieben werden. Probieren Sie aus diesem Grund einmal CIRCLE 160,100,255 !
BYTE a, A, B rechnet die 16 bist-Zahl " a" in Lowund Highbyte um und speichert die beiden 8 bit-Werte in den Variablen " A"( Lowbyte) und " B"( Highbyte) ab.
HELP zeigt alle Befehle auf dem Bildschirm an.
LOCATE x, y positioniert den Cursor.
COL rf, hf, zf definiert die Bildschirmfarben ( rf: Rahmenfarbe; hf: Hintergrundfarbe; zf: Zeichenfarbe,0 bis 15) .
DISK zeigt den Fehlerkanal der Floppy an.
PEEP schaltet den Tastaturpieps ein.
NOPEEP schaltet den Tastaturpieps wieder aus.
OFF schaltet das gesamte Ultra-Basic aus. Es kann mit SYS 49152 ohne Programmverlust reaktiviert werden.
BRDSCR läßt den Rahmen für etwa eine Dreiviertelsekunde in allen Farben schillern.
NOSCR schaltet den Bildschirm für zeitkritische Berechnungen aus.
SCREEN schaltet den Bildschirm wieder ein.
DIR zeigt das Directory von DRIVE #8 auf dem Bildschirm an.
PRAT x, y," . . ." oder A$ schreibt den angegebenen Text (" . . .") and der Position Zeile x, Spalte y auf den Bildschirm.
SPACEWT wartet schließlich auf einen Tastendruck.

Valid HTML 4.0 Transitional Valid CSS!