home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / drucker / druck_32.lst next >
File List  |  1987-04-21  |  31KB  |  1,006 lines
  1. If Xbios(4)=0
  2.   Alert 3,"Bitte auf mittlere Auflösung|       umschalten",1,"  Danke ",D%
  3.   End
  4. Endif
  5. Alert 0,"Dieses Programm ist|   frei kopierbar|  (Public Domain)|-------------------",1," Weiter ",D%
  6. ' ******************* Druckerabfrage ******************
  7. If Gemdos(17)=Not -1
  8.   Alert 3,"Bitte Drucker einschalten !",1,"OK|Abbruch",D%
  9.   If D%=2
  10.     End
  11.   Endif
  12.   If D%=1 And Gemdos(17)=1
  13.     Goto Asf
  14.   Else
  15.     Run
  16.   Endif
  17. Endif
  18. Asf:
  19. Void Xbios(33,4)
  20. On Error Gosub Hauptmenue
  21. Lprint Chr$(27);"R";Chr$(2);
  22. Gosub Hauptmenue
  23. Procedure Hauptmenue
  24.   Cls
  25.   Hidem
  26.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  27.   Print Chr$(27)+"p"
  28.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  29.   Print Chr$(27)+"q"
  30.   Print At(5,4);" A = Druckbefehl "
  31.   Print At(5,6);" B = Schrifttyp "
  32.   Print At(5,8);" C = Ausdruck mit"
  33.   Print At(5,9);"     doppelter "
  34.   Print At(5,10);"     Zeichenbreite"
  35.   Print At(5,12);" D = Graphikdruck"
  36.   Print At(5,13);"     Hardcopyausdruck"
  37.   Print At(5,15);" E = Zeilenabstand"
  38.   Print At(5,17);" F = Seitenlänge"
  39.   Print At(5,19);" G = Horizontal-"
  40.   Print At(5,20);"     Tabulator"
  41.   Line 220,40,220,380
  42.   Print At(5,22);" H = Randeinstellung"
  43.   Print At(5,24);" I = Unterstreichen "
  44.   Print At(30,4);" J = Puffer löschen"
  45.   Print At(30,6);" K = Rückschritt"
  46.   Print At(30,8);" L = Summer"
  47.   Print At(30,10);" M = Ausgangsposition"
  48.   Print At(30,12);" N = Zeilensprung"
  49.   Print At(30,14);" O = Papier-Erkennungs-"
  50.   Print At(30,15);"     Funktion"
  51.   Print At(30,17);" P = Rückstellung "
  52.   Print At(30,19);" Q = Löschen"
  53.   Line 430,40,430,380
  54.   Print At(30,21);" R = Ausdruck in"
  55.   Print At(30,22);"     einer Richtung"
  56.   Print At(30,24);" S = Zeichensatz"
  57.   Print At(56,4);" T = Vertikal Tabulator"
  58.   Print At(56,6);" U = Druckerwahl "
  59.   Print At(56,8);" V = Frei programmier-"
  60.   Print At(56,9);"     bare Zeichen"
  61.   Print At(56,11);" W = Steuerung der"
  62.   Print At(56,12);"     Eingabedaten"
  63.   Print At(56,14);" X = Vergrö₧ern des"
  64.   Print At(56,15);"     Druckbefehls"
  65.   Print At(56,16);"     bereichs"
  66.   Print At(56,18);" Y = Lade/Drucke Text "
  67.   Print At(56,20);" # = Test Druck  "
  68.   Print Chr$(27)+"p"
  69.   Print At(56,22);" Z = Programmende "
  70.   Print Chr$(27)+"q"
  71.   Print At(56,24);" Ihre Eingabe ";
  72.   Form Input 1,A$
  73.   If A$="A" Or A$="a"                                  !Druckbefehl
  74.     Cls
  75.     Gosub Auswahl_a
  76.   Endif
  77.   If A$="Y" Or A$="y"
  78.     Cls
  79.     Alert 3,"Wollen Sie die ' entfernen|beim Abdruck von GFA LST Texten.|Die ' werden dann mit einen|Leerzeichen überschrieben.",2,"Entferne|Normal",Entferne%
  80.     Gosub Lade_text
  81.   Endif
  82.   If A$="#"
  83.     Cls
  84.     Gosub Test
  85.   Endif
  86.   If A$="B" Or A$="b"                                  !Schrifttyp
  87.     Cls
  88.     Gosub Auswahl_b
  89.   Endif
  90.   If A$="C" Or A$="c"                   !Ausdruck mit doppelter Zeichenbreite
  91.     Cls
  92.     Gosub Auswahl_c
  93.   Endif
  94.   If A$="D" Or A$="d"                              !Grafikdruck
  95.     Cls
  96.     Gosub Auswahl_d
  97.   Endif
  98.   If A$="E" Or A$="e"                               !Zeilenabstand
  99.     Cls
  100.     Gosub Auswahl_e
  101.   Endif
  102.   If A$="F" Or A$="f"                                !Seitenlänge
  103.     Cls
  104.     Gosub Auswahl_f
  105.   Endif
  106.   If A$="G" Or A$="g"                                 !Horizontaltabulator
  107.     Cls
  108.     Gosub Auswahl_g
  109.   Endif
  110.   If A$="H" Or A$="h"                                 !Randeinstellung
  111.     Cls
  112.     Gosub Auswahl_h
  113.   Endif
  114.   If A$="I" Or A$="i"                                  !Unterstreichen
  115.     Cls
  116.     Gosub Auswahl_i
  117.   Endif
  118.   If A$="J" Or A$="j"                                   !Puffer löschen
  119.     Lprint Chr$(24);
  120.   Endif
  121.   If A$="K" Or A$="K"                                    !Rückschritt
  122.     Lprint Chr$(8);
  123.   Endif
  124.   If A$="L" Or A$="l"                                     !Summer
  125.     Lprint Chr$(7);
  126.   Endif
  127.   If A$="M" Or A$="m"                                     !Ausgangsposition
  128.     Lprint Chr$(27)+Chr$(60);
  129.   Endif
  130.   If A$="N" Or A$="n"                                    !Zeilensprung
  131.     Cls
  132.     Gosub Auswahl_n
  133.   Endif
  134.   If A$="O" Or A$="o"                                     !Papier-Erkennung
  135.     Cls
  136.     Gosub Auswahl_o
  137.   Endif
  138.   If A$="P" Or A$="p"                                     !Rückstellung
  139.     Lprint Chr$(27)+Chr$(64);
  140.   Endif
  141.   If A$="q" Or A$="Q"                                      !Löschen
  142.     Lprint Chr$(127);
  143.   Endif
  144.   If A$="R" Or A$="r"                       !Ausdruck in einer Richtung
  145.     Cls
  146.     Gosub Auswahl_q
  147.   Endif
  148.   If A$="S" Or A$="s"                         !Zeichensatz
  149.     Cls
  150.     Print At(60,3);"0 = USA"
  151.     Print At(60,5);"1 = Frankreich"
  152.     Print Chr$(27);"p";
  153.     Print At(59,7);" 2 = Deutschland    "
  154.     Print Chr$(27);"q";
  155.     Print At(60,9);"3 = Gro₧britanien"
  156.     Print At(60,11);"4 = Dänemark"
  157.     Print At(60,13);"5 = Schweden"
  158.     Print At(60,15);"6 = Italien"
  159.     Print At(60,17);"7 = Spanien"
  160.     Print At(60,19);"8 = Japan"
  161.     Print At(60,21);"9 = Norwegen"
  162.     Print At(60,23);"10 = Dänemark II"
  163.     Print At(10,10);"Wahl von 11 verschiedenen Zeichensätzen"
  164.     Print At(10,12);"Bitte eine Zahl eingeben               ";
  165.     Form Input 2,Zeichen$
  166.     Zeichen=Val(Zeichen$)
  167.     Lprint Chr$(27);"R";Chr$(Zeichen);
  168.     Cls
  169.   Endif
  170.   If A$="T" Or A$="t"                      !Vertikaltabulator
  171.     Cls
  172.     Gosub Auswahl_t
  173.   Endif
  174.   If A$="U" Or A$="u"                      !Druckerwahl
  175.     Cls
  176.     Gosub Auswahl_u
  177.   Endif
  178.   If A$="V" Or A$="v"                        !Frei programmierbare Zeichen
  179.     Cls
  180.     Gosub Auswahl_v
  181.   Endif
  182.   If A$="W" Or A$="w"                         !Steuerung der Eingabedaten
  183.     Cls
  184.     Gosub Auswahl_w
  185.   Endif
  186.   If A$="x" Or A$="X"          !Vergrössern des Druckbefehlsbereichs
  187.     Cls
  188.     Gosub Auswahl_x
  189.   Endif
  190.   If A$="Z" Or A$="z"
  191.     Cls
  192.     Alert 3,"Wollen Sie dieses|     Programm   |wircklich verlassen",2," Ja | Nein ",D%
  193.     If D%=1
  194.       End
  195.     Endif
  196.   Endif
  197.   Gosub Hauptmenue
  198. Return
  199. Procedure Auswahl_a
  200.   Cls
  201.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  202.   Print Chr$(27)+"p"
  203.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  204.   Print Chr$(27)+"q"
  205.   Print At(5,4);" A = Zeilenvorschub"
  206.   Print At(5,6);" B = Seitenvorschub"
  207.   Print At(5,8);" C = Vertikaltabulatoren Zeilenvorschub"
  208.   Print At(5,10);" D = Zeilenvorschub      um n/216''"
  209.   Print At(5,12);" E = Zeilenrücktransport um n/216''"
  210.   Print Chr$(27)+"p"
  211.   Print At(5,15);" F = Zum Hauptmenü "
  212.   Print Chr$(27)+"q"
  213.   Print At(5,17);" Ihre Eingabe ";
  214.   Form Input 1,B$
  215.   If B$="A" Or B$="a"
  216.     Lprint Chr$(10);
  217.   Endif
  218.   If B$="B" Or B$="b"
  219.     Lprint Chr$(12);
  220.   Endif
  221.   If B$="C" Or B$="c"
  222.     Lprint Chr$(11);
  223.   Endif
  224.   If B$="D" Or B$="d"
  225.     Cls
  226.     Print At(10,10);"Zeilenvorschub von Zahl/216''"
  227.     Print At(10,12);"Bitte eine Zahl eingeben ";
  228.     Form Input 3,Zahl$
  229.     Zahl=Val(Zahl$)
  230.     Lprint Chr$(27)+Chr$(74)+Chr$(Zahl);
  231.   Endif
  232.   If B$="E" Or B$="e"
  233.     Cls
  234.     Print At(10,10);"Zeilenrücktransport um Zahl/216''"
  235.     Print At(10,12);"Bitte Zahl eingeben ";
  236.     Form Input 3,Zahl1$
  237.     Zahl1=Val(Zahl1$)
  238.     Lprint Chr$(27)+Chr$(106)+Chr$(Zahl1);
  239.   Endif
  240.   If B$="F" Or B$="f"
  241.     Gosub Hauptmenue
  242.   Endif
  243.   Gosub Auswahl_a
  244. Return
  245. Procedure Auswahl_b
  246.   Cls
  247.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  248.   Print Chr$(27)+"p"
  249.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  250.   Print Chr$(27)+"q"
  251.   Print At(5,4);" A = Elite ein       "
  252.   Print At(5,6);" B = Elite aus       "
  253.   Print At(5,8);" C = Schmallschrift ein  "
  254.   Print At(5,10);" D = Schmallschrift aus "
  255.   Print At(5,12);" E = Hohe Druckqualität ein"
  256.   Print At(5,14);" F = Hohe Druckqualität aus "
  257.   Print At(5,16);" G = Proportionaldruck ein "
  258.   Print At(5,18);" H = Proportionaldruck aus"
  259.   Print At(5,20);" I = Ausdruck hochgestellt ein"
  260.   Print At(5,22);" J = Ausdruck tiefgestellt ein"
  261.   Print At(5,24);" K = Hoch-Tiefstellung aus"
  262.   Line 290,40,290,385
  263.   Print At(39,4);" L = Italic ein"
  264.   Print At(39,6);" M = Italic aus"
  265.   Print At(39,8);" N = Festlegen der Druckart"
  266.   Print At(39,10);" O = Fettdruck ein"
  267.   Print At(39,12);" P = Fettdruck aus"
  268.   Print At(39,14);" Q = Ausdruck mit doppelter"
  269.   Print At(39,15);"     Anschlagstärke"
  270.   Print At(39,17);" R = Beendigung des Ausdrucks"
  271.   Print At(39,18);"     mit doppelter Anschlagstärke"
  272.   Print Chr$(27)+"p"
  273.   Print At(39,22);" S = Zurück zum Hauptmenü "
  274.   Print Chr$(27)+"q"
  275.   Print At(39,24);" Ihre Eingabe ";
  276.   Form Input 1,C$
  277.   If C$="S" Or C$="s"
  278.     Gosub Hauptmenue
  279.   Endif
  280.   If C$="A" Or C$="a"
  281.     Lprint Chr$(27)+Chr$(77);
  282.   Endif
  283.   If C$="B" Or C$="b"
  284.     Lprint Chr$(27)+Chr$(80);
  285.   Endif
  286.   If C$="C" Or C$="c"
  287.     Lprint Chr$(15);
  288.   Endif
  289.   If C$="D" Or C$="d"
  290.     Lprint Chr$(18);
  291.   Endif
  292.   If C$="E" Or C$="e"
  293.     Lprint Chr$(27)+Chr$(120)+Chr$(1);
  294.   Endif
  295.   If C$="F" Or C$="f"
  296.     Lprint Chr$(27)+Chr$(120)+Chr$(0);
  297.   Endif
  298.   If C$="G" Or C$="g"
  299.     Lprint Chr$(27)+Chr$(112)+Chr$(1);
  300.   Endif
  301.   If C$="H" Or C$="h"
  302.     Lprint Chr$(27)+Chr$(112)+Chr$(0);
  303.   Endif
  304.   If C$="I" Or C$="i"
  305.     Lprint Chr$(27)+Chr$(83)+Chr$(0);
  306.   Endif
  307.   If C$="J" Or C$="j"
  308.     Lprint Chr$(27)+Chr$(83)+Chr$(1);
  309.   Endif
  310.   If C$="K" Or C$="k"
  311.     Lprint Chr$(27)+Chr$(84);
  312.   Endif
  313.   If C$="L" Or C$="l"
  314.     Lprint Chr$(27)+Chr$(52);
  315.   Endif
  316.   If C$="M" Or C$="m"
  317.     Lprint Chr$(27)+Chr$(53);
  318.   Endif
  319.   If C$="N" Or C$="n"
  320.     Cls
  321.     Print At(10,10);"Festlegen der Druckart"
  322.     Print At(10,12);"Bitte eine Zahl eingeben ";
  323.     Form Input 3,Zahl2$
  324.     Zahl2=Val(Zahl2$)
  325.     Lprint Chr$(27)+Chr$(33)+Chr$(Zahl2);
  326.     Cls
  327.   Endif
  328.   If C$="O" Or C$="o"
  329.     Lprint Chr$(27)+Chr$(69);
  330.   Endif
  331.   If C$="P" Or C$="p"
  332.     Lprint Chr$(27)+Chr$(70);
  333.   Endif
  334.   If C$="Q" Or C$="q"
  335.     Lprint Chr$(27)+Chr$(71);
  336.   Endif
  337.   If C$="R" Or C$="r"
  338.     Lprint Chr$(27)+Chr$(72);
  339.   Endif
  340.   Gosub Auswahl_b
  341. Return
  342. Procedure Auswahl_c
  343.   Cls
  344.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  345.   Print Chr$(27)+"p"
  346.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  347.   Print Chr$(27)+"q"
  348.   Print At(5,4);" A = Ausdruck mit doppelter Zeichenbreite"
  349.   Print At(5,5);"     Befehl wird durch Zeilenvorschub beendet"
  350.   Print At(5,7);" B = Beenden von Position A"
  351.   Print At(5,9);" C = Ausdruck mit doppelter Zeichenbreite"
  352.   Print At(5,10);"    (Befehl wird durch Zeilenvorschub nicht beendet)"
  353.   Print At(5,12);" D = Beenden von Position C"
  354.   Print Chr$(27)+"p"
  355.   Print At(5,15);" E = Zum Hauptmenü "
  356.   Print Chr$(27)+"q"
  357.   Print At(5,17);" Ihre Eingabe ";
  358.   Form Input 1,D$
  359.   If D$="A" Or D$="a"
  360.     Lprint Chr$(14);
  361.   Endif
  362.   If D$="B" Or D$="b"
  363.     Lprint Chr$(20);
  364.   Endif
  365.   If D$="C" Or D$="c"
  366.     Lprint Chr$(27)+Chr$(87)+Chr$(1);
  367.   Endif
  368.   If D$="D" Or D$="d"
  369.     Lprint Chr$(27)+Chr$(87)+Chr$(0);
  370.   Endif
  371.   If D$="E" Or D$="e"
  372.     Gosub Hauptmenue
  373.   Endif
  374.   Gosub Auswahl_c
  375. Return
  376. Procedure Auswahl_d
  377.   Cls
  378.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  379.   Print Chr$(27)+"p"
  380.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  381.   Print Chr$(27)+"q"
  382.   Print At(5,4);" A = Standard Grafikdruck"
  383.   Print At(5,6);" B = Grafikdruck mit doppelter Dichte"
  384.   Print At(5,8);" C = Grafikdruck mit doppelter Dichte und"
  385.   Print At(5,9);"     doppelter Druckgeschwindigkeit"
  386.   Print At(5,11);" D = Grafikdruck mit vierfacher Dichte"
  387.   Print At(5,13);" E = Verschidene Grafikdruckarten"
  388.   Print At(5,15);" F = 9-Pin-Grafikdruck"
  389.   Line 370,40,370,370
  390.   Print At(48,4);"G = Hardcopyeinstellung "
  391.   Print At(48,5);"    960 Punkte"
  392.   Print At(48,7);"H = Hardcopyeinstellung "
  393.   Print At(48,8);"    1280 Punkte"
  394.   Print Chr$(27)+"p"
  395.   Print At(5,18);" I = Zum Hauptmenü "
  396.   Print Chr$(27)+"q"
  397.   Print At(5,21);" Ihre Eingabe ";
  398.   Form Input 1,E$
  399.   If E$="A" Or E$="a"
  400.     Cls
  401.     Print At(10,10);"Festlegen des Standart Grafikdrucks"
  402.     Print At(10,12);"Bitte 1 Wert eingeben              ";
  403.     Form Input 8,Zahl4$
  404.     Zahl4=Val(Zahl4$)
  405.     Print At(10,14);"Bitte 2 Wert eingeben              ";
  406.     Form Input 8,Zahl5$
  407.     Zahl5=Val(Zahl5$)
  408.     Lprint Chr$(27)+Chr$(75)+Chr$(Zahl4)+Chr$(Zahl5);
  409.     Cls
  410.   Endif
  411.   If E$="B" Or E$="b"
  412.     Cls
  413.     Print At(10,10);"Festlegen des Grafikdrucks mit doppelter Dichte"
  414.     Print At(10,12);"Bitte 1 Wert eingeben                          ";
  415.     Form Input 8,Zahl6$
  416.     Zahl6=Val(Zahl6$)
  417.     Print At(10,14);"Bitte 2 Wert eingeben                          ";
  418.     Form Input 8,Zahl7$
  419.     Zahl7=Val(Zahl7$)
  420.     Lprint Chr$(27)+Chr$(76)+Chr$(Zahl6)+Chr$(Zahl7);
  421.     Cls
  422.   Endif
  423.   If E$="C" Or E$="c"
  424.     Cls
  425.     Print At(10,10);"Festlegen des Grafikdrucks mit doppelter Dichte"
  426.     Print At(10,11);"und doppelter Druckgeschwindigkeit             "
  427.     Print At(10,13);"Bitte 1 Wert eingeben                          ";
  428.     Form Input 8,Zahl8$
  429.     Zahl8=Val(Zahl8$)
  430.     Print At(10,15);"Bitte 2 Wert eingeben                          ";
  431.     Form Input 8,Zahl9$
  432.     Zahl9=Val(Zahl9$)
  433.     Lprint Chr$(27)+Chr$(89)+Chr$(Zahl8)+Chr$(Zahl9);
  434.     Cls
  435.   Endif
  436.   If E$="D" Or E$="d"
  437.     Cls
  438.     Print At(10,10);"Grafikdruck mit vierfacher Dichte    "
  439.     Print At(10,12);"Bitte 1 Wert eingeben                ";
  440.     Form Input 8,Zahla$
  441.     Zahla=Val(Zahla$)
  442.     Print At(10,14);"Bitte 2 Wert eingeben                ";
  443.     Form Input 8,Zahlb$
  444.     Zahlb=Val(Zahlb$)
  445.     Lprint Chr$(27)+Chr$(90)+Chr$(Zahla)+Chr$(Zahlb);
  446.     Cls
  447.   Endif
  448.   If E$="E" Or E$="e"
  449.     Cls
  450.     Print At(10,10);"Verschiedene Grafikdruckarten        "
  451.     Print At(10,12);"Bitte 1 Wert eingeben                ";
  452.     Form Input 8,Zahlc$
  453.     Zahlc=Val(Zahlc$)
  454.     Print At(10,14);"Bitte 2 Wert eingeben                ";
  455.     Form Input 8,Zahld$
  456.     Zahld=Val(Zahld$)
  457.     Print At(10,16);"Bitte 3 Wert eingeben                ";
  458.     Form Input 8,Zahle$
  459.     Zahle=Val(Zahle$)
  460.     Lprint Chr$(27)+Chr$(42)+Chr$(Zahlc)+Chr$(Zahld)+Chr$(Zahle);
  461.     Cls
  462.   Endif
  463.   If E$="F" Or E$="f"
  464.     Cls
  465.     Print At(10,10);"9-Pin-Grafikdruck                    "
  466.     Print At(10,12);"Bitte 1 Wert eingeben                ";
  467.     Form Input 8,Zahlf$
  468.     Zahlf=Val(Zahlf$)
  469.     Print At(10,14);"Bitte 2 Wert eingeben                ";
  470.     Form Input 8,Zahlg$
  471.     Zahlg=Val(Zahlg$)
  472.     Print At(10,16);"Bitte 3 Wert eingeben                ";
  473.     Form Input 8,Zahlh$
  474.     Zahlh=Val(Zahlh$)
  475.     Lprint Chr$(27)+Chr$(94)+Chr$(Zahlf)+Chr$(Zahlg)+Chr$(Zahlh);
  476.     Cls
  477.   Endif
  478.   If E$="G" Or E$="g"
  479.     Void Xbios(33,4)
  480.   Endif
  481.   If E$="H" Or E$="h"
  482.     Void Xbios(33,0)
  483.   Endif
  484.   If E$="I" Or E$="i"
  485.     Gosub Hauptmenue
  486.   Endif
  487.   Gosub Auswahl_d
  488. Return
  489. Procedure Auswahl_e
  490.   Cls
  491.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  492.   Print Chr$(27)+"p"
  493.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  494.   Print Chr$(27)+"q"
  495.   Print At(5,4);" A = Zeilenabstand                1/8   ''"
  496.   Print At(5,6);" B = Zeilenabstand                7/72  ''"
  497.   Print At(5,8);" C = Zeilenabstand                1/6   ''"
  498.   Print At(5,10);" D = Einstellung Zeilenabstand    n/216 ''"
  499.   Print At(5,12);" E = Einstellung Zeilenabstand    n/72  ''"
  500.   Print Chr$(27)+"p"
  501.   Print At(5,15);" F = Zum Hauptmenü "
  502.   Print Chr$(27)+"q"
  503.   Print At(5,18);" Ihre Eingabe ";
  504.   Form Input 1,F$
  505.   If F$="A" Or F$="a"
  506.     Lprint Chr$(27)+Chr$(48);
  507.   Endif
  508.   If F$="B" Or F$="b"
  509.     Lprint Chr$(27)+Chr$(49);
  510.   Endif
  511.   If F$="C" Or F$="c"
  512.     Lprint Chr$(27)+Chr$(50);
  513.   Endif
  514.   If F$="D" Or F$="d"
  515.     Cls
  516.     Print At(10,10);"Festlegen de Zeilenabstandes  n/216 ''"
  517.     Print At(10,12);"Bitte eine Zahl eingeben              ";
  518.     Form Input 3,Zahlo$
  519.     Zahlo=Val(Zahlo$)
  520.     Lprint Chr$(27)+Chr$(51)+Chr$(Zahlo);
  521.     Cls
  522.   Endif
  523.   If F$="E" Or F$="e"
  524.     Cls
  525.     Print At(10,10);"Festlegen de Zeilenabstandes  n/72  ''"
  526.     Print At(10,12);"Bitte eine Zahl eingeben              ";
  527.     Form Input 3,Zahllo$
  528.     Zahllo=Val(Zahllo$)
  529.     Lprint Chr$(27)+Chr$(65)+Chr$(Zahllo);
  530.     Cls
  531.   Endif
  532.   If F$="F" Or F$="f"
  533.     Gosub Hauptmenue
  534.   Endif
  535.   Gosub Auswahl_e
  536. Return
  537. Procedure Auswahl_f
  538.   Cls
  539.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  540.   Print Chr$(27)+"p"
  541.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  542.   Print Chr$(27)+"q"
  543.   Print At(5,4);" A = Einstellung der Seitenlänge in Zeileneinheiten"
  544.   Print At(5,6);" B = Einstellung der Seitenlänge in Zolleinheiten  "
  545.   Print Chr$(27)+"p"
  546.   Print At(5,9);" C = Zum Hauptmenü "
  547.   Print Chr$(27)+"q"
  548.   Print At(5,12);" Ihre Eingabe ";
  549.   Form Input 1,G$
  550.   If G$="A" Or G$="a"
  551.     Cls
  552.     Print At(10,10);"Einstellen der Seitenlänge in Zeileneinheiten "
  553.     Print At(10,12);"Bitte eine Zahl eingeben                      ";
  554.     Form Input 3,Wahl1$
  555.     Wahl1=Val(Wahl1$)
  556.     Lprint Chr$(27)+Chr$(65)+Chr$(Wahl1);
  557.     Cls
  558.   Endif
  559.   If G$="B" Or G$="b"
  560.     Cls
  561.     Print At(10,10);"Einstellen der Seitenlänge in Zolleinheiten  "
  562.     Print At(10,12);"Bitte eine Zahl eingeben                     ";
  563.     Form Input 3,Wahl2$
  564.     Wahl2=Val(Wahl2$)
  565.     Lprint Chr$(27)+Chr$(67)+Chr$(0)+Chr$(Wahl2);
  566.     Cls
  567.   Endif
  568.   If G$="C" Or G$="c"
  569.     Gosub Hauptmenue
  570.   Endif
  571.   Gosub Auswahl_f
  572. Return
  573. Procedure Auswahl_g
  574.   Cls
  575.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  576.   Print Chr$(27)+"p"
  577.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  578.   Print Chr$(27)+"q"
  579.   Print At(5,4);" A = Setzen des Horizontalabulators"
  580.   Print At(5,6);" B = Bewegen zur nächsten Tabulatorposition"
  581.   Print Chr$(27)+"p"
  582.   Print At(5,9);" C = Zum Hauptmenü"
  583.   Print Chr$(27)+"q"
  584.   Print At(5,12);" Ihre Eingabe ";
  585.   Form Input 1,H$
  586.   If H$="A" Or H$="a"
  587.     Cls
  588.     Print At(10,5);"Setzen des Horizontaltabulators      "
  589.     Print At(10,7);"Bitte 1 Wert eingeben                ";
  590.     Form Input 8,Tob1$
  591.     Tob1=Val(Tob1$)
  592.     Print At(10,9);"Bitte 2 Wert eingeben                ";
  593.     Form Input 8,Tob2$
  594.     Tob2=Val(Tob2$)
  595.     Print At(10,11);"Bitte 3 Wert eingeben                ";
  596.     Form Input 8,Tob3$
  597.     Tob3=Val(Tob3$)
  598.     Lprint Chr$(27)+Chr$(68)+Chr$(Tob1)+Chr$(Tob2)+Chr$(Tob3)+Chr$(0);
  599.     Cls
  600.   Endif
  601.   If H$="B" Or H$="b"
  602.     Lprint Chr$(9);
  603.   Endif
  604.   If H$="C" Or H$="c"
  605.     Gosub Hauptmenue
  606.   Endif
  607.   Gosub Auswahl_g
  608. Return
  609. Procedure Auswahl_h
  610.   Cls
  611.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  612.   Print Chr$(27)+"p"
  613.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  614.   Print Chr$(27)+"q"
  615.   Print At(5,4);" A = Rechten Rand setzen"
  616.   Print At(5,6);" B = Linken  Rand setzen"
  617.   Print Chr$(27)+"p"
  618.   Print At(5,9);" C = Zum Hauptmenü"
  619.   Print Chr$(27)+"q"
  620.   Print At(5,12);" Ihre Eingabe ";
  621.   Form Input 1,H$
  622.   If H$="A" Or H$="a"
  623.     Cls
  624.     Print At(10,5);"Einstellen des Rechten Randes        "
  625.     Print At(10,7);"Bitte 1 Wert eingeben                ";
  626.     Form Input 8,Rran$
  627.     Rran=Val(Rran$)
  628.     Lprint Chr$(27)+Chr$(81)+Chr$(Rran);
  629.     Cls
  630.   Endif
  631.   If H$="B" Or H$="b"
  632.     Cls
  633.     Print At(10,5);"Einstellen des linken Randes         "
  634.     Print At(10,7);"Bitte 1 Wert eingeben                ";
  635.     Form Input 8,Lran$
  636.     Lran=Val(Lran$)
  637.     Lprint Chr$(27)+Chr$(108)+Chr$(Lran);
  638.     Cls
  639.   Endif
  640.   If H$="C" Or H$="c"
  641.     Gosub Hauptmenue
  642.   Endif
  643.   Gosub Auswahl_h
  644. Return
  645. Procedure Auswahl_i
  646.   Cls
  647.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  648.   Print Chr$(27)+"p"
  649.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  650.   Print Chr$(27)+"q"
  651.   Print At(5,4);" A = Unterstreichen ein"
  652.   Print At(5,6);" B = Unterstreichen aus"
  653.   Print Chr$(27)+"p"
  654.   Print At(5,9);" C = Zum Hauptmenü"
  655.   Print Chr$(27)+"q"
  656.   Print At(5,12);" Ihre Eingabe ";
  657.   Form Input 1,H$
  658.   If H$="A" Or H$="a"
  659.     Lprint Chr$(27)+Chr$(45)+Chr$(1);
  660.   Endif
  661.   If H$="B" Or H$="b"
  662.     Lprint Chr$(27)+Chr$(45)+Chr$(0);
  663.   Endif
  664.   If H$="C" Or H$="c"
  665.     Gosub Hauptmenue
  666.   Endif
  667.   Gosub Auswahl_i
  668. Return
  669. Procedure Auswahl_n
  670.   Cls
  671.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  672.   Print Chr$(27)+"p"
  673.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  674.   Print Chr$(27)+"q"
  675.   Print At(5,4);" A = Überspringen von n-Zeilen am Seitenende"
  676.   Print At(5,6);" B = Ende der Sprungfunktion"
  677.   Print Chr$(27)+"p"
  678.   Print At(5,9);" C = Zum Hauptmenü"
  679.   Print Chr$(27)+"q"
  680.   Print At(5,12);" Ihre Eingabe ";
  681.   Form Input 1,H$
  682.   If H$="A" Or H$="a"
  683.     Cls
  684.     Print At(10,5);"Überspringen von n-Zeilen am Seitenende "
  685.     Print At(10,7);"Bitte 1 Wert eingeben                   ";
  686.     Form Input 8,Sran$
  687.     Sran=Val(Sran$)
  688.     Lprint Chr$(27)+Chr$(78)+Chr$(Sran);
  689.     Cls
  690.   Endif
  691.   If H$="B" Or H$="b"
  692.     Lprint Chr$(27)+Chr$(79);
  693.   Endif
  694.   If H$="C" Or H$="c"
  695.     Gosub Hauptmenue
  696.   Endif
  697.   Gosub Auswahl_n
  698. Return
  699. Procedure Auswahl_o
  700.   Cls
  701.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  702.   Print Chr$(27)+"p"
  703.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  704.   Print Chr$(27)+"q"
  705.   Print At(5,4);" A = Papier-Erkennungsfunktion nicht wirksam"
  706.   Print At(5,6);" B = Papier-Erkennungsfunktion       wirksam"
  707.   Print Chr$(27)+"p"
  708.   Print At(5,9);" C = Zum Hauptmenü"
  709.   Print Chr$(27)+"q"
  710.   Print At(5,12);" Ihre Eingabe ";
  711.   Form Input 1,H$
  712.   If H$="A" Or H$="a"
  713.     Lprint Chr$(27)+Chr$(56);
  714.   Endif
  715.   If H$="B" Or H$="b"
  716.     Lprint Chr$(27)+Chr$(57);
  717.   Endif
  718.   If H$="C" Or H$="c"
  719.     Gosub Hauptmenue
  720.   Endif
  721.   Gosub Auswahl_o
  722. Return
  723. Procedure Auswahl_q
  724.   Cls
  725.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  726.   Print Chr$(27)+"p"
  727.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  728.   Print Chr$(27)+"q"
  729.   Print At(5,4);" A = Ausdruck in einer Richtung"
  730.   Print At(5,6);" B = Bildirektionaler  Ausdruck"
  731.   Print Chr$(27)+"p"
  732.   Print At(5,9);" C = Zum Hauptmenü"
  733.   Print Chr$(27)+"q"
  734.   Print At(5,12);" Ihre Eingabe ";
  735.   Form Input 1,H$
  736.   If H$="A" Or H$="a"
  737.     Lprint Chr$(27)+Chr$(85)+Chr$(1);
  738.   Endif
  739.   If H$="B" Or H$="b"
  740.     Lprint Chr$(27)+Chr$(85)+Chr$(0);
  741.   Endif
  742.   If H$="C" Or H$="c"
  743.     Gosub Hauptmenue
  744.   Endif
  745.   Gosub Auswahl_q
  746. Return
  747. Procedure Auswahl_t
  748.   Cls
  749.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  750.   Print Chr$(27)+"p"
  751.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  752.   Print Chr$(27)+"q"
  753.   Print At(5,4);" A = Vertikaltabulatoreinstellung"
  754.   Print At(5,6);" B = Vertikaltabulatoreinstellung pro Kanal"
  755.   Print At(5,8);" C = Kanalwahl des Vertikaltabulators"
  756.   Print Chr$(27)+"p"
  757.   Print At(5,11);" D = Zum Hauptmenü"
  758.   Print Chr$(27)+"q"
  759.   Print At(5,14);" Ihre Eingabe ";
  760.   Form Input 1,U$
  761.   If U$="B" Or U$="b"
  762.     Cls
  763.     Print At(10,5);"Setzen des Horizontaltabulators      "
  764.     Print At(10,7);"Bitte 1 Wert eingeben                ";
  765.     Form Input 8,Vob1$
  766.     Vob1=Val(Vob1$)
  767.     Print At(10,9);"Bitte 2 Wert eingeben                ";
  768.     Form Input 8,Vob2$
  769.     Vob2=Val(Vob2$)
  770.     Print At(10,11);"Bitte 3 Wert eingeben                ";
  771.     Form Input 8,Vob3$
  772.     Vob3=Val(Vob3$)
  773.     Lprint Chr$(27)+Chr$(98)+Chr$(Vob1)+Chr$(Vob2)+Chr$(Vob3)+Chr$(0);
  774.     Cls
  775.   Endif
  776.   If U$="C" Or U$="c"
  777.     Cls
  778.     Print At(10,5);"Kanalwahl des Vertikaltabulators "
  779.     Print At(10,7);" Bitte 1 Wert eingeben          ";
  780.     Form Input 3,Kanal$
  781.     Kanal=Val(Kanal$)
  782.     Lprint Chr$(27)+Chr$(47)+Chr$(Kanal);
  783.     Cls
  784.   Endif
  785.   If U$="A" Or U$="a"
  786.     Lprint Chr$(27)+Chr$(66);
  787.   Endif
  788.   If U$="D" Or U$="d"
  789.     Gosub Hauptmenue
  790.   Endif
  791.   Gosub Auswahl_t
  792. Return
  793. Procedure Auswahl_u
  794.   Cls
  795.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  796.   Print Chr$(27)+"p"
  797.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  798.   Print Chr$(27)+"q"
  799.   Print At(5,4);" A = Drucker   einschalten"
  800.   Print At(5,6);" B = Drucker   ausschalten"
  801.   Print Chr$(27)+"p"
  802.   Print At(5,9);" C = Zum Hauptmenü"
  803.   Print Chr$(27)+"q"
  804.   Print At(5,12);" Ihre Eingabe ";
  805.   Form Input 1,H$
  806.   If H$="A" Or H$="a"
  807.     Lprint Chr$(17);
  808.   Endif
  809.   If H$="B" Or H$="b"
  810.     Lprint Chr$(19);
  811.   Endif
  812.   If H$="C" Or H$="c"
  813.     Gosub Hauptmenue
  814.   Endif
  815.   Gosub Auswahl_u
  816. Return
  817. Procedure Auswahl_v
  818.   Cls
  819.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  820.   Print Chr$(27)+"p"
  821.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  822.   Print Chr$(27)+"q"
  823.   Print At(5,4);" A = Wahl des Rom-Zeichensatzes"
  824.   Print At(5,6);" B = Wahl der im Ram gespeicherten frei"
  825.   Print At(5,7);"     programmierbaren Zeichen"
  826.   Print At(5,9);" C = Rom Zeichensatz als frei programmierbare"
  827.   Print At(5,10);"     Zeichen in den RAM kopieren"
  828.   Print At(5,12);" D = Definition der frei programmierbaren Zeichen"
  829.   Print At(5,14);" E = Definition der Druckerzeichen im"
  830.   Print At(5,15);"     Steuerbereich"
  831.   Print At(5,17);" F = Löschen der festgelegten Steuerzeichen"
  832.   Print Chr$(27)+"p"
  833.   Print At(5,20);" G = Zum Hauptmenü "
  834.   Print Chr$(27)+"q"
  835.   Print At(5,23);" Ihre Eingabe ";
  836.   Form Input 1,V$
  837.   If V$="A" Or V$="a"
  838.     Lprint Chr$(27)+Chr$(37)+Chr$(0)+Chr$(0);
  839.   Endif
  840.   If V$="B" Or V$="b"
  841.     Lprint Chr$(27)+Chr$(37)+Chr$(1)+Chr$(0);
  842.   Endif
  843.   If V$="C" Or V$="c"
  844.     Lprint Chr$(27)+Chr$(58)+Chr$(0)+Chr$(0)+Chr$(0);
  845.   Endif
  846.   If V$="D" Or V$="d"
  847.     Lprint Chr$(27)+Chr$(38);
  848.   Endif
  849.   If V$="E" Or V$="e"
  850.     Lprint Chr$(27)+Chr$(73)+Chr$(49)
  851.   Endif
  852.   If V$="F" Or V$="f"
  853.     Lprint Chr$(27)+Chr$(73)+Chr$(48)
  854.   Endif
  855.   If V$="G" Or V$="g"
  856.     Gosub Hauptmenue
  857.   Endif
  858.   Gosub Auswahl_v
  859. Return
  860. Procedure Auswahl_w
  861.   Cls
  862.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  863.   Print Chr$(27)+"p"
  864.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  865.   Print Chr$(27)+"q"
  866.   Print At(5,4);" A = MSB der Eingabe ist  0 "
  867.   Print At(5,6);" B = MSB der Eingabe ist  1 "
  868.   Print At(5,8);" C = Max 8 Bit pro Datum"
  869.   Print Chr$(27)+"p"
  870.   Print At(5,11);" D = Zum Hauptmenü "
  871.   Print Chr$(27)+"q"
  872.   Print At(5,14);" Ihre Eingabe ";
  873.   Form Input 1,W$
  874.   If W$="A" Or W$="a"
  875.     Lprint Chr$(27)+Chr$(61);
  876.   Endif
  877.   If W$="B" Or W$="b"
  878.     Lprint Chr$(27)+Chr$(62);
  879.   Endif
  880.   If W$="C" Or W$="c"
  881.     Lprint Chr$(27)+Chr$(35);
  882.   Endif
  883.   If W$="D" Or W$="d"
  884.     Gosub Hauptmenue
  885.   Endif
  886.   Gosub Auswahl_w
  887. Return
  888. Procedure Auswahl_x
  889.   Cls
  890.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  891.   Print Chr$(27)+"p"
  892.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  893.   Print Chr$(27)+"q"
  894.   Print At(5,4);" A = Festlegung des Druckerbefehlsbereichs "
  895.   Print At(5,6);" B = Löschen des Druckerbefehlsbereichs    "
  896.   Print Chr$(27)+"p"
  897.   Print At(5,9);" C = Zum Hauptmenü "
  898.   Print Chr$(27)+"q"
  899.   Print At(5,12);" Ihre Eingabe ";
  900.   Form Input 1,X$
  901.   If X$="A" Or X$="a"
  902.     Lprint Chr$(27)+Chr$(54);
  903.   Endif
  904.   If X$="B" Or X$="b"
  905.     Lprint Chr$(27)+Chr$(55);
  906.   Endif
  907.   If X$="C" Or X$="c"
  908.     Gosub Hauptmenue
  909.   Endif
  910.   Gosub Auswahl_x
  911. Return
  912. Procedure Test
  913.   Cls
  914.   Print At(1,1);" ----------- Druckereinstellung für den Seikosha SP 1000 A Drucker ------------ "
  915.   Print Chr$(27)+"p"
  916.   Print At(2,2);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ "
  917.   Print Chr$(27)+"q"
  918.   Print " Zahlen     1 2 3 4 5 6 7 8 9 0"
  919.   Print " -------------------------------------------------"
  920.   Print " ZEICHEN    A B C D E F G H I J K L M "
  921.   Print "            N O P Q R S T U V W X Y Z "
  922.   Print " -------------------------------------------------"
  923.   Print " zeichen    a b c d e f g h i j k l m "
  924.   Print "            n o p q r s t u v w x y z "
  925.   Print " -------------------------------------------------"
  926.   Print " Umlaute    ä ö ü ₧ Ä Ü Ö ▌ "
  927.   Print " -------------------------------------------------"
  928.   Lprint "*********************************************************************"
  929.   Lprint "*        Druckertest                                                *"
  930.   Lprint "*********************************************************************"
  931.   Lprint
  932.   Lprint " Zahlen     1 2 3 4 5 6 7 8 9 0"
  933.   Lprint " -------------------------------------------------"
  934.   Lprint " ZEICHEN    A B C D E F G H I J K L M "
  935.   Lprint "            N O P Q R S T U V W X Y Z "
  936.   Lprint " -------------------------------------------------"
  937.   Lprint " zeichen    a b c d e f g h i j k l m "
  938.   Lprint "            n o p q r s t u v w x y z "
  939.   Lprint " -------------------------------------------------"
  940.   Lprint " Umlaute    { | } ~ [ ] \ @ "
  941.   Lprint " -------------------------------------------------"
  942.   Print At(10,24);" Bitte Return oder Enter Taste drücken ";
  943.   Form Input 1,Tast$
  944. Return
  945. Procedure Lade_text
  946.   On Error Gosub Hauptmenue
  947.   Cls
  948.   Gosub Intro_lade_text
  949.   Fileselect "*.*",Nam$,Nam$
  950.   Cls
  951.   Open "I",#1,Nam$
  952.   Print At(22,10);">>>>>>>>>> Bin am Drucken <<<<<<<<<<"
  953.   While Not Eof(#1)
  954.     A=Asc(Input$(1,#1))
  955.     ' *********** Zeichensatz deutsch ***********
  956.     If A=221 Then                !▌
  957.       A=&H40
  958.     Endif
  959.     If A=142 Then                ! Ä
  960.       A=&H5B
  961.     Endif
  962.     If A=153 Then              ! Ö
  963.       A=&H5C
  964.     Endif
  965.     If A=154 Then              ! ü
  966.       A=&H5D
  967.     Endif
  968.     If A=132 Then                ! ä
  969.       A=&H7B
  970.     Endif
  971.     If A=148 Then                ! ö
  972.       A=&H7C
  973.     Endif
  974.     If A=129 Then                ! ü
  975.       A=&H7D
  976.     Endif
  977.     If A=158 Then                ! ₧
  978.       A=&H7E
  979.     Endif
  980.     If Entferne%=1
  981.       If A=39
  982.         A=32
  983.       Endif
  984.     Endif
  985.     Lprint Chr$(A);
  986.   Wend
  987.   Close #1
  988. Return
  989. Procedure Intro_lade_text
  990.   If Xbios(4)<>2
  991.     Graphmode 1
  992.     Deffill 1,2,2
  993.     Pbox 157,0,482,26
  994.     Deftext 1,16,16,24
  995.     Graphmode 2
  996.     Text 160,23,"L a d e  -  T e x t"
  997.   Else
  998.     Graphmode 1
  999.     Deffill 1,2,2
  1000.     Pbox 156,19,482,51
  1001.     Deftext 1,16,16,32
  1002.     Graphmode 2
  1003.     Text 205,47," Lade - Text "
  1004.   Endif
  1005. Return
  1006.