Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Nächste Überarbeitung
Vorhergehende Überarbeitung
forth:fgforth:show [2020/11/11 11:03] – angelegt volkerpforth:fgforth:show [2020/11/11 15:30] (aktuell) – [Screen-Druck] volkerp
Zeile 5: Zeile 5:
 Meine Variante ist für den Drucker "Präsident 6325" angepasst. Das ist ein K6313-Nachfolger (https://www.robotrontechnik.de/index.htm?/html/drucker/k631x.htm), den ich 1990 bei Conrad erworben hatte. Meine Variante ist für den Drucker "Präsident 6325" angepasst. Das ist ein K6313-Nachfolger (https://www.robotrontechnik.de/index.htm?/html/drucker/k631x.htm), den ich 1990 bei Conrad erworben hatte.
  
-Vorab muss man im Z9001 auf OS-Ebene einen geeigneten Druckertreiber laden! Dann kann man in Forth drucken:+Vorab muss man im Z9001 auf OS-Ebene einen geeigneten Druckertreiber laden!\\ Laden und Compilieren von SHOW:
  
   FORTH   FORTH
   1 GET SHOW   1 GET SHOW
   1 5 THRU   1 5 THRU
 +
 +Jetzt kann man in Forth drucken.
  
 SHOW ( n1 n2 -- ) \ von...bis druckt Screens von..bis zweispaltig\\ SHOW ( n1 n2 -- ) \ von...bis druckt Screens von..bis zweispaltig\\
Zeile 93: Zeile 95:
 Intern wird (EMIT) auf Druckausgabe umgehängt. Die Ausgabe erfolgt mit den normalen Forth-Worten zur Textausgabe. Intern wird (EMIT) auf Druckausgabe umgehängt. Die Ausgabe erfolgt mit den normalen Forth-Worten zur Textausgabe.
 Als Schriftart wird Elite gewählt. So passen 2 Spalten problemlos auf ein A4-Blatt, trotz Rand u.a.m. Als Schriftart wird Elite gewählt. So passen 2 Spalten problemlos auf ein A4-Blatt, trotz Rand u.a.m.
 +
 +Der Rand von 8 Zeichen kommt magisch durch die interne Implementierung von CR zustande:
 +
 +  VARIABLE LMARGIN   8 LMARGIN !
 +  I/O DEFINITIONS
 +  : (CR)   CRLF PRINTING @ IF LMARGIN @ 0 DO BL (PRINT) LOOP THEN ;
 +  ' (CR) IS CR
  
 vgl. SHOW von Laxen/Perry-F83 vgl. SHOW von Laxen/Perry-F83
  
  
  • forth/fgforth/show.1605092584.txt.gz
  • Zuletzt geändert: 2020/11/11 11:03
  • von volkerp