home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / rexxit11.zip / Deutsch.Zip / REXXIT.INI (.txt) < prev   
OS/2 INI File  |  1996-04-14  |  7KB  |  237 lines

  1. Tutorial
  2. Anfang
  3. Laden
  4. nur_CMD
  5. punkt12
  6. Eigenes10
  7. punkt8
  8. Eigenes8>
  9. punkt6
  10. Doppelabwurf
  11. /* Aufruf von PROGRAMM nach Abwurf zweier Objekte   */
  12. /* (auch "gleichzeitig") mit 
  13. bergabe als Parameter */
  14. parse arg Name
  15. New_queue = rxqueue('create', 'XXX')
  16. Old_queue = rxqueue('set', 'XXX')
  17. if New_queue = 'XXX'
  18.    then /* first drop */
  19.       queue Name
  20.    else do /* second drop */
  21.       parse pull Queued_name
  22.       call PROGRAMM Queued_name Name
  23.       call rxqueue 'delete', 'XXX'
  24.       call rxqueue 'delete',  New_queue
  25.       end
  26. punkt5
  27. TempFileName
  28. /* Erzeugen eines Dateinamens, den es noch nicht gibt */
  29. TempFileName: procedure /******************************/
  30. parse arg Name
  31. do I = 1 to 999
  32.    Testname = Name || translate(format(I,3), '0', ' ')
  33.    if \exists(Testname) then return Testname
  34.    end
  35. say 'Maximum von 999 Temp-Files 
  36. berschritten!'
  37. punkt2
  38. Exists
  39. /* Feststellen, ob eine Datei existiert */
  40. Exists: procedure /************************************/
  41. return stream(arg(1), 'c', 'query exists') \= ''
  42. punkt1
  43. ANSI-Schale
  44. /* ANSI-Schale f
  45. r Textbildschirm */ 
  46. /* Lesen von Zeichen ab einer Bildschirmposition */
  47. Lesen: procedure /*************************************/
  48. parse arg Zeile, Spalte
  49. Esc = '1B'x
  50. select
  51.    when arg() = 0 then
  52.       nop
  53.    when arg() = 2 then
  54.       call charout , Esc || '['Zeile';'Spalte'H'
  55.    otherwise do
  56.       say 'FEHLER: Lesen ben
  57. tigt entweder 0 oder 2 Argumente!'
  58.       exit
  59.       end
  60.    end
  61. parse pull S
  62. return S
  63. /* Schreiben von Zeichen ab einer Bildschirmposition */
  64. Schreiben: procedure /*********************************/
  65. parse arg Zeile, Spalte, Text
  66. Esc = '1B'x
  67. select
  68.    when arg() = 1 then
  69.       call charout , Zeile
  70.    when arg() = 2 then
  71.       call charout , Esc || '['Zeile';'Spalte'H'
  72.    when arg() = 3 then
  73.       call charout , Esc || '['Zeile';'Spalte'H'Text
  74.    otherwise do
  75.       say 'FEHLER: Schreiben ben
  76. tigt 1, 2 oder 3 Argumente!'
  77.       exit
  78.       end
  79.    end
  80. return
  81. /* Setzen der VORdergrundfarbe */
  82. Vorsetzen: procedure expose Vordergrundcode Hintergrundcode /**********/
  83. arg Farbe
  84. Esc = '1B'x
  85. select
  86.    when pos('GEHEIM', Farbe)  > 0 then C = 8
  87.    when pos('SCHWARZ', Farbe) > 0 then C = 30
  88.    when pos('ROT', Farbe)     > 0 then C = 31
  89.    when pos('GR
  90. N', Farbe)    > 0 then C = 32
  91.    when pos('GELB', Farbe)    > 0 then C = 33
  92.    when pos('BLAU', Farbe)    > 0 then C = 34
  93.    when pos('MAGENTA', Farbe) > 0 then C = 35
  94.    when pos('CYAN', Farbe)    > 0 then C = 36
  95.    when pos('WEI
  96. ', Farbe)    > 0 then C = 37
  97.    otherwise do
  98.       say 'FEHLER: Farbe ung
  99. ltig f
  100. r Vordergrund!'
  101.       exit
  102.       end
  103.    end
  104. if left(Farbe, 4) = 'HELL'
  105.    then
  106.       C = '1;'C
  107.    else do
  108.       call charout , Esc || '[0m'
  109.       if left(Hintergrundcode,1) = Esc then
  110.          call charout , Hintergrundcode
  111.       end
  112. Vordergrundcode = Esc || '['C'm'
  113. call charout , Vordergrundcode
  114. return
  115. /* Setzen der HINtergrundfarbe */
  116. Hinsetzen: procedure expose Vordergrundcode Hintergrundcode /**********/
  117. arg Farbe
  118. Esc = '1B'x
  119. select
  120.    when pos('SCHWARZ', Farbe) > 0 then C = 40
  121.    when pos('ROT', Farbe)     > 0 then C = 41
  122.    when pos('GR
  123. N', Farbe)    > 0 then C = 42
  124.    when pos('GELB', Farbe)    > 0 then C = 43
  125.    when pos('BLAU', Farbe)    > 0 then C = 44
  126.    when pos('MAGENTA', Farbe) > 0 then C = 45
  127.    when pos('CYAN', Farbe)    > 0 then C = 46
  128.    when pos('WEI
  129. ', Farbe)    > 0 then C = 47
  130.    otherwise do
  131.       say 'FEHLER: Farbe ung
  132. ltig f
  133. r Hintergrund!'
  134.       exit
  135.       end
  136.    end
  137. if left(Farbe, 4) = 'HELL'
  138.    then
  139.       C = '5;'C
  140.    else do
  141.       call charout , Esc || '[0m'
  142.       if left(Vordergrundcode,1) = Esc then
  143.          call charout , Vordergrundcode
  144.       end
  145. Hintergrundcode = Esc || '['C'm'
  146. call charout , Hintergrundcode
  147. return
  148. /* Setzen, ob automatischer ZeilenUMbruch */
  149. Umsetzen: procedure /**********************************/
  150. arg Modus
  151. Esc = '1B'x
  152. select
  153.    when Modus = 'aus' then
  154.       Modus = 'h'
  155.    when Modus = 'ein' then
  156.       Modus = 'l'
  157.    otherwise do
  158.       say "FEHLER: Autom. Zeilenumbruch nur 'ein' oder 'aus'!"
  159.       exit
  160.       end
  161.    end
  162. call charout , Esc || '[=3h' || Esc || '[=7' || Modus
  163. return
  164. schen des Bildschirms bzw. Zeilenrests */
  165. Leeren: procedure /************************************/
  166. arg Parm
  167. Esc = '1B'x
  168. select
  169.    when Parm = '' then
  170.       call charout , Esc || '[2J'
  171.    when Parm = 'REST' then
  172.       call charout , Esc || '[K'
  173.    otherwise do
  174.       say 'FEHLER: Angabe ung
  175. ltig f
  176. r Leeren!'
  177.       exit
  178.       end
  179.    end
  180. return
  181. punkt10
  182. Eigenes10
  183. punkt0
  184. Logo=
  185. Drucken
  186. VRexx-Hilfe
  187. Bookshelf<
  188. save_before_run
  189. Einstellungen_Run_Anfragenq
  190. Arbeitsverzeichnis
  191. <Standard>
  192. X_ascii
  193. Y_ascii
  194. Automatisches Speichern
  195. REXX.AUS[
  196. Vordergrundfarbe
  197. Black
  198. Hintergrundfarbe
  199. White
  200. Schrift
  201. 10.System Monospaced
  202. Breite
  203. punkt9
  204. Eigenes9
  205. punkt11
  206. Eigenes7
  207. punkt3
  208. Bootdrive
  209. /* Ermitteln des OS/2-Startlaufwerks */
  210. Bootdrive: procedure /*********************************/
  211. Pfad = translate(value('PATH',,'OS2ENVIRONMENT'))
  212. return substr(Pfad, pos('\OS2\SYSTEM', Pfad)-2, 1)
  213. punkt4
  214. Tauschen
  215. /* Ersetzen aller VON nach NACH in TEXT */
  216. Tauschen: procedure /**********************************/
  217. parse arg Text, Von, Nach
  218. if pos(Von, Nach) > 0 then do
  219.    say 'Endlosschleife in Tauschen!'
  220.    exit
  221.    end
  222. do forever
  223.    K = pos(Von, Text)
  224.    if K = 0 then leave
  225.    Text = substr(Text, 1, K-1) || ,
  226.           Nach || ,
  227.           substr(Text, K+length(Von))
  228.    end
  229. return Text
  230. punkt7
  231. Eigenes7
  232. Version
  233. Richard Sturm
  234. User_Name
  235. Nummer
  236. Gates
  237.