home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / microbase / skripte / beispiel.mrx next >
Text File  |  1997-08-13  |  7KB  |  277 lines
  1. /* Beispiel.MRX */
  2. NUMERIC DIGITS 14
  3. SIGNAL ON ERROR
  4. SIGNAL ON SYNTAX
  5.  
  6. /* Fügen Sie bitte hier Ihre Programmzeilen ein! */
  7.  
  8. IF field6 = "er Herr" THEN DO
  9.   field7 = "Herr"
  10.   field8 = "Herrn"
  11.   END
  12. ELSE DO
  13.   hlp1 = INDEX(field6, " ")
  14.   field7 = SUBSTR(field6, hlp1 + 1)
  15.   field8 = SUBSTR(field6, hlp1 + 1)
  16.   DROP hlp1
  17.   END
  18.  
  19. /* Zurückschreiben der Feldinhalte */
  20.  
  21. CALL OPEN(out,mroname,"W")
  22. CALL WRITELN(out, field1)
  23. CALL WRITELN(out, field2)
  24. CALL WRITELN(out, field3)
  25. CALL WRITELN(out, field4)
  26. CALL WRITELN(out, field5)
  27. CALL WRITELN(out, field6)
  28. CALL WRITELN(out, field7)
  29. CALL WRITELN(out, field8)
  30. CALL WRITELN(out, field9)
  31. CALL WRITELN(out, field10)
  32. CALL WRITELN(out, field11)
  33. CALL WRITELN(out, field12)
  34. CALL WRITELN(out, field13)
  35. CALL WRITELN(out, field14)
  36. CALL WRITELN(out, field15)
  37. CALL WRITELN(out, field16)
  38. CALL WRITELN(out, field17)
  39. CALL WRITELN(out, field18)
  40. CALL WRITELN(out, field19)
  41. CALL WRITELN(out, field20)
  42. CALL WRITELN(out, field21)
  43. CALL WRITELN(out, field22)
  44. CALL WRITELN(out, field23)
  45. CALL WRITELN(out, field24)
  46. CALL WRITELN(out, field25)
  47. CALL WRITELN(out, field26)
  48. CALL WRITELN(out, field27)
  49. CALL WRITELN(out, field28)
  50. CALL WRITELN(out, field29)
  51. CALL WRITELN(out, field30)
  52. CALL WRITELN(out, field31)
  53. CALL WRITELN(out, field32)
  54. CALL WRITELN(out, field33)
  55. CALL WRITELN(out, field34)
  56. CALL WRITELN(out, field35)
  57. CALL WRITELN(out, field36)
  58. CALL WRITELN(out, field37)
  59. CALL WRITELN(out, field38)
  60. CALL WRITELN(out, field39)
  61. CALL WRITELN(out, field40)
  62. CALL WRITELN(out, field41)
  63. CALL WRITELN(out, field42)
  64. CALL WRITELN(out, field43)
  65. CALL WRITELN(out, field44)
  66. CALL WRITELN(out, field45)
  67. CALL WRITELN(out, field46)
  68. CALL WRITELN(out, field47)
  69. CALL WRITELN(out, field48)
  70. CALL WRITELN(out, field49)
  71. CALL WRITELN(out, field50)
  72. CALL WRITELN(out, field51)
  73. CALL WRITELN(out, field52)
  74. CALL WRITELN(out, field53)
  75. CALL WRITELN(out, field54)
  76. CALL WRITELN(out, field55)
  77. CALL WRITELN(out, field56)
  78. CALL WRITELN(out, field57)
  79. CALL WRITELN(out, field58)
  80. CALL WRITELN(out, field59)
  81. CALL WRITELN(out, field60)
  82. CALL WRITELN(out, field61)
  83. CALL WRITELN(out, field62)
  84. CALL WRITELN(out, field63)
  85. CALL WRITELN(out, field64)
  86. CALL WRITELN(out, field65)
  87. CALL WRITELN(out, field66)
  88. CALL WRITELN(out, field67)
  89. CALL WRITELN(out, field68)
  90. CALL WRITELN(out, field69)
  91. CALL WRITELN(out, field70)
  92. CALL WRITELN(out, field71)
  93. CALL WRITELN(out, field72)
  94. CALL WRITELN(out, field73)
  95. CALL WRITELN(out, field74)
  96. CALL WRITELN(out, field75)
  97. CALL WRITELN(out, field76)
  98. CALL WRITELN(out, field77)
  99. CALL WRITELN(out, field78)
  100. CALL WRITELN(out, field79)
  101. CALL WRITELN(out, field80)
  102. CALL WRITELN(out, field81)
  103. CALL WRITELN(out, field82)
  104. CALL WRITELN(out, field83)
  105. CALL WRITELN(out, field84)
  106. CALL WRITELN(out, field85)
  107. CALL WRITELN(out, field86)
  108. CALL WRITELN(out, field87)
  109. CALL WRITELN(out, field88)
  110. CALL WRITELN(out, field89)
  111. CALL WRITELN(out, field90)
  112. CALL WRITELN(out, field91)
  113. CALL WRITELN(out, field92)
  114. CALL WRITELN(out, field93)
  115. CALL WRITELN(out, field94)
  116. CALL WRITELN(out, field95)
  117. CALL WRITELN(out, field96)
  118. CALL WRITELN(out, field97)
  119. CALL WRITELN(out, field98)
  120. CALL WRITELN(out, field99)
  121. CALL WRITELN(out, field100)
  122. CALL WRITELN(out, field101)
  123. CALL WRITELN(out, field102)
  124. CALL WRITELN(out, field103)
  125. CALL WRITELN(out, field104)
  126. CALL WRITELN(out, field105)
  127. CALL WRITELN(out, field106)
  128. CALL WRITELN(out, field107)
  129. CALL WRITELN(out, field108)
  130. CALL WRITELN(out, field109)
  131. CALL WRITELN(out, field110)
  132. CALL WRITELN(out, field111)
  133. CALL WRITELN(out, field112)
  134. CALL WRITELN(out, field113)
  135. CALL WRITELN(out, field114)
  136. CALL WRITELN(out, field115)
  137. CALL WRITELN(out, field116)
  138. CALL WRITELN(out, field117)
  139. CALL WRITELN(out, field118)
  140. CALL WRITELN(out, field119)
  141. CALL WRITELN(out, field120)
  142. CALL WRITELN(out, field121)
  143. CALL WRITELN(out, field122)
  144. CALL WRITELN(out, field123)
  145. CALL WRITELN(out, field124)
  146. CALL WRITELN(out, field125)
  147. CALL WRITELN(out, field126)
  148. CALL WRITELN(out, field127)
  149. CALL WRITELN(out, field128)
  150. CALL WRITELN(out, field129)
  151. CALL WRITELN(out, field130)
  152. CALL WRITELN(out, field131)
  153. CALL WRITELN(out, field132)
  154. CALL WRITELN(out, field133)
  155. CALL WRITELN(out, field134)
  156. CALL WRITELN(out, field135)
  157. CALL WRITELN(out, field136)
  158. CALL WRITELN(out, field137)
  159. CALL WRITELN(out, field138)
  160. CALL WRITELN(out, field139)
  161. CALL WRITELN(out, field140)
  162. CALL WRITELN(out, field141)
  163. CALL WRITELN(out, field142)
  164. CALL WRITELN(out, field143)
  165. CALL WRITELN(out, field144)
  166. CALL WRITELN(out, field145)
  167. CALL WRITELN(out, field146)
  168. CALL WRITELN(out, field147)
  169. CALL WRITELN(out, field148)
  170. CALL WRITELN(out, field149)
  171. CALL WRITELN(out, field150)
  172. CALL WRITELN(out, field151)
  173. CALL WRITELN(out, field152)
  174. CALL WRITELN(out, field153)
  175. CALL WRITELN(out, field154)
  176. CALL WRITELN(out, field155)
  177. CALL WRITELN(out, field156)
  178. CALL WRITELN(out, field157)
  179. CALL WRITELN(out, field158)
  180. CALL WRITELN(out, field159)
  181. CALL WRITELN(out, field160)
  182. CALL WRITELN(out, field161)
  183. CALL WRITELN(out, field162)
  184. CALL WRITELN(out, field163)
  185. CALL WRITELN(out, field164)
  186. CALL WRITELN(out, field165)
  187. CALL WRITELN(out, field166)
  188. CALL WRITELN(out, field167)
  189. CALL WRITELN(out, field168)
  190. CALL WRITELN(out, field169)
  191. CALL WRITELN(out, field170)
  192. CALL WRITELN(out, field171)
  193. CALL WRITELN(out, field172)
  194. CALL WRITELN(out, field173)
  195. CALL WRITELN(out, field174)
  196. CALL WRITELN(out, field175)
  197. CALL WRITELN(out, field176)
  198. CALL WRITELN(out, field177)
  199. CALL WRITELN(out, field178)
  200. CALL WRITELN(out, field179)
  201. CALL WRITELN(out, field180)
  202. CALL WRITELN(out, field181)
  203. CALL WRITELN(out, field182)
  204. CALL WRITELN(out, field183)
  205. CALL WRITELN(out, field184)
  206. CALL WRITELN(out, field185)
  207. CALL WRITELN(out, field186)
  208. CALL WRITELN(out, field187)
  209. CALL WRITELN(out, field188)
  210. CALL WRITELN(out, field189)
  211. CALL WRITELN(out, field190)
  212. CALL WRITELN(out, field191)
  213. CALL WRITELN(out, field192)
  214. CALL WRITELN(out, field193)
  215. CALL WRITELN(out, field194)
  216. CALL WRITELN(out, field195)
  217. CALL WRITELN(out, field196)
  218. CALL WRITELN(out, field197)
  219. CALL WRITELN(out, field198)
  220. CALL WRITELN(out, field199)
  221. CALL WRITELN(out, field200)
  222. CALL WRITELN(out, field201)
  223. CALL WRITELN(out, field202)
  224. CALL WRITELN(out, field203)
  225. CALL WRITELN(out, field204)
  226. CALL WRITELN(out, field205)
  227. CALL WRITELN(out, field206)
  228. CALL WRITELN(out, field207)
  229. CALL WRITELN(out, field208)
  230. CALL WRITELN(out, field209)
  231. CALL WRITELN(out, field210)
  232. CALL WRITELN(out, field211)
  233. CALL WRITELN(out, field212)
  234. CALL WRITELN(out, field213)
  235. CALL WRITELN(out, field214)
  236. CALL WRITELN(out, field215)
  237. CALL WRITELN(out, field216)
  238. CALL WRITELN(out, field217)
  239. CALL WRITELN(out, field218)
  240. CALL WRITELN(out, field219)
  241. CALL WRITELN(out, field220)
  242. CALL WRITELN(out, field221)
  243. CALL WRITELN(out, field222)
  244. CALL WRITELN(out, field223)
  245. CALL WRITELN(out, field224)
  246. CALL WRITELN(out, field225)
  247. CALL WRITELN(out, field226)
  248. CALL WRITELN(out, field227)
  249. CALL WRITELN(out, field228)
  250. CALL WRITELN(out, field229)
  251. CALL WRITELN(out, field230)
  252. CALL WRITELN(out, field231)
  253. CALL WRITELN(out, field232)
  254. CALL WRITELN(out, field233)
  255. CALL WRITELN(out, field234)
  256. CALL CLOSE(out)
  257.  
  258. /* Programm beenden */
  259.  
  260. CALL REMLIB("rexxmathlib.library")
  261. CALL REMLIB("rexxsupport.library")
  262. EXIT
  263.  
  264. /* Fehlerbehandlung */
  265.  
  266. SYNTAX:
  267. SAY "##SYNTAX"
  268. EXIT 10
  269.  
  270. ERROR:
  271. SAY "##ERROR"
  272. EXIT 10
  273.  
  274. /* Fügen Sie hier ggfs. Ihre Funktionen und Prozeduren ein! */
  275.  
  276.  
  277.