home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd370 / ledenlijst.amos / ledenlijst.amosSourceCode < prev    next >
AMOS Source Code  |  1991-06-13  |  10KB  |  208 lines
  1. Palette $0,$0,$0 : Flash Off : Curs Off : Hide 
  2. Screen Open 1,640,250,16,Hires
  3. Flash Off : Curs Off : Palette $0,$0,$FFF
  4. Dim LIDNR$(82),ANAAM$(82),VNAAM$(82),STRAAT$(82),POSTC$(82),PLAATS$(82),LAND$(82),DATUM$(82)
  5. Dim C(15)
  6. Locate 0,10 : Centre "Even geduld a.u.b."
  7. '
  8. ' --- INLEZEN VAN ALLE GEGEVENS OVER DE LEDEN ---
  9. '
  10. Restore LDATA
  11. For TELLER=1 To 82
  12.    Read LIDNR$,ANAAM$,VNAAM$,STRAAT$,POSTC$,PLAATS$,LAND$,DATUM$
  13.    LIDNR$(TELLER)=LIDNR$
  14.    ANAAM$(TELLER)=ANAAM$
  15.    VNAAM$(TELLER)=VNAAM$
  16.    STRAAT$(TELLER)=STRAAT$
  17.    POSTC$(TELLER)=POSTC$
  18.    PLAATS$(TELLER)=PLAATS$
  19.    LAND$(TELLER)=LAND$
  20.    DATUM$(TELLER)=DATUM$
  21. Next TELLER
  22. '
  23. ' --- OPZETTEN VAN HET 'KLIK' MENU --- 
  24. '
  25. Fade 3
  26. Wait 10
  27. Screen Hide 1
  28. Cls 0
  29. Restore CDATA
  30. For A=0 To 15
  31.    Read C
  32.    C(A)=C
  33. Next A
  34. Unpack 6,0,150
  35. Double Buffer 
  36. Limit Mouse 213,200 To 640,250
  37. Bob 0,0,0,1
  38. Channel 0 To Bob 0
  39. Amal 0,"Loop: Let X=XM+100; Let Y=YM-50; P; Jump Loop;"
  40. Amal On 
  41. Reserve Zone 3
  42. Set Zone 1,312,156 To 393,190
  43. Set Zone 2,403,156 To 485,190
  44. Set Zone 3,498,156 To 578,190
  45. '
  46. ' --- OPZETTEN VAN HET STANDAARD TEKST SCHERM ---
  47. '
  48. Pen 5
  49. Locate 1,2 : Print "Voornaam, letters      :"
  50. Locate 1,4 : Print "Achternaam             :"
  51. Locate 1,6 : Print "Adres                  :"
  52. Locate 1,8 : Print "Postcode, woonpl.      :"
  53. Locate 1,10 : Print "Land                   :"
  54. Locate 1,12 : Print "Lidnummer              :"
  55. Locate 1,14 : Print "Datum van inschrijving :"
  56. Ink 10 : Pen 3
  57. Locate 0,28 : Centre "Linker toets = 1 vooruit/terug - Rechter toets = 10 vooruit/terug"
  58. Box 0,12 To 639,26
  59. Box 0,28 To 639,42
  60. Box 0,44 To 639,58
  61. Box 0,60 To 639,74
  62. Box 0,76 To 639,90
  63. Box 0,92 To 639,106
  64. Box 0,108 To 639,122
  65. Screen Show 1
  66. Fade 3,C(0),C(1),C(2),C(3),C(4),C(5),C(6),C(7),C(8),C(9),C(10),C(11),C(12),C(13),C(14),C(15)
  67. POS=1
  68. Pen 15
  69. Gosub PLAATS_DATA
  70. Do 
  71.    Repeat 
  72.       Z=Zone(X Bob(0),Y Bob(0))
  73.       V=0
  74.    Until Mouse Key<>0
  75.    M=Mouse Key
  76.    If M=1
  77.       V=1
  78.    Else 
  79.       V=2
  80.    End If 
  81.    If Z<>0
  82.       If Z=1
  83.          If V=1
  84.             Dec POS
  85.          Else 
  86.             POS=POS-10
  87.          End If 
  88.          If POS<1
  89.             POS=1
  90.             Goto ERUIT
  91.          End If 
  92.          Gosub PLAATS_DATA
  93.       End If 
  94.       If Z=2
  95.          If V=1
  96.             Inc POS
  97.          Else 
  98.             Add POS,10
  99.          End If 
  100.          If POS>82
  101.             POS=82
  102.             Goto ERUIT
  103.          End If 
  104.          Gosub PLAATS_DATA
  105.       End If 
  106.       If Z=3
  107.          Fade 5
  108.          Wait 40
  109.          Run "AMOS_COMPACT2:menu.amos"
  110.       End If 
  111.    End If 
  112.    ERUIT:
  113. Loop 
  114. PLAATS_DATA:
  115. Locate 26,2 : Print VNAAM$(POS)+Space$(10)
  116. Locate 26,4 : Print ANAAM$(POS)+Space$(18)
  117. Locate 26,6 : Print STRAAT$(POS)+Space$(22)
  118. Locate 26,8 : Print POSTC$(POS)+" "+PLAATS$(POS)+Space$(12)
  119. Locate 26,10 : Print LAND$(POS)+Space$(4)
  120. Locate 26,12 : Print LIDNR$(POS)
  121. Locate 26,14 : Print DATUM$(POS)+Space$(2)
  122. Return 
  123. LDATA:
  124. Data "0001","Maes","Rudi","D. v/d Elzaslaan 5","8820","Torhout","Belgie","20 Nov 1990"
  125. Data "0002","Kampen","W.van","v. Ostadelaan 13","1231 AK","Loosdrecht","NL","20 Nov 1990"
  126. Data "0003","Brusse","E.M.","Sportlaan 305","2566 KM","'s-Gravenhage","NL","20 Nov 1990"
  127. Data "0004","Barnhoorn","J.W.","Schenkkade 312","2595 AZ","'s-Gravenhage","NL","20 Nov 1990"
  128. Data "0005","Kroes","T.P.","Sinj Semeynstr. 54-5","1061 GL","Amsterdam","NL","20 Nov 1990"
  129. Data "0006","Ducardus","E.G.A.","Papendrechtstr. 14","3086 WN","Rotterdam","NL","20 Nov 1990"
  130. Data "0007","Groot","D.S.J.J.","Randweg 100","5845 CW","St. Anthonis","NL","22 Nov 1990"
  131. Data "0008","Hemme","J.","Loperstr. 24","7891 JT","Klazienaveen","NL","22 Nov 1990"
  132. Data "0009","Wit","R.de","Eendrachtsstr. 55","3012 XH","Rotterdam","NL","22 Nov 1990"
  133. Data "0010","Voorend","J.G.C.","Miekeskamp 21","4175 EC","Haaften","NL","23 Nov 1990"
  134. Data "0011","Meyskens","Gerard","Klauwierstr. 12","9040","St. Amandsberg Gent","Belgie","27 Nov 1990"
  135. Data "0012","Kluitenberg","W.E.","Beerzestr. 30","7417 CA","Deventer","NL","27 Nov 1990"
  136. Data "0013","Veen","J.","Frans Halsstr. 17","3314 HD","Dordrecht","NL","27 Nov 1990"
  137. Data "0014","Boef","G.de","Kennelweg 49","4205 ZN","Gorinchem","NL","27 Nov 1990"
  138. Data "0015","Scholtenlo","E.","Burg. Beeckmanstr. 20","2041 PN","Zandvoort","NL","30 Nov 1990"
  139. Data "0016","Jurgers","P.H.A.M.","Baksweer 160 a","4941 LH","Raamsdonksveer","NL","30 Nov 1990"
  140. Data "0017","Pensart","Guy","Hoogstr. 85","3730","Hoeselt","Belgie","10 Dec 1990"
  141. Data "0018","Jacobs","B.L.","Pr. Christinastr. 3","9982 GR","Uithuizermeeden","NL","10 Dec 1990"
  142. Data "0019","Bode","P.","Twickel 9","1275 DC","Huizen","NL","10 Dec 1990"
  143. Data "0020","Rooijen","J. van","Jacob v/d Borchstr. 62","3515 XG","Utrecht","NL","10 Dec 1990"
  144. Data "0021","Haertjens","Patrick","Warande 2","9940","Ertvelde","Belgie","13 Dec 1990"
  145. Data "0022","Barlage","H.H.E.","Salviaplein 56","6466 VJ","Kerkrade","NL","14 Dec 1990"
  146. Data "0023","Boonekamp-Ritzema","M.W.B.","Oostzaanstr. 165-1","1013 WW","Amsterdam","NL","20 Dec 1990"
  147. Data "0024","Thomassen","H.M.H.","Tjalk 1812","8232 LM","Lelystad","NL","20 Dec 1990"
  148. Data "0025","Valentijn","R.H.","G.V. Lomstr. 211","4204 VJ","Gorinchem","NL","20 Dec 1990"
  149. Data "0026","Corbey","P.M.","Thornstr. 153","6004 JS","Weert","NL","9 Jan 1991"
  150. Data "0027","Stokkum","L.C.M. van","Hekmerslaan 10","5615 JD","Eindhoven","NL","9 Jan 1991"
  151. Data "0028","Vos","O.","Bleyendaal 13","3813 XD","Amersfoort","NL","9 Jan 1991"
  152. Data "0029","Simons","R.P.","Vogelweide 195","3941 NJ","Doorn","NL","9 Jan 1991"
  153. Data "0030","Poppe","A.A.C.","Marykestr. 8","4571 VX","Axel","NL","9 Jan 1991"
  154. Data "0031","Spronk","A.J.M.","Vondelstr. 7","7901 HP","Hoogeveen","NL","9 Jan 1991"
  155. Data "0032","Boer","R.H. de","Langerak 10","1251 SZ","Laren","NL","20 Jan 1991"
  156. Data "0033","Teaque","M.K.","Herzenbroekenweg 88","5642 NP","Eindhoven","NL","20 Jan 1991"
  157. Data "0034","Walman","M.","R. van Rijnhof 5","1394 EH","Nederhorst de Berg","NL","20 Jan 1991"
  158. Data "0035","Groeneweg","A.P.","Oudaenstr. 145","2985 VM","Ridderkerk","NL","20 Jan 1991"
  159. Data "0036","Vink","I.","Biesboschstr. 76","3207 BC","Spijkenisse","NL","20 Jan 1991"
  160. Data "0037","Mosch","v.d.","J. van Scorelpark 68","1871 EZ","Schoorl","NL","20 Jan 1991"
  161. Data "0038","Verrept","A.","St.Bern.Steenweg 979 bus 9","2660","Hoboken","Belgie","17 Mar 1991"
  162. Data "0039","Valks","J.J.J.P.","Kerkeind 8a","5293 AB","Gemonde","NL","17 Mar 1991"
  163. Data "0040","Droogsma","M.","De Kamp 13","8851 GN","Tzummarum","NL","17 Mar 1991"
  164. Data "0041","Smit","E.M.","Oudegoedstr. 33","7413 EA","Deventer","NL","17 Mar 1991"
  165. Data "0042","Kooij","A.P. v/d","Abeelstr. 31","2565 XL","'s-Gravenhage","NL","17 Mar 1991"
  166. Data "0043","Lampe","B.F.","Holtenstr. 124","2541 AZ","'s-Gravenhage","NL","17 Mar 1991"
  167. Data "0044","Mie","Th.P.C. de","Oranjestr. 2","3312 VH","Dordrecht","NL","17 Mar 1991"
  168. Data "0045","Reus","F.M. de","Peperdonk 18","3206 CB","Spijkenisse","NL","20 Mar 1991"
  169. Data "0046","Molenaar","G.R.","Rozenstr. 53","6708 EN","Wageningen","NL","20 Mar 1991"
  170. Data "0047","Swart","P.E.","G. v. Prinstererstr. 72","3131 GH","Vlaardingen","NL","20 Mar 1991"
  171. Data "0048","Foedere","L.M.","Molenwijkstr. 2","2271 XW","Voorburg","NL","20 Mar 1991"
  172. Data "0049","Verelst","M.L.M.","Bongweg 264","3192 NE","Hoogvliet","NL","20 Mar 1991"
  173. Data "0050","Rensink","W.G.","Lindelaan 22","7478 BH","Diepenheim","NL","20 Mar 1991"
  174. Data "0051","Vogel","J. de","Rijnsburgerweg 124 / k. 1001","2333 AG","Leiden","NL","20 Mar 1991"
  175. Data "0052","Haan","P. de","Gr. Balderikstr. 73","3032 HD","Rotterdam","NL","20 Mar 1991"
  176. Data "0053","Verbiest","R.","Westlanderwerf 16","2317 EH","Leiden","NL","20 Mar 1991"
  177. Data "0054","Habets Pisoft Service","","Borghaag 75","6228 EX ","Maastricht","NL ","20 Mar 1991"
  178. Data "0055","Oud","T.W.A.","Demmerskamp 28","7524 CN","Enschede","NL","20 Mar 1991"
  179. Data "0056","Linden","H.","G. v. Prinstererlaan 391","1181 TW","Amsterdam","NL","20 Mar 1991"
  180. Data "0057","Blaak","M.L.","Dr. Bonstr. 50","1566 KX","Assendelf","NL","21 Mar 1991"
  181. Data "0058","Fransen","C.","Beekenstein 113","3328 ZE","Dordrecht","NL","27 Mar 1991"
  182. Data "0059","Boer","H.","Verl. Kerkweg 3","8091 DW","Wezep","NL","11 Apr 1991"
  183. Data "0060","Meerkerk Jr.","L.","P/A Dorpsstr. 117","2935 AB","Ouderkerk a/d IJssel","NL","11 Apr 1991"
  184. Data "0061","Voncken","G.L.M.","Thull 8","6365 AL","Schinnen","NL","20 Apr 1991"
  185. Data "0062","Todter","B.","Meppelweg 790","2544 BV","'s-Gravenhage","NL","20 Apr 1991"
  186. Data "0063","Valee","Michael","Eekhoornstr. 15","3600","Genk","Belgie","20 Apr 1991"
  187. Data "0064","Bisoen","M.R.","Gravinnestr. 17","6707 EW","Wageningen","NL","9 May 1991"
  188. Data "0065","Heesch","J.M.H.Th. van","Gebr. v. Doornln. 42","5961 BC","Horst","NL","9 May 1991"
  189. Data "0066","Mercier","J.G.F.G.","Beiaard 93","4876 CB","Etten Leur","NL","9 May 1991"
  190. Data "0067","Overbosch","E.T.","V.Musschenbstr. 20","3514 XK","Utrecht","NL","20 May 1991"
  191. Data "0068","Berendse","R.F.","Schieweg 160-d","3038 BH","Rotterdam","NL","20 May 1991"
  192. Data "0069","Zwanenburg","C.","Geraniumstr. 13","3135 XE","Vlaardingen","NL","4 Jun 1991"
  193. Data "0070","Haren","A.G.J. van","Zuiderlaan 3","6905 AC","Zevenaar","NL","4 Jun 1991"
  194. Data "0071","Elsas","Drs. R. Ph.","Slobeend 14","3435 VP","Nieuwegein","NL","5 Jun 1991"
  195. Data "0072","Sprangers","J.","Koolmees 59","5161 SX","Sprang Capelle","NL","5 Jun 1991"
  196. Data "0073","Ouden","H.A.L. den","ten Houtenstr. 12","4401 KT","Yerseke","NL","12 Jun 1991"
  197. Data "0074","Stapper","W.J.F.","A.Bontekoeplantsoen 5 III","1063 KB","Amsterdam","NL","12 Jun 1991"
  198. Data "0075","Jonge","M. de","Melchiorhof 27","5801 KL","Venray","NL","12 Jun 1991"
  199. Data "0076","Roon","M. van","J. Haydnlaan 19","2394 GJ","Hazerswoude RD","NL","20 Jun 1991"
  200. Data "0077","Waal","W. de","Ajaxstr. 68","3054 SE","Rotterdam","NL","20 Jun 1991"
  201. Data "0078","Tiemeyer","S.","Rodenbachlaan 12","5615 GH","Eindhoven","NL","20 Jun 1991"
  202. Data "0079","Rutte","L.I.","P. Kieftstr. 5","1901 PR","Castricum","NL","20 Jun 1991"
  203. Data "0080","Prent","R.","Nw. Kerkstr. 115","3864 EC","Nijkerkerveen","NL","14 Jul 1991"
  204. Data "0081","Buitenkamp","K.","Cavaljeplein 188","1442 XS","Purmerend","NL","14 Jul 1991"
  205. Data "0082","Pietersen","A.V.K.","Papaverweg 2","1032 KB","Amsterdam","NL","14 Jul 1991"
  206. CDATA:
  207. Data $0,$0,$F60,$F30,$E00,$E02,$D05,$D07
  208. Data $D09,$C0B,$B0C,$80B,$60B,$40B,$20A,$FFF