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