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