home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / misc / textloader65 / util / textloader64.src.ascii < prev    next >
Encoding:
Text File  |  1998-03-20  |  105.6 KB  |  3,852 lines
  1. ; Dieser Sourcecode ist der ganze Quellcode des Textloader.DECK!
  2. ; Author dieser ganzen Routinen ist Pascal Gisin.
  3. ;
  4. ; Dies soll als Beispiel dienen, wie man mit CanDo einen Texteditoren
  5. ; erzeugt. Diese Datei ist aber kein Deck, sondern nur eine reine ASCII
  6. ; Datei des Original Cando Decks!
  7. ;
  8. ; Falls Sie sich für mehr Developper-Infos interessieren, können Sie mir
  9. ; auch eine EMail schicken:  An: PGisin@nextron.ch
  10. ;
  11. ; 
  12. ; >---THE TEXTLOADER IS NOT OVER COMPLETE! IS IN WORK...---<
  13.  
  14.  
  15. *************
  16. * Deck "Textloader6.4"
  17. * Time 22:27:39
  18. * Date 03/19/98
  19. *************
  20.  
  21. *************
  22. * Card(s) in deck.
  23. *  Card "BildAnzeiger"
  24. *  Card "Hauptfenster"
  25. *  Card "Hauptfenster2"
  26. *  Card "Systeminfos..."
  27. *************
  28. * 4 Card(s), 4 were printed.
  29. *************
  30.  
  31. *************
  32. * Natural order of Cards
  33. *  Card "Hauptfenster"
  34. *  Card "Hauptfenster2"
  35. *  Card "Systeminfos..."
  36. *  Card "BildAnzeiger"
  37. *************
  38.  
  39. *************
  40. * Global Routine(s) in deck.
  41. *  Routine "AusserFunktion"
  42. *  Routine "Beep"
  43. *  Routine "Drucken"
  44. *  Routine "Einfügen"
  45. *  Routine "EinfügenDATA"
  46. *  Routine "Ende"
  47. *  Routine "Ende2"
  48. *  Routine "EndeCloseknopf"
  49. *  Routine "FehlerRoutine"
  50. *  Routine "Löschen"
  51. *  Routine "Message"
  52. *  Routine "S"
  53. *  Routine "SetzeAttr"
  54. *  Routine "SF"
  55. *  Routine "Sicherheitsabfrage"
  56. *  Routine "SichernVorBeenden"
  57. *  Routine "Suchen"
  58. *  Routine "SysInfoUpdates"
  59. *  Routine "SysInfoUpdates2"
  60. *  Routine "Timing"
  61. *  Routine "Timing2"
  62. *  Routine "Timing3"
  63. *  Routine "Timing4"
  64. *  Routine "Timing5"
  65. *  Routine "Timing6"
  66. *  Routine "Timing7"
  67. *  Routine "Timing8"
  68. *  Routine "Timing9"
  69. *  Routine "TitelUhr"
  70. *************
  71. * 29 Global routines(s), 29 were printed.
  72. *************
  73.  
  74. *************
  75. * Card "BildAnzeiger"
  76.     AfterAttachment ; used to be AfterStartup
  77.         ShowPicture Bild
  78.         IfError
  79.             SetPen 1
  80.             PrintText "Bild kann nicht geladen werden! Haben Sie überhaupt ein",10,7
  81.             PrintText "Bild Ausgewählt?",10,17
  82.             PrintText "Vielleicht wird aber Ihr verwendetes Bildspeicherformat vom ",10,37
  83.             PrintText "Textloader nicht Unterstützt!",10,47
  84.             SetPen 3
  85.             PrintText "Für das Bild-Menü zu starten, bitte mit der Maus das Balkenmenü aktivieren...",10,67
  86.         EndIf
  87.         ScreenTo FRONT 
  88.     EndScript
  89.     Window "UserWindow"
  90.         Definition
  91.             Origin 0,0
  92.             Size 640,256
  93.             Title ""
  94.             NumberOfColors 16
  95.             WindowColors 0,1,0 ; Detail, Block, Background
  96.             WindowObjects NONE 
  97.             WindowFlags ACTIVATE BORDERLESS SEPARATESCREEN TOFRONT 
  98.         EndScript
  99.         OnCloseButton
  100.             GotoCard "Aufgeben"
  101.         EndScript
  102.         OnActivated
  103.             Nop
  104.         EndScript
  105.         OnResized
  106.             ScreenTo FRONT 
  107.         EndScript
  108.     EndObject
  109.     TextMenu "Bildschirm drucken..."
  110.         Definition
  111.             AttachTo MENU ,"BildMenü"
  112.             Font "personal",8 ; FontName, PointSize
  113.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  114.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  115.             Text "Bildschirm drucken..."
  116.             MenuFlags NONE 
  117.             Highlight COMPLEMENT 
  118.             ShortCutKey ""
  119.         EndScript
  120.         Occurred
  121.             PrintScreen
  122.             IfError
  123.                 Do "Fehlerroutine"
  124.             EndIf
  125.         EndScript
  126.     EndObject
  127.     TextMenu "Zurück zum Textloader"
  128.         Definition
  129.             AttachTo MENU ,"BildMenü"
  130.             Font "topaz",8 ; FontName, PointSize
  131.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  132.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  133.             Text "Zurück zum Textloader"
  134.             MenuFlags NONE 
  135.             Highlight COMPLEMENT 
  136.             ShortCutKey ""
  137.         EndScript
  138.         Occurred
  139.             GotoCard "Hauptfenster"
  140.         EndScript
  141.     EndObject
  142.     TextMenu "System-Infobar"
  143.         Definition
  144.             AttachTo MENU ,"BildMenü"
  145.             Font "topaz",8 ; FontName, PointSize
  146.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  147.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  148.             Text "System-Infobar"
  149.             MenuFlags NONE 
  150.             Highlight COMPLEMENT 
  151.             ShortCutKey ""
  152.         EndScript
  153.         Occurred
  154.             GotoCard "Systeminfos..."
  155.         EndScript
  156.     EndObject
  157.     TextMenu "Textloader beenden"
  158.         Definition
  159.             AttachTo MENU ,"BildMenü"
  160.             Font "topaz",8 ; FontName, PointSize
  161.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  162.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  163.             Text "Textloader beenden"
  164.             MenuFlags NONE 
  165.             Highlight COMPLEMENT 
  166.             ShortCutKey ""
  167.         EndScript
  168.         Occurred
  169.             Quit
  170.         EndScript
  171.     EndObject
  172. * End of Card "BildAnzeiger"
  173. *************
  174.  
  175. *************
  176. * Card "Hauptfenster"
  177.     BeforeAttachment ; used to be OnStartup
  178.         LoadSubDeck "SimpleReq","SimpleReq"
  179.         LoadSubDeck "SuchReq","SuchReq"
  180.         LoadSubDeck "ConiPalette","Palette"
  181.         LoadSubDeck "ConiAvail","Avail"
  182.         If exists ("sys:fonts/personal/8")
  183.         Else
  184.             OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Ich kann den Textloader","Font nicht finden. Bitte","zuerst Installieren!","Sonst lade ich TOPAZ/8!"
  185.             Delay 0,5,1/50
  186.         EndIf
  187.         Echo " "
  188.         Echo "Textloader von Pascal Gisin!"
  189.         Echo "============================"
  190.         Echo " "
  191.         Echo "   >>>Der starke Editor für den AMIGA...<<<"
  192.         Echo " "
  193.         Echo "©1994-98 FORCESOFT (PASCAL GISIN)"
  194.         Echo " "
  195.         Echo "             My New Nickname, FORCE!!!"
  196.     EndScript
  197.     AfterAttachment ; used to be AfterStartup
  198.         SetScreenTitle "»FORCE SOFT« presents the Textloader by P.Gisin ©1994-98 (Force)"
  199.         OpenRequester "SimpleReq","Kommentar","","Textloader Information...","!Herzlich Willkommen!","Schicken Sie mir eine","Postkarte für die Registration!","!!! ES LOHNT SICH !!!"
  200.     EndScript
  201.     BeforeDetachment ; used to be OnFinishup
  202.         SaveDocument "TheDoc","ram:Txt.bak",ASCII 
  203.     EndScript
  204.     MessageFromSubDeck
  205.         If Arg1 <> ""
  206.             Do Arg1,Alias("Arg2"),Alias("Arg3"),Alias("Arg4")
  207.         EndIf
  208.     EndScript
  209.     Window "UserWindow"
  210.         Definition
  211.             Origin 0,11
  212.             Size 640,244
  213.             Title "Textloader 6.4"
  214.             NumberOfColors 4,167936
  215.             WindowColors 1,2,0 ; Detail, Block, Background
  216.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  217.             WindowFlags ACTIVATE TOFRONT WORKBENCH 
  218.         EndScript
  219.         OnCloseButton
  220.             OpenRequester "SimpleReq","JaNein","EndeCloseknopf","Textloader Meldung..."," ","Möchten Sie wirklich","jetzt, den Textloader beenden?"," "
  221.         EndScript
  222.         OnActivated
  223.             Nop
  224.         EndScript
  225.         OnResized
  226.             Nop
  227.         EndScript
  228.     EndObject
  229.     Memo "Dokument"
  230.         Definition
  231.             Origin 5,12
  232.             Size 616,230
  233.             Font "topaz",8 ; FontName, PointSize
  234.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  235.             TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
  236.             Border OUTLINE ,2,1 ; BorderStyle, MainPen, ExtraPen
  237.             Document "TheDoc" ; where the text comes from
  238.             ScrollBars RIGHT 
  239.             InputStyle NORMAL 
  240.         EndScript
  241.         OnDrag
  242.             Nop
  243.         EndScript
  244.     EndObject
  245.     TextMenu "Autor...                    »"
  246.         Definition
  247.             AttachTo MENU ,"Editormenü"
  248.             Font "personal",8 ; FontName, PointSize
  249.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  250.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  251.             Text "Autor...                    »"
  252.             MenuFlags NONE 
  253.             Highlight COMPLEMENT 
  254.             ShortCutKey ""
  255.         EndScript
  256.         Occurred
  257.             Let AutorInfo = "Pascal Gisin"||Char(10)||"Fiechtenweg 11"||Char(10)||"CH-4147 Aesch"||Char(10)||""||Char(10)||"Tel: 079/322'23'53"||Char(10)||"Fax: 079/0'322'23'53"||CHAR(10)||"Dedicated To ALL AMIGIANS OF THE WORLD"
  258.             Let Autor=AskForResponse(AutorInfo, "Textloader Info...", "Alles klar!")
  259.         EndScript
  260.     EndObject
  261.     TextMenu "SystemInfo..."
  262.         Definition
  263.             AttachTo MENU ,"Editormenü"
  264.             Font "personal",8 ; FontName, PointSize
  265.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  266.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  267.             Text "SystemInfo..."
  268.             MenuFlags NONE 
  269.             Highlight COMPLEMENT 
  270.             ShortCutKey "?"
  271.         EndScript
  272.         Occurred
  273.             If Hilfsmodus = TRUE
  274.                 OpenRequester "HelpReq","Card_1","","Mit diesem Menüpunkt, erhalten Sie","Interresannte Infos über Speicher-,","Chip-, Fast und Ihre Systemkonfigurationen!"," "," "
  275.             Else
  276.                 GotoCard "Systeminfos..."
  277.             EndIf
  278.         EndScript
  279.     EndObject
  280.     TextMenu "Trennstrich4"
  281.         Definition
  282.             AttachTo MENU ,"Editormenü"
  283.             Font "personal",8 ; FontName, PointSize
  284.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  285.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  286.             Text "-------------------------------"
  287.             MenuFlags NONE 
  288.             Highlight NONE 
  289.             ShortCutKey ""
  290.         EndScript
  291.     EndObject
  292.     TextMenu "Laden..."
  293.         Definition
  294.             AttachTo MENU ,"Editormenü"
  295.             Font "personal",8 ; FontName, PointSize
  296.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  297.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  298.             Text "Laden..."
  299.             MenuFlags NONE 
  300.             Highlight COMPLEMENT 
  301.             ShortCutKey "L"
  302.         EndScript
  303.         Occurred
  304.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  305.             Let Laden=AskForFilename(TheoriginDirectory,"ASCII/FTXT Datei laden...","155","39","340","180")
  306.             Let NeueDatei=Laden
  307.             If NeueDatei<>NOTHING
  308.                 If NOT MATCH (FileType(NeueDatei),"Unknown","FTXT")
  309.                     Do "Beep"
  310.                     SetWindowTitle "Kann die Datei"|||NeueDatei|||"nicht laden"
  311.                 Else
  312.                     SetWindowTitle "Lade Dokument..."
  313.                     LoadDocument NeueDatei,"TheDoc"
  314.                     IfError
  315.                     Else
  316.                         SetWindowTitle "Dateiname"|||NeueDatei
  317.                     EndIf
  318.                 EndIf
  319.             EndIf
  320.         EndScript
  321.     EndObject
  322.     TextMenu "Laden, Bild..."
  323.         Definition
  324.             AttachTo MENU ,"Editormenü"
  325.             Font "personal",8 ; FontName, PointSize
  326.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  327.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  328.             Text "Laden, Bild..."
  329.             MenuFlags NONE 
  330.             Highlight COMPLEMENT 
  331.             ShortCutKey "!"
  332.         EndScript
  333.         Occurred
  334.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  335.             Let Datei=AskForFileName(Bild, "Bild auswählen! Zum laden...","155","39","340","180")
  336.             If Datei <> ""
  337.                 Let Bild = Datei
  338.                 GotoCard "BildAnzeiger"
  339.             EndIf
  340.         EndScript
  341.     EndObject
  342.     TextMenu "LadenBild(PP)"
  343.         Definition
  344.             AttachTo MENU ,"Editormenü"
  345.             Font "personal",8 ; FontName, PointSize
  346.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  347.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  348.             Text "LadenBild(PP)"
  349.             MenuFlags NONE 
  350.             Highlight COMPLEMENT 
  351.             ShortCutKey ""
  352.         EndScript
  353.         Occurred
  354.             If exists("Sys:c/PPshow")
  355.                 Dos "Run >NIL: <Nil: Sys:c/PPshow"
  356.             Else
  357.                 Let Fehler=AskForResponse("Leider konnte PPSHOW nicht gefunden werden!","Anzeigeproblem...","Schade")
  358.                 If Fehler=1
  359.                     DisableObject "LadenBild(PP)"
  360.                 EndIf
  361.             EndIf
  362.         EndScript
  363.     EndObject
  364.     TextMenu "TrennstrichX1"
  365.         Definition
  366.             AttachTo MENU ,"Editormenü"
  367.             Font "personal",8 ; FontName, PointSize
  368.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  369.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  370.             Text "-------------------------------"
  371.             MenuFlags NONE 
  372.             Highlight NONE 
  373.             ShortCutKey ""
  374.         EndScript
  375.     EndObject
  376.     TextMenu "Einfügen..."
  377.         Definition
  378.             AttachTo MENU ,"Editormenü"
  379.             Font "personal",8 ; FontName, PointSize
  380.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  381.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  382.             Text "Einfügen..."
  383.             MenuFlags NONE 
  384.             Highlight COMPLEMENT 
  385.             ShortCutKey "E"
  386.         EndScript
  387.         Occurred
  388.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  389.             Let Einfügen=AskForFilename("","Text beim Cursor einfügen...","155","39","340","180")
  390.             Let Newfile = Einfügen
  391.             If newfile<>nothing
  392.                 If Not Match(FileType(newfile),"Unknown","FTXT")
  393.                     SetWindowTitle "Kann File nicht Laden """||newfile||""""
  394.                 Else
  395.                     SetWindowTitle "Lade einzufügender Text....."
  396.                     InsertDocument newfile,"TheDoc"
  397.                     IfError
  398.                         Do "Fehlerroutine"
  399.                     Else
  400.                         Let FileToGet=newfile
  401.                         SetWindowTitle "FileName :"""||FileToGet||""""
  402.                     EndIf
  403.                 EndIf
  404.             EndIf
  405.         EndScript
  406.     EndObject
  407.     TextMenu "TrennstrichX9"
  408.         Definition
  409.             AttachTo MENU ,"Editormenü"
  410.             Font "personal",8 ; FontName, PointSize
  411.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  412.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  413.             Text "-------------------------------"
  414.             MenuFlags NONE 
  415.             Highlight NONE 
  416.             ShortCutKey ""
  417.         EndScript
  418.     EndObject
  419.     TextMenu "Suchen..."
  420.         Definition
  421.             AttachTo MENU ,"Editormenü"
  422.             Font "personal",8 ; FontName, PointSize
  423.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  424.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  425.             Text "Suchen..."
  426.             MenuFlags NONE 
  427.             Highlight COMPLEMENT 
  428.             ShortCutKey "S"
  429.         EndScript
  430.         Occurred
  431.             Do "S"
  432.         EndScript
  433.     EndObject
  434.     TextMenu "Suchen fortsetzen..."
  435.         Definition
  436.             AttachTo MENU ,"Editormenü"
  437.             Font "personal",8 ; FontName, PointSize
  438.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  439.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  440.             Text "Suchen fortsetzen..."
  441.             MenuFlags NONE 
  442.             Highlight COMPLEMENT 
  443.             ShortCutKey "W"
  444.         EndScript
  445.         Occurred
  446.             Do "SF"
  447.         EndScript
  448.     EndObject
  449.     TextMenu "TrennstrichX7"
  450.         Definition
  451.             AttachTo MENU ,"Editormenü"
  452.             Font "personal",8 ; FontName, PointSize
  453.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  454.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  455.             Text "-------------------------------"
  456.             MenuFlags NONE 
  457.             Highlight NONE 
  458.             ShortCutKey ""
  459.         EndScript
  460.     EndObject
  461.     TextMenu "Speichern, ASCII"
  462.         Definition
  463.             AttachTo MENU ,"Editormenü"
  464.             Font "personal",8 ; FontName, PointSize
  465.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  466.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  467.             Text "Speichern, ASCII"
  468.             MenuFlags NONE 
  469.             Highlight COMPLEMENT 
  470.             ShortCutKey "A"
  471.         EndScript
  472.         Occurred
  473.             SetFileRequestMode SAVEFILEMODE ,NONE 
  474.             Let SichernAscii=AskForFileName(TheCurrentDirectory,"Text in ASCII sichern...","155","39","340","180")
  475.             Let Antwort = SichernAscii
  476.             If Antwort <> ""
  477.                 Let Dateispeichername = Antwort
  478.                 SetWindowTitle "Speichere nun im ASCII Format!"
  479.                 SaveDocument "TheDoc",Dateispeichername,ASCII 
  480.                 IfError
  481.                     Do "Fehlerroutine"
  482.                 EndIf
  483.             EndIf
  484.             SetWindowTitle "Textloader ©  by P.Gisin"
  485.         EndScript
  486.     EndObject
  487.     TextMenu "Speichern, FTXT"
  488.         Definition
  489.             AttachTo MENU ,"Editormenü"
  490.             Font "personal",8 ; FontName, PointSize
  491.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  492.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  493.             Text "Speichern, FTXT"
  494.             MenuFlags NONE 
  495.             Highlight COMPLEMENT 
  496.             ShortCutKey "F"
  497.         EndScript
  498.         Occurred
  499.             SetFileRequestMode SAVEFILEMODE ,NONE 
  500.             Let SpeichernFTXT=askForFilename(TheCurrentDirectory,"Text im FTXT Format sichern...","155","39","340","180")
  501.             Let Antwort = SpeichernFTXT
  502.             If Antwort <> ""
  503.                 Let Dateispeichername = Antwort
  504.                 SetWindowTitle "Speichere nun im FTXT Format!"
  505.                 SaveDocument "TheDoc",Dateispeichername,FTXT 
  506.                 IfError
  507.                     Do "Fehlerroutine"
  508.                 EndIf
  509.             EndIf
  510.             SetWindowTitle "Textloader © by P.Gisin"
  511.         EndScript
  512.     EndObject
  513.     TextMenu "Speichern, Backup           »"
  514.         Definition
  515.             AttachTo MENU ,"Editormenü"
  516.             Font "personal",8 ; FontName, PointSize
  517.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  518.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  519.             Text "Speichern, Backup           »"
  520.             MenuFlags NONE 
  521.             Highlight COMPLEMENT 
  522.             ShortCutKey ""
  523.         EndScript
  524.     EndObject
  525.     TextMenu "Sicherheitskopie anlegen (1)"
  526.         Definition
  527.             AttachTo OBJECT ,"Speichern, Backup           »"
  528.             Font "personal",8 ; FontName, PointSize
  529.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  530.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  531.             Text "Sicherheitskopie anlegen (1)"
  532.             MenuFlags NONE 
  533.             Highlight COMPLEMENT 
  534.             ShortCutKey ""
  535.         EndScript
  536.         Occurred
  537.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (1)"
  538.             SaveDocument "TheDoc","ram:1BackupTextloader",ASCII 
  539.             IfError
  540.                 Do "Fehlerroutine"
  541.             EndIf
  542.             Delay 0,3,1/50
  543.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  544.         EndScript
  545.     EndObject
  546.     TextMenu "Speichern"
  547.         Definition
  548.             AttachTo MENU ,"Editormenü"
  549.             Font "personal",8 ; FontName, PointSize
  550.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  551.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  552.             Text "Speichern"
  553.             MenuFlags NONE 
  554.             Highlight COMPLEMENT 
  555.             ShortCutKey "T"
  556.         EndScript
  557.         Occurred
  558.             Let Abfrage = AskForResponse("Dieser Text wird dort gespeichert,"||Char(10)||"wo er geladen wurde. Ist das,"||Char(10)||"so in Ordnung?","Textloader Informiert...","Aber natürlich|Hab mich verdrückt")
  559.             If Abfrage =1
  560.                 SaveAllChangedBuffers
  561.                 If error
  562.                     Do "FehlerRoutine"
  563.                     If Abfrage =0
  564.                     EndIf
  565.                 EndIf
  566.             EndIf
  567.         EndScript
  568.     EndObject
  569.     TextMenu "TrennstrichX2"
  570.         Definition
  571.             AttachTo MENU ,"Editormenü"
  572.             Font "personal",8 ; FontName, PointSize
  573.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  574.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  575.             Text "-------------------------------"
  576.             MenuFlags NONE 
  577.             Highlight NONE 
  578.             ShortCutKey ""
  579.         EndScript
  580.     EndObject
  581.     TextMenu "Löschen, TEXT"
  582.         Definition
  583.             AttachTo MENU ,"Editormenü"
  584.             Font "personal",8 ; FontName, PointSize
  585.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  586.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  587.             Text "Löschen, TEXT"
  588.             MenuFlags NONE 
  589.             Highlight COMPLEMENT 
  590.             ShortCutKey "T"
  591.         EndScript
  592.         Occurred
  593.             OpenRequester "SimpleReq","JaNein","Löschen","Textloader Meldung...","Möchten Sie wirklich","den ganzen Text","für immer löschen?","???"
  594.         EndScript
  595.     EndObject
  596.     TextMenu "Löschen, ZEILE"
  597.         Definition
  598.             AttachTo MENU ,"Editormenü"
  599.             Font "personal",8 ; FontName, PointSize
  600.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  601.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  602.             Text "Löschen, ZEILE"
  603.             MenuFlags NONE 
  604.             Highlight COMPLEMENT 
  605.             ShortCutKey "Z"
  606.         EndScript
  607.         Occurred
  608.             WorkWithDocument "TheDoc"
  609.             Clear LINE 
  610.         EndScript
  611.     EndObject
  612.     TextMenu "TrennstrichX3"
  613.         Definition
  614.             AttachTo MENU ,"Editormenü"
  615.             Font "personal",8 ; FontName, PointSize
  616.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  617.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  618.             Text "-------------------------------"
  619.             MenuFlags NONE 
  620.             Highlight NONE 
  621.             ShortCutKey ""
  622.         EndScript
  623.     EndObject
  624.     TextMenu "Cursor, Textanfang...   "
  625.         Definition
  626.             AttachTo MENU ,"Editormenü"
  627.             Font "personal",8 ; FontName, PointSize
  628.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  629.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  630.             Text "Cursor, Textanfang...   "
  631.             MenuFlags NONE 
  632.             Highlight COMPLEMENT 
  633.             ShortCutKey ":"
  634.         EndScript
  635.         Occurred
  636.             WorkWithDocument "TheDoc"
  637.             MoveCursorTo STARTOF DOCUMENT 
  638.         EndScript
  639.     EndObject
  640.     TextMenu "Cursor, Textende..."
  641.         Definition
  642.             AttachTo MENU ,"Editormenü"
  643.             Font "personal",8 ; FontName, PointSize
  644.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  645.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  646.             Text "Cursor, Textende..."
  647.             MenuFlags NONE 
  648.             Highlight COMPLEMENT 
  649.             ShortCutKey ";"
  650.         EndScript
  651.         Occurred
  652.             WorkWithDocument "TheDoc"
  653.             MoveCursorTo ENDOF DOCUMENT 
  654.         EndScript
  655.     EndObject
  656.     TextMenu "Cursor, EineZeile"
  657.         Definition
  658.             AttachTo MENU ,"Editormenü"
  659.             Font "personal",8 ; FontName, PointSize
  660.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  661.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  662.             Text "Neue Zeile"
  663.             MenuFlags NONE 
  664.             Highlight COMPLEMENT 
  665.             ShortCutKey "D"
  666.         EndScript
  667.         Occurred
  668.             NewLine
  669.         EndScript
  670.     EndObject
  671.     TextMenu "TrennstrichX4"
  672.         Definition
  673.             AttachTo MENU ,"Editormenü"
  674.             Font "personal",8 ; FontName, PointSize
  675.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  676.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  677.             Text "-------------------------------"
  678.             MenuFlags NONE 
  679.             Highlight NONE 
  680.             ShortCutKey ""
  681.         EndScript
  682.     EndObject
  683.     TextMenu "Drucken..."
  684.         Definition
  685.             AttachTo MENU ,"Editormenü"
  686.             Font "personal",8 ; FontName, PointSize
  687.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  688.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  689.             Text "Drucken..."
  690.             MenuFlags NONE 
  691.             Highlight COMPLEMENT 
  692.             ShortCutKey "P"
  693.         EndScript
  694.         Occurred
  695.             OpenRequester "SimpleReq","JaNein","Drucken","Textloader Meldung...","Wollen Sie wirklich","dieses Dokument","jetzt Ausdrucken lassen?"," "
  696.         EndScript
  697.     EndObject
  698.     TextMenu "TrennstrichX5"
  699.         Definition
  700.             AttachTo MENU ,"Editormenü"
  701.             Font "personal",8 ; FontName, PointSize
  702.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  703.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  704.             Text "-------------------------------"
  705.             MenuFlags NONE 
  706.             Highlight NONE 
  707.             ShortCutKey ""
  708.         EndScript
  709.     EndObject
  710.     TextMenu "Beenden..."
  711.         Definition
  712.             AttachTo MENU ,"Editormenü"
  713.             Font "personal",8 ; FontName, PointSize
  714.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  715.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  716.             Text "Beenden..."
  717.             MenuFlags NONE 
  718.             Highlight COMPLEMENT 
  719.             ShortCutKey "Q"
  720.         EndScript
  721.         Occurred
  722.             OpenRequester "SimpleReq","JaNein","Ende","Textloader Frage...","Möchten Sie Ihr Dokument, vor","dem beenden noch sichern ???","",""
  723.         EndScript
  724.     EndObject
  725.     TextMenu "HTML Information"
  726.         Definition
  727.             AttachTo MENU ," WWWEdit "
  728.             Font "personal",8 ; FontName, PointSize
  729.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  730.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  731.             Text "HTML (Infos)"
  732.             MenuFlags NONE 
  733.             Highlight COMPLEMENT 
  734.             ShortCutKey ""
  735.         EndScript
  736.         Occurred
  737.             LoadDocument ("SchabloneInfo"),"TheDoc"
  738.         EndScript
  739.     EndObject
  740.     TextMenu "Schablone öffnen..."
  741.         Definition
  742.             AttachTo MENU ," WWWEdit "
  743.             Font "personal",8 ; FontName, PointSize
  744.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  745.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  746.             Text "HTML (Text)"
  747.             MenuFlags NONE 
  748.             Highlight COMPLEMENT 
  749.             ShortCutKey ""
  750.         EndScript
  751.         Occurred
  752.             LoadDocument ("Schablone1"),"TheDoc"
  753.         EndScript
  754.     EndObject
  755.     TextMenu "Systemuhr..."
  756.         Definition
  757.             AttachTo MENU ," Workbench "
  758.             Font "personal",8 ; FontName, PointSize
  759.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  760.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  761.             Text "Systemuhr..."
  762.             MenuFlags NONE 
  763.             Highlight COMPLEMENT 
  764.             ShortCutKey "U"
  765.         EndScript
  766.         Occurred
  767.             Dos "Run >Nil: <Nil: Sys:Utilities/Clock" ; Run the application
  768.         EndScript
  769.     EndObject
  770.     TextMenu "Taschenrechner..."
  771.         Definition
  772.             AttachTo MENU ," Workbench "
  773.             Font "personal",8 ; FontName, PointSize
  774.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  775.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  776.             Text "Taschenrechner..."
  777.             MenuFlags NONE 
  778.             Highlight COMPLEMENT 
  779.             ShortCutKey "C"
  780.         EndScript
  781.         Occurred
  782.             Dos "Run >Nil: <Nil: Sys:Tools/Calculator" ; Run the application
  783.         EndScript
  784.     EndObject
  785.     TextMenu "Tastaturbelegung..."
  786.         Definition
  787.             AttachTo MENU ," Workbench "
  788.             Font "personal",8 ; FontName, PointSize
  789.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  790.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  791.             Text "Tastaturbelegung..."
  792.             MenuFlags NONE 
  793.             Highlight COMPLEMENT 
  794.             ShortCutKey "K"
  795.         EndScript
  796.         Occurred
  797.             Dos "Run >Nil: <Nil: Sys:Tools/KeyShow" ; Run the application
  798.         EndScript
  799.     EndObject
  800.     TextMenu "Farbeneinsteller..."
  801.         Definition
  802.             AttachTo MENU ," Workbench "
  803.             Font "personal",8 ; FontName, PointSize
  804.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  805.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  806.             Text "Farbeneinsteller..."
  807.             MenuFlags NONE 
  808.             Highlight COMPLEMENT 
  809.             ShortCutKey "+"
  810.         EndScript
  811.         Occurred
  812.             If exists("sys:Tools/Colors")
  813.                 Dos "Run >Nil: <Nil: Sys:Tools/Colors" ; Run the application
  814.             ElseIf exists("sys:Prefs/Palette")
  815.                 Dos "Run >Nil: <Nil: Sys:Prefs/Palette"
  816.             Else
  817.                 Let Error =askforResponse("Programm existiert nicht!","Textloader Fehler...","")
  818.             EndIf
  819.         EndScript
  820.     EndObject
  821.     TextMenu "HD-Toolbox..."
  822.         Definition
  823.             AttachTo MENU ," Workbench "
  824.             Font "personal",8 ; FontName, PointSize
  825.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  826.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  827.             Text "HD-Toolbox..."
  828.             MenuFlags NONE 
  829.             Highlight COMPLEMENT 
  830.             ShortCutKey "%"
  831.         EndScript
  832.         Occurred
  833.             Dos "Run >Nil: <Nil: Sys:Tools/HDToolbox" ; Run the application
  834.         EndScript
  835.     EndObject
  836.     TextMenu "Cli-Fenster..."
  837.         Definition
  838.             AttachTo MENU ," Workbench "
  839.             Font "personal",8 ; FontName, PointSize
  840.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  841.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  842.             Text "Cli-Fenster..."
  843.             MenuFlags NONE 
  844.             Highlight COMPLEMENT 
  845.             ShortCutKey "$"
  846.         EndScript
  847.         Occurred
  848.             Dos "Run >Nil: <Nil: Sys:System/Cli" ; Run the application
  849.         EndScript
  850.     EndObject
  851.     TextMenu "Trennstrich6"
  852.         Definition
  853.             AttachTo MENU ," Workbench "
  854.             Font "personal",8 ; FontName, PointSize
  855.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  856.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  857.             Text "-------------------------------"
  858.             MenuFlags NONE 
  859.             Highlight NONE 
  860.             ShortCutKey ""
  861.         EndScript
  862.     EndObject
  863.     TextMenu "MenuItem_4"
  864.         Definition
  865.             AttachTo MENU ," Workbench "
  866.             Font "personal",8 ; FontName, PointSize
  867.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  868.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  869.             Text "Multiview..."
  870.             MenuFlags NONE 
  871.             Highlight COMPLEMENT 
  872.             ShortCutKey "0"
  873.         EndScript
  874.         Occurred
  875.             Dos "Run >Nil: <Nil: Sys:Utilities/Multiview"
  876.             If error
  877.                 Do "Fehlerroutine"
  878.             EndIf
  879.         EndScript
  880.     EndObject
  881.     TextMenu "DruckerPrefs..."
  882.         Definition
  883.             AttachTo MENU ," Workbench "
  884.             Font "personal",8 ; FontName, PointSize
  885.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  886.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  887.             Text "DruckerPrefs..."
  888.             MenuFlags NONE 
  889.             Highlight COMPLEMENT 
  890.             ShortCutKey "1"
  891.         EndScript
  892.         Occurred
  893.             Dos "Run >Nil: <Nil: Sys:prefs/Printer" ; Run the application
  894.         EndScript
  895.     EndObject
  896.     TextMenu "Zeiteinsteller..."
  897.         Definition
  898.             AttachTo MENU ," Workbench "
  899.             Font "personal",8 ; FontName, PointSize
  900.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  901.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  902.             Text "Zeiteinsteller..."
  903.             MenuFlags NONE 
  904.             Highlight COMPLEMENT 
  905.             ShortCutKey "2"
  906.         EndScript
  907.         Occurred
  908.             Dos "Run >Nil: <Nil: Sys:prefs/Time" ; Run the application
  909.         EndScript
  910.     EndObject
  911.     TextMenu "Sprache(Locale)..."
  912.         Definition
  913.             AttachTo MENU ," Workbench "
  914.             Font "personal",8 ; FontName, PointSize
  915.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  916.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  917.             Text "Sprache(Locale)..."
  918.             MenuFlags NONE 
  919.             Highlight COMPLEMENT 
  920.             ShortCutKey "3"
  921.         EndScript
  922.         Occurred
  923.             Dos "Run >Nil: <Nil: Sys:prefs/Locale" ; Run the application
  924.         EndScript
  925.     EndObject
  926.     TextMenu "Screenmodeprefs..."
  927.         Definition
  928.             AttachTo MENU ," Workbench "
  929.             Font "personal",8 ; FontName, PointSize
  930.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  931.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  932.             Text "Screenmodeprefs..."
  933.             MenuFlags NONE 
  934.             Highlight COMPLEMENT 
  935.             ShortCutKey "4"
  936.         EndScript
  937.         Occurred
  938.             Dos "Run >Nil: <Nil: Sys:Prefs/ScreenMode" ; Run the application
  939.         EndScript
  940.     EndObject
  941.     TextMenu "PrinterGfx..."
  942.         Definition
  943.             AttachTo MENU ," Workbench "
  944.             Font "personal",8 ; FontName, PointSize
  945.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  946.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  947.             Text "PrinterGfx..."
  948.             MenuFlags NONE 
  949.             Highlight COMPLEMENT 
  950.             ShortCutKey "5"
  951.         EndScript
  952.         Occurred
  953.             Dos "Run >Nil: <Nil: Sys:prefs/PrinterGfx" ; Run the application
  954.         EndScript
  955.     EndObject
  956.     TextMenu "Fonteinsteller..."
  957.         Definition
  958.             AttachTo MENU ," Workbench "
  959.             Font "personal",8 ; FontName, PointSize
  960.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  961.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  962.             Text "Fonteinsteller..."
  963.             MenuFlags NONE 
  964.             Highlight COMPLEMENT 
  965.             ShortCutKey "6"
  966.         EndScript
  967.         Occurred
  968.             Dos "Run >Nil: <Nil: Sys:prefs/Font" ; Run the application
  969.         EndScript
  970.     EndObject
  971.     TextMenu "Eigener Screen öffnen"
  972.         Definition
  973.             AttachTo MENU ," PrefsTools "
  974.             Font "personal",8 ; FontName, PointSize
  975.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  976.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  977.             Text "Eigener Screen öffnen"
  978.             MenuFlags NONE 
  979.             Highlight COMPLEMENT 
  980.             ShortCutKey ""
  981.         EndScript
  982.         Occurred
  983.             GotoCard "Hauptfenster2"
  984.         EndScript
  985.     EndObject
  986.     TextMenu "Palette..."
  987.         Definition
  988.             AttachTo MENU ," PrefsTools "
  989.             Font "personal",8 ; FontName, PointSize
  990.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  991.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  992.             Text "Palette..."
  993.             MenuFlags NONE 
  994.             Highlight COMPLEMENT 
  995.             ShortCutKey "X"
  996.         EndScript
  997.         Occurred
  998.             OpenRequester "Palette","Palette"
  999.         EndScript
  1000.     EndObject
  1001.     TextMenu "Speicher..."
  1002.         Definition
  1003.             AttachTo MENU ," PrefsTools "
  1004.             Font "personal",8 ; FontName, PointSize
  1005.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1006.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1007.             Text "Speicher..."
  1008.             MenuFlags NONE 
  1009.             Highlight COMPLEMENT 
  1010.             ShortCutKey "M"
  1011.         EndScript
  1012.         Occurred
  1013.             OpenRequester "Avail","Avail"
  1014.         EndScript
  1015.     EndObject
  1016.     IntervalTimer "TitelUhr"
  1017.         Definition
  1018.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  1019.         EndScript
  1020.         Occurred
  1021.             Do "TitelUhr"
  1022.         EndScript
  1023.     EndObject
  1024.     TextMenu "Sicherheitskopie anlegen (2)"
  1025.         Definition
  1026.             AttachTo OBJECT ,"Speichern, Backup           »"
  1027.             Font "personal",8 ; FontName, PointSize
  1028.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1029.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1030.             Text "Sicherheitskopie anlegen (2)"
  1031.             MenuFlags NONE 
  1032.             Highlight COMPLEMENT 
  1033.             ShortCutKey ""
  1034.         EndScript
  1035.         Occurred
  1036.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (2)"
  1037.             SaveDocument "TheDoc","ram:2BackupTextloader",ASCII 
  1038.             IfError
  1039.                 Do "Fehlerroutine"
  1040.             EndIf
  1041.             Delay 0,3,1/50
  1042.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  1043.         EndScript
  1044.     EndObject
  1045.     TextMenu "Sicherheitskopie anlegen (3)"
  1046.         Definition
  1047.             AttachTo OBJECT ,"Speichern, Backup           »"
  1048.             Font "personal",8 ; FontName, PointSize
  1049.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1050.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1051.             Text "Sicherheitskopie anlegen (3)"
  1052.             MenuFlags NONE 
  1053.             Highlight COMPLEMENT 
  1054.             ShortCutKey ""
  1055.         EndScript
  1056.         Occurred
  1057.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (3)"
  1058.             SaveDocument "TheDoc","ram:3BackupTextloader",ASCII 
  1059.             IfError
  1060.                 Do "Fehlerroutine"
  1061.             EndIf
  1062.             Delay 0,3,1/50
  1063.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  1064.         EndScript
  1065.     EndObject
  1066.     TextMenu "Sicherheitskopie anlegen (4)"
  1067.         Definition
  1068.             AttachTo OBJECT ,"Speichern, Backup           »"
  1069.             Font "personal",8 ; FontName, PointSize
  1070.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1071.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  1072.             Text "Sicherheitskopie anlegen (4)"
  1073.             MenuFlags NONE 
  1074.             Highlight COMPLEMENT 
  1075.             ShortCutKey ""
  1076.         EndScript
  1077.         Occurred
  1078.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (4)"
  1079.             SaveDocument "TheDoc","ram:4BackupTextloader",ASCII 
  1080.             IfError
  1081.                 Do "Fehlerroutine"
  1082.             EndIf
  1083.             Delay 0,3,1/50
  1084.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  1085.         EndScript
  1086.     EndObject
  1087.     TextMenu "-------------------------"
  1088.         Definition
  1089.             AttachTo OBJECT ,"Speichern, Backup           »"
  1090.             Font "topaz",8 ; FontName, PointSize
  1091.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1092.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1093.             Text "-------------------------"
  1094.             MenuFlags NONE 
  1095.             Highlight NONE 
  1096.             ShortCutKey ""
  1097.         EndScript
  1098.     EndObject
  1099.     TextMenu "Sicherheitskopie einfügen (1)"
  1100.         Definition
  1101.             AttachTo OBJECT ,"Speichern, Backup           »"
  1102.             Font "personal",8 ; FontName, PointSize
  1103.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1104.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1105.             Text "Sicherheitskopie einfügen (1)"
  1106.             MenuFlags NONE 
  1107.             Highlight COMPLEMENT 
  1108.             ShortCutKey ""
  1109.         EndScript
  1110.         Occurred
  1111.             LoadDocument "ram:1BackupTextloader","TheDoc"
  1112.         EndScript
  1113.     EndObject
  1114.     TextMenu "Sicherheitskopie einfügen (2)"
  1115.         Definition
  1116.             AttachTo OBJECT ,"Speichern, Backup           »"
  1117.             Font "personal",8 ; FontName, PointSize
  1118.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1119.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1120.             Text "Sicherheitskopie einfügen (2)"
  1121.             MenuFlags NONE 
  1122.             Highlight COMPLEMENT 
  1123.             ShortCutKey ""
  1124.         EndScript
  1125.         Occurred
  1126.             LoadDocument "ram:2BackupTextloader","TheDoc"
  1127.         EndScript
  1128.     EndObject
  1129.     TextMenu "Sicherheitskopie einfügen (3)"
  1130.         Definition
  1131.             AttachTo OBJECT ,"Speichern, Backup           »"
  1132.             Font "personal",8 ; FontName, PointSize
  1133.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1134.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1135.             Text "Sicherheitskopie einfügen (3)"
  1136.             MenuFlags NONE 
  1137.             Highlight COMPLEMENT 
  1138.             ShortCutKey ""
  1139.         EndScript
  1140.         Occurred
  1141.             LoadDocument "ram:3BackupTextloader","TheDoc"
  1142.         EndScript
  1143.     EndObject
  1144.     TextMenu "Sicherheitskopie einfügen (4)"
  1145.         Definition
  1146.             AttachTo OBJECT ,"Speichern, Backup           »"
  1147.             Font "personal",8 ; FontName, PointSize
  1148.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1149.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1150.             Text "Sicherheitskopie einfügen (4)"
  1151.             MenuFlags NONE 
  1152.             Highlight COMPLEMENT 
  1153.             ShortCutKey ""
  1154.         EndScript
  1155.         Occurred
  1156.             LoadDocument "ram:4BackupTextloader","TheDoc"
  1157.         EndScript
  1158.     EndObject
  1159.     TextMenu "OnlineHelp..."
  1160.         Definition
  1161.             AttachTo MENU ," Help "
  1162.             Font "personal",8 ; FontName, PointSize
  1163.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1164.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1165.             Text "OnlineHelp..."
  1166.             MenuFlags NONE 
  1167.             Highlight COMPLEMENT 
  1168.             ShortCutKey "O"
  1169.         EndScript
  1170.         Occurred
  1171.             If EXISTS ("sys:Utilities/Amigaguide")
  1172.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  1173.             Else
  1174.                 If EXISTS ("sys:Utilities/Multiview")
  1175.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  1176.                 Else
  1177.                     If EXISTS ("sys:c/Amigaguide")
  1178.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  1179.                     Else
  1180.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  1181.                     EndIf
  1182.                 EndIf
  1183.             EndIf
  1184.         EndScript
  1185.     EndObject
  1186.     TextMenu "MenuItem_1"
  1187.         Definition
  1188.             AttachTo MENU ," Workbench "
  1189.             Font "personal",8 ; FontName, PointSize
  1190.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1191.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1192.             Text "Pointer..."
  1193.             MenuFlags NONE 
  1194.             Highlight COMPLEMENT 
  1195.             ShortCutKey "7"
  1196.         EndScript
  1197.         Occurred
  1198.             Dos "Run >Nil: <Nil: Sys:Prefs/Pointer" ; Run the application
  1199.         EndScript
  1200.     EndObject
  1201.     TextMenu "MenuItem_2"
  1202.         Definition
  1203.             AttachTo MENU ," Workbench "
  1204.             Font "personal",8 ; FontName, PointSize
  1205.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1206.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1207.             Text "Sound..."
  1208.             MenuFlags NONE 
  1209.             Highlight COMPLEMENT 
  1210.             ShortCutKey "8"
  1211.         EndScript
  1212.         Occurred
  1213.             Dos "Run >Nil: <Nil: Sys:Prefs/Sound" ; Run the application
  1214.         EndScript
  1215.     EndObject
  1216.     TextMenu "MenuItem3"
  1217.         Definition
  1218.             AttachTo MENU ," Workbench "
  1219.             Font "personal",8 ; FontName, PointSize
  1220.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1221.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1222.             Text "PrinterPostscript..."
  1223.             MenuFlags NONE 
  1224.             Highlight COMPLEMENT 
  1225.             ShortCutKey "9"
  1226.         EndScript
  1227.         Occurred
  1228.             Dos "Run >Nil: <Nil: Sys:Prefs/PrinterPS" ; Run the application
  1229.         EndScript
  1230.     EndObject
  1231.     TextMenu "Trennstrich?"
  1232.         Definition
  1233.             AttachTo MENU ," Workbench "
  1234.             Font "personal",8 ; FontName, PointSize
  1235.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1236.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1237.             Text "-------------------------------"
  1238.             MenuFlags NONE 
  1239.             Highlight NONE 
  1240.             ShortCutKey ""
  1241.         EndScript
  1242.     EndObject
  1243.     AKey "KeyInput_1"
  1244.         Definition
  1245.             QualifiersPressed NONE 
  1246.             KeyPressed F7 
  1247.         EndScript
  1248.         OnDown
  1249.             Do "AusserFunktion"
  1250.         EndScript
  1251.     EndObject
  1252.     AKey "KeyInput_2"
  1253.         Definition
  1254.             QualifiersPressed NONE 
  1255.             KeyPressed F8 
  1256.         EndScript
  1257.         OnDown
  1258.             Do "AusserFunktion"
  1259.         EndScript
  1260.     EndObject
  1261.     AKey "KeyInput_3"
  1262.         Definition
  1263.             QualifiersPressed NONE 
  1264.             KeyPressed F9 
  1265.         EndScript
  1266.         OnDown
  1267.             Do "AusserFunktion"
  1268.         EndScript
  1269.     EndObject
  1270.     AKey "KeyInput_4"
  1271.         Definition
  1272.             QualifiersPressed NONE 
  1273.             KeyPressed F10 
  1274.         EndScript
  1275.         OnDown
  1276.             Do "AusserFunktion"
  1277.         EndScript
  1278.     EndObject
  1279.     TextMenu "NoFastMem"
  1280.         Definition
  1281.             AttachTo MENU ," Workbench "
  1282.             Font "personal",8 ; FontName, PointSize
  1283.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1284.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1285.             Text "NoFastMem"
  1286.             MenuFlags NONE 
  1287.             Highlight COMPLEMENT 
  1288.             ShortCutKey ""
  1289.         EndScript
  1290.         Occurred
  1291.             Dos "Run >Nil: <Nil: Sys:system/NoFastMem"
  1292.             If error
  1293.                 Do "Fehlerroutine"
  1294.             EndIf
  1295.         EndScript
  1296.     EndObject
  1297.     TextMenu "Rexxmast"
  1298.         Definition
  1299.             AttachTo MENU ," Workbench "
  1300.             Font "personal",8 ; FontName, PointSize
  1301.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1302.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1303.             Text "Rexxmast"
  1304.             MenuFlags NONE 
  1305.             Highlight COMPLEMENT 
  1306.             ShortCutKey ""
  1307.         EndScript
  1308.         Occurred
  1309.             Dos "Run >Nil: <Nil: Sys:system/Rexxmast"
  1310.             If error
  1311.                 Do "Fehlerroutine"
  1312.             EndIf
  1313.         EndScript
  1314.     EndObject
  1315.     TextMenu "CursorPosition"
  1316.         Definition
  1317.             AttachTo MENU ," Statistik "
  1318.             Font "personal",8 ; FontName, PointSize
  1319.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1320.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1321.             Text "Zeichen Total..."
  1322.             MenuFlags NONE 
  1323.             Highlight COMPLEMENT 
  1324.             ShortCutKey ""
  1325.         EndScript
  1326.         Occurred
  1327.             Do "Timing"
  1328.         EndScript
  1329.     EndObject
  1330.     TextMenu "Copy_of_CursorPosition"
  1331.         Definition
  1332.             AttachTo MENU ," Statistik "
  1333.             Font "personal",8 ; FontName, PointSize
  1334.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1335.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1336.             Text "Cursor wo..."
  1337.             MenuFlags NONE 
  1338.             Highlight COMPLEMENT 
  1339.             ShortCutKey ""
  1340.         EndScript
  1341.         Occurred
  1342.             Do "Timing2"
  1343.         EndScript
  1344.     EndObject
  1345.     TextMenu "Copy_2_of_CursorPosition"
  1346.         Definition
  1347.             AttachTo MENU ," Statistik "
  1348.             Font "personal",8 ; FontName, PointSize
  1349.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1350.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1351.             Text "Cursor auf Feld..."
  1352.             MenuFlags NONE 
  1353.             Highlight COMPLEMENT 
  1354.             ShortCutKey ""
  1355.         EndScript
  1356.         Occurred
  1357.             Do "Timing3"
  1358.         EndScript
  1359.     EndObject
  1360.     TextMenu "Copy_3_of_CursorPosition"
  1361.         Definition
  1362.             AttachTo MENU ," Statistik "
  1363.             Font "personal",8 ; FontName, PointSize
  1364.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1365.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1366.             Text "Cursor auf Zeile..."
  1367.             MenuFlags NONE 
  1368.             Highlight COMPLEMENT 
  1369.             ShortCutKey ""
  1370.         EndScript
  1371.         Occurred
  1372.             Do "Timing4"
  1373.         EndScript
  1374.     EndObject
  1375.     TextMenu "Copy_4_of_CursorPosition"
  1376.         Definition
  1377.             AttachTo MENU ," Statistik "
  1378.             Font "personal",8 ; FontName, PointSize
  1379.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1380.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1381.             Text "Zeilen Total..."
  1382.             MenuFlags NONE 
  1383.             Highlight COMPLEMENT 
  1384.             ShortCutKey ""
  1385.         EndScript
  1386.         Occurred
  1387.             Do "Timing5"
  1388.         EndScript
  1389.     EndObject
  1390.     TextMenu "MenuItem_3"
  1391.         Definition
  1392.             AttachTo MENU ," Statistik "
  1393.             Font "personal",8 ; FontName, PointSize
  1394.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1395.             TextColors 4,2,JAM2  ; PenA, PenB, DrawMode
  1396.             Text "------------------------"
  1397.             MenuFlags NONE 
  1398.             Highlight NONE 
  1399.             ShortCutKey ""
  1400.         EndScript
  1401.     EndObject
  1402.     TextMenu "Copy_5_of_CursorPosition"
  1403.         Definition
  1404.             AttachTo MENU ," Statistik "
  1405.             Font "personal",8 ; FontName, PointSize
  1406.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1407.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1408.             Text "Verfügbarer Chip Ram..."
  1409.             MenuFlags NONE 
  1410.             Highlight COMPLEMENT 
  1411.             ShortCutKey ""
  1412.         EndScript
  1413.         Occurred
  1414.             Do "Timing6"
  1415.         EndScript
  1416.     EndObject
  1417.     TextMenu "Copy_6_of_CursorPosition"
  1418.         Definition
  1419.             AttachTo MENU ," Statistik "
  1420.             Font "personal",8 ; FontName, PointSize
  1421.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1422.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1423.             Text "Verfügbarer Fast Ram..."
  1424.             MenuFlags NONE 
  1425.             Highlight COMPLEMENT 
  1426.             ShortCutKey ""
  1427.         EndScript
  1428.         Occurred
  1429.             Do "Timing7"
  1430.         EndScript
  1431.     EndObject
  1432.     TextMenu "GesamtMemory"
  1433.         Definition
  1434.             AttachTo MENU ," Statistik "
  1435.             Font "personal",8 ; FontName, PointSize
  1436.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1437.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1438.             Text "Total Ram..."
  1439.             MenuFlags NONE 
  1440.             Highlight COMPLEMENT 
  1441.             ShortCutKey ""
  1442.         EndScript
  1443.         Occurred
  1444.             Do "Timing9"
  1445.         EndScript
  1446.     EndObject
  1447.     TextMenu "Copy_of_MenuItem_3"
  1448.         Definition
  1449.             AttachTo MENU ," Statistik "
  1450.             Font "personal",8 ; FontName, PointSize
  1451.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1452.             TextColors 4,2,JAM2  ; PenA, PenB, DrawMode
  1453.             Text "------------------------"
  1454.             MenuFlags NONE 
  1455.             Highlight NONE 
  1456.             ShortCutKey ""
  1457.         EndScript
  1458.     EndObject
  1459.     TextMenu "Copy_7_of_CursorPosition"
  1460.         Definition
  1461.             AttachTo MENU ," Statistik "
  1462.             Font "personal",8 ; FontName, PointSize
  1463.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1464.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1465.             Text "System Version..."
  1466.             MenuFlags NONE 
  1467.             Highlight COMPLEMENT 
  1468.             ShortCutKey ""
  1469.         EndScript
  1470.         Occurred
  1471.             Do "Timing8"
  1472.         EndScript
  1473.     EndObject
  1474.     TextMenu "Farbenwahl"
  1475.         Definition
  1476.             AttachTo MENU ," PrefsTools "
  1477.             Font "personal",8 ; FontName, PointSize
  1478.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1479.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1480.             Text "Farben wahl..."
  1481.             MenuFlags NONE 
  1482.             Highlight COMPLEMENT 
  1483.             ShortCutKey ""
  1484.         EndScript
  1485.     EndObject
  1486.     TextMenu "Wb"
  1487.         Definition
  1488.             AttachTo OBJECT ,"Farbenwahl"
  1489.             Font "personal",8 ; FontName, PointSize
  1490.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1491.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1492.             Text "Wb"
  1493.             MenuFlags CHECKABLE CHECKIT 
  1494.             Highlight COMPLEMENT 
  1495.             ShortCutKey ""
  1496.         EndScript
  1497.         Occurred
  1498.             SetObjectState "Wb",true
  1499.             SetObjectState "WBold",false
  1500.             SetObjectState "Violetexotic",false
  1501.             SetObjectState "blacky",false
  1502.             SetObjectState "banana",false
  1503.             SetObjectState "PescaFruit",false
  1504.             SetObjectState "GreenApple",false
  1505.             SetObjectState "SpacyTint",false
  1506.             SetRGB 0,170,170,170
  1507.             SetRGB 1,0,0,17
  1508.             SetRGB 2,255,255,255
  1509.             SetRGB 3,102,136,187
  1510.         EndScript
  1511.     EndObject
  1512.     TextMenu "WBold"
  1513.         Definition
  1514.             AttachTo OBJECT ,"Farbenwahl"
  1515.             Font "personal",8 ; FontName, PointSize
  1516.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1517.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1518.             Text "WBold"
  1519.             MenuFlags CHECKABLE 
  1520.             Highlight COMPLEMENT 
  1521.             ShortCutKey ""
  1522.         EndScript
  1523.         Occurred
  1524.             SetObjectState "Wb",false
  1525.             SetObjectState "WBold",true
  1526.             SetObjectState "Violetexotic",false
  1527.             SetObjectState "blacky",false
  1528.             SetObjectState "banana",false
  1529.             SetObjectState "PescaFruit",false
  1530.             SetObjectState "GreenApple",false
  1531.             SetObjectState "SpacyTint",false
  1532.             SetRGB 0,0,85,170
  1533.             SetRGB 1,255,255,255
  1534.             SetRGB 2,0,0,34
  1535.             SetRGB 3,255,136,0
  1536.         EndScript
  1537.     EndObject
  1538.     TextMenu "Violetexotic"
  1539.         Definition
  1540.             AttachTo OBJECT ,"Farbenwahl"
  1541.             Font "personal",8 ; FontName, PointSize
  1542.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1543.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1544.             Text "Violett exotic"
  1545.             MenuFlags CHECKABLE 
  1546.             Highlight COMPLEMENT 
  1547.             ShortCutKey ""
  1548.         EndScript
  1549.         Occurred
  1550.             SetObjectState "Wb",false
  1551.             SetObjectState "WBold",false
  1552.             SetObjectState "Violetexotic",true
  1553.             SetObjectState "blacky",false
  1554.             SetObjectState "banana",false
  1555.             SetObjectState "PescaFruit",false
  1556.             SetObjectState "GreenApple",false
  1557.             SetObjectState "SpacyTint",false
  1558.             SetRGB 0,187,187,187
  1559.             SetRGB 1,0,0,0
  1560.             SetRGB 2,255,255,255
  1561.             SetRGB 3,204,0,153
  1562.         EndScript
  1563.     EndObject
  1564.     TextMenu "blacky"
  1565.         Definition
  1566.             AttachTo OBJECT ,"Farbenwahl"
  1567.             Font "personal",8 ; FontName, PointSize
  1568.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1569.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1570.             Text "blacky bounce"
  1571.             MenuFlags CHECKABLE 
  1572.             Highlight COMPLEMENT 
  1573.             ShortCutKey ""
  1574.         EndScript
  1575.         Occurred
  1576.             SetObjectState "Wb",false
  1577.             SetObjectState "WBold",false
  1578.             SetObjectState "Violetexotic",false
  1579.             SetObjectState "blacky",true
  1580.             SetObjectState "banana",false
  1581.             SetObjectState "PescaFruit",false
  1582.             SetObjectState "GreenApple",false
  1583.             SetObjectState "SpacyTint",false
  1584.             SetRGB 0,0,0,0
  1585.             SetRGB 1,255,255,255
  1586.             SetRGB 2,85,170,170
  1587.             SetRGB 3,204,51,85
  1588.         EndScript
  1589.     EndObject
  1590.     TextMenu "Banana"
  1591.         Definition
  1592.             AttachTo OBJECT ,"Farbenwahl"
  1593.             Font "personal",8 ; FontName, PointSize
  1594.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1595.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1596.             Text "Banana split"
  1597.             MenuFlags CHECKABLE 
  1598.             Highlight COMPLEMENT 
  1599.             ShortCutKey ""
  1600.         EndScript
  1601.         Occurred
  1602.             SetObjectState "Wb",false
  1603.             SetObjectState "WBold",false
  1604.             SetObjectState "Violetexotic",false
  1605.             SetObjectState "blacky",false
  1606.             SetObjectState "banana",true
  1607.             SetObjectState "PescaFruit",false
  1608.             SetObjectState "GreenApple",false
  1609.             SetObjectState "SpacyTint",false
  1610.             SetRGB 0,170,170,170
  1611.             SetRGB 1,0,0,0
  1612.             SetRGB 2,187,85,17
  1613.             SetRGB 3,221,221,0
  1614.         EndScript
  1615.     EndObject
  1616.     TextMenu "Pescafruit"
  1617.         Definition
  1618.             AttachTo OBJECT ,"Farbenwahl"
  1619.             Font "personal",8 ; FontName, PointSize
  1620.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1621.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1622.             Text "Pescafruit"
  1623.             MenuFlags CHECKABLE 
  1624.             Highlight COMPLEMENT 
  1625.             ShortCutKey ""
  1626.         EndScript
  1627.         Occurred
  1628.             SetObjectState "Wb",false
  1629.             SetObjectState "WBold",false
  1630.             SetObjectState "Violetexotic",false
  1631.             SetObjectState "blacky",false
  1632.             SetObjectState "banana",false
  1633.             SetObjectState "PescaFruit",true
  1634.             SetObjectState "GreenApple",false
  1635.             SetObjectState "SpacyTint",false
  1636.             SetRGB 0,170,170,170
  1637.             SetRGB 1,0,0,0
  1638.             SetRGB 2,255,17,68
  1639.             SetRGB 3,238,136,0
  1640.         EndScript
  1641.     EndObject
  1642.     TextMenu "GreenApple"
  1643.         Definition
  1644.             AttachTo OBJECT ,"Farbenwahl"
  1645.             Font "personal",8 ; FontName, PointSize
  1646.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1647.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1648.             Text "GreenApple"
  1649.             MenuFlags CHECKABLE 
  1650.             Highlight COMPLEMENT 
  1651.             ShortCutKey ""
  1652.         EndScript
  1653.         Occurred
  1654.             SetObjectState "Wb",false
  1655.             SetObjectState "WBold",false
  1656.             SetObjectState "Violetexotic",false
  1657.             SetObjectState "blacky",false
  1658.             SetObjectState "banana",false
  1659.             SetObjectState "PescaFruit",false
  1660.             SetObjectState "GreenApple",true
  1661.             SetObjectState "SpacyTint",false
  1662.             SetRGB 0,153,153,153
  1663.             SetRGB 1,0,0,0
  1664.             SetRGB 2,238,170,51
  1665.             SetRGB 3,0,136,0
  1666.         EndScript
  1667.     EndObject
  1668.     TextMenu "Spacytint"
  1669.         Definition
  1670.             AttachTo OBJECT ,"Farbenwahl"
  1671.             Font "personal",8 ; FontName, PointSize
  1672.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1673.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1674.             Text "Spacytint"
  1675.             MenuFlags CHECKABLE 
  1676.             Highlight COMPLEMENT 
  1677.             ShortCutKey ""
  1678.         EndScript
  1679.         Occurred
  1680.             SetObjectState "Wb",false
  1681.             SetObjectState "WBold",false
  1682.             SetObjectState "Violetexotic",false
  1683.             SetObjectState "blacky",false
  1684.             SetObjectState "banana",false
  1685.             SetObjectState "PescaFruit",false
  1686.             SetObjectState "GreenApple",false
  1687.             SetObjectState "SpacyTint",true
  1688.             SetRGB 0,255,255,255
  1689.             SetRGB 1,238,0,187
  1690.             SetRGB 2,0,0,0
  1691.             SetRGB 3,17,204,102
  1692.         EndScript
  1693.     EndObject
  1694.     AKey "OnlineHelp"
  1695.         Definition
  1696.             QualifiersPressed NONE 
  1697.             KeyPressed HELP 
  1698.         EndScript
  1699.         OnDown
  1700.             If EXISTS ("sys:Utilities/Amigaguide")
  1701.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  1702.             Else
  1703.                 If EXISTS ("sys:Utilities/Multiview")
  1704.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  1705.                 Else
  1706.                     If EXISTS ("sys:c/Amigaguide")
  1707.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  1708.                     Else
  1709.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  1710.                     EndIf
  1711.                 EndIf
  1712.             EndIf
  1713.         EndScript
  1714.     EndObject
  1715. * End of Card "Hauptfenster"
  1716. *************
  1717.  
  1718. *************
  1719. * Card "Hauptfenster2"
  1720.     BeforeAttachment ; used to be OnStartup
  1721.         LoadSubDeck "SimpleReq","SimpleReq"
  1722.         LoadSubDeck "SuchReq","SuchReq"
  1723.         LoadSubDeck "ConiPalette","Palette"
  1724.         LoadSubDeck "ConiAvail","Avail"
  1725.         If exists ("sys:fonts/personal/8")
  1726.         Else
  1727.             OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Ich kann den Textloader","Font nicht finden. Bitte","zuerst Installieren!","Sonst lade ich TOPAZ/8!"
  1728.             Delay 0,5,1/50
  1729.         EndIf
  1730.         Echo " "
  1731.         Echo "Textloader von Pascal Gisin!"
  1732.         Echo "============================"
  1733.         Echo " "
  1734.         Echo "   >>>Der starke Editor für den AMIGA...<<<"
  1735.         Echo " "
  1736.         Echo "©1994-98 FORCESOFT (PASCAL GISIN)"
  1737.         Echo " "
  1738.         Echo "             My New Nickname, FORCE!!!"
  1739.     EndScript
  1740.     AfterAttachment ; used to be AfterStartup
  1741.         SetScreenTitle "»FORCE SOFT« presents the Textloader by P.Gisin ©1994-98 (Force)"
  1742.         OpenRequester "SimpleReq","Kommentar","","Textloader Information...","!Herzlich Willkommen!","Schicken Sie mir eine","Postkarte für die Registration!","!!! ES LOHNT SICH !!!"
  1743.     EndScript
  1744.     BeforeDetachment ; used to be OnFinishup
  1745.         SaveDocument "TheDoc","ram:Txt.bak",ASCII 
  1746.     EndScript
  1747.     MessageFromSubDeck
  1748.         If Arg1 <> ""
  1749.             Do Arg1,Alias("Arg2"),Alias("Arg3"),Alias("Arg4")
  1750.         EndIf
  1751.     EndScript
  1752.     Window "UserWindow"
  1753.         Definition
  1754.             Origin 0,0
  1755.             Size 640,256
  1756.             Title "Textloader 6.4"
  1757.             NumberOfColors 8,167936
  1758.             WindowColors 1,2,0 ; Detail, Block, Background
  1759.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  1760.             WindowFlags ACTIVATE SEPARATESCREEN TOFRONT 
  1761.         EndScript
  1762.         OnCloseButton
  1763.             OpenRequester "SimpleReq","JaNein","EndeCloseknopf","Textloader Meldung..."," ","Möchten Sie wirklich","jetzt, den Textloader beenden?"," "
  1764.         EndScript
  1765.         OnActivated
  1766.             Nop
  1767.         EndScript
  1768.         OnResized
  1769.             Nop
  1770.         EndScript
  1771.     EndObject
  1772.     Memo "Dokument"
  1773.         Definition
  1774.             Origin 5,12
  1775.             Size 616,242
  1776.             Font "topaz",8 ; FontName, PointSize
  1777.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1778.             TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
  1779.             Border OUTLINE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1780.             Document "TheDoc" ; where the text comes from
  1781.             ScrollBars RIGHT 
  1782.             InputStyle NORMAL 
  1783.         EndScript
  1784.         OnDrag
  1785.             Nop
  1786.         EndScript
  1787.     EndObject
  1788.     TextMenu "Autor...                    »"
  1789.         Definition
  1790.             AttachTo MENU ,"Editormenü"
  1791.             Font "personal",8 ; FontName, PointSize
  1792.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1793.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1794.             Text "Autor...                    »"
  1795.             MenuFlags NONE 
  1796.             Highlight COMPLEMENT 
  1797.             ShortCutKey ""
  1798.         EndScript
  1799.         Occurred
  1800.             Let AutorInfo = "Pascal Gisin"||Char(10)||"Fiechtenweg 11"||Char(10)||"CH-4147 Aesch"||Char(10)||""||Char(10)||"Tel: 079/322'23'53"||Char(10)||"Fax: 079/0'322'23'53"||CHAR(10)||"Dedicated To ALL AMIGIANS OF THE WORLD"
  1801.             Let Autor=AskForResponse(AutorInfo, "Textloader Info...", "Alles klar!")
  1802.             ScreenTo FRONT 
  1803.         EndScript
  1804.     EndObject
  1805.     TextMenu "SystemInfo..."
  1806.         Definition
  1807.             AttachTo MENU ,"Editormenü"
  1808.             Font "personal",8 ; FontName, PointSize
  1809.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1810.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1811.             Text "SystemInfo..."
  1812.             MenuFlags NONE 
  1813.             Highlight COMPLEMENT 
  1814.             ShortCutKey "?"
  1815.         EndScript
  1816.         Occurred
  1817.             If Hilfsmodus = TRUE
  1818.                 OpenRequester "HelpReq","Card_1","","Mit diesem Menüpunkt, erhalten Sie","Interresannte Infos über Speicher-,","Chip-, Fast und Ihre Systemkonfigurationen!"," "," "
  1819.             Else
  1820.                 GotoCard "Systeminfos..."
  1821.             EndIf
  1822.         EndScript
  1823.     EndObject
  1824.     TextMenu "Trennstrich4"
  1825.         Definition
  1826.             AttachTo MENU ,"Editormenü"
  1827.             Font "personal",8 ; FontName, PointSize
  1828.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1829.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1830.             Text "-------------------------------"
  1831.             MenuFlags NONE 
  1832.             Highlight NONE 
  1833.             ShortCutKey ""
  1834.         EndScript
  1835.     EndObject
  1836.     TextMenu "Laden..."
  1837.         Definition
  1838.             AttachTo MENU ,"Editormenü"
  1839.             Font "personal",8 ; FontName, PointSize
  1840.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1841.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1842.             Text "Laden..."
  1843.             MenuFlags NONE 
  1844.             Highlight COMPLEMENT 
  1845.             ShortCutKey "L"
  1846.         EndScript
  1847.         Occurred
  1848.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  1849.             Let Laden=AskForFilename(TheoriginDirectory,"ASCII/FTXT Datei laden...","155","39","340","180")
  1850.             Let NeueDatei=Laden
  1851.             If NeueDatei<>NOTHING
  1852.                 If NOT MATCH (FileType(NeueDatei),"Unknown","FTXT")
  1853.                     Do "Beep"
  1854.                     SetWindowTitle "Kann die Datei"|||NeueDatei|||"nicht laden"
  1855.                 Else
  1856.                     SetWindowTitle "Lade Dokument..."
  1857.                     LoadDocument NeueDatei,"TheDoc"
  1858.                     IfError
  1859.                     Else
  1860.                         SetWindowTitle "Dateiname"|||NeueDatei
  1861.                     EndIf
  1862.                 EndIf
  1863.             EndIf
  1864.         EndScript
  1865.     EndObject
  1866.     TextMenu "Laden, Bild..."
  1867.         Definition
  1868.             AttachTo MENU ,"Editormenü"
  1869.             Font "personal",8 ; FontName, PointSize
  1870.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1871.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1872.             Text "Laden, Bild..."
  1873.             MenuFlags NONE 
  1874.             Highlight COMPLEMENT 
  1875.             ShortCutKey "!"
  1876.         EndScript
  1877.         Occurred
  1878.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  1879.             Let Datei=AskForFileName(Bild, "Bild auswählen! Zum laden...","155","39","340","180")
  1880.             If Datei <> ""
  1881.                 Let Bild = Datei
  1882.                 GotoCard "BildAnzeiger"
  1883.             EndIf
  1884.         EndScript
  1885.     EndObject
  1886.     TextMenu "LadenBild(PP)"
  1887.         Definition
  1888.             AttachTo MENU ,"Editormenü"
  1889.             Font "personal",8 ; FontName, PointSize
  1890.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1891.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1892.             Text "LadenBild(PP)"
  1893.             MenuFlags NONE 
  1894.             Highlight COMPLEMENT 
  1895.             ShortCutKey ""
  1896.         EndScript
  1897.         Occurred
  1898.             If exists("Sys:c/PPshow")
  1899.                 Dos "Run >NIL: <Nil: Sys:c/PPshow"
  1900.             Else
  1901.                 Let Fehler=AskForResponse("Leider konnte PPSHOW nicht gefunden werden!","Anzeigeproblem...","Schade")
  1902.                 If Fehler=1
  1903.                     DisableObject "LadenBild(PP)"
  1904.                 EndIf
  1905.             EndIf
  1906.         EndScript
  1907.     EndObject
  1908.     TextMenu "TrennstrichX1"
  1909.         Definition
  1910.             AttachTo MENU ,"Editormenü"
  1911.             Font "personal",8 ; FontName, PointSize
  1912.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1913.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1914.             Text "-------------------------------"
  1915.             MenuFlags NONE 
  1916.             Highlight NONE 
  1917.             ShortCutKey ""
  1918.         EndScript
  1919.     EndObject
  1920.     TextMenu "Einfügen..."
  1921.         Definition
  1922.             AttachTo MENU ,"Editormenü"
  1923.             Font "personal",8 ; FontName, PointSize
  1924.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1925.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1926.             Text "Einfügen..."
  1927.             MenuFlags NONE 
  1928.             Highlight COMPLEMENT 
  1929.             ShortCutKey "E"
  1930.         EndScript
  1931.         Occurred
  1932.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  1933.             Let Einfügen=AskForFilename("","Text beim Cursor einfügen...","155","39","340","180")
  1934.             Let Newfile = Einfügen
  1935.             If newfile<>nothing
  1936.                 If Not Match(FileType(newfile),"Unknown","FTXT")
  1937.                     SetWindowTitle "Kann File nicht Laden """||newfile||""""
  1938.                 Else
  1939.                     SetWindowTitle "Lade einzufügender Text....."
  1940.                     InsertDocument newfile,"TheDoc"
  1941.                     IfError
  1942.                         Do "Fehlerroutine"
  1943.                     Else
  1944.                         Let FileToGet=newfile
  1945.                         SetWindowTitle "FileName :"""||FileToGet||""""
  1946.                     EndIf
  1947.                 EndIf
  1948.             EndIf
  1949.         EndScript
  1950.     EndObject
  1951.     TextMenu "TrennstrichX9"
  1952.         Definition
  1953.             AttachTo MENU ,"Editormenü"
  1954.             Font "personal",8 ; FontName, PointSize
  1955.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1956.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1957.             Text "-------------------------------"
  1958.             MenuFlags NONE 
  1959.             Highlight NONE 
  1960.             ShortCutKey ""
  1961.         EndScript
  1962.     EndObject
  1963.     TextMenu "Suchen..."
  1964.         Definition
  1965.             AttachTo MENU ,"Editormenü"
  1966.             Font "personal",8 ; FontName, PointSize
  1967.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1968.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1969.             Text "Suchen..."
  1970.             MenuFlags NONE 
  1971.             Highlight COMPLEMENT 
  1972.             ShortCutKey "S"
  1973.         EndScript
  1974.         Occurred
  1975.             Do "S"
  1976.         EndScript
  1977.     EndObject
  1978.     TextMenu "Suchen fortsetzen..."
  1979.         Definition
  1980.             AttachTo MENU ,"Editormenü"
  1981.             Font "personal",8 ; FontName, PointSize
  1982.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1983.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1984.             Text "Suchen fortsetzen..."
  1985.             MenuFlags NONE 
  1986.             Highlight COMPLEMENT 
  1987.             ShortCutKey "W"
  1988.         EndScript
  1989.         Occurred
  1990.             Do "SF"
  1991.         EndScript
  1992.     EndObject
  1993.     TextMenu "TrennstrichX7"
  1994.         Definition
  1995.             AttachTo MENU ,"Editormenü"
  1996.             Font "personal",8 ; FontName, PointSize
  1997.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  1998.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  1999.             Text "-------------------------------"
  2000.             MenuFlags NONE 
  2001.             Highlight NONE 
  2002.             ShortCutKey ""
  2003.         EndScript
  2004.     EndObject
  2005.     TextMenu "Speichern, ASCII"
  2006.         Definition
  2007.             AttachTo MENU ,"Editormenü"
  2008.             Font "personal",8 ; FontName, PointSize
  2009.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2010.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2011.             Text "Speichern, ASCII"
  2012.             MenuFlags NONE 
  2013.             Highlight COMPLEMENT 
  2014.             ShortCutKey "A"
  2015.         EndScript
  2016.         Occurred
  2017.             SetFileRequestMode SAVEFILEMODE ,NONE 
  2018.             Let SichernAscii=AskForFileName(TheCurrentDirectory,"Text in ASCII sichern...","155","39","340","180")
  2019.             Let Antwort = SichernAscii
  2020.             If Antwort <> ""
  2021.                 Let Dateispeichername = Antwort
  2022.                 SetWindowTitle "Speichere nun im ASCII Format!"
  2023.                 SaveDocument "TheDoc",Dateispeichername,ASCII 
  2024.                 IfError
  2025.                     Do "Fehlerroutine"
  2026.                 EndIf
  2027.             EndIf
  2028.             SetWindowTitle "Textloader ©  by P.Gisin"
  2029.         EndScript
  2030.     EndObject
  2031.     TextMenu "Speichern, FTXT"
  2032.         Definition
  2033.             AttachTo MENU ,"Editormenü"
  2034.             Font "personal",8 ; FontName, PointSize
  2035.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2036.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2037.             Text "Speichern, FTXT"
  2038.             MenuFlags NONE 
  2039.             Highlight COMPLEMENT 
  2040.             ShortCutKey "F"
  2041.         EndScript
  2042.         Occurred
  2043.             SetFileRequestMode SAVEFILEMODE ,NONE 
  2044.             Let SpeichernFTXT=askForFilename(TheCurrentDirectory,"Text im FTXT Format sichern...","155","39","340","180")
  2045.             Let Antwort = SpeichernFTXT
  2046.             If Antwort <> ""
  2047.                 Let Dateispeichername = Antwort
  2048.                 SetWindowTitle "Speichere nun im FTXT Format!"
  2049.                 SaveDocument "TheDoc",Dateispeichername,FTXT 
  2050.                 IfError
  2051.                     Do "Fehlerroutine"
  2052.                 EndIf
  2053.             EndIf
  2054.             SetWindowTitle "Textloader © by P.Gisin"
  2055.         EndScript
  2056.     EndObject
  2057.     TextMenu "Speichern, Backup           »"
  2058.         Definition
  2059.             AttachTo MENU ,"Editormenü"
  2060.             Font "personal",8 ; FontName, PointSize
  2061.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2062.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2063.             Text "Speichern, Backup           »"
  2064.             MenuFlags NONE 
  2065.             Highlight COMPLEMENT 
  2066.             ShortCutKey ""
  2067.         EndScript
  2068.     EndObject
  2069.     TextMenu "Sicherheitskopie anlegen (1)"
  2070.         Definition
  2071.             AttachTo OBJECT ,"Speichern, Backup           »"
  2072.             Font "personal",8 ; FontName, PointSize
  2073.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2074.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  2075.             Text "Sicherheitskopie anlegen (1)"
  2076.             MenuFlags NONE 
  2077.             Highlight COMPLEMENT 
  2078.             ShortCutKey ""
  2079.         EndScript
  2080.         Occurred
  2081.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (1)"
  2082.             SaveDocument "TheDoc","ram:1BackupTextloader",ASCII 
  2083.             IfError
  2084.                 Do "Fehlerroutine"
  2085.             EndIf
  2086.             Delay 0,3,1/50
  2087.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  2088.         EndScript
  2089.     EndObject
  2090.     TextMenu "Speichern"
  2091.         Definition
  2092.             AttachTo MENU ,"Editormenü"
  2093.             Font "personal",8 ; FontName, PointSize
  2094.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2095.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2096.             Text "Speichern"
  2097.             MenuFlags NONE 
  2098.             Highlight COMPLEMENT 
  2099.             ShortCutKey "T"
  2100.         EndScript
  2101.         Occurred
  2102.             Let Abfrage = AskForResponse("Dieser Text wird dort gespeichert,"||Char(10)||"wo er geladen wurde. Ist das,"||Char(10)||"so in Ordnung?","Textloader Informiert...","Aber natürlich|Hab mich verdrückt")
  2103.             If Abfrage =1
  2104.                 SaveAllChangedBuffers
  2105.                 If error
  2106.                     Do "FehlerRoutine"
  2107.                     If Abfrage =0
  2108.                         ScreenTo FRONT 
  2109.                     EndIf
  2110.                 EndIf
  2111.             EndIf
  2112.             ScreenTo FRONT 
  2113.         EndScript
  2114.     EndObject
  2115.     TextMenu "TrennstrichX2"
  2116.         Definition
  2117.             AttachTo MENU ,"Editormenü"
  2118.             Font "personal",8 ; FontName, PointSize
  2119.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2120.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2121.             Text "-------------------------------"
  2122.             MenuFlags NONE 
  2123.             Highlight NONE 
  2124.             ShortCutKey ""
  2125.         EndScript
  2126.     EndObject
  2127.     TextMenu "Löschen, TEXT"
  2128.         Definition
  2129.             AttachTo MENU ,"Editormenü"
  2130.             Font "personal",8 ; FontName, PointSize
  2131.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2132.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2133.             Text "Löschen, TEXT"
  2134.             MenuFlags NONE 
  2135.             Highlight COMPLEMENT 
  2136.             ShortCutKey "T"
  2137.         EndScript
  2138.         Occurred
  2139.             OpenRequester "SimpleReq","JaNein","Löschen","Textloader Meldung...","Möchten Sie wirklich","den ganzen Text","für immer löschen?","???"
  2140.         EndScript
  2141.     EndObject
  2142.     TextMenu "Löschen, ZEILE"
  2143.         Definition
  2144.             AttachTo MENU ,"Editormenü"
  2145.             Font "personal",8 ; FontName, PointSize
  2146.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2147.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2148.             Text "Löschen, ZEILE"
  2149.             MenuFlags NONE 
  2150.             Highlight COMPLEMENT 
  2151.             ShortCutKey "Z"
  2152.         EndScript
  2153.         Occurred
  2154.             WorkWithDocument "TheDoc"
  2155.             Clear LINE 
  2156.         EndScript
  2157.     EndObject
  2158.     TextMenu "TrennstrichX3"
  2159.         Definition
  2160.             AttachTo MENU ,"Editormenü"
  2161.             Font "personal",8 ; FontName, PointSize
  2162.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2163.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2164.             Text "-------------------------------"
  2165.             MenuFlags NONE 
  2166.             Highlight NONE 
  2167.             ShortCutKey ""
  2168.         EndScript
  2169.     EndObject
  2170.     TextMenu "Cursor, Textanfang...   "
  2171.         Definition
  2172.             AttachTo MENU ,"Editormenü"
  2173.             Font "personal",8 ; FontName, PointSize
  2174.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2175.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2176.             Text "Cursor, Textanfang...   "
  2177.             MenuFlags NONE 
  2178.             Highlight COMPLEMENT 
  2179.             ShortCutKey ":"
  2180.         EndScript
  2181.         Occurred
  2182.             WorkWithDocument "TheDoc"
  2183.             MoveCursorTo STARTOF DOCUMENT 
  2184.         EndScript
  2185.     EndObject
  2186.     TextMenu "Cursor, Textende..."
  2187.         Definition
  2188.             AttachTo MENU ,"Editormenü"
  2189.             Font "personal",8 ; FontName, PointSize
  2190.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2191.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2192.             Text "Cursor, Textende..."
  2193.             MenuFlags NONE 
  2194.             Highlight COMPLEMENT 
  2195.             ShortCutKey ";"
  2196.         EndScript
  2197.         Occurred
  2198.             WorkWithDocument "TheDoc"
  2199.             MoveCursorTo ENDOF DOCUMENT 
  2200.         EndScript
  2201.     EndObject
  2202.     TextMenu "Cursor, EineZeile"
  2203.         Definition
  2204.             AttachTo MENU ,"Editormenü"
  2205.             Font "personal",8 ; FontName, PointSize
  2206.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2207.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2208.             Text "Neue Zeile"
  2209.             MenuFlags NONE 
  2210.             Highlight COMPLEMENT 
  2211.             ShortCutKey "D"
  2212.         EndScript
  2213.         Occurred
  2214.             NewLine
  2215.         EndScript
  2216.     EndObject
  2217.     TextMenu "TrennstrichX4"
  2218.         Definition
  2219.             AttachTo MENU ,"Editormenü"
  2220.             Font "personal",8 ; FontName, PointSize
  2221.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2222.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2223.             Text "-------------------------------"
  2224.             MenuFlags NONE 
  2225.             Highlight NONE 
  2226.             ShortCutKey ""
  2227.         EndScript
  2228.     EndObject
  2229.     TextMenu "Drucken..."
  2230.         Definition
  2231.             AttachTo MENU ,"Editormenü"
  2232.             Font "personal",8 ; FontName, PointSize
  2233.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2234.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2235.             Text "Drucken..."
  2236.             MenuFlags NONE 
  2237.             Highlight COMPLEMENT 
  2238.             ShortCutKey "P"
  2239.         EndScript
  2240.         Occurred
  2241.             OpenRequester "SimpleReq","JaNein","Drucken","Textloader Meldung...","Wollen Sie wirklich","dieses Dokument","jetzt Ausdrucken lassen?"," "
  2242.         EndScript
  2243.     EndObject
  2244.     TextMenu "TrennstrichX5"
  2245.         Definition
  2246.             AttachTo MENU ,"Editormenü"
  2247.             Font "personal",8 ; FontName, PointSize
  2248.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2249.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2250.             Text "-------------------------------"
  2251.             MenuFlags NONE 
  2252.             Highlight NONE 
  2253.             ShortCutKey ""
  2254.         EndScript
  2255.     EndObject
  2256.     TextMenu "Beenden..."
  2257.         Definition
  2258.             AttachTo MENU ,"Editormenü"
  2259.             Font "personal",8 ; FontName, PointSize
  2260.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2261.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2262.             Text "Beenden..."
  2263.             MenuFlags NONE 
  2264.             Highlight COMPLEMENT 
  2265.             ShortCutKey "Q"
  2266.         EndScript
  2267.         Occurred
  2268.             OpenRequester "SimpleReq","JaNein","Ende","Textloader Frage...","Möchten Sie Ihr Dokument, vor","dem beenden noch sichern ???","",""
  2269.         EndScript
  2270.     EndObject
  2271.     TextMenu "HTML Information"
  2272.         Definition
  2273.             AttachTo MENU ," WWWEdit "
  2274.             Font "personal",8 ; FontName, PointSize
  2275.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2276.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2277.             Text "HTML (Infos)"
  2278.             MenuFlags NONE 
  2279.             Highlight COMPLEMENT 
  2280.             ShortCutKey ""
  2281.         EndScript
  2282.         Occurred
  2283.             LoadDocument ("SchabloneInfo"),"TheDoc"
  2284.         EndScript
  2285.     EndObject
  2286.     TextMenu "Schablone öffnen..."
  2287.         Definition
  2288.             AttachTo MENU ," WWWEdit "
  2289.             Font "personal",8 ; FontName, PointSize
  2290.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2291.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2292.             Text "HTML (Text)"
  2293.             MenuFlags NONE 
  2294.             Highlight COMPLEMENT 
  2295.             ShortCutKey ""
  2296.         EndScript
  2297.         Occurred
  2298.             LoadDocument ("Schablone1"),"TheDoc"
  2299.         EndScript
  2300.     EndObject
  2301.     TextMenu "Systemuhr..."
  2302.         Definition
  2303.             AttachTo MENU ," Workbench "
  2304.             Font "personal",8 ; FontName, PointSize
  2305.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2306.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2307.             Text "Systemuhr..."
  2308.             MenuFlags NONE 
  2309.             Highlight COMPLEMENT 
  2310.             ShortCutKey "U"
  2311.         EndScript
  2312.         Occurred
  2313.             Dos "Run >Nil: <Nil: Sys:Utilities/Clock" ; Run the application
  2314.         EndScript
  2315.     EndObject
  2316.     TextMenu "Taschenrechner..."
  2317.         Definition
  2318.             AttachTo MENU ," Workbench "
  2319.             Font "personal",8 ; FontName, PointSize
  2320.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2321.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2322.             Text "Taschenrechner..."
  2323.             MenuFlags NONE 
  2324.             Highlight COMPLEMENT 
  2325.             ShortCutKey "C"
  2326.         EndScript
  2327.         Occurred
  2328.             Dos "Run >Nil: <Nil: Sys:Tools/Calculator" ; Run the application
  2329.         EndScript
  2330.     EndObject
  2331.     TextMenu "Tastaturbelegung..."
  2332.         Definition
  2333.             AttachTo MENU ," Workbench "
  2334.             Font "personal",8 ; FontName, PointSize
  2335.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2336.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2337.             Text "Tastaturbelegung..."
  2338.             MenuFlags NONE 
  2339.             Highlight COMPLEMENT 
  2340.             ShortCutKey "K"
  2341.         EndScript
  2342.         Occurred
  2343.             Dos "Run >Nil: <Nil: Sys:Tools/KeyShow" ; Run the application
  2344.         EndScript
  2345.     EndObject
  2346.     TextMenu "Farbeneinsteller..."
  2347.         Definition
  2348.             AttachTo MENU ," Workbench "
  2349.             Font "personal",8 ; FontName, PointSize
  2350.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2351.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2352.             Text "Farbeneinsteller..."
  2353.             MenuFlags NONE 
  2354.             Highlight COMPLEMENT 
  2355.             ShortCutKey "+"
  2356.         EndScript
  2357.         Occurred
  2358.             If exists("sys:Tools/Colors")
  2359.                 Dos "Run >Nil: <Nil: Sys:Tools/Colors" ; Run the application
  2360.             ElseIf exists("sys:Prefs/Palette")
  2361.                 Dos "Run >Nil: <Nil: Sys:Prefs/Palette"
  2362.             Else
  2363.                 Let Error =askforResponse("Programm existiert nicht!","Textloader Fehler...","")
  2364.             EndIf
  2365.         EndScript
  2366.     EndObject
  2367.     TextMenu "HD-Toolbox..."
  2368.         Definition
  2369.             AttachTo MENU ," Workbench "
  2370.             Font "personal",8 ; FontName, PointSize
  2371.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2372.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2373.             Text "HD-Toolbox..."
  2374.             MenuFlags NONE 
  2375.             Highlight COMPLEMENT 
  2376.             ShortCutKey "%"
  2377.         EndScript
  2378.         Occurred
  2379.             Dos "Run >Nil: <Nil: Sys:Tools/HDToolbox" ; Run the application
  2380.         EndScript
  2381.     EndObject
  2382.     TextMenu "Cli-Fenster..."
  2383.         Definition
  2384.             AttachTo MENU ," Workbench "
  2385.             Font "personal",8 ; FontName, PointSize
  2386.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2387.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2388.             Text "Cli-Fenster..."
  2389.             MenuFlags NONE 
  2390.             Highlight COMPLEMENT 
  2391.             ShortCutKey "$"
  2392.         EndScript
  2393.         Occurred
  2394.             Dos "Run >Nil: <Nil: Sys:System/Cli" ; Run the application
  2395.         EndScript
  2396.     EndObject
  2397.     TextMenu "Trennstrich6"
  2398.         Definition
  2399.             AttachTo MENU ," Workbench "
  2400.             Font "personal",8 ; FontName, PointSize
  2401.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2402.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2403.             Text "-------------------------------"
  2404.             MenuFlags NONE 
  2405.             Highlight NONE 
  2406.             ShortCutKey ""
  2407.         EndScript
  2408.     EndObject
  2409.     TextMenu "MenuItem_4"
  2410.         Definition
  2411.             AttachTo MENU ," Workbench "
  2412.             Font "personal",8 ; FontName, PointSize
  2413.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2414.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2415.             Text "Multiview..."
  2416.             MenuFlags NONE 
  2417.             Highlight COMPLEMENT 
  2418.             ShortCutKey "0"
  2419.         EndScript
  2420.         Occurred
  2421.             Dos "Run >Nil: <Nil: Sys:Utilities/Multiview"
  2422.             If error
  2423.                 Do "Fehlerroutine"
  2424.             EndIf
  2425.         EndScript
  2426.     EndObject
  2427.     TextMenu "DruckerPrefs..."
  2428.         Definition
  2429.             AttachTo MENU ," Workbench "
  2430.             Font "personal",8 ; FontName, PointSize
  2431.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2432.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2433.             Text "DruckerPrefs..."
  2434.             MenuFlags NONE 
  2435.             Highlight COMPLEMENT 
  2436.             ShortCutKey "1"
  2437.         EndScript
  2438.         Occurred
  2439.             Dos "Run >Nil: <Nil: Sys:prefs/Printer" ; Run the application
  2440.         EndScript
  2441.     EndObject
  2442.     TextMenu "Zeiteinsteller..."
  2443.         Definition
  2444.             AttachTo MENU ," Workbench "
  2445.             Font "personal",8 ; FontName, PointSize
  2446.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2447.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2448.             Text "Zeiteinsteller..."
  2449.             MenuFlags NONE 
  2450.             Highlight COMPLEMENT 
  2451.             ShortCutKey "2"
  2452.         EndScript
  2453.         Occurred
  2454.             Dos "Run >Nil: <Nil: Sys:prefs/Time" ; Run the application
  2455.         EndScript
  2456.     EndObject
  2457.     TextMenu "Sprache(Locale)..."
  2458.         Definition
  2459.             AttachTo MENU ," Workbench "
  2460.             Font "personal",8 ; FontName, PointSize
  2461.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2462.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2463.             Text "Sprache(Locale)..."
  2464.             MenuFlags NONE 
  2465.             Highlight COMPLEMENT 
  2466.             ShortCutKey "3"
  2467.         EndScript
  2468.         Occurred
  2469.             Dos "Run >Nil: <Nil: Sys:prefs/Locale" ; Run the application
  2470.         EndScript
  2471.     EndObject
  2472.     TextMenu "Screenmodeprefs..."
  2473.         Definition
  2474.             AttachTo MENU ," Workbench "
  2475.             Font "personal",8 ; FontName, PointSize
  2476.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2477.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2478.             Text "Screenmodeprefs..."
  2479.             MenuFlags NONE 
  2480.             Highlight COMPLEMENT 
  2481.             ShortCutKey "4"
  2482.         EndScript
  2483.         Occurred
  2484.             Dos "Run >Nil: <Nil: Sys:Prefs/ScreenMode" ; Run the application
  2485.         EndScript
  2486.     EndObject
  2487.     TextMenu "PrinterGfx..."
  2488.         Definition
  2489.             AttachTo MENU ," Workbench "
  2490.             Font "personal",8 ; FontName, PointSize
  2491.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2492.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2493.             Text "PrinterGfx..."
  2494.             MenuFlags NONE 
  2495.             Highlight COMPLEMENT 
  2496.             ShortCutKey "5"
  2497.         EndScript
  2498.         Occurred
  2499.             Dos "Run >Nil: <Nil: Sys:prefs/PrinterGfx" ; Run the application
  2500.         EndScript
  2501.     EndObject
  2502.     TextMenu "Fonteinsteller..."
  2503.         Definition
  2504.             AttachTo MENU ," Workbench "
  2505.             Font "personal",8 ; FontName, PointSize
  2506.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2507.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2508.             Text "Fonteinsteller..."
  2509.             MenuFlags NONE 
  2510.             Highlight COMPLEMENT 
  2511.             ShortCutKey "6"
  2512.         EndScript
  2513.         Occurred
  2514.             Dos "Run >Nil: <Nil: Sys:prefs/Font" ; Run the application
  2515.         EndScript
  2516.     EndObject
  2517.     TextMenu "Workbench Screen nutzen"
  2518.         Definition
  2519.             AttachTo MENU ," PrefsTools "
  2520.             Font "personal",8 ; FontName, PointSize
  2521.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2522.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2523.             Text "Workbench Screen nutzen"
  2524.             MenuFlags NONE 
  2525.             Highlight COMPLEMENT 
  2526.             ShortCutKey ""
  2527.         EndScript
  2528.         Occurred
  2529.             GotoCard "Hauptfenster"
  2530.         EndScript
  2531.     EndObject
  2532.     TextMenu "Palette..."
  2533.         Definition
  2534.             AttachTo MENU ," PrefsTools "
  2535.             Font "personal",8 ; FontName, PointSize
  2536.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2537.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2538.             Text "Palette..."
  2539.             MenuFlags NONE 
  2540.             Highlight COMPLEMENT 
  2541.             ShortCutKey "X"
  2542.         EndScript
  2543.         Occurred
  2544.             OpenRequester "Palette","Palette"
  2545.         EndScript
  2546.     EndObject
  2547.     TextMenu "Speicher..."
  2548.         Definition
  2549.             AttachTo MENU ," PrefsTools "
  2550.             Font "personal",8 ; FontName, PointSize
  2551.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2552.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2553.             Text "Speicher..."
  2554.             MenuFlags NONE 
  2555.             Highlight COMPLEMENT 
  2556.             ShortCutKey "M"
  2557.         EndScript
  2558.         Occurred
  2559.             OpenRequester "Avail","Avail"
  2560.         EndScript
  2561.     EndObject
  2562.     IntervalTimer "TitelUhr"
  2563.         Definition
  2564.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  2565.         EndScript
  2566.         Occurred
  2567.             Do "TitelUhr"
  2568.         EndScript
  2569.     EndObject
  2570.     TextMenu "Sicherheitskopie anlegen (2)"
  2571.         Definition
  2572.             AttachTo OBJECT ,"Speichern, Backup           »"
  2573.             Font "personal",8 ; FontName, PointSize
  2574.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2575.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  2576.             Text "Sicherheitskopie anlegen (2)"
  2577.             MenuFlags NONE 
  2578.             Highlight COMPLEMENT 
  2579.             ShortCutKey ""
  2580.         EndScript
  2581.         Occurred
  2582.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (2)"
  2583.             SaveDocument "TheDoc","ram:2BackupTextloader",ASCII 
  2584.             IfError
  2585.                 Do "Fehlerroutine"
  2586.             EndIf
  2587.             Delay 0,3,1/50
  2588.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  2589.         EndScript
  2590.     EndObject
  2591.     TextMenu "Sicherheitskopie anlegen (3)"
  2592.         Definition
  2593.             AttachTo OBJECT ,"Speichern, Backup           »"
  2594.             Font "personal",8 ; FontName, PointSize
  2595.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2596.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  2597.             Text "Sicherheitskopie anlegen (3)"
  2598.             MenuFlags NONE 
  2599.             Highlight COMPLEMENT 
  2600.             ShortCutKey ""
  2601.         EndScript
  2602.         Occurred
  2603.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (3)"
  2604.             SaveDocument "TheDoc","ram:3BackupTextloader",ASCII 
  2605.             IfError
  2606.                 Do "Fehlerroutine"
  2607.             EndIf
  2608.             Delay 0,3,1/50
  2609.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  2610.         EndScript
  2611.     EndObject
  2612.     TextMenu "Sicherheitskopie anlegen (4)"
  2613.         Definition
  2614.             AttachTo OBJECT ,"Speichern, Backup           »"
  2615.             Font "personal",8 ; FontName, PointSize
  2616.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2617.             TextColors 3,1,NORMAL  ; PenA, PenB, DrawMode
  2618.             Text "Sicherheitskopie anlegen (4)"
  2619.             MenuFlags NONE 
  2620.             Highlight COMPLEMENT 
  2621.             ShortCutKey ""
  2622.         EndScript
  2623.         Occurred
  2624.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (4)"
  2625.             SaveDocument "TheDoc","ram:4BackupTextloader",ASCII 
  2626.             IfError
  2627.                 Do "Fehlerroutine"
  2628.             EndIf
  2629.             Delay 0,3,1/50
  2630.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  2631.         EndScript
  2632.     EndObject
  2633.     TextMenu "-------------------------"
  2634.         Definition
  2635.             AttachTo OBJECT ,"Speichern, Backup           »"
  2636.             Font "topaz",8 ; FontName, PointSize
  2637.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2638.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2639.             Text "-------------------------"
  2640.             MenuFlags NONE 
  2641.             Highlight NONE 
  2642.             ShortCutKey ""
  2643.         EndScript
  2644.     EndObject
  2645.     TextMenu "Sicherheitskopie einfügen (1)"
  2646.         Definition
  2647.             AttachTo OBJECT ,"Speichern, Backup           »"
  2648.             Font "personal",8 ; FontName, PointSize
  2649.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2650.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2651.             Text "Sicherheitskopie einfügen (1)"
  2652.             MenuFlags NONE 
  2653.             Highlight COMPLEMENT 
  2654.             ShortCutKey ""
  2655.         EndScript
  2656.         Occurred
  2657.             LoadDocument "ram:1BackupTextloader","TheDoc"
  2658.         EndScript
  2659.     EndObject
  2660.     TextMenu "Sicherheitskopie einfügen (2)"
  2661.         Definition
  2662.             AttachTo OBJECT ,"Speichern, Backup           »"
  2663.             Font "personal",8 ; FontName, PointSize
  2664.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2665.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2666.             Text "Sicherheitskopie einfügen (2)"
  2667.             MenuFlags NONE 
  2668.             Highlight COMPLEMENT 
  2669.             ShortCutKey ""
  2670.         EndScript
  2671.         Occurred
  2672.             LoadDocument "ram:2BackupTextloader","TheDoc"
  2673.         EndScript
  2674.     EndObject
  2675.     TextMenu "Sicherheitskopie einfügen (3)"
  2676.         Definition
  2677.             AttachTo OBJECT ,"Speichern, Backup           »"
  2678.             Font "personal",8 ; FontName, PointSize
  2679.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2680.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2681.             Text "Sicherheitskopie einfügen (3)"
  2682.             MenuFlags NONE 
  2683.             Highlight COMPLEMENT 
  2684.             ShortCutKey ""
  2685.         EndScript
  2686.         Occurred
  2687.             LoadDocument "ram:3BackupTextloader","TheDoc"
  2688.         EndScript
  2689.     EndObject
  2690.     TextMenu "Sicherheitskopie einfügen (4)"
  2691.         Definition
  2692.             AttachTo OBJECT ,"Speichern, Backup           »"
  2693.             Font "personal",8 ; FontName, PointSize
  2694.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2695.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2696.             Text "Sicherheitskopie einfügen (4)"
  2697.             MenuFlags NONE 
  2698.             Highlight COMPLEMENT 
  2699.             ShortCutKey ""
  2700.         EndScript
  2701.         Occurred
  2702.             LoadDocument "ram:4BackupTextloader","TheDoc"
  2703.         EndScript
  2704.     EndObject
  2705.     TextMenu "OnlineHelp..."
  2706.         Definition
  2707.             AttachTo MENU ," Help "
  2708.             Font "personal",8 ; FontName, PointSize
  2709.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2710.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2711.             Text "OnlineHelp..."
  2712.             MenuFlags NONE 
  2713.             Highlight COMPLEMENT 
  2714.             ShortCutKey "O"
  2715.         EndScript
  2716.         Occurred
  2717.             If EXISTS ("sys:Utilities/Amigaguide")
  2718.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  2719.             Else
  2720.                 If EXISTS ("sys:Utilities/Multiview")
  2721.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  2722.                 Else
  2723.                     If EXISTS ("sys:c/Amigaguide")
  2724.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  2725.                     Else
  2726.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  2727.                     EndIf
  2728.                 EndIf
  2729.             EndIf
  2730.         EndScript
  2731.     EndObject
  2732.     TextMenu "MenuItem_1"
  2733.         Definition
  2734.             AttachTo MENU ," Workbench "
  2735.             Font "personal",8 ; FontName, PointSize
  2736.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2737.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2738.             Text "Pointer..."
  2739.             MenuFlags NONE 
  2740.             Highlight COMPLEMENT 
  2741.             ShortCutKey "7"
  2742.         EndScript
  2743.         Occurred
  2744.             Dos "Run >Nil: <Nil: Sys:Prefs/Pointer" ; Run the application
  2745.         EndScript
  2746.     EndObject
  2747.     TextMenu "MenuItem_2"
  2748.         Definition
  2749.             AttachTo MENU ," Workbench "
  2750.             Font "personal",8 ; FontName, PointSize
  2751.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2752.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2753.             Text "Sound..."
  2754.             MenuFlags NONE 
  2755.             Highlight COMPLEMENT 
  2756.             ShortCutKey "8"
  2757.         EndScript
  2758.         Occurred
  2759.             Dos "Run >Nil: <Nil: Sys:Prefs/Sound" ; Run the application
  2760.         EndScript
  2761.     EndObject
  2762.     TextMenu "MenuItem3"
  2763.         Definition
  2764.             AttachTo MENU ," Workbench "
  2765.             Font "personal",8 ; FontName, PointSize
  2766.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2767.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2768.             Text "PrinterPostscript..."
  2769.             MenuFlags NONE 
  2770.             Highlight COMPLEMENT 
  2771.             ShortCutKey "9"
  2772.         EndScript
  2773.         Occurred
  2774.             Dos "Run >Nil: <Nil: Sys:Prefs/PrinterPS" ; Run the application
  2775.         EndScript
  2776.     EndObject
  2777.     TextMenu "Trennstrich?"
  2778.         Definition
  2779.             AttachTo MENU ," Workbench "
  2780.             Font "personal",8 ; FontName, PointSize
  2781.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2782.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  2783.             Text "-------------------------------"
  2784.             MenuFlags NONE 
  2785.             Highlight NONE 
  2786.             ShortCutKey ""
  2787.         EndScript
  2788.     EndObject
  2789.     AKey "KeyInput_1"
  2790.         Definition
  2791.             QualifiersPressed NONE 
  2792.             KeyPressed F7 
  2793.         EndScript
  2794.         OnDown
  2795.             Do "AusserFunktion"
  2796.         EndScript
  2797.     EndObject
  2798.     AKey "KeyInput_2"
  2799.         Definition
  2800.             QualifiersPressed NONE 
  2801.             KeyPressed F8 
  2802.         EndScript
  2803.         OnDown
  2804.             Do "AusserFunktion"
  2805.         EndScript
  2806.     EndObject
  2807.     AKey "KeyInput_3"
  2808.         Definition
  2809.             QualifiersPressed NONE 
  2810.             KeyPressed F9 
  2811.         EndScript
  2812.         OnDown
  2813.             Do "AusserFunktion"
  2814.         EndScript
  2815.     EndObject
  2816.     AKey "KeyInput_4"
  2817.         Definition
  2818.             QualifiersPressed NONE 
  2819.             KeyPressed F10 
  2820.         EndScript
  2821.         OnDown
  2822.             Do "AusserFunktion"
  2823.         EndScript
  2824.     EndObject
  2825.     TextMenu "NoFastMem"
  2826.         Definition
  2827.             AttachTo MENU ," Workbench "
  2828.             Font "personal",8 ; FontName, PointSize
  2829.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2830.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2831.             Text "NoFastMem"
  2832.             MenuFlags NONE 
  2833.             Highlight COMPLEMENT 
  2834.             ShortCutKey ""
  2835.         EndScript
  2836.         Occurred
  2837.             Dos "Run >Nil: <Nil: Sys:system/NoFastMem"
  2838.             If error
  2839.                 Do "Fehlerroutine"
  2840.             EndIf
  2841.         EndScript
  2842.     EndObject
  2843.     TextMenu "Rexxmast"
  2844.         Definition
  2845.             AttachTo MENU ," Workbench "
  2846.             Font "personal",8 ; FontName, PointSize
  2847.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2848.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  2849.             Text "Rexxmast"
  2850.             MenuFlags NONE 
  2851.             Highlight COMPLEMENT 
  2852.             ShortCutKey ""
  2853.         EndScript
  2854.         Occurred
  2855.             Dos "Run >Nil: <Nil: Sys:system/Rexxmast"
  2856.             If error
  2857.                 Do "Fehlerroutine"
  2858.             EndIf
  2859.         EndScript
  2860.     EndObject
  2861.     TextMenu "CursorPosition"
  2862.         Definition
  2863.             AttachTo MENU ," Statistik "
  2864.             Font "personal",8 ; FontName, PointSize
  2865.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2866.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2867.             Text "Zeichen Total..."
  2868.             MenuFlags NONE 
  2869.             Highlight COMPLEMENT 
  2870.             ShortCutKey ""
  2871.         EndScript
  2872.         Occurred
  2873.             Do "Timing"
  2874.         EndScript
  2875.     EndObject
  2876.     TextMenu "Copy_of_CursorPosition"
  2877.         Definition
  2878.             AttachTo MENU ," Statistik "
  2879.             Font "personal",8 ; FontName, PointSize
  2880.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2881.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2882.             Text "Cursor wo..."
  2883.             MenuFlags NONE 
  2884.             Highlight COMPLEMENT 
  2885.             ShortCutKey ""
  2886.         EndScript
  2887.         Occurred
  2888.             Do "Timing2"
  2889.         EndScript
  2890.     EndObject
  2891.     TextMenu "Copy_2_of_CursorPosition"
  2892.         Definition
  2893.             AttachTo MENU ," Statistik "
  2894.             Font "personal",8 ; FontName, PointSize
  2895.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2896.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2897.             Text "Cursor auf Feld..."
  2898.             MenuFlags NONE 
  2899.             Highlight COMPLEMENT 
  2900.             ShortCutKey ""
  2901.         EndScript
  2902.         Occurred
  2903.             Do "Timing3"
  2904.         EndScript
  2905.     EndObject
  2906.     TextMenu "Copy_3_of_CursorPosition"
  2907.         Definition
  2908.             AttachTo MENU ," Statistik "
  2909.             Font "personal",8 ; FontName, PointSize
  2910.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2911.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2912.             Text "Cursor auf Zeile..."
  2913.             MenuFlags NONE 
  2914.             Highlight COMPLEMENT 
  2915.             ShortCutKey ""
  2916.         EndScript
  2917.         Occurred
  2918.             Do "Timing4"
  2919.         EndScript
  2920.     EndObject
  2921.     TextMenu "Copy_4_of_CursorPosition"
  2922.         Definition
  2923.             AttachTo MENU ," Statistik "
  2924.             Font "personal",8 ; FontName, PointSize
  2925.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2926.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2927.             Text "Zeilen Total..."
  2928.             MenuFlags NONE 
  2929.             Highlight COMPLEMENT 
  2930.             ShortCutKey ""
  2931.         EndScript
  2932.         Occurred
  2933.             Do "Timing5"
  2934.         EndScript
  2935.     EndObject
  2936.     TextMenu "MenuItem_3"
  2937.         Definition
  2938.             AttachTo MENU ," Statistik "
  2939.             Font "personal",8 ; FontName, PointSize
  2940.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2941.             TextColors 4,2,JAM2  ; PenA, PenB, DrawMode
  2942.             Text "------------------------"
  2943.             MenuFlags NONE 
  2944.             Highlight NONE 
  2945.             ShortCutKey ""
  2946.         EndScript
  2947.     EndObject
  2948.     TextMenu "Copy_5_of_CursorPosition"
  2949.         Definition
  2950.             AttachTo MENU ," Statistik "
  2951.             Font "personal",8 ; FontName, PointSize
  2952.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2953.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2954.             Text "Verfügbarer Chip Ram..."
  2955.             MenuFlags NONE 
  2956.             Highlight COMPLEMENT 
  2957.             ShortCutKey ""
  2958.         EndScript
  2959.         Occurred
  2960.             Do "Timing6"
  2961.         EndScript
  2962.     EndObject
  2963.     TextMenu "Copy_6_of_CursorPosition"
  2964.         Definition
  2965.             AttachTo MENU ," Statistik "
  2966.             Font "personal",8 ; FontName, PointSize
  2967.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2968.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2969.             Text "Verfügbarer Fast Ram..."
  2970.             MenuFlags NONE 
  2971.             Highlight COMPLEMENT 
  2972.             ShortCutKey ""
  2973.         EndScript
  2974.         Occurred
  2975.             Do "Timing7"
  2976.         EndScript
  2977.     EndObject
  2978.     TextMenu "GesamtMemory"
  2979.         Definition
  2980.             AttachTo MENU ," Statistik "
  2981.             Font "personal",8 ; FontName, PointSize
  2982.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2983.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  2984.             Text "Total Ram..."
  2985.             MenuFlags NONE 
  2986.             Highlight COMPLEMENT 
  2987.             ShortCutKey ""
  2988.         EndScript
  2989.         Occurred
  2990.             Do "Timing9"
  2991.         EndScript
  2992.     EndObject
  2993.     TextMenu "Copy_of_MenuItem_3"
  2994.         Definition
  2995.             AttachTo MENU ," Statistik "
  2996.             Font "personal",8 ; FontName, PointSize
  2997.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  2998.             TextColors 4,2,JAM2  ; PenA, PenB, DrawMode
  2999.             Text "------------------------"
  3000.             MenuFlags NONE 
  3001.             Highlight NONE 
  3002.             ShortCutKey ""
  3003.         EndScript
  3004.     EndObject
  3005.     TextMenu "Copy_7_of_CursorPosition"
  3006.         Definition
  3007.             AttachTo MENU ," Statistik "
  3008.             Font "personal",8 ; FontName, PointSize
  3009.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3010.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3011.             Text "System Version..."
  3012.             MenuFlags NONE 
  3013.             Highlight COMPLEMENT 
  3014.             ShortCutKey ""
  3015.         EndScript
  3016.         Occurred
  3017.             Do "Timing8"
  3018.         EndScript
  3019.     EndObject
  3020.     TextMenu "Farbenwahl"
  3021.         Definition
  3022.             AttachTo MENU ," PrefsTools "
  3023.             Font "personal",8 ; FontName, PointSize
  3024.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3025.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3026.             Text "Farben wahl..."
  3027.             MenuFlags NONE 
  3028.             Highlight COMPLEMENT 
  3029.             ShortCutKey ""
  3030.         EndScript
  3031.     EndObject
  3032.     TextMenu "Wb"
  3033.         Definition
  3034.             AttachTo OBJECT ,"Farbenwahl"
  3035.             Font "personal",8 ; FontName, PointSize
  3036.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3037.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3038.             Text "Wb"
  3039.             MenuFlags CHECKABLE CHECKIT 
  3040.             Highlight COMPLEMENT 
  3041.             ShortCutKey ""
  3042.         EndScript
  3043.         Occurred
  3044.             SetObjectState "Wb",true
  3045.             SetObjectState "WBold",false
  3046.             SetObjectState "Violetexotic",false
  3047.             SetObjectState "blacky",false
  3048.             SetObjectState "banana",false
  3049.             SetObjectState "PescaFruit",false
  3050.             SetObjectState "GreenApple",false
  3051.             SetObjectState "SpacyTint",false
  3052.             SetRGB 0,170,170,170
  3053.             SetRGB 1,0,0,17
  3054.             SetRGB 2,255,255,255
  3055.             SetRGB 3,102,136,187
  3056.         EndScript
  3057.     EndObject
  3058.     TextMenu "WBold"
  3059.         Definition
  3060.             AttachTo OBJECT ,"Farbenwahl"
  3061.             Font "personal",8 ; FontName, PointSize
  3062.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3063.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3064.             Text "WBold"
  3065.             MenuFlags CHECKABLE 
  3066.             Highlight COMPLEMENT 
  3067.             ShortCutKey ""
  3068.         EndScript
  3069.         Occurred
  3070.             SetObjectState "Wb",false
  3071.             SetObjectState "WBold",true
  3072.             SetObjectState "Violetexotic",false
  3073.             SetObjectState "blacky",false
  3074.             SetObjectState "banana",false
  3075.             SetObjectState "PescaFruit",false
  3076.             SetObjectState "GreenApple",false
  3077.             SetObjectState "SpacyTint",false
  3078.             SetRGB 0,0,85,170
  3079.             SetRGB 1,255,255,255
  3080.             SetRGB 2,0,0,34
  3081.             SetRGB 3,255,136,0
  3082.         EndScript
  3083.     EndObject
  3084.     TextMenu "Violetexotic"
  3085.         Definition
  3086.             AttachTo OBJECT ,"Farbenwahl"
  3087.             Font "personal",8 ; FontName, PointSize
  3088.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3089.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3090.             Text "Violett exotic"
  3091.             MenuFlags CHECKABLE 
  3092.             Highlight COMPLEMENT 
  3093.             ShortCutKey ""
  3094.         EndScript
  3095.         Occurred
  3096.             SetObjectState "Wb",false
  3097.             SetObjectState "WBold",false
  3098.             SetObjectState "Violetexotic",true
  3099.             SetObjectState "blacky",false
  3100.             SetObjectState "banana",false
  3101.             SetObjectState "PescaFruit",false
  3102.             SetObjectState "GreenApple",false
  3103.             SetObjectState "SpacyTint",false
  3104.             SetRGB 0,187,187,187
  3105.             SetRGB 1,0,0,0
  3106.             SetRGB 2,255,255,255
  3107.             SetRGB 3,204,0,153
  3108.         EndScript
  3109.     EndObject
  3110.     TextMenu "blacky"
  3111.         Definition
  3112.             AttachTo OBJECT ,"Farbenwahl"
  3113.             Font "personal",8 ; FontName, PointSize
  3114.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3115.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3116.             Text "blacky bounce"
  3117.             MenuFlags CHECKABLE 
  3118.             Highlight COMPLEMENT 
  3119.             ShortCutKey ""
  3120.         EndScript
  3121.         Occurred
  3122.             SetObjectState "Wb",false
  3123.             SetObjectState "WBold",false
  3124.             SetObjectState "Violetexotic",false
  3125.             SetObjectState "blacky",true
  3126.             SetObjectState "banana",false
  3127.             SetObjectState "PescaFruit",false
  3128.             SetObjectState "GreenApple",false
  3129.             SetObjectState "SpacyTint",false
  3130.             SetRGB 0,0,0,0
  3131.             SetRGB 1,255,255,255
  3132.             SetRGB 2,85,170,170
  3133.             SetRGB 3,204,51,85
  3134.         EndScript
  3135.     EndObject
  3136.     TextMenu "Banana"
  3137.         Definition
  3138.             AttachTo OBJECT ,"Farbenwahl"
  3139.             Font "personal",8 ; FontName, PointSize
  3140.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3141.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3142.             Text "Banana split"
  3143.             MenuFlags CHECKABLE 
  3144.             Highlight COMPLEMENT 
  3145.             ShortCutKey ""
  3146.         EndScript
  3147.         Occurred
  3148.             SetObjectState "Wb",false
  3149.             SetObjectState "WBold",false
  3150.             SetObjectState "Violetexotic",false
  3151.             SetObjectState "blacky",false
  3152.             SetObjectState "banana",true
  3153.             SetObjectState "PescaFruit",false
  3154.             SetObjectState "GreenApple",false
  3155.             SetObjectState "SpacyTint",false
  3156.             SetRGB 0,170,170,170
  3157.             SetRGB 1,0,0,0
  3158.             SetRGB 2,187,85,17
  3159.             SetRGB 3,221,221,0
  3160.         EndScript
  3161.     EndObject
  3162.     TextMenu "Pescafruit"
  3163.         Definition
  3164.             AttachTo OBJECT ,"Farbenwahl"
  3165.             Font "personal",8 ; FontName, PointSize
  3166.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3167.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3168.             Text "Pescafruit"
  3169.             MenuFlags CHECKABLE 
  3170.             Highlight COMPLEMENT 
  3171.             ShortCutKey ""
  3172.         EndScript
  3173.         Occurred
  3174.             SetObjectState "Wb",false
  3175.             SetObjectState "WBold",false
  3176.             SetObjectState "Violetexotic",false
  3177.             SetObjectState "blacky",false
  3178.             SetObjectState "banana",false
  3179.             SetObjectState "PescaFruit",true
  3180.             SetObjectState "GreenApple",false
  3181.             SetObjectState "SpacyTint",false
  3182.             SetRGB 0,170,170,170
  3183.             SetRGB 1,0,0,0
  3184.             SetRGB 2,255,17,68
  3185.             SetRGB 3,238,136,0
  3186.         EndScript
  3187.     EndObject
  3188.     TextMenu "GreenApple"
  3189.         Definition
  3190.             AttachTo OBJECT ,"Farbenwahl"
  3191.             Font "personal",8 ; FontName, PointSize
  3192.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3193.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3194.             Text "GreenApple"
  3195.             MenuFlags CHECKABLE 
  3196.             Highlight COMPLEMENT 
  3197.             ShortCutKey ""
  3198.         EndScript
  3199.         Occurred
  3200.             SetObjectState "Wb",false
  3201.             SetObjectState "WBold",false
  3202.             SetObjectState "Violetexotic",false
  3203.             SetObjectState "blacky",false
  3204.             SetObjectState "banana",false
  3205.             SetObjectState "PescaFruit",false
  3206.             SetObjectState "GreenApple",true
  3207.             SetObjectState "SpacyTint",false
  3208.             SetRGB 0,153,153,153
  3209.             SetRGB 1,0,0,0
  3210.             SetRGB 2,238,170,51
  3211.             SetRGB 3,0,136,0
  3212.         EndScript
  3213.     EndObject
  3214.     TextMenu "Spacytint"
  3215.         Definition
  3216.             AttachTo OBJECT ,"Farbenwahl"
  3217.             Font "personal",8 ; FontName, PointSize
  3218.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3219.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3220.             Text "Spacytint"
  3221.             MenuFlags CHECKABLE 
  3222.             Highlight COMPLEMENT 
  3223.             ShortCutKey ""
  3224.         EndScript
  3225.         Occurred
  3226.             SetObjectState "Wb",false
  3227.             SetObjectState "WBold",false
  3228.             SetObjectState "Violetexotic",false
  3229.             SetObjectState "blacky",false
  3230.             SetObjectState "banana",false
  3231.             SetObjectState "PescaFruit",false
  3232.             SetObjectState "GreenApple",false
  3233.             SetObjectState "SpacyTint",true
  3234.             SetRGB 0,255,255,255
  3235.             SetRGB 1,238,0,187
  3236.             SetRGB 2,0,0,0
  3237.             SetRGB 3,17,204,102
  3238.         EndScript
  3239.     EndObject
  3240.     AKey "OnlineHelp"
  3241.         Definition
  3242.             QualifiersPressed NONE 
  3243.             KeyPressed HELP 
  3244.         EndScript
  3245.         OnDown
  3246.             If EXISTS ("sys:Utilities/Amigaguide")
  3247.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  3248.             Else
  3249.                 If EXISTS ("sys:Utilities/Multiview")
  3250.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  3251.                 Else
  3252.                     If EXISTS ("sys:c/Amigaguide")
  3253.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  3254.                     Else
  3255.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  3256.                     EndIf
  3257.                 EndIf
  3258.             EndIf
  3259.         EndScript
  3260.     EndObject
  3261. * End of Card "Hauptfenster2"
  3262. *************
  3263.  
  3264. *************
  3265. * Card "Systeminfos..."
  3266.     AfterAttachment ; used to be AfterStartup
  3267.         SetDrawMode JAM1 
  3268.         SetPen 1
  3269.         AreaRectangle 128,25,412,96
  3270.         SetPen 2
  3271.         LoadBrush "CanDo(PascalSAVEDISK)3:Textloader3/Textloader.brush","ClippedBrush"
  3272.         Transparent FALSE
  3273.         ShowBrush "ClippedBrush",181,143
  3274.         Transparent FALSE
  3275.         ShowBrush "ClippedBrush",156,142
  3276.         Do "SysInfoUpdates"
  3277.         SetDrawMode JAM1 
  3278.         SetPen 1
  3279.         DrawRectangle 194,189,257,44
  3280.         SetPen 2
  3281.         DrawLine 450,189,450,232
  3282.         DrawLine 450,232,195,232
  3283.         SetPen 2,1
  3284.         PrintText "Author: Gisin Pascal, Fiechtenweg 11, CH - 4147 Aesch",110,133
  3285.         SetDrawMode JAM1 
  3286.         SetPen 1
  3287.         DrawRectangle 99,129,474,16
  3288.         SetPen 2
  3289.         DrawLine 572,129,572,144
  3290.         DrawLine 99,144,573,144
  3291.     EndScript
  3292.     Window "UserWindow"
  3293.         Definition
  3294.             Origin 0,0
  3295.             Size 640,256
  3296.             Title "System-Infobar des Textloaders"
  3297.             NumberOfColors 4
  3298.             WindowColors 0,1,0 ; Detail, Block, Background
  3299.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  3300.             WindowFlags ACTIVATE TOFRONT 
  3301.         EndScript
  3302.         OnCloseButton
  3303.             LoadSubDeck "SimpleReq","SimpleReq"
  3304.             OpenRequester "SimpleReq","JaNein","Ende","Textloader Meldung..."," ","Möchten Sie WIRKLICH","jetzt, den Textloader beenden?"," "
  3305.         EndScript
  3306.         OnActivated
  3307.             Nop
  3308.         EndScript
  3309.     EndObject
  3310.     TextButton "Zurück..."
  3311.         Definition
  3312.             Origin 238,196
  3313.             Font "topaz",8 ; FontName, PointSize
  3314.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3315.             TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
  3316.             Text "Zum Editorfenster..."
  3317.             Border EMBOSSED ,2,1 ; BorderStyle, MainPen, ExtraPen
  3318.             Highlight COMPLEMENT 
  3319.             ButtonFlags NONE 
  3320.         EndScript
  3321.         OnRelease
  3322.             GotoCard "Hauptfenster"
  3323.         EndScript
  3324.     EndObject
  3325.     TextButton "Programm beenden"
  3326.         Definition
  3327.             Origin 257,215
  3328.             Font "topaz",8 ; FontName, PointSize
  3329.             PrintStyle BOLD SHADOW ,2,3 ; Style, Pen1, Pen2
  3330.             TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
  3331.             Text "Programm beenden"
  3332.             Border EMBOSSED ,2,1 ; BorderStyle, MainPen, ExtraPen
  3333.             Highlight COMPLEMENT 
  3334.             ButtonFlags NONE 
  3335.         EndScript
  3336.         OnRelease
  3337.             Quit
  3338.         EndScript
  3339.     EndObject
  3340.     IntervalTimer "Timer_1"
  3341.         Definition
  3342.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  3343.         EndScript
  3344.         Occurred
  3345.             Do "SysInfoUpdates"
  3346.         EndScript
  3347.     EndObject
  3348.     IntervalTimer "Timer_2"
  3349.         Definition
  3350.             Duration 0,0,0 ; Minutes, Seconds, Jiffies
  3351.         EndScript
  3352.         Occurred
  3353.             Do "SysInfoUpdates2"
  3354.         EndScript
  3355.     EndObject
  3356.     TextMenu "Infos..."
  3357.         Definition
  3358.             AttachTo MENU ,"Menü"
  3359.             Font "topaz",8 ; FontName, PointSize
  3360.             PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
  3361.             TextColors 0,1,NORMAL  ; PenA, PenB, DrawMode
  3362.             Text "Infos..."
  3363.             MenuFlags NONE 
  3364.             Highlight COMPLEMENT 
  3365.             ShortCutKey ""
  3366.         EndScript
  3367.         Occurred
  3368.             Let Info = AskForResponse("Die empfohlene Konfiguration ist:"||Char(10)||"OS3.1, 2mb-ChipRAM und FastRAM!"||Char(10)||"Programmiert mit CanDo 2.01 und 2.51!"||Char(10)||" "||Char(10)||"    Textloader is a fine Product!","Textloader Infos...","")
  3369.         EndScript
  3370.     EndObject
  3371. * End of Card "Systeminfos..."
  3372. *************
  3373.  
  3374. *************
  3375. * Global routine "AusserFunktion"
  3376.     OpenRequester "SimpleReq","Kommentar","","Textloader Mitteilung","Taste/Option zurzeit keine","Funktion zugeordnet!"
  3377. * End of routine "AusserFunktion"
  3378. *************
  3379.  
  3380. *************
  3381. * Global routine "Beep"
  3382.     GetRGB 0,R0,G0,B0
  3383.     GetRGB 3,R3,G3,B3
  3384.     SetRGB 0,R3,G3,B3
  3385.     Delay 0,0,5
  3386.     SetRGB 0,R0,G0,B0
  3387. * End of routine "Beep"
  3388. *************
  3389.  
  3390. *************
  3391. * Global routine "Drucken"
  3392.     If Arg1 = FALSE
  3393.     Else
  3394.         SetWindowTitle "Drucke Dokument..."
  3395.         SaveDocument "TheDoc","PRT:"
  3396.         IfError
  3397.             Do "FehlerRoutine"
  3398.         EndIf
  3399.     EndIf
  3400. * End of routine "Drucken"
  3401. *************
  3402.  
  3403. *************
  3404. * Global routine "Einfügen"
  3405.     OpenRequester "DateiReq","Card_1","EinfügenDATA","Wähle einen Text zum einfügen..."
  3406.     IfError
  3407.         Do "Fehlerroutine"
  3408.     EndIf
  3409. * End of routine "Einfügen"
  3410. *************
  3411.  
  3412. *************
  3413. * Global routine "EinfügenDATA"
  3414.     Let Newfile = Arg1
  3415.     If newfile<>nothing
  3416.         If Not Match(FileType(newfile),"Unknown","FTXT")
  3417.             SetWindowTitle "Kann File nicht Laden """||newfile||""""
  3418.         Else
  3419.             SetWindowTitle "Lade einzufügender Text....."
  3420.             InsertDocument newfile,"TheDoc"
  3421.             IfError
  3422.                 Do "Fehlerroutine"
  3423.             Else
  3424.                 Let FileToGet=newfile
  3425.                 SetWindowTitle "FileName :"""||FileToGet||""""
  3426.             EndIf
  3427.         EndIf
  3428.     EndIf
  3429. * End of routine "EinfügenDATA"
  3430. *************
  3431.  
  3432. *************
  3433. * Global routine "Ende"
  3434.     If Arg1 = FALSE
  3435.         Quit
  3436.     Else
  3437.         Do "SichernVorBeenden"
  3438.         IfError
  3439.             Do "Fehlerroutine"
  3440.         EndIf
  3441.     EndIf
  3442. * End of routine "Ende"
  3443. *************
  3444.  
  3445. *************
  3446. * Global routine "Ende2"
  3447.     If Arg1 = FALSE
  3448.     Else
  3449.         Flush "Document_1"
  3450.         Quit
  3451.     EndIf
  3452. * End of routine "Ende2"
  3453. *************
  3454.  
  3455. *************
  3456. * Global routine "EndeCloseknopf"
  3457.     If Arg1 = FALSE
  3458.     Else
  3459.         Quit
  3460.         IfError
  3461.             Do "Fehlerroutine"
  3462.         EndIf
  3463.     EndIf
  3464. * End of routine "EndeCloseknopf"
  3465. *************
  3466.  
  3467. *************
  3468. * Global routine "FehlerRoutine"
  3469.     Nop ; $VER: Textloader-Editor 6.x (20.12.1997) Pascal Gisin, Fiechtenweg 11, CH - 4147 Aesch
  3470.     Nop ;
  3471.     Nop ; ErrorCodes und Weiterentwicklung Pascal Gisin 1997-98 V6.0
  3472.     Do "Beep"
  3473.     If ErrorCode = "1"
  3474.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannten Puffer nicht gefunden"
  3475.     ElseIf ErrorCode = "2"
  3476.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannte Routine nicht gefunden"
  3477.     ElseIf ErrorCode = "3"
  3478.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannter Puffer nicht vom","erforderlichen Typ"
  3479.     ElseIf ErrorCode = "4"
  3480.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kein Fenster geöffnet"
  3481.     ElseIf ErrorCode = "6"
  3482.         OpenRequester "SimpleReq","Kommentar","","Meldung","Card nicht gefunden"
  3483.     ElseIf ErrorCode = "8"
  3484.         OpenRequester "SimpleReq","Kommentar","","Meldung","Stack überlaufen"
  3485.     ElseIf ErrorCode = "9"
  3486.         OpenRequester "SimpleReq","Kommentar","","Meldung","Name wertet einen NULL String aus"
  3487.     ElseIf ErrorCode = "10"
  3488.         OpenRequester "SimpleReq","Kommentar","","Meldung","Brush wurde nicht mit Maske","gespeichert"
  3489.     ElseIf ErrorCode = "11"
  3490.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zuviele IFs"
  3491.     ElseIf ErrorCode = "13"
  3492.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine ARexx Nachricht anhängig","oder RESULTS Flage nicht gesetzt"
  3493.     ElseIf ErrorCode = "16"
  3494.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht gefunden"
  3495.     ElseIf ErrorCode = "17"
  3496.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht vom","erforderlichen","Typ"
  3497.     ElseIf ErrorCode = "18"
  3498.         OpenRequester "SimpleReq","Kommentar","","Meldung","Befehl im aktuellen Modus","nicht verfügbar"
  3499.     ElseIf ErrorCode = "19"
  3500.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht zugeteilt"
  3501.     ElseIf ErrorCode = "22"
  3502.         OpenRequester "SimpleReq","Kommentar","","Meldung","Puffer ist im Gebrauch"
  3503.     ElseIf ErrorCode = "23"
  3504.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kein Dokument gewählt"
  3505.     ElseIf ErrorCode = "25"
  3506.         OpenRequester "SimpleReq","Kommentar","","Meldung","Nicht genug Daten"
  3507.     ElseIf ErrorCode = "32"
  3508.         OpenRequester "SimpleReq","Kommentar","","Meldung","Dokumenten Zeile zu lang"
  3509.     ElseIf ErrorCode = "33"
  3510.         OpenRequester "SimpleReq","Kommentar","","Meldung","Externe STOP Nachricht erhalten"
  3511.     ElseIf ErrorCode = "41"
  3512.         OpenRequester "SimpleReq","Kommentar","","Meldung","Druckvorgang wurde durch den","benutzer Abgebrochen!"
  3513.     ElseIf ErrorCode = "51"
  3514.         OpenRequester "SimpleReq","Kommentar","","Meldung","Interner Fehler"
  3515.     ElseIf ErrorCode = "52"
  3516.         OpenRequester "SimpleReq","Kommentar","","Meldung","Deplazierter Operator"
  3517.     ElseIf ErrorCode = "53"
  3518.         OpenRequester "SimpleReq","Kommentar","","Meldung","Division durch NULL"
  3519.     ElseIf ErrorCode = "54"
  3520.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unpassende Klammern"
  3521.     ElseIf ErrorCode = "55"
  3522.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ausdruck ist zu kompliziert"
  3523.     ElseIf ErrorCode = "56"
  3524.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Ausdruck"
  3525.     ElseIf ErrorCode = "57"
  3526.         OpenRequester "SimpleReq","Kommentar","","Meldung","Operation mit verschiedenen","Datentypen"
  3527.     ElseIf ErrorCode = "58"
  3528.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Operation für","Datentyp"
  3529.     ElseIf ErrorCode = "59"
  3530.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falscher Datentyp"
  3531.     ElseIf ErrorCode = "60"
  3532.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Variablen Bezeichnung"
  3533.     ElseIf ErrorCode = "61"
  3534.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige String Konstante"
  3535.     ElseIf ErrorCode = "78"
  3536.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter Befehl"
  3537.     ElseIf ErrorCode = "79"
  3538.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zuviele Parameter"
  3539.     ElseIf ErrorCode = "80"
  3540.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zu wenig Parameter"
  3541.     ElseIf ErrorCode = "81"
  3542.         OpenRequester "SimpleReq","Kommentar","","Meldung","Font nicht verfügbar"
  3543.     ElseIf ErrorCode = "82"
  3544.         OpenRequester "SimpleReq","Kommentar","","Meldung","Syntax Fehler"
  3545.     ElseIf ErrorCode = "83"
  3546.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verfrühtes EOF"
  3547.     ElseIf ErrorCode = "84"
  3548.         OpenRequester "SimpleReq","Kommentar","","Meldung","Port des Empfängers nicht","gefunden"
  3549.     ElseIf ErrorCode = "85"
  3550.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter IFF FORM Typ"
  3551.     ElseIf ErrorCode = "89"
  3552.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler beim öffnen des","Bildschirms"
  3553.     ElseIf ErrorCode = "90"
  3554.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler beim öffnen des","Fensters"
  3555.     ElseIf ErrorCode = "91"
  3556.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiges Muster (Pattern)"
  3557.     ElseIf ErrorCode = "103"
  3558.         OpenRequester "SimpleReq","Kommentar","","Meldung","Nicht genug Speicher"
  3559.     ElseIf ErrorCode = "115"
  3560.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Zahlenwert"
  3561.     ElseIf ErrorCode = "116"
  3562.         OpenRequester "SimpleReq","Kommentar","","Meldung","Gefordertes Argument fehlt"
  3563.     ElseIf ErrorCode = "117"
  3564.         OpenRequester "SimpleReq","Kommentar","","Meldung","Argument nach Schlüsselwort","fehlt!"
  3565.     ElseIf ErrorCode = "118"
  3566.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falsche Anzahl an Argumenten"
  3567.     ElseIf ErrorCode = "119"
  3568.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungerade Anzahl von Anführungs-","zeichen"
  3569.     ElseIf ErrorCode = "120"
  3570.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Argumente"
  3571.     ElseIf ErrorCode = "121"
  3572.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist nicht ausführbar"
  3573.     ElseIf ErrorCode = "202"
  3574.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt im Gebrauch"
  3575.     ElseIf ErrorCode = "203"
  3576.         OpenRequester "SimpleReq","Kommentar","","Meldung","Obejekt existiert bereits"
  3577.     ElseIf ErrorCode = "204"
  3578.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verzeichnis nicht gefunden"
  3579.     ElseIf ErrorCode = "205"
  3580.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt nicht gefunden"
  3581.     ElseIf ErrorCode = "206"
  3582.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Fensterparameter"
  3583.     ElseIf ErrorCode = "209"
  3584.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter DOS Packet-","Request-Typ"
  3585.     ElseIf ErrorCode = "210"
  3586.         OpenRequester "SimpleReq","Kommentar","","Meldung","Dateiname ist nicht bekannt!","Bitte geben Sie den genauen","Filepfad ein!"
  3587.     ElseIf ErrorCode = "212"
  3588.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falscher Dateityp"
  3589.     ElseIf ErrorCode = "213"
  3590.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist nicht gültig","vielleicht fehlerhaft...","oder anderer Dos Typ!"
  3591.     ElseIf ErrorCode = "214"
  3592.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist schreibgeschützt"
  3593.     ElseIf ErrorCode = "215"
  3594.         OpenRequester "SimpleReq","Kommentar","","Meldung","Umbenennen auf anderen","Datenträger versucht"
  3595.     ElseIf ErrorCode = "216"
  3596.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verzeichnis ist nicht leer"
  3597.     ElseIf ErrorCode = "217"
  3598.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zu tiefe Schachtelung"
  3599.     ElseIf ErrorCode = "218"
  3600.         OpenRequester "SimpleReq","Kommentar","","Meldung","Device nicht angemeldet","(mounted)"
  3601.     ElseIf ErrorCode = "219"
  3602.         OpenRequester "SimpleReq","Kommentar","","Meldung","Suchfehler"
  3603.     ElseIf ErrorCode = "220"
  3604.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kommentar ist zu lang"
  3605.     ElseIf ErrorCode = "221"
  3606.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist voll"
  3607.     ElseIf ErrorCode = "222"
  3608.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist löschgeschützt"
  3609.     ElseIf ErrorCode = "223"
  3610.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist schreibgeschützt"
  3611.     ElseIf ErrorCode = "224"
  3612.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist lesegeschützt"
  3613.     ElseIf ErrorCode = "225"
  3614.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine DOS Diskette"
  3615.     ElseIf ErrorCode = "226"
  3616.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine Disk eingelegt"
  3617.     ElseIf ErrorCode = "232"
  3618.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine weiteren Verzeichnis-","einträge"
  3619.     ElseIf ErrorCode = "233"
  3620.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt im Verbund"
  3621.     ElseIf ErrorCode = "235"
  3622.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Hunk in zu","ladender Datei"
  3623.     ElseIf ErrorCode = "241"
  3624.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kollision bei Datensatz-","sperre"
  3625.     ElseIf ErrorCode = "242"
  3626.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zeitüberschreitung bei","Datensatzsperre"
  3627.     ElseIf ErrorCode = "303"
  3628.         OpenRequester "SimpleReq","Kommentar","","Meldung","Pufferüberlauf"
  3629.     ElseIf ErrorCode = "304"
  3630.         OpenRequester "SimpleReq","Kommentar","","Meldung","Abbruch wurde eingeleitet","mit CTRL-C"
  3631.     ElseIf ErrorCode = "305"
  3632.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist nicht ausführbar"
  3633.     Else
  3634.         OpenRequester "SimpleReq","Kommentar","","Fehlermeldung",ErrorText
  3635.     EndIf
  3636. * End of routine "FehlerRoutine"
  3637. *************
  3638.  
  3639. *************
  3640. * Global routine "Löschen"
  3641.     If Arg1 = FALSE
  3642.     Else
  3643.         WorkWithDocument "TheDoc"
  3644.         Clear DOCUMENT 
  3645.     EndIf
  3646. * End of routine "Löschen"
  3647. *************
  3648.  
  3649. *************
  3650. * Global routine "Message"
  3651.     Do "SetzeAttr"
  3652.     PrintText CenterString(Arg1,43),12,15
  3653.     PrintText CenterString(Arg2,43),12,25
  3654.     PrintText CenterString(Arg3,43),12,35
  3655.     PrintText CenterString(Arg4,43),12,45
  3656. * End of routine "Message"
  3657. *************
  3658.  
  3659. *************
  3660. * Global routine "S"
  3661.     OpenRequester "SuchReq","Card_1","Suchen"
  3662. * End of routine "S"
  3663. *************
  3664.  
  3665. *************
  3666. * Global routine "SetzeAttr"
  3667.     SetPrintFont "topaz",8
  3668.     SetPrintStyle PLAIN ,2,3
  3669.     SetPen 1,0
  3670.     SetDrawMode JAM2 
  3671. * End of routine "SetzeAttr"
  3672. *************
  3673.  
  3674. *************
  3675. * Global routine "SF"
  3676.     WorkWithDocument "TheDoc"
  3677.     If MyByword=TRUE AND MyNocase=TRUE
  3678.         SearchFor Suchwort,BYWORD NOCASE 
  3679.     ElseIf MyByword=FALSE AND MyNocase=FALSE
  3680.         SearchFor Suchwort
  3681.     ElseIf MyByword=TRUE AND MyNocase=FALSE
  3682.         SearchFor Suchwort,BYWORD 
  3683.     ElseIf MyByword=FALSE AND MyNocase=TRUE
  3684.         SearchFor Suchwort,NOCASE 
  3685.     EndIf
  3686.     If SearchFound=TRUE
  3687.         SetWindowTitle "Suchwort:"|||Suchwort||"  "||"Zeile:"||TheLineNumber|||"Spalte:"||TheColumnNumber
  3688.     Else
  3689.         Do "Beep"
  3690.         SetWindowTitle "Kann """||Suchwort||""" nicht (mehr) finden !"
  3691.     EndIf
  3692. * End of routine "SF"
  3693. *************
  3694.  
  3695. *************
  3696. * Global routine "Sicherheitsabfrage"
  3697.     Nop
  3698. * End of routine "Sicherheitsabfrage"
  3699. *************
  3700.  
  3701. *************
  3702. * Global routine "SichernVorBeenden"
  3703.     SetFileRequestMode SAVEFILEMODE ,NONE 
  3704.     Let Arg1=AskForFilename("","Text noch schnell sichern...","155","39","340","180")
  3705.     Let Antwort = Arg1
  3706.     If Antwort <> ""
  3707.         Let Dateispeichername = Antwort
  3708.         SetWindowTitle "Speichere nun im ASCII Format!"
  3709.         SaveDocument "TheDoc",Dateispeichername,ASCII 
  3710.         IfError
  3711.             Do "Fehlerroutine"
  3712.         EndIf
  3713.     EndIf
  3714.     SetWindowTitle "Bis zum nächsten mal, tschüss!"
  3715.     Delay 0,5,1/50
  3716.     Quit
  3717. * End of routine "SichernVorBeenden"
  3718. *************
  3719.  
  3720. *************
  3721. * Global routine "Suchen"
  3722.     Let Suchwort=Arg1
  3723.     Let MyByword=Arg2
  3724.     Let MyNocase=Arg3
  3725.     WorkWithDocument "TheDoc"
  3726.     If MyByword=TRUE AND MyNocase=TRUE
  3727.         SearchFor Suchwort,BYWORD NOCASE 
  3728.     ElseIf MyByword=FALSE AND MyNocase=FALSE
  3729.         SearchFor Suchwort
  3730.     ElseIf MyByword=TRUE AND MyNocase=FALSE
  3731.         SearchFor Suchwort,BYWORD 
  3732.     ElseIf MyByword=FALSE AND MyNocase=TRUE
  3733.         SearchFor Suchwort,NOCASE 
  3734.     EndIf
  3735.     If SearchFound=TRUE
  3736.         SetWindowTitle "Suchwort:"|||Suchwort||"  "||"Zeile:"||TheLineNumber|||"Spalte:"||TheColumnNumber
  3737.     Else
  3738.         Do "Beep"
  3739.         SetWindowTitle "Kann """||Suchwort||""" nicht (mehr) finden !"
  3740.     EndIf
  3741. * End of routine "Suchen"
  3742. *************
  3743.  
  3744. *************
  3745. * Global routine "SysInfoUpdates"
  3746.     MakeDocument "ChangeDateFormat"
  3747.     Type ""||TheDate
  3748.     MoveCursorTo STARTOF DOCUMENT 
  3749.     MoveCursorTo STARTOF LINE 
  3750.     MoveCursor RIGHT ,3
  3751.     SplitLine
  3752.     MoveCursor RIGHT ,3
  3753.     SplitLine
  3754.     PositionOnLine 1
  3755.     Let Monat = TheLine
  3756.     PositionOnLine 2
  3757.     Let Tag = TheLine
  3758.     PositionOnLine 3
  3759.     Let Jahr = TheLine
  3760.     MakeDocument "DisplayChange"
  3761.     Type ""||Tag||Monat||Jahr
  3762.     Let Datum = TextFromDocument("DisplayChange")
  3763.     Do "SetzeAttr"
  3764.     SetPen 2,1
  3765.     PrintText "Heutiges Datum          :  """||Datum||"""",147,89
  3766.     PrintText "Aktuelle Uhrzeit        :  """||TheTime||"""",147,99
  3767. * End of routine "SysInfoUpdates"
  3768. *************
  3769.  
  3770. *************
  3771. * Global routine "SysInfoUpdates2"
  3772.     Do "SetzeAttr"
  3773.     SetPen 2,1
  3774.     PrintText "Verfügbarer (Chip) Ram  :  """||AvailableChipMemory||"""",147,29
  3775.     PrintText "Verfügbarer (Fast) Ram  :  """||AvailableFastMemory||"""",147,39
  3776.     PrintText "Chip+Fast (GesamtMem)   :  """||AvailableMemory||"""",147,59
  3777.     PrintText "Betriebssystem, Test... :  Revision """||IntuitionVersion||"""",147,79
  3778. * End of routine "SysInfoUpdates2"
  3779. *************
  3780.  
  3781. *************
  3782. * Global routine "Timing"
  3783.     WorkWithDocument "TheDoc"
  3784.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||SizeOfDocument||""""
  3785. * End of routine "Timing"
  3786. *************
  3787.  
  3788. *************
  3789. * Global routine "Timing2"
  3790.     WorkWithDocument "TheDoc"
  3791.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheCharacter||""""
  3792. * End of routine "Timing2"
  3793. *************
  3794.  
  3795. *************
  3796. * Global routine "Timing3"
  3797.     WorkWithDocument "TheDoc"
  3798.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheColumnNumber||""""
  3799. * End of routine "Timing3"
  3800. *************
  3801.  
  3802. *************
  3803. * Global routine "Timing4"
  3804.     WorkWithDocument "TheDoc"
  3805.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheLineNumber||""""
  3806. * End of routine "Timing4"
  3807. *************
  3808.  
  3809. *************
  3810. * Global routine "Timing5"
  3811.     WorkWithDocument "TheDoc"
  3812.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||LinesInDocument||""""
  3813. * End of routine "Timing5"
  3814. *************
  3815.  
  3816. *************
  3817. * Global routine "Timing6"
  3818.     WorkWithDocument "TheDoc"
  3819.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||AvailableChipMemory||""""
  3820. * End of routine "Timing6"
  3821. *************
  3822.  
  3823. *************
  3824. * Global routine "Timing7"
  3825.     WorkWithDocument "TheDoc"
  3826.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||AvailableFastMemory||""""
  3827. * End of routine "Timing7"
  3828. *************
  3829.  
  3830. *************
  3831. * Global routine "Timing8"
  3832.     WorkWithDocument "TheDoc"
  3833.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||IntuitionVersion||""""
  3834. * End of routine "Timing8"
  3835. *************
  3836.  
  3837. *************
  3838. * Global routine "Timing9"
  3839.     WorkWithDocument "TheDoc"
  3840.     OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||AvailableMemory||""""
  3841. * End of routine "Timing9"
  3842. *************
  3843.  
  3844. *************
  3845. * Global routine "TitelUhr"
  3846.     Do "SetzeAttr"
  3847.     SetPen 2
  3848.     PrintText """"||TheTime||"""",481,1
  3849. * End of routine "TitelUhr"
  3850. *************
  3851.  
  3852.