home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / Config / TEX.CONFIG < prev    next >
Encoding:
Text File  |  1994-12-29  |  11.5 KB  |  837 lines
  1. /* $VER: TEX.CONFIG 3.848 */
  2. VERSIONCHECK 31090 "TEX.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN
  7.   SETVAR "_Path" "TEX:Texte"
  8.   ;
  9.  
  10. CLOSE
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0
  18.   OPEN _PATH
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   M_QUIT
  23.   ;
  24.  
  25.  
  26. /* lokale Variablen */
  27.  
  28. SETVAR "_OPTIMIZE" TRUE
  29. SETVAR "_FRPATTERN" "~(#?(.info|.bak))"
  30. SETVAR "_WORDDEF" 2
  31. SETVAR "_AUTOINDENT" 5
  32. SETVAR "_WORDWRAP" 2
  33. SETVAR "_UNDO" 20
  34.  
  35.  
  36. /* Tastaturbelegung */
  37.  
  38. KEY "control 1"
  39.   GETNUMBER "Speicher Makro :" 1
  40.   MACROREC _RN
  41.   ;
  42.  
  43. KEY "control 2"
  44.   MACROSTOP
  45.   ;
  46.  
  47. KEY "control 3"
  48.   GETNUMBER "Spiele Makro :" 1
  49.   MACROPLAY _RN 1
  50.   ;
  51.  
  52. KEY "control 4"
  53.   GETNUMBER "Führe Makro aus" 1
  54.   SETVAR "_Reg1" _RN
  55.   GETNUMBER "Führe n mal aus" 1
  56.   MACROPLAY _REG1 _RN
  57.   ;
  58.  
  59. KEY ")"
  60.   WRITETEXT ")"
  61.   CURSORLEFT 0
  62.   MATCHBRACKET
  63.   DELAY 10
  64.   MATCHBRACKET
  65.   CURSORRIGHT 0
  66.   ;
  67.  
  68. KEY "numpad shift 1"
  69.   GOTO _XPOS _LENGTH
  70.   ;
  71.  
  72. KEY "numpad shift 2"
  73.   CURSORDOWN 0
  74.   ;
  75.  
  76. KEY "numpad shift 3"
  77.   PAGEDOWN 90
  78.   ;
  79.  
  80. KEY "numpad shift 4"
  81.   CURSORLEFT 0
  82.   ;
  83.  
  84. KEY "numpad shift 5"
  85.   SETTITLE "Marke gesetzt." 0
  86.   SETMARK
  87.   ;
  88.  
  89. KEY "numpad shift 6"
  90.   CURSORRIGHT 0
  91.   ;
  92.  
  93. KEY "control >"
  94.   GETNUMBER "Bewege Block x Spalten\nnach rechts :" 1
  95.   BLOCKRIGHT _RN
  96.   ;
  97.  
  98. KEY "control <"
  99.   GETNUMBER "Bewege Block x Spalten\nnach links :" 1
  100.   BLOCKLEFT _RN
  101.   ;
  102.  
  103. KEY "control y"
  104.   DELETELINE
  105.   ;
  106.  
  107. KEY "control x"
  108.   GETNUMBER "Block ausschneiden in Buffer :" 1
  109.   COPYBLOCK _RN
  110.   DELETEBLOCK
  111.   ;
  112.  
  113. KEY "control c"
  114.   GETNUMBER "Kopiere Block in Buffer :" 1
  115.   COPYBLOCK _RN
  116.   SETTITLE "Block kopiert." 0
  117.   ;
  118.  
  119. KEY "control v"
  120.   GETNUMBER "Einfügen aus Buffer :" 1
  121.   INSERTBLOCK _RN
  122.   ;
  123.  
  124. KEY "numpad shift 7"
  125.   GOTO _XPOS 1
  126.   ;
  127.  
  128. KEY "numpad shift 8"
  129.   CURSORUP 0
  130.   ;
  131.  
  132. KEY "numpad shift 9"
  133.   PAGEUP 90
  134.   ;
  135.  
  136. KEY "backspace"
  137.   BACKSPACE 0
  138.   ;
  139.  
  140. KEY "shift tab"
  141.   BACKTAB
  142.   ;
  143.  
  144. KEY "tab"
  145.   TAB 0
  146.   ;
  147.  
  148. KEY "numpad enter"
  149.   RETURN
  150.   ;
  151.  
  152. KEY "return"
  153.   RETURN
  154.   ;
  155.  
  156. KEY "shift delete"
  157.   DELETETOEOL
  158.   ;
  159.  
  160. KEY "delete"
  161.   DELETE
  162.   ;
  163.  
  164. KEY "alt up"
  165.   GOTO _XPOS 1
  166.   ;
  167.  
  168. KEY "shift up"
  169.   PAGEUP 90
  170.   ;
  171.  
  172. KEY "up"
  173.   CURSORUP 0
  174.   ;
  175.  
  176. KEY "alt down"
  177.   GOTO _XPOS _LENGTH
  178.   ;
  179.  
  180. KEY "shift down"
  181.   PAGEDOWN 90
  182.   ;
  183.  
  184. KEY "down"
  185.   CURSORDOWN 0
  186.   ;
  187.  
  188. KEY "alt right"
  189.   NEXTWORD
  190.   ;
  191.  
  192. KEY "shift right"
  193.   GOTO @EOL @EOL
  194.   ;
  195.  
  196. KEY "right"
  197.   CURSORRIGHT 0
  198.   ;
  199.  
  200. KEY "alt left"
  201.   LASTWORD
  202.   ;
  203.  
  204. KEY "shift left"
  205.   GOTO @SOL @SOL
  206.   ;
  207.  
  208. KEY "left"
  209.   CURSORLEFT 0
  210.   ;
  211.  
  212. KEY "shift f1"
  213.   SETTEXTMARK 0
  214.   ;
  215.  
  216. KEY "f1"
  217.   GOTEXTMARK 0
  218.   ;
  219.  
  220. KEY "shift f2"
  221.   SETTEXTMARK 1
  222.   ;
  223.  
  224. KEY "f2"
  225.   GOTEXTMARK 1
  226.   ;
  227.  
  228. KEY "shift f3"
  229.   SETTEXTMARK HIGHER
  230.   ;
  231.  
  232. KEY "f3"
  233.   GOTEXTMARK HIGHER
  234.   ;
  235.  
  236. KEY "shift f4"
  237.   SETTEXTMARK 3
  238.   ;
  239.  
  240. KEY "f4"
  241.   GOTEXTMARK 3
  242.   ;
  243.  
  244. KEY "shift f5"
  245.   SETTEXTMARK 4
  246.   ;
  247.  
  248. KEY "f5"
  249.   GOTEXTMARK 4
  250.   ;
  251.  
  252. KEY "shift f6"
  253.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f6 belegen wollen :" _CURRENTWORD
  254.   KEY "f6"
  255.     WRITETEXT _RS;
  256.   ;
  257.  
  258. KEY "shift f7"
  259.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f7 belegen wollen :" _CURRENTWORD
  260.   KEY "f7"
  261.     WRITETEXT _RS;
  262.   ;
  263.  
  264. KEY "shift f8"
  265.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f8 belegen wollen :" _CURRENTWORD
  266.   KEY "f8"
  267.     WRITETEXT _RS;
  268.   ;
  269.  
  270. KEY "shift f9"
  271.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f9 belegen wollen :" _CURRENTWORD
  272.   KEY "f9"
  273.     WRITETEXT _RS;
  274.   ;
  275.  
  276. KEY "shift f10"
  277.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f10 belegen wollen :" _CURRENTWORD
  278.   KEY "f10"
  279.     WRITETEXT _RS;
  280.   ;
  281.  
  282. KEY "}"
  283.   WRITETEXT ")"
  284.   CURSORLEFT 0
  285.   MATCHBRACKET
  286.   DELAY 10
  287.   MATCHBRACKET
  288.   CURSORRIGHT 0
  289.   ;
  290.  
  291. KEY "rawmouse lbutton mouse_leftpress"
  292.   GOTOMOUSE
  293.   ;
  294.  
  295. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  296.   IF {@CLEARRN}
  297.     GOTOMOUSE {@SAMEPOS};
  298.     SETMARK;
  299.     GOTOMOUSE ;
  300.   ;
  301.  
  302. KEY "rawmouse rbutton lbutton mouse_rightpress"
  303.   UNMARK
  304.   ;
  305.  
  306. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  307.   PANNEL
  308.   ;
  309.  
  310.  
  311. /* Menues */
  312.  
  313. MENU "Projekt"
  314.  
  315. ITEM "Öffne..." "O"
  316.   M_OPEN
  317.   ;
  318.  
  319. ITEM "Alten File neu laden" "alt r"
  320.   IF
  321.     COMPARE 0 _CHANGED;
  322.     NOP;
  323.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen*|A_bbrechen !^"
  324.     BREAK 0 _RN 1 ;
  325.   OPEN _FILENAME
  326.   ;
  327.  
  328. ITEMBAR
  329.  
  330. ITEM "Setze/lösche..." ""
  331.   NOP
  332.   ;
  333.  
  334. SUB "Text unverändert" ""
  335.   SETVAR "_changed" 0
  336.   ;
  337.  
  338. SUB "Ändere Sleepmode" ""
  339.   IF
  340.     COMPARE 1 _SLEEPMODE;
  341.     SETVAR "_SleepMode" 0;
  342.     SETVAR "_SleepMode" 1;
  343.   ;
  344.  
  345. SUB "Ändere EditMode" ""
  346.   IF
  347.     COMPARE 1 _EDITMODE;
  348.     SETVAR "_EditMode" 0;
  349.     SETVAR "_EditMode" 1;
  350.   ;
  351.  
  352. ITEMBAR
  353.  
  354. ITEM "Neu" "alt n"
  355.   M_NEW
  356.   ;
  357.  
  358. ITEMBAR
  359.  
  360. ITEM "Umbenennen..." "R"
  361.   GETSTRING (Benenne\n"$_FileName$"\num...) _FILENAME
  362.   SETVAR "_FileName" _RS
  363.   SETVAR "_Path" _RS
  364.   ;
  365.  
  366. ITEM "Speichern" "S"
  367.   SAVE _FILENAME
  368.   ;
  369.  
  370. ITEM "Speichern als..." "A"
  371.   GETFILE "" "" {@SAVE}
  372.   SETVAR "_FileName" _PATH
  373.   SAVE _FILENAME
  374.   ;
  375.  
  376. ITEM "Speichern als RAW..." ""
  377.   GETFILE "" "" {@SAVE}
  378.   SAVE _PATH {@RAW}
  379.   ;
  380.  
  381. ITEM "Speichern & neu öffnen..." ""
  382.   SAVE _FILENAME
  383.   GETFILE "" ""
  384.   OPEN _PATH
  385.   ;
  386.  
  387. ITEM "Text ausdrucken" "*"
  388.   SAVE "PRT:"
  389.   ;
  390.  
  391. ITEMBAR
  392.  
  393. ITEM "Neues Fenster" ""
  394.   NOP
  395.   ;
  396.  
  397. SUB "GROSSES FENSTER" "B"
  398.   NEWED "TeX.CONFIG"
  399.   WINDOW 0 0 0 0
  400.   ;
  401.  
  402. SUB "kleines Fenster" "W"
  403.   NEWED "TeX.CONFIG"
  404.   WINDOW 100 50 100 50
  405.   ;
  406.  
  407. ITEM "Iconify" "escape"
  408.   ICONIFY
  409.   ;
  410.  
  411. ITEM "Hide" "alt h"
  412.   HIDE
  413.   ;
  414.  
  415. ITEM "WinArranger" "§"
  416.   WINARRANGER 1
  417.   ;
  418.  
  419. ITEM "WinManager" "$"
  420.   WINMANAGER
  421.   ;
  422.  
  423. ITEMBAR
  424.  
  425. ITEM "Über WRITE" "!"
  426.   ABOUT
  427.   ;
  428.  
  429. ITEMBAR
  430.  
  431. ITEM "Speichern & Verlassen" "E"
  432.   M_SAVE_QUIT
  433.   ;
  434.  
  435. ITEM "Ende" "Q"
  436.   M_QUIT
  437.   ;
  438.  
  439. MENU "Edieren"
  440.  
  441. ITEM "Undo" "ß"
  442.   UNDO 1
  443.   ;
  444.  
  445. ITEM "Undo..." ""
  446.   GETNUMBER "Wieviel Schritte\nrückgängig machen ?" 1
  447.   UNDO _RN
  448.   ;
  449.  
  450. ITEMBAR
  451.  
  452. ITEM "Setze Marke" "M"
  453.   SETTITLE "Marke gesetzt." 0
  454.   SETMARK
  455.   ;
  456.  
  457. ITEM "Lösche Marke" "U"
  458.   UNMARK
  459.   ;
  460.  
  461. ITEMBAR
  462.  
  463. ITEM "Ausschneiden" "X"
  464.   COPYBLOCK 0
  465.   DELETEBLOCK
  466.   ;
  467.  
  468. ITEM "Kopieren" "C"
  469.   COPYBLOCK 0
  470.   SETTITLE "Block kopiert." 0
  471.   ;
  472.  
  473. ITEM "Einfügen" "V"
  474.   INSERTBLOCK 0
  475.   ;
  476.  
  477. ITEM "Löschen" ""
  478.   DELETEBLOCK
  479.   ;
  480.  
  481. ITEMBAR
  482.  
  483. ITEM "Clipboard" ""
  484.   NOP
  485.   ;
  486.  
  487. SUB "Ausschneiden nach Clip" "alt x"
  488.   COPYBLOCK 0
  489.   BUFFERTOCLIP 0 0
  490.   DELETEBLOCK
  491.   ;
  492.  
  493. SUB "Nach Clip kopieren" "alt c"
  494.   COPYBLOCK 0
  495.   BUFFERTOCLIP 0 0
  496.   SETTITLE "Block kopiert." 0
  497.   ;
  498.  
  499. SUB "Einfügen aus Clip" "alt v"
  500.   CLIPTOBUFFER 0 0
  501.   INSERTBLOCK 0
  502.   ;
  503.  
  504. SUB "Buffer nach Clip" ""
  505.   BUFFERTOCLIP 0 0
  506.   ;
  507.  
  508. SUB "Clip nachBuffer" ""
  509.   CLIPTOBUFFER 0 0
  510.   ;
  511.  
  512. ITEMBAR
  513.  
  514. ITEM "Lösche Buffer" ""
  515.   CLEARBUFFER 0
  516.   SETTITLE "OK." 0
  517.   ;
  518.  
  519. ITEM "Speicher Block als..." ""
  520.   COPYBLOCK 0
  521.   GETFILE "" "" {@SAVE}
  522.   SAVEBUFFER _PATH 0
  523.   ;
  524.  
  525. ITEM "Drucke Block" ""
  526.   COPYBLOCK 0
  527.   SAVEBUFFER "PRT:" 0
  528.   ;
  529.  
  530. ITEM "Füge File ein..." ""
  531.   GETFILE "" ""
  532.   LOADBUFFER _PATH 0
  533.   INSERTBLOCK 0
  534.   ;
  535.  
  536. ITEMBAR
  537.  
  538. ITEM "Block links" "<"
  539.   BLOCKLEFT 1
  540.   ;
  541.  
  542. ITEM "Block rechts" ">"
  543.   BLOCKRIGHT 1
  544.   ;
  545.  
  546. ITEM "Block linksbündig..." ""
  547.   GETNUMBER "Mache Block bündig zu Zeile :" _XPOS
  548.   BLOCKLFTALIG _RN
  549.   ;
  550.  
  551. ITEM "Block rechtsbündig..." ""
  552.   GETNUMBER "Mach Block bündig zu Zeile :" _XPOS
  553.   BLOCKRGHTALIG _RN
  554.   ;
  555.  
  556. ITEM "Zentriere Block..." ""
  557.   BLOCKCENTER 1 80
  558.   ;
  559.  
  560. MENU "Internes"
  561.  
  562. ITEM "Parse Buffer..." ""
  563.   GETNUMBER "Parse Buffer :" 0
  564.   SETTITLE "PARSING..." 1
  565.   PARSEBUFFER _RN
  566.   FLASH
  567.   ;
  568.  
  569. ITEM "Parse Block" ""
  570.   COPYBLOCK 1
  571.   SETTITLE "PARSING..." 1
  572.   PARSEBUFFER 1
  573.   FLASH
  574.   ;
  575.  
  576. ITEM "Parse File..." ""
  577.   GETFILE "" ""
  578.   LOADBUFFER _PATH 1
  579.   SETTITLE "PARSING..." 1
  580.   PARSEBUFFER 1
  581.   FLASH
  582.   ;
  583.  
  584. ITEMBAR
  585.  
  586. ITEM "Führe Buffer aus..." ""
  587.   GETNUMBER "Führe Buffer aus :" 0
  588.   SETTITLE "EXECUTING..." 1
  589.   DOBUFFER _RN
  590.   FLASH
  591.   ;
  592.  
  593. ITEM "Führe Block aus" ""
  594.   COPYBLOCK 1
  595.   SETTITLE "EXECUTING..." 1
  596.   DOBUFFER 1
  597.   FLASH
  598.   ;
  599.  
  600. ITEM "Führe Komando aus..." "D"
  601.   GETSTRING "Bitte geben sie WRITE-Komandos ein :" ""
  602.   DOSTRING _RS
  603.   ;
  604.  
  605. ITEM "Führe File aus..." ""
  606.   GETFILE "" ""
  607.   LOADBUFFER _PATH 1
  608.   SETTITLE "EXECUTING..." 1
  609.   DOBUFFER 1
  610.   FLASH
  611.   ;
  612.  
  613. ITEMBAR
  614.  
  615. ITEM "Nehme Makro auf" "1"
  616.   MACROREC 0
  617.   ;
  618.  
  619. ITEM "Stoppe  Aufnahme" "2"
  620.   MACROSTOP
  621.   ;
  622.  
  623. ITEM "Spiele ab" "3"
  624.   MACROPLAY 0 1
  625.   ;
  626.  
  627. ITEM "Spiele mehrmals ab..." "4"
  628.   GETNUMBER "Replay it n times " 1
  629.   MACROPLAY 0 _RN
  630.   ;
  631.  
  632. MENU "Externes"
  633.  
  634. ITEM "Neue Shell" "."
  635.   SYSTEM "NewShell"
  636.   ;
  637.  
  638. ITEM "DOS-Execute..." ""
  639.   GETSTRING "Geben sie ein CLI-Komando ein :" ""
  640.   SYSTEM _RS {@ASYNC}
  641.   ;
  642.  
  643. ITEMBAR
  644.  
  645. ITEM "Lösche File..." ""
  646.   GETFILE "" ""
  647.   ;
  648.  
  649. ITEM "Erschaffe Directory..." ""
  650.   GETFILE "" "" {@SAVE}
  651.   ;
  652.  
  653. ITEMBAR
  654.  
  655. ITEM "Font..." ""
  656.   GETFONT
  657.   ;
  658.  
  659. MENU "ARexx"
  660.  
  661. ITEM "Führe Rexx aus..." ""
  662.   GETFILE "REXX:" "#?.(rexx|wrx)"
  663.   DOREXX _RS "" {@ASYNC}
  664.   ;
  665.  
  666. ITEMBAR
  667.  
  668. MENU "Utlities"
  669.  
  670. ITEM "Schreibe Zeichen..." "alt space"
  671.   GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  672.   WRITECHAR _RN
  673.   ;
  674.  
  675. ITEM "Zeige Zeit & Datum" "T"
  676.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  677.   ;
  678.  
  679. ITEMBAR
  680.  
  681. ITEM "UPPER word" "^"
  682.   UPPERBLOCK @SOW @SOW @EOW @EOW
  683.   ;
  684.  
  685. ITEM "lower word" "#"
  686.   LOWERBLOCK @SOW @SOW @EOW @EOW
  687.   ;
  688.  
  689. ITEMBAR
  690.  
  691. ITEM "Match Bracket" "("
  692.   MATCHBRACKET
  693.   ;
  694.  
  695. MENU "Suchen"
  696.  
  697. ITEM "Zähle..." ""
  698.   GETFINDREPLACE _FINDSTRING ""
  699.   IF
  700.     COMPARE _MARKED HIGHER;
  701.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  702.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  703.   MESSAGEOK "\"$_FindString$\"\nwurde $_RN$ mal gefunden !"
  704.   ;
  705.  
  706. ITEMBAR
  707.  
  708. ITEM "Finde..." "F"
  709.   GETFINDREPLACE _FINDSTRING ""
  710.   IF
  711.     COMPARE _MARKED HIGHER;
  712.     FIND @MARKA @MARKA @MARKB @MARKB ;
  713.     FIND @CURSOR @CURSOR @EOT @EOT ;
  714.   ;
  715.  
  716. ITEM "Finde noch einmal" "N"
  717.   IF
  718.     COMPARE _MARKED HIGHER;
  719.     FIND @CURSOR @CURSOR @MARKB @MARKB ;
  720.     FIND @CURSOR @CURSOR @EOT @EOT ;
  721.   ;
  722.  
  723. ITEMBAR
  724.  
  725. ITEM "Ersetze..." "Y"
  726.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  727.   IF
  728.     COMPARE _MARKED HIGHER;
  729.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  730.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  731.   ;
  732.  
  733. ITEM "Ersetze noch einmal" "Z"
  734.   IF
  735.     COMPARE _MARKED HIGHER;
  736.     REPLACE @CURSOR @CURSOR @MARKB @MARKB ;
  737.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  738.   ;
  739.  
  740. ITEM "Ersetze alle..." ""
  741.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  742.   IF
  743.     COMPARE _MARKED HIGHER;
  744.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
  745.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  746.   FLASH
  747.   ;
  748.  
  749. ITEM "Ersetze alle schnell..." ""
  750.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  751.   SILENT
  752.   IF
  753.     COMPARE _MARKED HIGHER;
  754.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
  755.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  756.   WINDOW 0 0 0 0
  757.   MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  758.   ;
  759.  
  760. ITEMBAR
  761.  
  762. ITEM "Suche nach Muster..." ""
  763.   GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE
  764.   SETVAR "_PatCase" _RS
  765.   FINDPATTERN @CURSOR @EOT {@CASE}
  766.   ;
  767.  
  768. ITEM "Suche noch einmal" ""
  769.   FINDPATTERN @CURSOR @EOT {@CASE}
  770.   ;
  771.  
  772. ITEM "Suche nach Muster (no Case)..." "Ö"
  773.   GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE
  774.   SETVAR "_PatNoCase" _RS
  775.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  776.   ;
  777.  
  778. ITEM "Suche noch einmal" "Ä"
  779.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  780.   ;
  781.  
  782. ITEMBAR
  783.  
  784. ITEM "Springe zu Zeile..." "G"
  785.   GETNUMBER "Springe zu Zeile :" _YPOS
  786.   GOTO _XPOS _RN
  787.   ;
  788.  
  789. ITEMBAR
  790.  
  791. ITEM "Zeige Index..." "J"
  792.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?#?"
  793.   SHOWINDEX _RS {@CASE}
  794.   ;
  795.  
  796. ITEM "TeX-Contents" "alt lamiga i"
  797.   SHOWINDEX "(\\chapter|\\sub|\\item|\\begin{enum|\\begin{item|\\end{enum|\\end{item)#?" {@CASE}
  798.   ;
  799.  
  800. ITEM "TeX-Labels" ""
  801.   SHOWINDEX "(#?\\label{#?" {@CASE}
  802.   ;
  803.  
  804. MENU "Prefs"
  805.  
  806. ITEM "Globale Prefs" ""
  807.   GPREFS
  808.   ;
  809.  
  810. ITEM "Prefs" "+"
  811.   PREFS
  812.   ;
  813.  
  814. MENU "Hilfe"
  815.  
  816. ITEM "Help..." "Shift Help"
  817.   HELP
  818.   ;
  819.  
  820. ITEM "Zeige Variablen" ""
  821.   SHOWVARS
  822.   ;
  823.  
  824. ITEM "Zeige Funktionen" ""
  825.   SHOWFUNCTIONS
  826.   ;
  827.  
  828. ITEM "Zeige ASCII-Codes" ""
  829.   SHOWASCII
  830.   ;
  831.  
  832. ITEM "Hilfe zu Stichwort..." "?"
  833.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  834.   GUIDEHELP _RS
  835.   ;
  836.  
  837.