Befehlserweiterung für Seikosha SP-1000VC
Der Seikosha SP-1000VC ist ein Drucker mit vielen Möglichkeiten. Sie sind nur etwas schwer einzustellen. Wir bieten Ihnen über 90 neue Befehle, damit Sie ohne großen Aufwand alle Funktionen im Griff haben.
Der Seikosha SP-1000VC ist ein Drucker mit großer Leistungsvielfalt. Diese Möglichkeiten werden aber getrübt durch die umständlichen Aufrufe über die Sekundäradressen. Das zieht endlos lange OPEN...PRINT #...-Sequenzen mit den entsprechenden FILE OPEN- beziehungsweise FILE NOT OPEN-Errors nach sich. Das Handbuch spendet zweifelhaften Trost: »Denken Sie daran, der C 64 kann 10 Files gleichzeitig offen halten!«
Die nächste Enttäuschung: Der 9-Nadeldrucker druckt Grafik mit 7 Nadeln! Außerdem nur einfache Punktdichte und nicht einmal Fettdruck.
Diese Befehlserweiterung schafft dem Abhilfe. Keine umständliche Programmierung mehr, sondern nur noch kurze, prägnante Befehle.
Das Programm »SP-1000VC.2« (Listing 1) wird absolut (,8,1) geladen und über SYS 49152 aktiviert. Zum Desaktivieren dient SYS 50601. Eventuelle andere Basic-Erweiterungen müssen vorher aktiviert werden, da das Programm beim Initialisierungsaufruf den Vektor $308/$309 (Basic-Befehl ausführen) speichert und bei Desaktivierung wieder zurückschreibt. Mehrfache Aktivierungen werden abgefangen und führen nicht zum Systemabsturz (Selbstaufruf).
Die neuen Basic-Befehle erkennt das Programm an dem vorangestellten Symbol (voreingestellt ist der Pfeil links). Dieses Symbol kann durch POKE 51683,ASC$...geändert werden. Im folgenden sind alle Befehle ohne das (immer zu beachtende) Symbol beschrieben. Das heißt, »BEFEHL« muß als »← Befehl« interpretiert werden.
Die kompletten Befehle zur Druckersteuerung sind in einer Tabelle zusammengefaßt (Tabelle 1). Die Werte in dieser Tabelle können Sie mit Setzbefehlen ändern (meist werden durch das Setzen auch die entsprechenden Befehle zum Drucker gesendet). Diese Tabelle wird durch RT, HP, HF und HE mit Normwerten neu gesetzt.
Aktivieren: SYS 49152
Desaktivieren: 50601
| Bei Aktivierung und Desaktivierung werden die Vektoren anderer Basic-Erweiterungen berücksichtigt. | |||
| Parameter für Randeinstellung, Zeilenvorschub, Tabulatoren, Zeilen/Seite & Grafikdaten werden in der Tabelle abgelegt. | |||
| Diese Tabellle kann mit ←RT oder ←HP, ←HF, ←HE mit Normalwerten geladen werden. | |||
| ←D | Druckerverbindung ein (Sekundäradr = > Zeichensatz | ←D0 | Verbindung aus (Files, Tab & Druckerwerte bleiben & ←B0 & ←Z0) |
| ←SS,n | Sekundäradresse (←D) setzen (n=0..Groß(Grafik, n=7..Klein/Groß) wirksam in ←D nur nach ←RM ! | ←RT | Tabelle mit Normwerten laden & ←D0 |
| ←RD | Druckerreset (Tab & Druckerverbindung bleiben) | ←RM | Masterreset (Files closed & ←D0) |
| ←P | Pica ein | ||
| ←PQ | Pica High Quality ein | ||
| ←E | Elite ein | ||
| ←EQ | Elite High Quality ein | ||
| ←C | Condensed (Komprimiert) ein | ||
| ←H | Hoch (Superscript) ein | ||
| ←T | Tief(Subscript) ein | ||
| ←K | Klein/Groß-Zeichensatz ein | ||
| ←G | Groß/Grafik-Zeichensatz ein | ||
| ←I | Italic (Kursiv) ein | ←I0 | Italic (Kursiv) aus |
| ←B | Breitschrift (Double Width) ein & ←Z0 | ←B0 | Breitschrift (Double Width) aus & ←Z0 |
| ←F | Fettschrift (Double Strike) ein | ←F0 | Fettschrift (Double Strike) aus |
| ←R | Revers ein | ←R0 | Revers aus |
| ←U | Unterstreichen ein | ←U0 | Unterstreichen aus |
| ←W | Nur Wagenrücklauf (CS) | ||
| ←WL | Wagenrücklauf & Zeilenvorschub (LF) | ←WQ | Wagenrücklauf, Zeilenvorschub & Quote cleared (CR) |
| ←X | Unidirektionaler Druck ein | ←X0 | Unidirektionaler Druck aus |
| ←FF | Formfeed (Formualartransport) (norm 54) | ←SZS,n | Zeilen/Seite (max 127) setzen |
| ←L1 | Zeilenvorschub aus Tabelle (norm 1/2 Punkt) | ←SL1,n | Zeilenvorschub n*1/144 in (1/2 Pkt) setzen |
| ←L2 ←L3 wie ←L1 (norm 1 Punkt beziehungsweise7,5Punkte) | ←SL2,n | ←SL3,n wie ←SL1 | |
| ←LA ←LB ←LC Zeilenvorschub für ←H (Grafik"Minimum"Normal") | |||
| ←LD ←LE ←LF ←LG ←LH Zeilenvorschub für ←E, ←P (Grafik"Minimum"Normal"1 Zeile"1½ Zeilen") | |||
| ←M | Linker und rechter Rand aus Tabelle (norm 00&72) | ←ML,nm | Linken Rand in Tabelle (nm Pica) setzen |
| ←MR,nm | Rechter Rand in Tabelle (nm Pica) setzen | ||
| ←TA | Tabulator aus Tabelle (norm 16*1/60 in) | ←STA,n,m | Tabulator (n*250) + m 1/60 inch) setzen |
| ←TB | Tabulator aus Tabelle (nicht normalisiert !! ) | ←STB,n,m | Tabulator (n*250 + m 1/60 inch) setzen |
| ←T1 | Tabulator aus Tabelle (norm 01 Pica) | ←ST1,n,m | Tabulator (nm Pica) setzen |
| ←T2 | ←T3 Tabulator aus Tabelle (norm 35 beziehungsweise 55 Pica) | ←ST2,n,m | ←ST3,n,m Tabulator (nm Pica) setzen |
| ←NB | Tab & Drucker für Brief A4 (←PQ,...... ) | ←NL | Tab & Drucker für Listing(←C,........... ) |
| ←Z | Grafikmode ein | ←Z0 | Grafikmode aus |
| ←SZR,n | Grafikrepeat (n=1-255, n=0..256) setzen | ||
| ←Z1 | Grafikdaten 1 aus Tabelle Grafikrepeat mal zeichnen | ←SZ1,nnnnnnn | Grafikdaten mit 0 oder 1 setzen |
| ←Z2 | ←Z3..←Z9 wie Z1 | ←SZ2,nnnnnnn ..←SZ9,nnnnnnn – wie ←SZ1,nnnnnnn | |
| ←ZF | Grafikdaten 1-8 aus Tabelle Grafikrepeat mal zeichnen; zum Beispiel Tab normal & Repeat=10: | ||
| ←HL | "Bildname" HiResbild (33 Blöcke) von Disk laden | ←HP | HiResbild (A000-BFFF) drucken (←TB..linker Rand) |
| ←HF | Wie ←HP aber Fettdruck (doppelte Zeit) | ←HE | Wie ←HP aber entzerrter Fettdruck (4fache Zeit) |
| ←IN(X,Y),F,"T",L,"Z",VV$ | Formatierter Input Befehl für max. 255 Zeichen X...Spalte (0-39), Y...Zeile (0-24), F...Farbe von Text & Eingabefeld (0-15), T...Text (vor Eingabefeld) L...Länge Eingabefeld, Z...Beschränkung auf erlaubte Zeichen (<30), VV$...Stringvariable (max. 255 Zeichen), F "T" "Z" können weggelassen werden ←IN(X,Y)L,VV$ ←IN(X,Y),F,L,VV$ etc. |
||
| ←TX(X,Y),F,"T" oder VV$ | PRINT Text AT Befehl X...Spalte (0-39), Y...Zeile (0-24), F...Farbe des Textes (0-15), T...Text oder VV$...Stringvariable, F kann weggelassen werden ←TX(X,Y)"T" oder ←TX(X,Y)VV$ |
||
| ←SC,A | SROLL UP-Befehl ,A...Anzahl der zu scrollenden Zeilen, A kann weggelassen werden ←SC | ||
| ←CL,Y,A | CLEAR LINE-Befehl Y...Zeile(0..24), A...Anzahl der zu löschenden Zeilen | ||
| ←CS | CLEAR SCREEN-Befehl | ||
| *) Werte werden in Tabelle gesetzt & zu Drucker gesendet | |||
Die Bildschirmfarben (Rahmen, Hintergrund und Schrift) sind für die Betriebszustände »Files und Kanal offen« in den Speicherzellen dezimal 50201 bis 50203, für »Files offen und Kanal geschlossen« in 50198 bis 50200 und für »Files und Kanal geschlossen« in 50195 bis 50197 gespeichert und können durch POKEs (0 bis 15) in die betreffenden Stellen verändert werden.
Verbindung Drucker ein/aus
| D | speichert alle benötigten Files und den Kanal zum Drucker. Wenn Files bereits geöffnet sind, wird nur das Arbeitsfile (7) aktualisiert und der Druckerkanal geöffnet. In der Normtabelle ist für die Eröffnung die Sekundäradresse 7 (Groß/Kleinschrift) gesetzt. Ab jetzt kann mit normalem PRINT oder LIST gedruckt werden. |
| D0 | schließt den Druckerkanal. Files bleiben geöffnet, Tabelle und Druckereinstellungen werden nicht verändert, aber Grafikmodi und Breitschrift nehmen wieder die normalen Werte an. Ab jetzt wirken PRINT und LIST wieder auf den Bildschirm. |
| RM | schließt alle Files. Tabelle und Drucker bleiben unverändert, aber Grafikmode und Breitschrift werden ausgeschaltet. |
| RD | Druckerreset. Files und Tabelle bleiben unverändert, die Druckerverbindung wird aufrecht erhalten. |
| RT | Tabelle mit Normwerten besetzen. Alle Files schließen, Drucker bleibt unverändert, aber Grafikmode und Breitschrift werden ausgeschaltet. |
| SS,n | Sekundäradresse für »D« setzen (Groß/Grafik-Zeichensatz: n=0; Groß/Kleinschrift: n=7). Durch Tabelle normalisieren wird 7 gesetzt. Damit die neu gesetzte Sekundäradresse wirkt, muß das Befehlsfile geschlossen und neu eröffnet werden: »SS,n« : »RM« : »D«. |
Der durch »G« oder »K« befohlene Zeichensatz wird im Drucker nach jedem Wagenrücklauf auf den durch die Eröffnungs-Sekundäradresse befohlenen Zeichensatz zurückgeschaltet.
Benutzte Files: 6, 13, 14, 15, 19, 20, 26 und 27 mit Sekundäradresse=Filenummer und File 7 als Eröffnungs-(Zeichensatz) und Befehlsfile sind von »D« bis »RM« offen. File 4 für Sekundäradressen 3, 10, 11, 12, 22 und 23 ist jeweils kurz offen.
Schriftumschaltungen
| P | Picaschrift ein (auch durch »RD«) |
| PQ | Near-Letter-Quality in Pica ein |
| E | Eliteschrift ein |
| EQ | Near-Letter-Quality in Elite ein |
| C | Komprimierte Schrift (Condensed) ein |
| H | Superscript (Hochschrift) ein |
| T | Subscript (Tiefschrift) ein |
| – Die oben genannten Befehle schalten sich gegenseitig aus. | |
| K | Groß/Kleinschrift ein (Business Mode) |
| G | Groß/Grafik-Zeichensatz ein (Graphic Mode) |
| – Die Zeichensätze werden durch jeden Wagenrücklauf auf den durch die Eröffnung bestimmten Zeichensatz gesetzt. Der Befehl »K« oder »G« muß als letzter Befehl vor PRINT stehen. | |
| I/I0 | Kursiv (Italic) ein/aus |
| B/B0 | Breitschrift (Double Width) ein/aus. (Breitschrift aus durch »D«, »D0«, »RM« oder »RT«.) |
| F/F0 | Fettschrift (Double Strike) ein/aus |
| R/R0 | Revers ein/aus (durch jeden Wagenrücklauf aus). |
| U/U0 | Unterstreichen ein/aus |
Wagenrücklauf/unidirektionaler Druck
Durch jeden Wagenrücklauf wird »R« aufgehoben und »G« beziehungsweise »K« auf den durch die Eröffnungs-Sekundäradresse befohlenen Zeichensatz gesetzt.
| W | Es wird ein Wagenrücklauf ohne Zeilenvorschub durchgeführt (CR). Dies wird zum Beispiel zum Zeichnen und Ausfüllen von Tabellen benötigt (eine Variable für Trennstriche, eine Variable für Text). |
| WL | Ein Wagenrücklauf mit einem Zeilenvorschub wird durchgeführt (CR und LF). Die Größe des Zeilenvorschubs bestimmt der letzte »L.«-Befehl. Drei setzbare und acht fixe Zeilenvorschübe stehen zur Verfügung. Falls noch der Quote-Mode durch CHR$(34) eingeleitet ist, wird dieser nicht aufgehoben und daher der Wagenrücklauf nicht durchgeführt, sondern als Steuerzeichen gedruckt. |
| WQ | Wie »WL«, aber der Quote Mode ist aufgehoben. |
| X/X0 | Unidirektionaler Druck ein/aus. |
Randeinstellungen und Formularlänge
| M | Die Werte für den linken und rechten Rand kommen aus der Tabelle zum Drucker. Durch Normalisierung sind die Werte 00 beziehungsweise 72 Pica-Einheiten gesetzt (1 Pica = 1,2 Elite = 1,7 Condensed). |
| ML,nm | Linken Rand in der Tabelle setzen (nm=Pica-Einheiten). Wertübertragung zum Drucker nur mit »M«. |
| MR,nm | Analog wie oben, nur mit dem rechten Rand. |
| FF | Formulartransport (Formfeed) im Ausmaß einer Seite. Die Größe einer Seite wird durch »SZS,n« in Zeilen pro Seite bestimmt. |
| SZS,n | Setzen der Anzahl Zeilen pro Seite in der Tabelle (maximal 127). Durch das Setzen wird der Befehl auch an den Drucker gesendet. In der Normtabelle steht der Wert 54. |
Zeilenvorschübe
Die Größe des Zeilenvorschubes wird im Drucker in n*1/144 inch gesetzt (Abstand zwischen zwei Punkten = 2/144 inch). Die Durchführung von Zeilenvorschüben erfolgt mit »WL« oder »WQ« entsprechend dem zuletzt gesetzten Wert. Falls der Wagenrücklauf durch »Ende Text ohne Semikolon« ausgelöst wird, muß daher ein neuer Wert für den Zeilenvorschub vor diesem Text eingegeben werden (aber vor eventuellen »G«- oder »K«-Befehlen, da diese sonst aufgehoben werden).
Es stehen drei Gruppen von Zeilenvorschüben zur Verfügung: Drei fixe Zeilenvorschübe für die Schrifthöhe der Hoch- beziehungsweise Tiefschrift (»LA«...»LC«), fünf fixe Zeilenvorschübe für normale Schrifthöhe (»LD«.. »LH«) und drei in Tabelle setzbare Zeilenvorschübe (»L1«...»L3«).
| LA | Zeilenvorschub für Hoch- und Tiefschrift von Grafiksymbolen. Vorschub 4 Punkte (kein Zeilenabstand). |
| LB | Zeilenvorschub für Hoch- und Tiefschrift mit minimalem Zeilenabstand. Vorschub 5,5 Punkte (platzsparendste Schrift). |
| LC | Zeilenvorschub für Hoch- und Tiefschrift mit normaler Lesbarkeit. Vorschub 6 Punkte. |
| LD | Zeilenvorschub für normale Schrifthöhe der Grafiksymbole. Vorschub 7 Punkte (kein Zeilenabstand). |
| LE | Zeilenvorschub für normale Schrifthöhe mit minimalem Zeilenabstand. Vorschub 9,5 Punkte (platzsparendste Schrift). |
| LF | Zeilenvorschub für normale Schrifthöhe, normale Lesbarkeit. Vorschub 10,5 Punkte. |
| LG | Vorschub 14 Punkte (Zeilenabstand 1 Zeile). |
| LH | Vorschub 17,5 Punkte (Zeilenabstand 1,5 Zeilen). |
| L1 | Aus Tabelle den mit »SL1,n« gesetzten Vorschub zum Drucker senden. In Normaltabelle steht 0,5 Punkte. |
| L2 | Aus Tabelle den mit »SL2,n« gesetzten Vorschub zum Drucker senden. In Normaltabelle steht 1 Punkt. |
| L3 | Aus Tabelle den mit »SL3,n« gesetzten Vorschub zum Drucker senden. In Normaltabelle steht 7,5 Punkte. |
| SL1,n | In Tabelle Wert für Vorschub »L1« in n*1/144 inch setzen und zum Drucker senden (»L1«). |
| SL2,n | In Tabelle Wert für Vorschub »L2« in n*1/144 inch setzen und zum Drucker senden (»L2«). |
| SL3,n | in Tabelle Wert für Vorschub »L3« in n*1/144 inch setzen und zum Drucker senden (»L3«). |
Tabulatoren
Der Abstand des Druckbeginns vom linken Rand wird dem Drucker entweder in Pica-Einheiten oder in 1/60-inch-Punktabständen befohlen. Es stehen daher zwei Gruppen von vorsetzbaren Tabulatoren zur Verfügung: Zwei Tabulatoren: in 1/60 inch (»TA«/»TB«) und drei Tabulatoren in Pica-Einheiten (»T1«..»T3«).
Eine Pica-Einheit entspricht 1,2 Elite- beziehungsweise 1,7 Condensed-Einheiten (gewünschter Elite-Tabulator/1,2 = Pica-Tabulator; gewünschter Condensed-Tabulator/1,7 = Pica-Tabulator).
1 Pica = 7 Punkte (gewünschter Pica-Tabulator*7 = Punkt-Tabulator; gewünschter Elite-Tabulator*7/1,2 = Punkt-Tabulator; gewünschter Condensed-Tabulator*7/1,7 = Punkt-Tabulator).
| TA | Punkt-Tabulator (1/60 inch) aus Tabelle (gesetzt mit »STA,n,m«) an Drucker senden. |
| TB | Punkt-Tabulator (1/60 inch) aus Tabelle (gesetzt mit »STB,n,m«) an Drucker senden. |
| T1 | Pica-Tabulator aus Tabelle (gesetzt mit »ST1,nm«) an Drucker senden. |
| T2 | Pica-Tabulator aus Tabelle (gesetzt mit »ST2,nm) an Drucker senden. |
| T3 | Pica-Tabulator aus Tabelle (gesetzt mit »ST3,nm«) an Drucker senden. |
| STA,n,m | Punkt-Tabulator in Tabelle setzen und zum Drucker senden. Tabulator = n*250+m Punkte (1/60 inch). In Normtabelle steht 16 Punkte. |
| STB,n,m | Punkt-Tabulator in Tabelle setzen und zum Drucker senden. Tabulator = n*250+m Punkte (1/60 inch). Keine Normierung! (für HiRes-Print benötigt.) |
| ST1,nm | Pica-Tabulator in Tabelle setzen und zum Drucker senden. nm = Anzahl Pica-Einheiten (zweistellig eingeben!). In Normtabelle steht 1 Pica. |
| ST2,nm | Pica-Tabulator in Tabelle setzen und zum Drucker senden. nm = Anzahl Pica-Einheiten (zweistellig eingeben!). In Normtabelle steht 35 Pica (A4 Mitte). |
| ST3,nm | Pica-Tabulator in Tabelle setzen und zum Drucker senden. nm = Anzahl Pica-Einheiten (zweistellig eingeben!). In Normtabelle steht 55 Pica. |
Vorgesetzte Gesamteinstellungen
Für Listing- und A4-Drucke sind die notwendigen Einstellungen mit Kurzbefehlen durchführbar.
| NB | Druckereinstellung für A4-Druck: Groß-/Kleinschrift, 60 Zeilen pro Seite, linker Rand 3 Pica, rechter Rand 70 Pica, Zeilenvorschub »LG«, Near-Letter-Quality Pica. |
| NL | Druckereinstellung für schmale Listings: Groß/Grafik-Zeichensatz steht nach »RM« : »D« zur Verfügung (sonst Groß/Kleinschrift), 36 Zeilen pro Seite, linker Rand 0 Pica, rechter Rand 48 Pica (81 Condensed), Zeilenvorschub »LE«, Schmalschrift. |
Grafikdruck
Nach der Umschaltung auf Grafikmode erwartet der Drucker 8-Bit-Grafikdaten (7 Punkte von oben nach unten; Bit 0 bis 6, Bit 7 immer gesetzt).
Der Zeilenvorschub kann nicht geändert werden und beträgt 7 Punkte (14/144 inch). Durch einen Grafikrepeat-Befehl können die Grafikdaten entsprechend der Eingabe wiederholt werden. Es stehen neun Befehle (»Z1«...»Z9«) für die Sendung von vorgesetzten Grafikdaten und neun komfortable Setzbefehle für die Grafikdaten (»SZ1«...»SZ9«) bereit.
Des weiteren existiert ein Befehl für die Anzahl Wiederholungen der gesendeten Grafikdaten (»SZR,.«), ein Befehl für die Durchführung von »Z1« bis »Z8« sowie Grafikmode ein/aus-Befehle (»Z«..»Z0«).
Für den Druck von HiRes-Bildern stehen ein Ladebefehl (»HL".«) und drei Druckbefehle (»HP«, »HF« und »HE«) für teilentzerrten Normaldruck, teilentzerrten Fettdruck und vollentzerrten Fettdruck zur Verfügung (modifizierte Routine aus 64'er, Seite 69, F. Kulzer).
| Z/Z0 | Grafikmode ein/aus. Ab »Z« werden alle gesendeten Codes als Grafikdaten vom Drucker verarbeitet, der Zeilenvorschub ist 7 Punkte. Hintergrund- und Schriftfarbe werden ausgetauscht. |
| Z0 | Wird auch bei »D«, »D0«, »RT«, »RM«, »B« und »B0« durchgeführt. Die folgenden Befehle »Z1«..»Z9« führen auch »Z« aus, anschließend befindet sich der Drucker im Grafikmode: |
| Z1 | Grafikdaten 1 aus Tabelle (gesetzt mit »SZ1,..«) zum Drucker senden. In Normtabelle steht 1000000. |
| Z2 | Grafikdaten 2 aus Tabelle (gesetzt mit »SZ2,..«) zum Drucker senden. In Normtabelle steht 0100000. |
| Z3 | Grafikdaten 3 aus Tabelle (gesetzt mit »SZ3,..«) zum Drucker senden. In Normtabelle steht 0010000. |
| Z4 | Grafikdaten 4 aus Tabelle (gesetzt mit »SZ4,..«) zum Drucker senden. In Normtabelle steht 0001000. |
| Z5 | Grafikdaten 5 aus Tabelle (gesetzt mit »SZ5,..«) zum Drucker senden. In Normtabelle steht 0000100. |
| Z6 | Grafikdaten 6 aus Tabelle (gesetzt mit »SZ6,..«) zum Drucker senden. In Normtabelle steht 0000010. |
| Z7 | Grafikdaten 7 aus Tabelle (gesetzt mit »SZ7,..«) zum Drucker senden. In Normtabelle steht 1100000. |
| Z8 | Grafikdaten 8 aus Tabelle (gesetzt mit »SZ8,..«) zum Drucker senden. In Normtabelle steht 0011100. |
| Z9 | Grafikdaten 9 aus Tabelle (gesetzt mit »SZ9,..«) zum Drucker senden. In Normtabelle steht 0000011. |
| SZR,n | Wert für die Anzahl Wiederholungen der Grafikdaten in Tabelle setzen (wird mit »Z1«..»Z9« zum Drucker gesendet). n=1-255, n=0 entspricht 256 Wiederholungen. In Normtabelle steht 1. |
| SZ1,nnnnnnn | Grafikdaten 1 in der Tabelle setzen. n=0 – kein Punkt, n=1 – Punkt gesetzt (Punkte von oben nach unten). Der Druck erfolgt mit »Z1«. |
| SZ2,nnnnnnn bis SZ9,nnnnnnn | wie »SZ1,nnnnnnn« für Grafikdaten 2 bis 9. |
| ZF | Grafikdaten 1 bis 8 hintereinander zeichnen (mit entsprechender Wiederholung der einzelnen Daten). |
| HL"Bildname" | Laden eines HiRes-Bildes von Diskette in das RAM unter den Interpreter-Bereich ($A000 bis $BFFF) unabhängig von der ursprünglichen Startadresse des Bildes. Das Bild darf nicht mehr als 33 Blocks umfassen, da sonst die Druckerweiterung ab $C000 überschrieben wird (eventuell vorher mit »Hi-Eddi« überarbeiten). Zu Beginn werden alle Files mit »RM« geschlossen, die Druckerverbindung ist anschließend unterbrochen. |
| Achtung! Es erfolgt keine Fehlerüberprüfung, falls das File nicht gefunden wird. Das Programm fährt aber trotzdem fort. | |
| Die folgenden Befehle »HP«..»HE« führen auch »Z« und »RT« und am Ende »Z0« aus, der Drucker befindet sich anschließend im Schreibmodus. | |
| Der linke Rand des HiRes-Bildes wird mit »STB,nm« gesetzt. | |
| HP | Teilentzerrter HiRes-Ausdruck des RAM-Bereiches $A000 bis $BFFF. Die Verzerrung ist statt 20 nur noch 13 Prozent. Hauptsächlich für Strichvorlagen, da in Flächen ein weißer 1/2-Punkt-Strich entsteht. Normale Druckzeit. |
| HF | HiRes-Fettdruck, sonst wie »HP«, aber kein störender Zwischenraum. Doppelte Druckzeit. |
| HE | Vollentzerrter HiRes-Fettdruck des RAM-Bereiches $A000 bis $BFFF. Vierfache Druckzeit. |
Um das komfortable Programmieren und Ausfüllen von Masken, Tabellen oder ähnlichem zu ermöglichen, sind fünf weitere Basic-Befehle vorgesehen:
Der eingabesichere INPUT-Befehl mit Text- und Variableneingabe von G. Mootz aus 64'er, Sonderheft 8/85 (leider etwas gekürzt und mit geänderter Syntax);
Der PRINT AT-Befehl vom gleichen Autor, um Text an beliebigen Stellen des Bildschirms drucken zu können;
Der SCROLL UP-Befehl, der den Bildschirm um eine oder mehrere Zeilen nach oben scrollt;
CLEAR LINE, um Zeilen zu löschen und den
CLEAR SCREEN-Befehl, der den Bildschirm löscht.
IN(X,Y),F,"T",L,"Z",VV$ Formatierter INPUT-Befehl für maximal 255 Zeichen. Es kann Text mit ausgegeben werden. Ein eventueller Wert der Variablen wird in das Eingabefeld geschrieben (nur bis zur Länge des Feldes). Man kann das Eingabefeld nicht verlassen. Entweder sind alle Zeichen zur Eingabe zugelassen oder die zugelassenen Zeichen (maximal 30) werden eingegeben. Die Tasten <CLR/HOME>, <INST/DEL> und <CURSOR> haben ihre Normalfunktion, allerdings nur innerhalb des Eingabefeldes. Fehlbedienungen zeigt ein Piepston an. Die Übernahme der Variablen erfolgt mit <RETURN> oder, falls Endspaces auch mit übernommen werden sollen, mit <SHIFT/RETURN>. Die Variable muß eine Stringvariable sein.
| Die Parameter | |
| X | –Spalte (0 bis 39) |
| Y | –Zeile (0 bis 24) des Text- oder Eingabefeldes (Variablen sind zulässig). |
| F | –Farbe (0 bis 15) von Text und Eingabefeld (Variable zulässig). Kann weggelassen werden. |
| T | –Text vor Eingabefeld (keine Variable). Kann weggelassen werden. |
| L | –Länge des Eingabefeldes (maximal 255, Variable zulässig). Beginnt entweder bei (X,Y) oder nach »T«. |
| Z | –Anzahl erlaubter Zeichen (maximal 30, keine Variable). Sollen alle Zeichen zugelassen werden, muß dieser Parameter entfallen. |
| VV$ | –Stringvariable mit maximal 255 Zeichen. Der Inhalt dieser Variable wird beim Aufruf in das Eingabefeld geschrieben, mit <RETURN> erhält die Variable den im Eingabefeld stehenden Wert. |
| TX(X,Y),F,"T" | PRINT AT-Befehl. Text kann an einen beliebigen Punkt des Bildschirms geschrieben werden. |
| Parameter: | |
| X | – Spalte (0 bis 39) |
| Y | – Zeile (0 bis 24) des Textbeginns (Variable zulässig) |
| F | – Farbe (0 bis 15) des Textes (Variable zulässig). Kann entfallen. |
| T oder VV$ | auszugebender Text |
| SC,a | SCROLL UP-Befehl. Der Bildschirm scrollt um die angegebene Anzahl (a) nach oben. Das Argument (a) kann entfallen. |
| CL,y,a | CLEAR LINE. Die angegebene Zeile (y) und die folgenden werden gemäß der Anzahl (a) der zu löschenden Zeilen entfernt. |
| CS | CLEAR SCREEN. Löscht den Bildschirm. |
Programmbeschreibung
1) Maschinenprogramm zur Druckersteurung
Dieser Teil belegt den Bereich von $C000 bis $C585. Teil 1 kann als Unterprogramm ohne die anderen Teile verwendet werden (Einbau in eine Textverarbeitung). In diesem Fall sind folgende Änderungen nötig:
Alt: Neu:
$C118 JMP $C586 JMP $A7AE
$C518 JSR $C28D JMP $C28D
$C120 $33 $31
Die Angabe der Einsprungadressen (in Hexadezimal) erfolgt mit dem Buchstabencode der Basicerweiterung in der Reihenfolge der Anwendungsbeschreibung, die Parametertabelle folgt anschließend:
D |
$C003 |
D0 |
$C023 |
RM |
$C3E1 |
RD |
$C22D |
RT |
$C13F |
P |
$C18B |
PQ |
$C1B8 |
E |
$C190 |
EQ |
$C1AE |
C |
$C195 |
H |
$C19A |
T |
$C19F |
K |
$C2BD |
G |
$C2C5 |
I |
$C336 |
I0 |
$C33E |
B |
$C265 |
B0 |
$C26D |
F |
$C1A4 |
F0 |
$C1A9 |
R |
$C275 |
R0 |
$C27D |
U |
$C346 |
U0 |
$C34E |
W |
$C2A5 |
WL |
$C295 |
WQ |
$C29D |
X |
$C21D |
X0 |
$C225 |
M |
$C25F |
FF |
$C2AD |
||
Zeilen pro Seite zu Drucker: |
$C235 |
||
LA |
$C1DD |
LB |
$C1E5 |
LC |
$C1ED |
LD |
$C1F5 |
LE |
$C1FD |
LF |
$C205 |
LG |
$C20D |
LH |
$C215 |
L1 |
$C1C2 |
L2 |
$C1CB |
L3 |
$C1D4 |
||
TA |
$C356 |
TB |
$C365 |
T1 |
$C374 |
T2 |
$C383 |
T3 |
$C392 |
||
NB |
$C3A1 |
NL |
$C3C1 |
Z |
$C285 |
Z0 |
$C28D |
Z1..Z9 |
$C2CD..$C315 |
||
ZF |
$C31E |
||
HL |
!in Teil 2! |
($CAC3 bis $CAE0) |
|
HP |
$C459 |
HF |
$C445 |
HE |
$C43B |
||
Parametertabelle
$C3EF,$C3F0 |
für »TB« n+255, m Punkte |
$C3F1 |
Flag für Druckerkanal offen |
$C3F2 |
Nummer des Arbeitsfiles |
$C3F3 |
Sekundäradresse für Eröffnung mit »D« |
$C3F4 |
Reserve |
$C3F5,$C3F6,$C3F7 |
für »L1«...»L3« |
$C3F8 |
Zeilen pro Seite |
$C3F9 |
linker Rand in Pica für »M« |
$C3FA |
rechter Rand in Pica für »M« |
$C3EB, $C3FC |
für »TA« n*255, m Punkte |
$C3FD, $C3FE |
für »T1« in ASC$ (Zehner), ASC$ (Einer) |
$C3FF, $C400 |
für »T2« in ASC$ (Zehner), ASC$ (Einer) |
$C401, $C402 |
für »T3« in ASC$ (Zehner), ASC$ (Einer) |
$C403, $C404 |
Zähler für HiRes-Print |
$C405 |
Wiederholungen für »Z1«...»Z9« |
$C406-$C40E |
Grafikdaten für »Z1«...»Z9« (siehe Druckerhandbuch) |
$C40F-$C412 |
Masken für HiRes-Print |
$C413-$C415 |
Rahmen,- Hintergrund- und Schriftfarbe für Files und Kanal geschlossen |
$C416-$C418 |
Farben für Files offen und Kanal geschlossen |
$C419-$C41B |
Farben für Files und Kanal offen |
Die Normtabelle von $C41C bis $C43A entspricht der Parametertabelle von $C3F1 bis $C40F. Die Normtabelle kann mit Ausnahme der für HiRes-Print benötigten Vorschübe »L1« und »L3« eigenen Wünschen angepaßt werden.
Außer durch »D« werden Files und Druckerkanal auch durch alle Befehle geöffnet. Erfolgte vorher kein »D«, wird der Kanal anschließend geschlossen.
Befehle über File 4 (Sekundäradressen 3, 10, 11, 12, 22 und 23) öffnen File und Kanal. Sie schließen nach Befehlsübermittlung das File und den Druckerkanal.
Außer dem Bereich $C000 bis $C585 werden in der Zeropage die Adressen $02 allgemein und für HiRes-Print die Adressen $71, $72, $97, $9B, $9C, $9E, $9F, $A5, $A6, $FB bis $FE als Zwischenspeicher verwendet.
Falls das Programm in einen anderen Speicherbereich verschoben werden soll: Die Tabellen befinden sich von $C11B bis $C13E, von $C3E7 bis $C43A und von $C560 bis $C585.
In der Eröffnungsroutine ($C003, $C030, $C05C) sowie in der Endroutine ($C042, $C072) werden die aktuellen Zustände der Files und des Druckerkanals überprüft und entsprechend in Unterroutinen verzweigt. Es stört daher nicht, wenn die Aufrufe mehrfach erfolgen.
2) Maschinenprogramm für 92 Basic-Befehle
Dieser Teil belegt den Bereich von $C586 bis $CB68. Teil 2 kann ohne Teil 3 verwendet werden (Einbau eigener Basic-Erweiterungen in den Bereich $CB69 bis $CFFF). In diesem Fall sind folgende Änderungen nötig:
Alt: Neu:
$C5EA JMP $CEC4 JMP $AF08
$C6D7 JMP $CB69 JMP $AF08
$C847 JMP $CEAF JMP $AF08
$C944 JMP $CEE9 JMP $AF08
$C120 $33 $32
Für die Einbindung eigener Erweiterungen steht $C93D (derzeit: JMP AF08) zur Verfügung. Der nach dem Symbol eingegebene Buchstabe befindet sich im Accu. Es sind noch die Buchstaben A, E, J, O, Q und V frei.
Bei der Aktivierung der Erweiterung ($C586) wird der Vektor $308/$309 (Basic-Befehl ausführen) gelesen und in $C5B9 gespeichert. Als neue Adresse wird $C5BB ( Routine prüft auf Symbol) in $308/$309 geschrieben. Wird kein neuer Basic-Befehl erkannt, erfolgt der Einsprung in den alten Vektorinhalt. Irrtümliche Mehrfachaktivierungen erkennt die Routine $C586 und verhindert Selbstaufrufe, die zum Systemabsturz führen könnten.
Bei der Desaktivierung der Erweiterung ($C5A9) wird die alte Sprungadresse aus $C5B9 wieder nach $308/$309 zurückgeschrieben. Vor Aktivierung der Druckererweiterung sollten daher alle anderen Basic-Erweiterungen schon aktiviert sein.
3) Maschinenprogramm für Bildschrim
Dieser Teil belegt den Bereich von $CB69 bis $CFF8 und besteht hauptsächlich aus der etwas verkürzten Routine »Extended INPUT« von G. Mootz (64'er, Sonderheft 8/85).
Zusätzlich sind nur geringfügig erweiterte Betriebssystem-Routinen für Scrollen und Löschen von Bildschirm beziehungsweise Zeilen eingebunden.
Bitte geben Sie das Hauptprogramm »SP-1000VC.2« (Listing 1) mit Hilfe des MSE ein und speichern es. Geladen wird es absolut mit ...,8,1. Der Start erfolgt über SYS 49152.
Das zweite Programm (Listing 2) muß nicht unbedingt eingegeben werden, es stellt Ihnen nur ein Demo-Programm zur Verfügung.
(Horst Novak/dm)PROGRAMM : SP-1000VC.2 C000 D000 ----------------------------------- C000 : 4C 11 C1 20 8D C2 A9 01 E1 C008 : 8D F1 C3 A9 7F 2D F1 C3 65 C010 : 8D F1 C3 20 73 C0 F0 03 92 C018 : 4C 2E C0 4C 8D C0 A9 3B 31 C020 : 4C D2 FF 20 8D C2 A9 00 6F C028 : 8D F1 C3 4C F5 C0 A2 00 18 C030 : 20 90 C2 BC E7 C3 8A 48 38 C038 : 98 20 79 C0 68 AA E8 E0 98 C040 : 08 D0 ED 20 90 C2 AD F2 EB C048 : C3 AC F3 C3 4C C1 C0 D0 4E C050 : 16 20 23 C0 20 A1 C0 A0 AB C058 : 09 BE E6 C3 98 48 8A 20 29 C060 : C3 FF 68 A8 88 D0 F2 AD 88 C068 : 13 C4 AE 14 C4 AC 15 C4 9B C070 : 4C 81 C1 AE F2 C3 4C 0F 60 C078 : F3 A2 04 20 BA FF 4C C0 20 C080 : FF 86 02 20 13 C0 A6 02 1D C088 : 20 0F F3 D0 DA 20 1F F3 5A C090 : A6 B8 20 18 E1 AD 19 C4 17 C098 : AE 1A C4 AC 1B C4 4C 81 26 C0A0 : C1 A5 B8 4C C3 FF A2 06 BE C0A8 : D0 D7 20 CC FF AD 16 C4 55 C0B0 : AE 17 C4 AC 18 C4 4C 81 8C C0B8 : C1 20 D2 FF 4C DC C0 A9 40 C0C0 : 04 20 79 C0 4C 90 C0 20 D7 C0C8 : BF C0 20 1E C0 20 A1 C0 C8 C0D0 : 4C F8 C0 20 D2 FF 4C CA C0 C0D8 : C0 20 81 C0 20 1E C0 4C AF C0E0 : F8 C0 20 13 C0 A9 1B D0 0A C0E8 : 05 20 E2 C0 A9 2D 4C D2 A9 C0F0 : FF A9 10 D0 F9 20 D2 FF CE C0F8 : AE F1 C3 30 05 F0 AB 4C B5 C100 : 13 C0 20 13 C0 AD 19 C4 45 C108 : AE 1B C4 AC 1A C4 4C 81 06 C110 : C1 A9 1B A0 C1 20 1E AB 6E C118 : 4C 86 C5 93 0E 12 20 D0 1F C120 : 33 20 D3 D0 2D 31 30 30 F0 C128 : 30 D6 C3 20 20 20 20 20 7C C130 : 20 20 20 20 20 C8 2E CE 0B C138 : 4F 56 41 4B 20 11 00 20 37 C140 : E1 C3 A2 1F BD 1B C4 9D 92 C148 : F0 C3 CA D0 F7 60 20 85 F4 C150 : C2 A9 1A 20 D2 FF AD 05 5F C158 : C4 20 D2 FF A2 81 8E F1 35 C160 : C3 D0 A2 20 13 C0 4C F1 84 C168 : C0 20 13 C0 20 2D C2 4C 24 C170 : 3F C1 20 13 C0 20 35 C2 62 C178 : 4C 5F C2 20 E2 C0 4C F1 72 C180 : C0 8D 20 D0 8E 21 D0 8C 77 C188 : 86 02 60 A2 0F 4C D9 C0 B8 C190 : A2 0E 4C D9 C0 A2 0D 4C 75 C198 : D9 C0 A2 1A 4C D9 C0 A2 99 C1A0 : 1B 4C D9 C0 A2 13 4C D9 17 C1A8 : C0 A2 14 4C D9 C0 A2 0E 92 C1B0 : 20 81 C0 A9 01 4C B9 C0 D1 C1B8 : A2 0F 20 81 C0 A9 01 4C 10 C1C0 : B9 C0 20 A6 C0 AD F5 C3 8F C1C8 : 4C B9 C0 20 A6 C0 AD F6 3A C1D0 : C3 4C B9 C0 20 A6 C0 AD D5 C1D8 : F7 C3 4C B9 C0 20 A6 C0 24 C1E0 : A9 08 4C B9 C0 20 A6 C0 01 C1E8 : A9 0B 4C B9 C0 20 A6 C0 8A C1F0 : A9 0C 4C B9 C0 20 A6 C0 13 C1F8 : A9 0E 4C B9 C0 20 A6 C0 1C C200 : A9 13 4C B9 C0 20 A6 C0 A6 C208 : A9 15 4C B9 C0 20 A6 C0 AF C210 : A9 1C 4C B9 C0 20 A6 C0 3B C218 : A9 23 4C B9 C0 20 90 C2 72 C220 : A0 0B 4C C7 C0 20 90 C2 27 C228 : A0 0C 4C C7 C0 20 90 C2 AF C230 : A0 0A 4C C7 C0 20 90 C2 B6 C238 : A0 03 20 BF C0 AD F8 C3 3F C240 : 4C D3 C0 20 90 C2 A0 16 78 C248 : 20 BF C0 AD F9 C3 4C D3 C4 C250 : C0 20 90 C2 A0 17 20 BF 5F C258 : C0 AD FA C3 4C D3 C0 20 CC C260 : 43 C2 4C 51 C2 20 0B C0 1C C268 : A9 0E 4C F5 C0 20 0B C0 A5 C270 : A9 0F 4C F5 C0 20 13 C0 4D C278 : A9 12 4C F5 C0 20 13 C0 D7 C280 : A9 92 4C F5 C0 20 03 C0 DF C288 : A9 08 4C 59 C1 4C 6D C2 2D C290 : A9 00 4C BD FF 20 13 C0 D3 C298 : A9 0A 4C F5 C0 20 13 C0 F3 C2A0 : A9 0D 4C F5 C0 20 13 C0 7C C2A8 : A9 8D 4C F5 C0 20 13 C0 C4 C2B0 : A9 0C 4C F5 C0 20 13 C0 0C C2B8 : A9 22 4C F5 C0 20 13 C0 1F C2C0 : A9 11 4C F5 C0 20 13 C0 9E C2C8 : A9 91 4C F5 C0 20 4E C1 D5 C2D0 : AD 06 C4 4C D2 FF 20 4E 85 C2D8 : C1 AD 07 C4 4C D2 FF 20 66 C2E0 : 4E C1 AD 08 C4 4C D2 FF 75 C2E8 : 20 4E C1 AD 09 C4 4C D2 E3 C2F0 : FF 20 4E C1 AD 0A C4 4C A2 C2F8 : D2 FF 20 4E C1 AD 0B C4 DB C300 : 4C D2 FF 20 4E C1 AD 0C 7B C308 : C4 4C D2 FF 20 4E C1 AD 7E C310 : 0D C4 4C D2 FF 20 4E C1 AA C318 : AD 0E C4 4C D2 FF 20 CD D0 C320 : C2 20 D6 C2 20 DF C2 20 4D C328 : E8 C2 20 F1 C2 20 FA C2 56 C330 : 20 03 C3 4C 0C C3 20 E2 71 C338 : C0 A9 34 4C F5 C0 20 E2 0F C340 : C0 A9 35 4C F5 C0 20 E9 65 C348 : C0 A9 01 4C F5 C0 20 E9 60 C350 : C0 A9 00 4C F5 C0 20 7B 4B C358 : C1 AD FB C3 20 D2 FF AD 5B C360 : FC C3 4C F5 C0 20 7B C1 8E C368 : AD EF C3 20 D2 FF AD F0 C7 C370 : C3 4C F5 C0 20 63 C1 AD 6E C378 : FD C3 20 D2 FF AD FE C3 AA C380 : 4C F5 C0 20 63 C1 AD FF F6 C388 : C3 20 D2 FF AD 00 C4 4C 96 C390 : F5 C0 20 63 C1 AD 01 C4 71 C398 : 20 D2 FF AD 02 C4 4C F5 3A C3A0 : C0 20 69 C1 A2 07 8E F3 87 C3A8 : C3 A2 3C 8E F8 C3 A2 03 DB C3B0 : A0 46 8E F9 C3 8C FA C3 6A C3B8 : 20 72 C1 20 0D C2 4C B8 0F C3C0 : C1 20 69 C1 A2 00 8E F3 70 C3C8 : C3 A2 24 8E F8 C3 A2 00 EF C3D0 : A0 30 8E F9 C3 8C FA C3 7F C3D8 : 20 72 C1 20 FD C1 4C 95 F0 C3E0 : C1 20 73 C0 4C 4F C0 06 F5 C3E8 : 0D 0E 0F 13 14 1A 1B 00 A1 C3F0 : 64 00 07 07 00 01 02 0F 25 C3F8 : 24 00 30 00 10 00 31 33 55 C400 : 35 35 35 00 00 01 81 82 30 C408 : 84 88 90 A0 83 9C E0 F0 8B C410 : FF 9F 81 00 00 03 0A 0D 9A C418 : 05 0A 00 0A 00 07 07 00 B8 C420 : 01 02 0F 24 00 48 00 10 CD C428 : 00 31 33 35 35 35 00 00 31 C430 : 01 81 82 84 88 90 A0 83 BA C438 : 9C E0 F0 20 3F C1 A9 04 35 C440 : 8D 04 C4 D0 0D 20 3F C1 6D C448 : A9 02 8D 04 C4 A9 FF 8D 8B C450 : 0F C4 A9 0E 8D F7 C3 D0 37 C458 : 03 20 3F C1 A9 FF 85 71 07 C460 : A9 07 85 FD A9 1C 85 97 6F C468 : A9 00 85 9E AD 04 C4 8D 70 C470 : 03 C4 A9 28 85 9F 20 85 26 C478 : C2 20 65 C3 A9 00 85 72 B2 C480 : 85 9B A5 9E 85 9C A9 00 F4 C488 : 85 FE A5 72 A6 9B A4 9C 57 C490 : 20 27 C5 A5 01 48 29 FE 5F C498 : 78 85 01 A0 00 B1 A5 A6 99 C4A0 : FE 9D 7E C5 68 85 01 58 2C C4A8 : E6 9C E8 86 FE E4 FD D0 98 C4B0 : D9 A9 00 A0 07 A6 FD 1E 4C C4B8 : 7E C5 2A CA 10 F9 25 71 45 C4C0 : 09 80 AE 03 C4 F0 04 CA 8F C4C8 : 3D 0F C4 20 D2 FF 88 10 31 C4D0 : E4 A5 72 18 69 08 85 72 F8 C4D8 : 90 02 E6 9B C6 9F D0 A2 88 C4E0 : 20 8D C2 CE 03 C4 F0 08 7B C4E8 : 30 06 20 C2 C1 4C 21 C5 0A C4F0 : AD 04 C4 8D 03 C4 20 D4 03 C4F8 : C1 A5 9E 18 69 07 85 9E 59 C500 : C6 97 F0 02 D0 1B A9 04 A3 C508 : C5 FD F0 0C 85 FD A9 01 7A C510 : 85 97 A9 0F 85 71 D0 09 E6 C518 : 20 8D C2 20 73 00 4C AE 79 C520 : A7 20 95 C2 4C 72 C4 85 0B C528 : FB 86 FC 98 4A 4A 4A AA 2E C530 : BD 60 C5 85 A6 8A 29 03 A9 C538 : AA BD 7A C5 85 A5 98 29 52 C540 : 07 18 65 A5 85 A5 A5 FB 75 C548 : 29 F8 85 72 A9 A0 05 A6 9E C550 : 85 A6 18 A5 A5 65 72 85 3D C558 : A5 A5 A6 65 FC 85 A6 60 7D C560 : 00 01 02 03 05 06 07 08 6F C568 : 0A 0B 0C 0D 0F 10 11 12 76 C570 : 14 15 16 17 19 1A 1B 1C 7E C578 : 1E 1F 00 40 80 C0 00 00 3C C580 : 00 00 00 00 00 00 AD 08 47 C588 : 03 AE 09 03 C9 BB D0 05 4D C590 : E0 C5 D0 01 60 8D B9 C5 8C C598 : 8E BA C5 A9 BB A2 C5 8D 2D C5A0 : 08 03 8E 09 03 20 E1 C3 2F C5A8 : 60 20 E1 C3 AD B9 C5 AE 26 C5B0 : BA C5 8D 08 03 8E 09 03 80 C5B8 : 60 3E 83 20 73 00 C9 5F 39 C5C0 : F0 06 20 E1 CA 6C B9 C5 7A C5C8 : 20 73 00 C9 43 D0 1E 20 4F C5D0 : 5B CB C0 01 F0 06 20 95 4C C5D8 : C1 4C AE A7 C9 53 D0 06 E6 C5E0 : 20 44 E5 4C E4 A7 C9 4C 70 C5E8 : D0 52 4C C4 CE C9 47 D0 87 C5F0 : 0D 20 5B CB C0 01 F0 44 BE C5F8 : 20 C5 C2 4C AE A7 C9 48 15 C600 : D0 29 20 5B CB C0 01 F0 81 C608 : 06 20 9A C1 4C AE A7 C9 69 C610 : 50 D0 03 4C 59 C4 C9 46 82 C618 : D0 03 4C 45 C4 C9 45 D0 77 C620 : 03 4C 3B C4 C9 4C D0 14 1B C628 : 4C C3 CA C9 4B D0 10 20 FD C630 : 5B CB C0 01 F0 06 20 BD FC C638 : C2 4C AE A7 4C 08 AF C9 18 C640 : 42 D0 17 20 5B CB C0 01 CD C648 : F0 06 20 65 C2 4C AE A7 89 C650 : C9 30 D0 E8 20 6D C2 4C 94 C658 : E4 A7 C9 44 D0 17 20 5B 08 C660 : CB C0 01 F0 06 20 03 C0 D9 C668 : 4C AE A7 C9 30 D0 CD 20 2F C670 : 23 C0 4C E4 A7 C9 45 D0 22 C678 : 17 20 5B CB C0 01 F0 06 D3 C680 : 20 90 C1 4C AE A7 C9 51 D4 C688 : D0 2B 20 AE C1 4C E4 A7 2D C690 : C9 46 D0 24 20 5B CB C0 C3 C698 : 01 F0 06 20 A4 C1 4C AE 7E C6A0 : A7 C9 30 D0 06 20 A9 C1 DE C6A8 : 4C E4 A7 C9 46 D0 06 20 CD C6B0 : AD C2 4C E4 A7 4C 08 AF CA C6B8 : C9 49 D0 1E 20 5B CB C0 AB C6C0 : 01 F0 06 20 36 C3 4C AE CF C6C8 : A7 C9 30 D0 06 20 3E C3 5C C6D0 : 4C E4 A7 C9 4E D0 DE 4C 31 C6D8 : 69 CB C9 4C D0 7B 20 5B 43 C6E0 : CB C0 01 F0 06 20 08 AF 4B C6E8 : 4C AE A7 C9 31 D0 06 20 A0 C6F0 : C2 C1 4C E4 A7 C9 32 D0 76 C6F8 : 06 20 CB C1 4C E4 A7 C9 57 C700 : 33 D0 06 20 D4 C1 4C E4 77 C708 : A7 C9 41 D0 06 20 DD C1 5B C710 : 4C E4 A7 C9 42 D0 06 20 F4 C718 : E5 C1 4C E4 A7 C9 43 D0 05 C720 : 06 20 ED C1 4C E4 A7 C9 08 C728 : 44 D0 06 20 F5 C1 4C E4 C2 C730 : A7 C9 45 D0 06 20 FD C1 04 C738 : 4C E4 A7 C9 46 D0 06 20 5D C740 : 05 C2 4C E4 A7 C9 47 D0 DD C748 : 06 20 0D C2 4C E4 A7 C9 18 C750 : 48 D0 67 20 15 C2 4C E4 41 C758 : A7 C9 4D D0 27 20 5B CB CA C760 : C0 01 F0 06 20 5F C2 4C 3E C768 : AE A7 C9 4C D0 09 20 F6 A9 C770 : CA 8E F9 C3 4C AE A7 C9 E4 C778 : 52 D0 3F 20 F6 CA 8E FA FC C780 : C3 4C AE A7 C9 4E D0 21 9E C788 : 20 5B CB C0 01 F0 06 20 51 C790 : BA C7 4C AE A7 C9 42 D0 8A C798 : 06 20 A1 C3 4C E4 A7 C9 AD C7A0 : 4C D0 17 20 C1 C3 4C E4 53 C7A8 : A7 C9 50 D0 1A 20 5B CB 0A C7B0 : C0 01 F0 09 20 8B C1 4C 4C C7B8 : AE A7 4C 08 AF C9 51 D0 7E C7C0 : F9 20 B8 C1 4C E4 A7 C9 4E C7C8 : 52 D0 35 20 5B CB C0 01 ED C7D0 : F0 06 20 75 C2 4C AE A7 13 C7D8 : C9 30 D0 06 20 7D C2 4C 40 C7E0 : E4 A7 C9 44 D0 06 20 2D AB C7E8 : C2 4C E4 A7 C9 4D D0 06 55 C7F0 : 20 E1 C3 4C E4 A7 C9 54 D7 C7F8 : D0 C0 20 3F C1 4C E4 A7 7A C800 : C9 54 D0 46 20 5B CB C0 7E C808 : 01 F0 06 20 9F C1 4C AE 9E C810 : A7 C9 41 D0 06 20 56 C3 48 C818 : 4C E4 A7 C9 42 D0 06 20 FC C820 : 65 C3 4C E4 A7 C9 31 D0 46 C828 : 06 20 74 C3 4C E4 A7 C9 F2 C830 : 32 D0 06 20 83 C3 4C E4 A1 C838 : A7 C9 33 D0 06 20 92 C3 DE C840 : 4C E4 A7 C9 58 D0 5E 4C 3F C848 : AF CE C9 55 D0 17 20 5B 78 C850 : CB C0 01 F0 06 20 46 C3 DC C858 : 4C AE A7 C9 30 D0 46 20 01 C860 : 4E C3 4C E4 A7 C9 57 D0 07 C868 : 21 20 5B CB C0 01 F0 06 CD C870 : 20 A5 C2 4C AE A7 C9 4C 85 C878 : D0 06 20 95 C2 4C E4 A7 77 C880 : C9 51 D0 21 20 9D C2 4C DD C888 : E4 A7 C9 58 D0 1A 20 5B D2 C890 : CB C0 01 F0 06 20 1D C2 75 C898 : 4C AE A7 C9 30 D0 06 20 40 C8A0 : 25 C2 4C E4 A7 4C 08 AF 32 C8A8 : C9 5A D0 53 20 5B CB C0 CA C8B0 : 01 F0 06 20 85 C2 4C AE AC C8B8 : A7 C9 30 D0 06 20 8D C2 87 C8C0 : 4C E4 A7 C9 31 D0 06 20 93 C8C8 : CD C2 4C E4 A7 C9 32 D0 D9 C8D0 : 06 20 D6 C2 4C E4 A7 C9 12 C8D8 : 33 D0 06 20 DF C2 4C E4 08 C8E0 : A7 C9 34 D0 06 20 E8 C2 1E C8E8 : 4C E4 A7 C9 35 D0 06 20 FC C8F0 : F1 C2 4C E4 A7 C9 36 D0 35 C8F8 : 08 20 FA C2 4C E4 A7 D0 53 C900 : 2B C9 37 D0 06 20 03 C3 ED C908 : 4C E4 A7 C9 38 D0 06 20 4C C910 : 0C C3 4C E4 A7 C9 39 D0 FD C918 : 09 20 15 C3 4C E4 A7 4C 12 C920 : 08 AF C9 46 D0 F9 20 1E D5 C928 : C3 4C E4 A7 C9 53 D0 0D D4 C930 : 20 5B CB C0 01 F0 09 20 05 C938 : 1F C9 4C AE A7 4C 08 AF 81 C940 : C9 43 D0 03 4C E9 CE C9 22 C948 : 53 D0 09 20 F6 CA 8E F3 32 C950 : C3 4C AE A7 C9 4C D0 33 82 C958 : 20 73 00 C9 31 D0 0C 20 75 C960 : F6 CA 8E F5 C3 20 C2 C1 E9 C968 : 4C AE A7 C9 32 D0 0C 20 48 C970 : F6 CA 8E F6 C3 20 CB C1 3E C978 : 4C AE A7 C9 33 D0 3F 20 35 C980 : F6 CA 8E F7 C3 20 D4 C1 92 C988 : 4C AE A7 C9 54 D0 7D 20 50 C990 : 73 00 C9 41 D0 12 20 F6 AA C998 : CA 8E FB C3 20 F1 B7 8E AE C9A0 : FC C3 20 56 C3 4C AE A7 F9 C9A8 : C9 42 D0 15 20 F6 CA 8E 6B C9B0 : EF C3 20 F1 B7 8E F0 C3 02 C9B8 : 20 65 C3 4C AE A7 4C 08 6F C9C0 : AF C9 31 D0 15 20 73 00 DA C9C8 : 20 EA CA 8D FD C3 20 F0 22 C9D0 : CA 8D FE C3 20 74 C3 4C E6 C9D8 : E4 A7 C9 32 D0 15 20 73 66 C9E0 : 00 20 EA CA 8D FF C3 20 2C C9E8 : F0 CA 8D 00 C4 20 83 C3 84 C9F0 : 4C E4 A7 C9 33 D0 C7 20 EA C9F8 : 73 00 20 EA CA 8D 01 C4 77 CA00 : 20 F0 CA 8D 02 C4 20 92 E9 CA08 : C3 4C E4 A7 C9 5A D0 AE 2F CA10 : 20 73 00 C9 31 D0 0C 20 2D CA18 : 73 00 20 FF CA 8D 06 C4 4E CA20 : 4C E4 A7 C9 32 D0 0C 20 1B CA28 : 73 00 20 FF CA 8D 07 C4 62 CA30 : 4C E4 A7 C9 33 D0 0C 20 3C CA38 : 73 00 20 FF CA 8D 08 C4 76 CA40 : 4C E4 A7 C9 34 D0 0C 20 5C CA48 : 73 00 20 FF CA 8D 09 C4 8A CA50 : 4C E4 A7 C9 35 D0 0C 20 7C CA58 : 73 00 20 FF CA 8D 0A C4 9E CA60 : 4C E4 A7 C9 36 D0 0C 20 9C CA68 : 73 00 20 FF CA 8D 0B C4 B2 CA70 : 4C E4 A7 C9 37 D0 0C 20 BC CA78 : 73 00 20 FF CA 8D 0C C4 C6 CA80 : 4C E4 A7 C9 38 D0 0C 20 DC CA88 : 73 00 20 FF CA 8D 0D C4 DA CA90 : 4C E4 A7 C9 39 D0 0F 20 08 CA98 : 73 00 20 FF CA 8D 0E C4 EE CAA0 : 4C E4 A7 4C 08 AF C9 52 9C CAA8 : D0 09 20 F6 CA 8E 05 C4 A2 CAB0 : 4C AE A7 C9 53 D0 EC 20 26 CAB8 : F6 CA 8E F8 C3 20 35 C2 6E CAC0 : 4C AE A7 20 E1 C3 20 73 F5 CAC8 : 00 A9 00 20 BD FF A2 08 17 CAD0 : A0 00 20 DD E1 A9 00 A2 E5 CAD8 : 00 A0 A0 20 D5 FF 4C AE 40 CAE0 : A7 A6 7A D0 02 C6 7B C6 65 CAE8 : 7A 60 20 FD AE 4C 52 CB 88 CAF0 : 20 73 00 4C 52 CB 20 73 3E CAF8 : 00 4C F1 B7 4C 48 B2 A2 A9 CB00 : 80 8E 38 CB 20 FD AE 20 3C CB08 : 42 CB 20 39 CB 0A 20 39 5F CB10 : CB 0A 0A 20 39 CB 0A 0A 95 CB18 : 0A 20 39 CB 0A 0A 0A 0A 27 CB20 : 20 39 CB 0A 0A 0A 0A 0A 3E CB28 : 20 39 CB 0A 0A 0A 0A 0A 46 CB30 : 0A 0D 38 CB 8D 38 CB 60 D3 CB38 : 80 0D 38 CB 8D 38 CB 20 D0 CB40 : 73 00 A2 00 C9 30 F0 08 4E CB48 : C9 31 F0 02 D0 AE A2 01 35 CB50 : 8A 60 C9 30 90 A6 C9 3A 5D CB58 : B0 A2 60 20 73 00 D0 06 FC CB60 : 20 79 00 A0 00 2C A0 01 37 CB68 : 60 A2 00 8E CE CF 20 23 1D CB70 : CF 20 47 CF 20 02 CF C9 00 CB78 : 22 D0 24 A0 01 B1 7A C9 3B CB80 : 22 F0 06 20 D2 FF C8 D0 92 CB88 : F4 38 98 65 7A 90 02 E6 6D CB90 : 7B 85 7A 20 13 E5 8E CA A1 CB98 : CF 8C CB CF 20 FD AE 20 87 CBA0 : 9E B7 E0 00 D0 03 4C 48 39 CBA8 : B2 8E CC CF 20 FD AE A2 C0 CBB0 : 00 C9 22 D0 1A 20 73 00 A8 CBB8 : C9 22 F0 0D E0 1E D0 03 B8 CBC0 : 4C 71 A5 9D D4 CF E8 D0 F3 CBC8 : EC 8E CE CF 20 1D CF 20 13 CBD0 : 8B B0 A2 0D D0 03 4C 99 87 CBD8 : AD 8D D2 CF 8C D3 CF A0 E2 CBE0 : 00 AD D0 CF 20 D2 FF C8 0F CBE8 : CC CC CF D0 F4 20 47 CF 35 CBF0 : 20 24 EA A5 D2 85 FE AC 40 CBF8 : CB CF 98 18 65 D1 90 02 FF CC00 : E6 FE 85 FD A5 F4 85 FC 98 CC08 : 98 18 65 F3 90 02 E6 FC 33 CC10 : 85 FB A9 00 8D C9 CF 20 A4 CC18 : 5B CE A9 00 8D C9 CF A5 F6 CC20 : C6 85 CC F0 FA 78 A5 CF A4 CC28 : F0 0C A5 CE AE 87 02 A0 D2 CC30 : 00 84 CF 20 13 EA 20 B4 DD CC38 : E5 48 A5 91 C9 7F F0 5E F6 CC40 : 68 C9 0D D0 03 4C C9 CD 40 CC48 : C9 8D D0 03 4C E2 CD C9 13 CC50 : 14 F0 04 C9 9D D0 03 4C 1C CC58 : BD CC C9 1D D0 03 4C A1 2B CC60 : CC C9 94 D0 03 4C 0B CD AA CC68 : C9 91 D0 03 4C 50 CD C9 A0 CC70 : 13 D0 03 4C AB CD C9 93 AD CC78 : F0 F9 C9 11 D0 03 4C 70 31 CC80 : CD C9 85 B0 02 90 04 C9 F2 CC88 : 8D 90 10 AE CE CF E0 00 26 CC90 : F0 0F CA DD D4 CF F0 09 18 CC98 : CA 10 F8 4C 50 CF 68 D0 F9 CCA0 : FA 20 80 CF F0 08 EE C9 63 CCA8 : CF 20 80 CF D0 09 C9 1D 58 CCB0 : F0 E9 20 16 E7 A9 9D 20 E2 CCB8 : 16 E7 4C 1F CC 20 80 CF 28 CCC0 : D0 1E C9 9D D0 0C AC CC 7F CCC8 : CF C0 01 F0 36 CE C9 CF F6 CCD0 : D0 12 CE C9 CF AC C9 CF BF CCD8 : AD CF CF 91 FD 4C 1F CC EB CCE0 : C0 00 F0 B7 CE C9 CF C9 E1 CCE8 : 9D F0 CC 20 87 CF 88 20 8E CCF0 : 8D CF C8 C8 CC CC CF 90 43 CCF8 : F2 88 AD CF CF 91 FD A9 68 CD00 : 9D D0 B4 A0 00 8E C9 CF 82 CD08 : 4C 50 CF AC CC CF CE CC 26 CD10 : CF 88 C0 FF F0 2F CC C9 A3 CD18 : CF 90 2A B1 FD CD CF CF 1D CD20 : F0 EF CC CC CF F0 1E 20 12 CD28 : 87 CF C8 20 8D CF 88 88 57 CD30 : C0 FF F0 05 CC C9 CF B0 88 CD38 : EE C8 AD CF CF 91 FD EE 4F CD40 : CC CF 4C 1F CC 48 8A 20 64 CD48 : 5B CF 68 AA 68 4C 3F CD 7C CD50 : AD C9 CF 38 E9 28 90 B0 60 CD58 : 20 80 CF D0 0B 8D C9 CF AA CD60 : A9 1D 20 16 E7 4C 6B CD 8D CD68 : 8D C9 CF A9 91 4C B7 CC F7 CD70 : AD CC CF C9 28 F0 91 AD 5C CD78 : C9 CF 18 69 28 B0 89 CD 26 CD80 : CC CF F0 05 90 0E 4C 50 5C CD88 : CF 8D C9 CF A9 9D 20 16 BE CD90 : E7 4C 97 CD 8D C9 CF A9 F7 CD98 : 11 20 16 E7 AE CC CF CA 62 CDA0 : EC C9 CF D0 03 EE C9 CF ED CDA8 : 4C 1F CC 48 20 93 CF 68 6F CDB0 : C9 93 D0 12 AC CC CF AD 85 CDB8 : D0 CF 20 D2 FF 88 D0 F7 4A CDC0 : AC CC CF 20 9E CF 4C 1A 98 CDC8 : CC AC CC CF D0 04 A9 20 2B CDD0 : 91 FD 88 C0 FF F0 07 B1 A1 CDD8 : FD CD CF CF F0 F0 C8 8C 7C CDE0 : CC CF AC CC CF 88 C0 FF 9D CDE8 : F0 0D B1 FD CD CF CF D0 C7 CDF0 : F4 A9 20 91 FD D0 EE 20 55 CDF8 : A7 CF AE CC CF F0 4B 20 BE CE00 : A3 B6 AD D3 CF 85 65 AD FE CE08 : D2 CF 85 64 AD CC CF 20 70 CE10 : 75 B4 84 FB A0 00 91 64 99 CE18 : C8 8A 91 64 C8 A5 FB 91 E3 CE20 : 64 A0 01 B1 64 48 C8 B1 5A CE28 : 64 85 65 68 85 64 AC CC 7D CE30 : CF 88 B1 FD 29 7F C9 20 65 CE38 : 90 19 C9 40 90 06 C9 60 F0 CE40 : 90 15 69 3F 91 64 C0 00 DC CE48 : D0 E7 AE CA CF 20 0C E5 0B CE50 : 4C AE A7 09 40 D0 ED 09 53 CE58 : 20 D0 E9 20 93 CF A0 00 99 CE60 : B1 47 99 61 00 C8 C0 03 97 CE68 : D0 F6 A5 61 CD CC CF 90 EC CE70 : 03 AD CC CF 8D D1 CF A0 5F CE78 : 00 C9 00 F0 31 B1 62 C9 39 CE80 : 20 D0 07 AD CF CF 91 FD 3E CE88 : A9 1D 20 D2 FF C8 18 CC 62 CE90 : D1 CF B0 02 90 E7 AD CF 54 CE98 : CF CC CC CF B0 05 91 FD 70 CEA0 : C8 D0 F6 AC D1 CF A9 9D A1 CEA8 : 20 D2 FF 88 D0 F8 60 20 D9 CEB0 : 23 CF 20 47 CF 20 02 CF 51 CEB8 : 20 79 00 20 A0 AA 20 A7 C8 CEC0 : CF 4C AE A7 20 73 00 20 34 CEC8 : 3C CF 20 BD CF CA 85 FC 0F CED0 : 8A 48 A5 FC AE CA CF 20 48 CED8 : FF E9 EE CA CF 85 FC 68 CF CEE0 : AA A5 FC E0 00 D0 E6 F0 BC CEE8 : D8 20 AE CF CA 85 FC 8A 58 CEF0 : 48 A5 FC 20 EA E8 85 FC 54 CEF8 : 68 AA A5 FC E0 00 D0 EC E9 CF00 : F0 BF AC 86 02 8C CD CF 27 CF08 : 20 79 00 C9 2C D0 0D 20 DC CF10 : 9B B7 E0 10 B0 23 8E 86 2C CF18 : 02 4C FD AE 60 20 73 00 6A CF20 : 4C FD AE 20 73 00 20 FA C8 CF28 : AE 20 9E B7 E0 28 10 09 26 CF30 : 8E CB CF 20 3C CF 4C F7 FF CF38 : AE 4C 48 B2 20 F1 B7 E0 A7 CF40 : 19 10 F6 8E CA CF 60 AE FB CF48 : CA CF AC CB CF 4C 0C E5 FA CF50 : 20 5B CF A2 00 8E 18 D4 E4 CF58 : 4C 1F CC A2 07 BD F1 CF 81 CF60 : 9D FF D3 CA D0 F7 A2 0F C0 CF68 : 8E 18 D4 A2 41 8E 04 D4 CE CF70 : A2 90 86 02 CA D0 FD C6 F5 CF78 : 02 F0 04 A2 FF D0 F5 60 67 CF80 : AC C9 CF CC CC CF 60 B1 CE CF88 : FB AA B1 FD 60 91 FD 8A A4 CF90 : 91 FB 60 AC C9 CF F0 0E C7 CF98 : CC CC CF D0 01 88 A9 9D 0E CFA0 : 20 D2 FF 88 D0 F8 60 AE EE CFA8 : CD CF 8E 86 02 60 20 73 5C CFB0 : 00 F0 04 20 F1 B7 60 20 CC CFB8 : 79 00 A2 01 60 20 73 00 CF CFC0 : F0 F5 20 E1 CA 20 F1 B7 D4 CFC8 : 60 00 00 00 00 00 00 64 F1 CFD0 : A4 00 00 00 20 48 20 4F D8 CFD8 : 20 52 20 53 20 54 20 20 F9 CFE0 : 20 4E 20 4F 20 56 20 41 D1 CFE8 : 20 4B 20 46 49 4E 50 55 72 CFF0 : 54 32 9C 48 00 08 00 0A E2 CFF8 : 64 00 00 00 00 00 00 00 5D
|
10 rem **** kurzbeschreibung (befehlsliste) des programmes 'p3 sp-1000vc .2' ***
20 rem (druckersteuerung mit basicerweiterung)
25 rem *** programmname 'bef p3 sp-tvc .2' ***
26 rem **** horst novak doeblingerhauptstrasse 1190 wien ****
30 dr$="SEIKOSHA SP-1000VC"
31 k=0:fori=0to2:k=k+peek(50566+i):next
32 ifk=184 then 40
33 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon} druckerprogramm laden !!! ":print:print:print:print
34 print"load "chr$(34)"p3 sp-1000vc .2"chr$(34)",8,1{up}{up}{up}":end
40 sys49152:_rm:_rt:_d:_rd:_ml,03:_mr,74:_m
42 _d:gosub 990
50 _wl:_pq
60 _b:_st2,19:print"Druckersteuerung"
70 _st3,17:printdr$
80 _st3,00:print"Basicerweiterung";:_b0:_st3,53:print"Kurzbeschreibung"
90 gosub994
100 _eq:rem ******* _f
110 print"Programmname:"chr$(34)"P3 SP-1000VC .2"chr$(34);
120 print" Bereich:$C000-$CFFF";:_h:_lc:_st3,52:print"Horst NOVAK"
130 _t3:print"Doeblinger Hauptstrasse 44/16"
140 print"Aktivieren: SYS 49152 Desaktivieren: SYS 50601";
150 _h:_t3:print"1190 WIEN"
160 gosub994
170 print"Bei Aktivierung und Desaktivierung werden die Vektoren anderer Basic";
180 print"erweiterungen beruecksichtigt."
190 print"Parameter fuer Randeinstellung,Zeilenvorschub,Tabulatoren,Zeilen/Sei";
200 print"te & Grafikdaten werden in einer Tabelle abgelegt."
210 print"Diese Tabelle kann mit _RT oder _HP,_HF,_HE mit Normalwerten";
220 print" geladen werden."
230 _szr,209:_sz1,0110000:_z1:_z1:_z0:_la:_wl:_st1,36:_wl
240 _lf
245 rem =================================
250 _pq:print"_D ";
251 _c:print"Druckerverbindung ein (Secundaeradr => Zeichensatz)";
252 _t1:_pq:print"_D0 ";
253 _c:print"Verbindung aus (Files,Tab & Druckerwerte bleiben "
254 _pq:print"_SS,n";
255 _c:_le:print" Secundaeradresse (_D) setzen (n=0..Gross/Grafik, ";
256 _t1:print" & _B0 & _Z0)"
257 _c:print" n=7..Klein/Gross) wirksam in _D nur nach _RM !";
258 _t1:_pq:print"_RT ";:_c:_lf:print"Tabelle mit Normwerten laden & _D0"
260 _pq:print"_RD ";
261 _c:print"Druckerreset (Tab & Druckerverbindung bleiben)";
262 _t1:_pq:print"_RM ";
263 _c:_lb:print"Masterreset (Files closed & _D0)"
264 gosub992:_wl
265 _pq:print"_P ";
266 _c:print"Pica ein "
270 _pq:print"_PQ ";
271 _c:print"Pica High Quality ein"
280 _pq:print"_E ";
281 _c:print"Elite ein "
290 _pq:print"_EQ ";
291 _c:print"Elite High Quality ein "
300 _pq:print"_C ";
301 _c:print"Condensed (Komprimiert) ein"
310 _pq:print"_H ";
311 _c:print"Hoch (Superscript) ein"
320 _pq:print"_T ";
321 _c:print"Tief (Subscript) ein"
330 _pq:print"_K ";
331 _c:print"Klein/Gross Zeichensatz ein"
340 _pq:print"_G ";
341 _c:print"Gross/Grafik Zeichensatz ein"
350 _pq:print"_I ";
351 _c:print"Italik (Kursiv) ein ";
352 _t1:_pq:print"_I0 ";
353 _c:print"Italic (Kursiv) aus"
360 _pq:print"_B ";
361 _c:print"Breitschrift (Double Width) ein & _Z0";
362 _t1:_pq:print"_B0 ";
363 _c:print"Breitschrift (Double Width) aus & _Z0"
370 _pq:print"_F ";
371 _c:print"Fettscrift (Double Strike) ein";
372 _t1:_pq:print"_F0 ";
373 _c:print"Fettschrift (Double Strike) aus"
380 _pq:print"_R ";
381 _c:print"Revers ein ";
382 _t1:_pq:print"_R0 ";
383 _c:print"Revers aus"
400 _pq:print"_U ";
401 _c:print"Unterstreichen ein ";
402 _t1:_pq:print"_U0 ";
403 _c:_lb:print"Unterstreichen aus "
404 gosub992:_wl
410 _pq:print"_W ";
411 _c:print"Nur Wagenruecklauf (CS)"
420 _pq:print"_WL ";
421 _c:print"Wagenruecklauf & Zeilenvorschub (LF)";
422 _t1:_pq:print"_WQ ";
423 _c:print"Wagenruecklauf,Zeilenvorschub & Quote cleared (CR) "
430 _pq:print"_X ";
431 _c:print"Unidirectionaler Druck ein ";
432 _t1:_pq:print"_X0 ";
433 _c:print"Unidirectionaler Druck aus "
440 _pq:print"_FF ";
441 _c:print"Formfeed (Formulartransport) (norm 54) ";
442 _t1:_pq:print"_SZS,n";
443 _c:_lb:print" Zeilen/Seite (max 127) setzen *) "
444 gosub992:_wl
450 _pq:print"_L1 ";
451 _c:print"Zeilenvorschub aus Tabelle (norm 1/2 Punkt) ";
452 _t1:_pq:print"_SL1,n";
453 _c:_lf:print" Zeilenvorschub n*1/144 in(1/2 Pkt)setzen *) "
460 _pq:print"_L2 _L3 ";
461 _c:print" wie _L1 (norm 1 Pkt bzw 7.5 Pkte)";
462 _t1:_pq:print"_SL2,n _SL3,n";
463 _c:print" wie _SL1 *) "
470 _pq:print"_LA _LB _LC ";
471 _c:print"Zeilenvorschub fuer _H (Grafik{CBM-V}Minimum{CBM-V}Normal{CBM-V})"
480 _pq:print"_LD _LE _LF _LG _LH ";
481 _c:_lb:print"Zeilenvorschub fuer _E,_P ";
482 print"(Grafik{CBM-V}Minimum{CBM-V}Normal{CBM-V}1 Zeile{CBM-V}1 1/2 Zeilen{CBM-V})"
494 gosub992:_wl
500 _pq:print"_M ";
501 _c:print"Linker & rechter Rand aus Tabelle (norm 00 & 72) ";
502 _t1:_pq:print"_ML,nm ";
503 _c:_lf:print"Linken Rand in Tabelle (nm Pica) setzen"
512 _t1:_pq:print"_MR,nm ";
513 _c:print"Rechten Rand in Tabelle (nm Pica) setzen"
520 _pq:print"_TA ";
521 _c:print"Tabulator aus Tabelle (norm 16*1/60 in)";
522 _t1:_pq:print"_STA,n,m ";
523 _c:print"Tabulator (n*250 + m 1/60 inch) setzen *)"
530 _pq:print"_TB ";
531 _c:print"Tabulator aus Tabelle (nicht normalisiert !! )";
532 _t1:_pq:print"_STB,n,m ";
533 _c:print"Tabulator (n*250 + m 1/60 inch) setzen *)"
540 _pq:print"_T1 ";
541 _c:print"Tabulator aus Tabelle (norm 01 Pica) ";
542 _t1:_pq:print"_ST1,nm ";
543 _c:print"Tabulator (nm Pica) setzen *)"
550 _pq:print"_T2 _T3 ";
551 _c:print"Tabulator aus Tabelle (norm 35 bzw 55 Pica)";
552 _t1:_pq:print"_ST2,nm _ST3,nm ";
553 _c:_lb:print"Tabulator (nm Pica) setzen *)"
554 gosub992:_wl
570 _pq:print"_NB ";
571 _c:print"Tab & Drucker fuer Brief A4 (_PQ,...... ) ";
580 _t1:_pq:print"_NL ";
581 _c:_lb:print"Tab & Drucker fuer Listing(_C,........... )"
594 gosub992:_wl
600 _pq:print"_Z ";
601 _c:print"Grafikmode ein ";
602 _t1:_pq:print"_Z0 ";
603 _c:_lf:print"Grafikmode aus"
610 _pq:print" ";
611 _c:print" ";
612 _t1:_pq:print"_SZR,n ";
613 _c:print"Grafikrepeat (n=1-255,n=0..256) setzen "
620 _pq:print"_Z1 ";
621 _c:print"Grafikdaten1 aus Tabelle Grafikrepeat mal zeichnen ";
622 _t1:_pq:print"_SZ1,nnnnnnn ";
623 _c:print"Grafdaten mit 0 oder 1 setzen "
630 _pq:print"_Z2 _Z3 .. _Z9 ";
631 _c:print"Wie _Z1 ";
632 _t1:_pq:print"_SZ2,nnnnnnn .._SZ9, ";
633 _c:print"Wie _Sz1,nnnnnnn"
640 _pq:print"_ZF ";
641 _c:_lb:print"Grafikdaten1-8 aus Tabelle Grafikrepeat mal zeichnen;z.B. ";
642 print"Tab normal & Repeat=10: ";
643 _szr,10:_zf:_z0:_wl
659 gosub992:_wl
660 _pq:print"_HL";:_eq:printchr$(34)"Bildname";chr$(34);" ";
661 _c:print"Hiresbild (33 Bloecke) von Disk laden ";
662 _t1:_pq:print"_HP ";
663 _c:_lf:print"Hiresbild (A000-BFFF) drucken (_TB..linker Rand)"
670 _pq:print"_HF ";
671 _c:print"Wie _HP aber Fettdruck (doppelte Zeit)";
672 _t1:_pq:print"_HE ";
673 _c:_lb:print"Wie _HP aber entzerrter Fettdruck (4fache Zeit)"
800 gosub993:_wl
802 _pq:_lf:print"_IN(X,Y),F,"chr$(34)"T"chr$(34)",L,"chr$(34)"Z"chr$(34)",";
804 print"VV$ ";:_c:print"Formatierter INPUT Befehl fuer max. 255 Zeichen
806 _st1,05
808 print"X...Spalte(0-39) Y...Zeile(0-24) ,F...Farbe von Text & Eingabefeld ";
810 _le:print"(0-15) T...Text(vor Eingabefeld)"
811 _t1:print"L...Laenge Eingabefeld ";
812 print"Z...Beschraenkung auf erlaubteZeichen(<30) VV$...Stringvariable";
814 print"(max. 255 Zeichen)"
816 _st1,07:print",F "chr$(34)"T"chr$(34)" "chr$(34)"Z"chr$(34);
818 _lb:print" koennen weggelassen werden _IN(X,Y)L,VV$ _IN(X,Y),F,L,VV$ usw"
820 gosub992:_wl
822 _pq:_lf:print"_TX(X,Y),F,"chr$(34)"T"chr$(34)" oder VV$ ";
824 _c:print" PRINT Text AT Befehl"
826 _st1,05
828 print"X...Spalte(0-39) Y...Zeile(0-24) ,F...Farbe des Textes";
830 _le:print"(0-15) T...Text oder VV$...Stringvariable"
832 _st1,07:print",F kann weggelassen werden _TX(X,Y)"chr$(34)"T";
834 _lb:print chr$(34) "oder _TX(X,Y)VV$
836 gosub992:_wl
838 _pq:_lf:print"_SC,A ";
840 _c:print" SCROLL UP Befehl "
842 _st1,05
844 _le:print",A...Anzahl der zu scrollenden Zeilen";
846 _lb:print" ,A kann weggelassen werden _SC "
848 gosub992:_wl
850 _pq:_lf:print"_CL,Y,A ";
852 _c:print" CLEAR{$a0}LINE Befehl "
854 _st1,05
856 _le:print"Y...Zeile(0-24) ,A...Anzahl der zu loeschenden Zeilen";
858 _lb:print
860 gosub992:_wl
862 _pq:_lf:print"_CS ";
864 _c:_lb:print" CLEAR{$a0}SCREEN Befehl "
866 gosub993:_wl
870 _c:print"*) ";:_h:print"Werte werden in Tabelle gesetzt & zu Drucker ";
872 print"gesendet":_lb: _wl
900 gosub990:_rd:_rm:end
910 rem *** grafiksubroutinen
990 _d:_sz1,0001000:_sz2,0011100:_sz3,0110110:_sz4,1100011
991 _szr,59:_z1:_z2:_z3:_szr,64:_z4:_szr,59:_z3:_z2:_z1:_z0:return
992 _szr,209:_sz2,0000010:_z2:_z2:_rt:_d:_le:_ml,03:_mr,74:_m:_st1,36:return
993 _st1,36:_w:_szr,209:_sz2,0000011:_z2:_z2:_z0:_lf:return
994 _szr,209:_sz5,1100000:_z5:_z5:_z0:_la:_wl:_lc:return
10 REM **** KURZBESCHREIBUNG (BEFEHLSLISTE) DES PROGRAMMES 'P3 SP-1000VC .2' *** 20 REM (DRUCKERSTEUERUNG MIT BASICERWEITERUNG) 25 REM *** PROGRAMMNAME 'BEF P3 SP-TVC .2' *** 26 REM **** HORST NOVAK DOEBLINGERHAUPTSTRASSE 1190 WIEN **** 30 DR$="SEIKOSHA SP-1000VC" 31 K=0:FOR I=0 TO2:K=K+PEEK (50566+I):NEXT 32 IF K=184 THEN 40 33 PRINT"{CLR,9DOWN,4RIGHT,RVSON,SPACE}DRUCKERPROGRAMM LADEN !!! ":PRINT:PRINT:PRINT:PRINT 34 PRINT"LOAD "CHR$ (34)"P3 SP-1000VC .2"CHR$ (34)",8,1{3UP}":END 40 SYS 49152:←RM:←RT:←D:←RD:←ML,03:←MR,74:←M 42 ←D:GOSUB 990 50 ←WL:←PQ 60 ←B:←ST2,19:PRINT"DRUCKERSTEUERUNG" 70 ←ST3,17:PRINTDR$ 80 ←ST3,00:PRINT"BASICERWEITERUNG";:←B0:←ST3,53:PRINT"KURZBESCHREIBUNG" 90 GOSUB 994 100 ←EQ:REM ******* ←F 110 PRINT"PROGRAMMNAME:"CHR$ (34)"P3 SP-1000VC .2"CHR$ (34); 120 PRINT" BEREICH:$C000-$CFFF";:←H:←LC:←ST3,52:PRINT"HORST NOVAK" 130 ←T3:PRINT"DOEBLINGER HAUPTSTRASSE 44/16" 140 PRINT"AKTIVIEREN: SYS 49152{2SPACE}DESAKTIVIEREN: SYS 50601"; 150 ←H:←T3:PRINT"1190 WIEN" 160 GOSUB 994 170 PRINT"BEI AKTIVIERUNG UND DESAKTIVIERUNG WERDEN DIE VEKTOREN ANDERER BASIC"; 180 PRINT"ERWEITERUNGEN BERUECKSICHTIGT." 190 PRINT"PARAMETER FUER RANDEINSTELLUNG,ZEILENVORSCHUB,TABULATOREN,ZEILEN/SEI"; 200 PRINT"TE & GRAFIKDATEN WERDEN IN EINER TABELLE ABGELEGT." 210 PRINT"DIESE TABELLE KANN MIT ←RT ODER ←HP,←HF,←HE MIT NORMALWERTEN"; 220 PRINT" GELADEN WERDEN." 230 ←SZR,209:←SZ1,0110000:←Z1:←Z1:←Z0:←LA:←WL:←ST1,36:←WL 240 ←LF 245 REM ================================= 250 ←PQ:PRINT"←D{2SPACE}"; 251 ←C:PRINT"DRUCKERVERBINDUNG EIN (SECUNDAERADR => ZEICHENSATZ)"; 252 ←T1:←PQ:PRINT"←D0 "; 253 ←C:PRINT"VERBINDUNG AUS (FILES,TAB & DRUCKERWERTE BLEIBEN " 254 ←PQ:PRINT"←SS,N"; 255 ←C:←LE:PRINT"{2SPACE}SECUNDAERADRESSE (←D) SETZEN (N=0..GROSS/GRAFIK,{2SPACE}"; 256 ←T1:PRINT"{23SPACE}& ←B0 & ←Z0)" 257 ←C:PRINT"{2SPACE}N=7..KLEIN/GROSS) WIRKSAM IN ←D NUR NACH ←RM !"; 258 ←T1:←PQ:PRINT"←RT ";:←C:←LF:PRINT"TABELLE MIT NORMWERTEN LADEN & ←D0" 260 ←PQ:PRINT"←RD{2SPACE}"; 261 ←C:PRINT"DRUCKERRESET (TAB & DRUCKERVERBINDUNG BLEIBEN)"; 262 ←T1:←PQ:PRINT"←RM "; 263 ←C:←LB:PRINT"MASTERRESET (FILES CLOSED & ←D0)" 264 GOSUB 992:←WL 265 ←PQ:PRINT"←P{3SPACE}"; 266 ←C:PRINT"PICA EIN " 270 ←PQ:PRINT"←PQ{2SPACE}"; 271 ←C:PRINT"PICA HIGH QUALITY EIN" 280 ←PQ:PRINT"←E{3SPACE}"; 281 ←C:PRINT"ELITE EIN " 290 ←PQ:PRINT"←EQ{2SPACE}"; 291 ←C:PRINT"ELITE HIGH QUALITY EIN " 300 ←PQ:PRINT"←C{3SPACE}"; 301 ←C:PRINT"CONDENSED (KOMPRIMIERT) EIN" 310 ←PQ:PRINT"←H{3SPACE}"; 311 ←C:PRINT"HOCH (SUPERSCRIPT) EIN" 320 ←PQ:PRINT"←T{3SPACE}"; 321 ←C:PRINT"TIEF (SUBSCRIPT) EIN" 330 ←PQ:PRINT"←K{3SPACE}"; 331 ←C:PRINT"KLEIN/GROSS ZEICHENSATZ EIN" 340 ←PQ:PRINT"←G{3SPACE}"; 341 ←C:PRINT"GROSS/GRAFIK ZEICHENSATZ EIN" 350 ←PQ:PRINT"←I{3SPACE}"; 351 ←C:PRINT"ITALIK (KURSIV) EIN "; 352 ←T1:←PQ:PRINT"←I0 "; 353 ←C:PRINT"ITALIC (KURSIV) AUS" 360 ←PQ:PRINT"←B{3SPACE}"; 361 ←C:PRINT"BREITSCHRIFT (DOUBLE WIDTH) EIN & ←Z0"; 362 ←T1:←PQ:PRINT"←B0 "; 363 ←C:PRINT"BREITSCHRIFT (DOUBLE WIDTH) AUS & ←Z0" 370 ←PQ:PRINT"←F{3SPACE}"; 371 ←C:PRINT"FETTSCRIFT (DOUBLE STRIKE) EIN"; 372 ←T1:←PQ:PRINT"←F0 "; 373 ←C:PRINT"FETTSCHRIFT (DOUBLE STRIKE) AUS" 380 ←PQ:PRINT"←R{3SPACE}"; 381 ←C:PRINT"REVERS EIN "; 382 ←T1:←PQ:PRINT"←R0 "; 383 ←C:PRINT"REVERS AUS" 400 ←PQ:PRINT"←U{3SPACE}"; 401 ←C:PRINT"UNTERSTREICHEN EIN "; 402 ←T1:←PQ:PRINT"←U0 "; 403 ←C:←LB:PRINT"UNTERSTREICHEN AUS " 404 GOSUB 992:←WL 410 ←PQ:PRINT"←W{3SPACE}"; 411 ←C:PRINT"NUR WAGENRUECKLAUF (CS)" 420 ←PQ:PRINT"←WL{2SPACE}"; 421 ←C:PRINT"WAGENRUECKLAUF & ZEILENVORSCHUB (LF)"; 422 ←T1:←PQ:PRINT"←WQ "; 423 ←C:PRINT"WAGENRUECKLAUF,ZEILENVORSCHUB & QUOTE CLEARED (CR) " 430 ←PQ:PRINT"←X{3SPACE}"; 431 ←C:PRINT"UNIDIRECTIONALER DRUCK EIN "; 432 ←T1:←PQ:PRINT"←X0 "; 433 ←C:PRINT"UNIDIRECTIONALER DRUCK AUS " 440 ←PQ:PRINT"←FF{2SPACE}"; 441 ←C:PRINT"FORMFEED (FORMULARTRANSPORT) (NORM 54){2SPACE}"; 442 ←T1:←PQ:PRINT"←SZS,N"; 443 ←C:←LB:PRINT"{2SPACE}ZEILEN/SEITE (MAX 127) SETZEN{14SPACE}*) " 444 GOSUB 992:←WL 450 ←PQ:PRINT"←L1{2SPACE}"; 451 ←C:PRINT"ZEILENVORSCHUB AUS TABELLE (NORM 1/2 PUNKT){8SPACE}"; 452 ←T1:←PQ:PRINT"←SL1,N"; 453 ←C:←LF:PRINT"{2SPACE}ZEILENVORSCHUB N*1/144 IN(1/2 PKT)SETZEN{3SPACE}*) " 460 ←PQ:PRINT"←L2 ←L3 "; 461 ←C:PRINT"{2SPACE}WIE ←L1 (NORM 1 PKT BZW 7.5 PKTE)"; 462 ←T1:←PQ:PRINT"←SL2,N ←SL3,N"; 463 ←C:PRINT"{2SPACE}WIE ←SL1{23SPACE}*) " 470 ←PQ:PRINT"←LA ←LB ←LC "; 471 ←C:PRINT"ZEILENVORSCHUB FUER ←H (GRAFIKVMINIMUMVNORMALV)" 480 ←PQ:PRINT"←LD ←LE ←LF ←LG ←LH "; 481 ←C:←LB:PRINT"ZEILENVORSCHUB FUER ←E,←P "; 482 PRINT"(GRAFIKVMINIMUMVNORMALV1 ZEILEV1 1/2 ZEILENV)" 494 GOSUB 992:←WL 500 ←PQ:PRINT"←M{3SPACE}"; 501 ←C:PRINT"LINKER & RECHTER RAND AUS TABELLE (NORM 00 & 72) "; 502 ←T1:←PQ:PRINT"←ML,NM "; 503 ←C:←LF:PRINT"LINKEN RAND IN TABELLE (NM PICA) SETZEN" 512 ←T1:←PQ:PRINT"←MR,NM "; 513 ←C:PRINT"RECHTEN RAND IN TABELLE (NM PICA) SETZEN" 520 ←PQ:PRINT"←TA{2SPACE}"; 521 ←C:PRINT"TABULATOR AUS TABELLE (NORM 16*1/60 IN)"; 522 ←T1:←PQ:PRINT"←STA,N,M "; 523 ←C:PRINT"TABULATOR (N*250 + M 1/60 INCH) SETZEN{2SPACE}*)" 530 ←PQ:PRINT"←TB{2SPACE}"; 531 ←C:PRINT"TABULATOR AUS TABELLE (NICHT NORMALISIERT !! )"; 532 ←T1:←PQ:PRINT"←STB,N,M "; 533 ←C:PRINT"TABULATOR (N*250 + M 1/60 INCH) SETZEN{2SPACE}*)" 540 ←PQ:PRINT"←T1{2SPACE}"; 541 ←C:PRINT"TABULATOR AUS TABELLE (NORM 01 PICA) "; 542 ←T1:←PQ:PRINT"←ST1,NM "; 543 ←C:PRINT"TABULATOR (NM PICA) SETZEN{16SPACE}*)" 550 ←PQ:PRINT"←T2 ←T3 "; 551 ←C:PRINT"TABULATOR AUS TABELLE (NORM 35 BZW 55 PICA)"; 552 ←T1:←PQ:PRINT"←ST2,NM ←ST3,NM "; 553 ←C:←LB:PRINT"TABULATOR (NM PICA) SETZEN{2SPACE}*)" 554 GOSUB 992:←WL 570 ←PQ:PRINT"←NB{2SPACE}"; 571 ←C:PRINT"TAB & DRUCKER FUER BRIEF A4 (←PQ,......{3SPACE}) "; 580 ←T1:←PQ:PRINT"←NL{2SPACE}"; 581 ←C:←LB:PRINT"TAB & DRUCKER FUER LISTING(←C,...........{2SPACE})" 594 GOSUB 992:←WL 600 ←PQ:PRINT"←Z{3SPACE}"; 601 ←C:PRINT"GRAFIKMODE EIN{2SPACE}"; 602 ←T1:←PQ:PRINT"←Z0 "; 603 ←C:←LF:PRINT"GRAFIKMODE AUS" 610 ←PQ:PRINT"{5SPACE}"; 611 ←C:PRINT"{51SPACE}"; 612 ←T1:←PQ:PRINT"←SZR,N "; 613 ←C:PRINT"GRAFIKREPEAT (N=1-255,N=0..256) SETZEN{4SPACE}" 620 ←PQ:PRINT"←Z1{2SPACE}"; 621 ←C:PRINT"GRAFIKDATEN1 AUS TABELLE GRAFIKREPEAT MAL ZEICHNEN "; 622 ←T1:←PQ:PRINT"←SZ1,NNNNNNN "; 623 ←C:PRINT"GRAFDATEN MIT 0 ODER 1 SETZEN{7SPACE}" 630 ←PQ:PRINT"←Z2 ←Z3 .. ←Z9 "; 631 ←C:PRINT"WIE ←Z1 "; 632 ←T1:←PQ:PRINT"←SZ2,NNNNNNN ..←SZ9, "; 633 ←C:PRINT"WIE ←SZ1,NNNNNNN" 640 ←PQ:PRINT"←ZF{2SPACE}"; 641 ←C:←LB:PRINT"GRAFIKDATEN1-8 AUS TABELLE GRAFIKREPEAT MAL ZEICHNEN;Z.B. "; 642 PRINT"TAB NORMAL & REPEAT=10:{4SPACE}"; 643 ←SZR,10:←ZF:←Z0:←WL 659 GOSUB 992:←WL 660 ←PQ:PRINT"←HL";:←EQ:PRINTCHR$ (34)"BILDNAME";CHR$ (34);" "; 661 ←C:PRINT"HIRESBILD (33 BLOECKE) VON DISK LADEN "; 662 ←T1:←PQ:PRINT"←HP "; 663 ←C:←LF:PRINT"HIRESBILD (A000-BFFF) DRUCKEN (←TB..LINKER RAND)" 670 ←PQ:PRINT"←HF{2SPACE}"; 671 ←C:PRINT"WIE ←HP ABER FETTDRUCK (DOPPELTE ZEIT)"; 672 ←T1:←PQ:PRINT"←HE "; 673 ←C:←LB:PRINT"WIE ←HP ABER ENTZERRTER FETTDRUCK (4FACHE ZEIT)" 800 GOSUB 993:←WL 802 ←PQ:←LF:PRINT"←IN(X,Y),F,"CHR$ (34)"T"CHR$ (34)",L,"CHR$ (34)"Z"CHR$ (34)","; 804 PRINT"VV${6SPACE}";:←C:PRINT"FORMATIERTER INPUT BEFEHL FUER MAX. 255 ZEICHEN 806 ←ST1,05 808 PRINT"X...SPALTE(0-39) Y...ZEILE(0-24) ,F...FARBE VON TEXT & EINGABEFELD "; 810 ←LE:PRINT"(0-15) T...TEXT(VOR EINGABEFELD)" 811 ←T1:PRINT"L...LAENGE EINGABEFELD "; 812 PRINT"Z...BESCHRAENKUNG AUF ERLAUBTEZEICHEN(<30) VV$...STRINGVARIABLE"; 814 PRINT"(MAX. 255 ZEICHEN)" 816 ←ST1,07:PRINT",F{3SPACE}"CHR$ (34)"T"CHR$ (34)"{3SPACE}"CHR$ (34)"Z"CHR$ (34); 818 ←LB:PRINT"{2SPACE}KOENNEN WEGGELASSEN WERDEN{2SPACE}←IN(X,Y)L,VV${2SPACE}←IN(X,Y),F,L,VV$ USW" 820 GOSUB 992:←WL 822 ←PQ:←LF:PRINT"←TX(X,Y),F,"CHR$ (34)"T"CHR$ (34)"{2SPACE}ODER VV${2SPACE}"; 824 ←C:PRINT"{4SPACE}PRINT TEXT AT BEFEHL" 826 ←ST1,05 828 PRINT"X...SPALTE(0-39) Y...ZEILE(0-24) ,F...FARBE DES TEXTES"; 830 ←LE:PRINT"(0-15) T...TEXT ODER VV$...STRINGVARIABLE" 832 ←ST1,07:PRINT",F{3SPACE}KANN WEGGELASSEN WERDEN{5SPACE}←TX(X,Y)"CHR$ (34)"T"; 834 ←LB:PRINT CHR$ (34) "ODER ←TX(X,Y)VV$ 836 GOSUB 992:←WL 838 ←PQ:←LF:PRINT"←SC,A{7SPACE}"; 840 ←C:PRINT"{4SPACE}SCROLL UP BEFEHL{4SPACE}" 842 ←ST1,05 844 ←LE:PRINT",A...ANZAHL DER ZU SCROLLENDEN ZEILEN"; 846 ←LB:PRINT"{5SPACE},A{3SPACE}KANN WEGGELASSEN WERDEN{5SPACE}←SC " 848 GOSUB 992:←WL 850 ←PQ:←LF:PRINT"←CL,Y,A{7SPACE}"; 852 ←C:PRINT"{4SPACE}CLEAR{SHIFT-SPACE}LINE BEFEHL{SPACE,3SPACE}" 854 ←ST1,05 856 ←LE:PRINT"Y...ZEILE(0-24){2SPACE},A...ANZAHL DER ZU LOESCHENDEN ZEILEN"; 858 ←LB:PRINT 860 GOSUB 992:←WL 862 ←PQ:←LF:PRINT"←CS{11SPACE}"; 864 ←C:←LB:PRINT"{4SPACE}CLEAR{SHIFT-SPACE}SCREEN BEFEHL{SPACE,3SPACE}" 866 GOSUB 993:←WL 870 ←C:PRINT"*) ";:←H:PRINT"WERTE WERDEN IN TABELLE GESETZT & ZU DRUCKER "; 872 PRINT"GESENDET":←LB: ←WL 900 GOSUB 990:←RD:←RM:END 910 REM *** GRAFIKSUBROUTINEN 990 ←D:←SZ1,0001000:←SZ2,0011100:←SZ3,0110110:←SZ4,1100011 991 ←SZR,59:←Z1:←Z2:←Z3:←SZR,64:←Z4:←SZR,59:←Z3:←Z2:←Z1:←Z0:RETURN 992 ←SZR,209:←SZ2,0000010:←Z2:←Z2:←RT:←D:←LE:←ML,03:←MR,74:←M:←ST1,36:RETURN 993 ←ST1,36:←W:←SZR,209:←SZ2,0000011:←Z2:←Z2:←Z0:←LF:RETURN 994 ←SZR,209:←SZ5,1100000:←Z5:←Z5:←Z0:←LA:←WL:←LC:RETURN
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen