home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_1_1992_-_de.d64 / devisen.64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  447 lines
  1. 1 rem ***********************
  2. 2 rem *     devisen 64      *
  3. 3 rem *     written by      *
  4. 4 rem *    thomas knoop     *
  5. 5 rem *   hirschgraben 15   *
  6. 6 rem *   2000 hamburg 76   *
  7. 7 rem *      feb. 1987      *
  8. 8 rem ***********************
  9. 10 print"[147]";
  10. 11 dim a$(18),a(18),b(18),b$(18)
  11. 12 poke 53280,0:poke 53281,0
  12. 15 printchr$(142);:print chr$(8);
  13. 20 for x=1 to 18:read a$(x),a(x),b(x),b$(x):next:read t$,m$,j$
  14. 25 t$(1)="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  15. 26 t$(2)="[221] devisen 64[182] written by[182] thomas knoop [221]"
  16. 27 t$(3)="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  17. 29 d=1
  18. 30 gosub 2500
  19. 31 print"[145]";
  20. 32 print tab(13)" m e n u e [146]"
  21. 33 print
  22. 34 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  23. 35 print"[221]";spc(2)"1[146] = dm betrag in ausl.waehrung";spc(6)"[221]";
  24. 40 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  25. 45 print"[221]";spc(2)"2[146] = ausl.waehrung in dm betrag";spc(6)"[221]";
  26. 50 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  27. 55 print"[221]";spc(2)"3[146] = ausl.waehrung in ausl.waehrung";spc(2)"[221]";
  28. 60 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  29. 65 print"[221]";spc(2)"4[146] = kurs-uebersicht";spc(17)"[221]";
  30. 70 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  31. 75 print"[221]";spc(2)"5[146] = kurse aendern";spc(19)"[221]";
  32. 76 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  33. 77 print"[221]";spc(2)"6[146] = kurse drucken";spc(19)"[221]";
  34. 80 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  35. 85 print"[221]";spc(2)"7[146] = kurse laden";spc(21)"[221]";
  36. 90 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  37. 95 print"[221]";spc(2)"8[146] = kurse abspeichern";spc(15)"[221]";
  38. 100 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  39. 105 print"[221]";spc(2)"9[146] = programm - ende";spc(17)"[221]";
  40. 110 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  41. 114 poke 55296,1
  42. 115 poke 2023,125
  43. 120 get x$
  44. 125 x=val(x$)
  45. 130 if x<1 or x>9 then 120
  46. 135 on x goto 145,240,355,515,745,1155,855,960,1065
  47. 140 goto 120
  48. 145 rem ** dm-ausl. **
  49. 150 gosub 2525
  50. 155 gosub 2500
  51. 160 za=val(be$)
  52. 165 print"einzuwechselnder dm betrag ?";
  53. 168 gr=6
  54. 170 gosub 2665
  55. 175 dm=val(be$)
  56. 180 au=dm/a(za)
  57. 185 au=au*b(za)
  58. 187 au=int(100*au+.5)
  59. 189 au=au/100
  60. 190 print:print:print
  61. 195 print tab(8)"sie bekommen fuer"dm"dm"
  62. 197 print
  63. 198 printtab(10)">>"au;b$(za)" <<"
  64. 200 for x=1 to 9:print:next
  65. 205 for x=1 to 40:print"[192]";:next
  66. 210 print"[181]  m[146] = menue [194] w[146] = dm - ausl.waehrung  [182]";
  67. 215 for x=1 to 40:print"[192]";:next
  68. 220 get x$
  69. 225 if x$="m"then 30
  70. 230 if x$="w"then 145
  71. 235 goto 220
  72. 240 rem ** aul.-dm **
  73. 245 gosub 2525
  74. 250 gosub 2500
  75. 255 za=val(be$)
  76. 260 print"einzuwechselnden "b$(za)" betrag ?";
  77. 263 gr=6
  78. 265 gosub 2665
  79. 270 be=val(be$)
  80. 275 au=be*a(za)
  81. 280 au=au/b(za)
  82. 285 au=int(100*au+.5)
  83. 290 au=au/100
  84. 295 print:print
  85. 300 print tab(4)"sie bekommen fuer"be;b$(za)
  86. 305 print
  87. 310 print tab(12)">>"au"dm <<"
  88. 315 for x=1 to 9:print:next
  89. 320 for x=1 to 40:print"[192]";:next
  90. 325 print"[181]  m[146] = menue [194] w[146] = ausl. - dm betrag   [182]";
  91. 330 for x=1 to 40:print"[192]";:next
  92. 335 get x$
  93. 340 if x$="m"then 30
  94. 345 if x$="w"then 240
  95. 350 goto 335
  96. 355 rem ** ausl.-ausl. **
  97. 360 zz=1
  98. 365 gosub 2525
  99. 370 print"von land (nummer) ?";
  100. 375 gr=2
  101. 378 gosub 2665
  102. 380 a=val(be$)
  103. 381 y=val(be$)
  104. 384 gosub 2810
  105. 385 print"[145]                                       ";
  106. 390 print:print"[145]";
  107. 395 print"nach land (nummer) ?";
  108. 400 gr=2
  109. 403 gosub 2665
  110. 405 b=val(be$)
  111. 407 y=val(be$)
  112. 408 gosub 2810
  113. 410 zz=0
  114. 415 gosub 2500
  115. 420 print"umzurechnender "b$(a)" betrag ?";
  116. 423 gr=6
  117. 425 gosub 2665
  118. 430 be=val(be$)
  119. 435 au=be*a(a)/b(a)
  120. 440 au=au/a(b)*b(b)
  121. 445 au=int(100*au+.5)
  122. 450 au=au/100
  123. 455 print:print
  124. 460 print tab(8)"sie bekommen fuer"be;b$(a)"
  125. 465 [153]
  126. 470 [153] [163]12)">>"au;b$(b)" <<"
  127. 475 [129] x[178]1 [164] 10:[153]:[130]
  128. 480 [129] x[178]1 [164] 40:[153]"tan";:[130]
  129. 485 [153]"int  mwait = menue peek wwait = ausl.-ausl.waehrung abs";
  130. 490 [129] x[178]1 [164] 40:[153]"tan";:[130]
  131. 495 [161] x$
  132. 500 [139] x$[178]"m"[167] 30
  133. 505 [139] x$[178]"w"[167] 355
  134. 510 [137] 495
  135. 515 [143] ** kurs-uebersicht **
  136. 520 [141] 2500
  137. 525 [153]"onon";
  138. 530 [129] x[178]1 [164] 40:[153]"and";:[130]
  139. 535 [129] x[178]1 [164] 18
  140. 540 [153]"int";[166]38)"abs";
  141. 545 [130]
  142. 550 [129] x[178]1 [164] 40:[153]"usr";:[130]
  143. 555 [153]""
  144. 560 [153]
  145. 565 [129] x[178]1 [164] 18
  146. 570 [153] [166]14)"peek";[166]12)"peek";[166]12)
  147. 575 [130]
  148. 580 [153]""
  149. 585 [153]
  150. 590 [129] x[178]1 [164] 18
  151. 595 y[178][195](a$(x))
  152. 600 y[178]39[171]y
  153. 605 [153] [166]1);a$(x);[166]y)
  154. 610 [130]
  155. 615 [153]""
  156. 620 [153]
  157. 625 [129] x[178]1 [164] 18
  158. 630 y[178][195](b$(x))
  159. 635 x$[178][196](b(x))
  160. 640 z[178][195](x$)
  161. 645 y[178]y[170]z[171]1
  162. 650 y[178]23[171]y
  163. 655 [153] [166]15)b(x);b$(x);[166]y)
  164. 660 [130]
  165. 665 [153]""
  166. 670 [153]
  167. 675 [129] x[178]1 [164] 18
  168. 680 x$[178][196](a(x))
  169. 685 y[178][195](x$)
  170. 690 y[178]11[171]y
  171. 695 [153] [166]28);a(x);[166]y)
  172. 700 [130]
  173. 705 [153]""
  174. 710 [153]
  175. 715 [129] x[178]1 [164] 18
  176. 720 [153] [166]36);"dm";[166]2)
  177. 725 [130]
  178. 730 [153]"stand : ";t$;".";m$;".";j$
  179. 732 [139] zz[178]1 [167] [142]
  180. 735 [151] 198,0:[146] 198,1
  181. 740 [137] 30
  182. 745 [143] ** kurse aendern **
  183. 750 zz[178]1:[141] 515
  184. 755 zz[178]0
  185. 760 [153]""
  186. 765 [153]
  187. 770 [129] x[178]1 [164] 18
  188. 775 [153] [166]29);
  189. 778 [151] 19,64
  190. 780 [133] x$
  191. 782 [153]
  192. 783 [151] 19,0
  193. 785 x$[178][200](x$,6)
  194. 790 be[178][197](x$)
  195. 795 a(x)[178]be
  196. 798 [139] [181](x[173]2)[179][177]x[173]2 [167] [153]"on";
  197. 800 [130]
  198. 805 [153]
  199. 810 [153] [166]8)"on";
  200. 815 [151] 19,64
  201. 820 [133] x$
  202. 825 [153]
  203. 830 [151] 19,0
  204. 835 t$[178][200](x$,2)
  205. 840 m$[178][202](x$,4,3)
  206. 845 j$[178][201](x$,4)
  207. 850 [137] 30
  208. 855 [143] ** kurse laden **
  209. 860 [141] 2500
  210. 861 [153]"on";
  211. 862 [153] [163]14)"(NULL)tantantantantantantantantantantanright$"
  212. 863 [153] [163]14)"(NULL)daten laden(NULL)"
  213. 864 [153] [163]14)"mid$tantantantantantantantantantantan(NULL)"
  214. 865 [153]:[153]
  215. 867 [139] d[178]1 [167] [153]"datentraeger : diskettewait / kassette"
  216. 868 [139] d[178]2 [167] [153]"datentraeger : diskette / kassettewait"
  217. 869 [153]:[153]
  218. 870 [153]" bitte legen sie die daten-diskette einwait"
  219. 875 [153]
  220. 880 [153] [163]6)"und druecken danach 'return'wait"
  221. 885 [161] x$
  222. 890 [139] x$[178][199](13)[167] 900
  223. 891 [139] x$[178][199](32)[167] 30
  224. 894 [139] x$[178][199](29)[167] [141] 2865
  225. 895 [137] 885
  226. 900 [139] d[178]2 [167] 904
  227. 903 [141] 2740
  228. 904 [151] 214,16:[151] 211,10:[158] 58640
  229. 905 [153]"daten werden geladen"
  230. 908 [139] d[178]2 [167] [159] 3,1,0,"kurse":[137] 915
  231. 910 [159] 3,8,5,"kurse,s,r"
  232. 915 [129] x[178]1 [164] 18
  233. 920 [132]3,a(x)
  234. 925 [130]
  235. 930 [132]3,t$
  236. 931 [132]3,m$
  237. 932 [132]3,j$
  238. 935 [160] 3
  239. 940 [151] 214,16:[151] 211,10:[158] 58640
  240. 945 [153]" daten sind geladenwait "
  241. 950 [129] x[178]1 [164] 2000:[130]
  242. 955 [137] 30
  243. 960 [143] ** kurse speichern **
  244. 965 [141] 2500
  245. 966 [153]"on";
  246. 967 [153] [163]12)"(NULL)tantantantantantantantantantantantantantantanright$"
  247. 968 [153] [163]12)"(NULL)daten speichern(NULL)"
  248. 969 [153] [163]12)"mid$tantantantantantantantantantantantantantantan(NULL)"
  249. 970 [153]:[153]
  250. 973 [153]"datentraeger : diskettewait / kassette"
  251. 974 [153]:[153]
  252. 975 [153]" bitte legen sie die daten-diskette einwait"
  253. 980 [153]
  254. 985 [153] [163]6)"und druecken danach 'return'wait"
  255. 990 [161] x$
  256. 995 [139] x$[178][199](13)[167] 1005
  257. 997 [139] x$[178][199](32)[167] 30
  258. 998 [139] x$[178][199](29)[167] [141] 2865
  259. 1000 [137] 990
  260. 1005 [139] d[178]2 [167] 1009
  261. 1008 [141] 2740
  262. 1009 [151] 214,16:[151] 211,8:[158] 58640
  263. 1010 [153]"daten werden gespeichert":[153]
  264. 1012 [139] d[178]2 [167] [159] 3,1,1,"kurse":[137] 1020
  265. 1015 [159] 3,8,5,"@:kurse,s,w"
  266. 1020 [129] x[178]1 [164] 18
  267. 1025 [152]3,a(x)
  268. 1030 [130]
  269. 1035 [152]3,t$
  270. 1036 [152]3,m$
  271. 1037 [152]3,j$
  272. 1040 [160] 3
  273. 1045 [151] 214,16:[151] 211,8:[158] 58640
  274. 1050 [153]" daten sind gespeichertwait "
  275. 1055 [129] x[178]1 [164] 2000:[130]
  276. 1060 [137] 30
  277. 1065 [143] ** programm - ende **
  278. 1070 [141] 2500
  279. 1075 [153]:[153]:[153]:[153]:[153]:[153]
  280. 1080 [153]"haben sie alle daten gesichert ?  ";
  281. 1085 [161] x$
  282. 1087 [153]"cmdstop ";:[129] x[178]1 [164] 200:[130]
  283. 1088 [153]"cmd ";:[129] x[178]1 [164] 200:[130]
  284. 1090 [139] x$[178]"j"[167] [153]"cmdjawait":[137] 1115
  285. 1095 [139] x$[178]"n"[167] [153]"cmdneinwait":[137] 1105
  286. 1100 [137] 1085
  287. 1105 [129] x[178]1 [164] 1000:[130]
  288. 1110 [137] 30
  289. 1115 [129] x[178]1 [164] 1000:[130]
  290. 1120 [141] 2500
  291. 1125 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]
  292. 1130 [153] [163]6)"oncmdstop p r o g r a m m  -  e n d e "
  293. 1135 [129] x[178]1 [164] 200:[130]
  294. 1140 [153] [163]6)"oncmd p r o g r a m m  -  e n d e "
  295. 1145 [129] x[178]1 [164] 200:[130]
  296. 1150 [137] 1130
  297. 1155 [143] ** kurse drucken **
  298. 1160 [141] 2500
  299. 1165 [153] [163]3)"bitte legen sie das papier ein und"
  300. 1170 [153]
  301. 1175 [153] [163]8)"schalten den drucker an"
  302. 1180 [153]
  303. 1185 [153] [163]15)"t a s t ewait"
  304. 1190 [151] 198,0:[146] 198,1
  305. 1200 [141] 2770
  306. 1205 po$[178][199](16):sr$[178][199](14)
  307. 1207 [141] 2500
  308. 1208 [153]"";[163]13)" ich drucke ! wait"
  309. 1210 [159] 3,4
  310. 1215 [157] 3
  311. 1218 [152]3,sr$;"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  312. 1220 [152]3,"(NULL)";po$;"05";"land";po$;"30";"(NULL)";po$;"35";"waehrung";po$;"54";"(NULL)";
  313. 1224 [152]3,po$;"57";"dm kurs";po$;"78";"(NULL)"
  314. 1225 [152]3,"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  315. 1230 [129] x[178]1 [164] 18
  316. 1235 [152]3,"(NULL)";po$;"03";a$(x);po$;"30""(NULL)";po$;"33";b(x);b$(x);po$;"54";"(NULL)";
  317. 1240 [152]3,po$;"57";a(x);po$;"73";"dm";po$;"78";"(NULL)"
  318. 1245 [130]
  319. 1250 [152]3,"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  320. 1255 [152]3
  321. 1260 [152]3,po$;"05";"stand : ";t$;".";m$;".";j$
  322. 1265 [152]3
  323. 1270 [160] 3
  324. 1275 [153]"on";[163]12)" f e r t i g  ! wait"
  325. 1280 [129] x[178]1 [164] 2000:[130]
  326. 1285 [137] 30
  327. 2500 [143] ** titel **
  328. 2505 [153]"load";
  329. 2510 [129] x[178]1 [164] 3:[153]t$(x);:[130]
  330. 2515 [153]:[153]
  331. 2520 [142]
  332. 2525 [143] ** daten ausgeben **
  333. 2530 [141] 2500
  334. 2531 z[178]0
  335. 2532 [153]"onon";
  336. 2535 [129] x[178]1 [164] 40:[153]"and";:[130]
  337. 2540 [129] x[178]1 [164] 18
  338. 2545 [153]"int";[166]38)"abs";
  339. 2550 [130]
  340. 2555 [129] x[178]1 [164] 40:[153]"usr";:[130]
  341. 2560 [153]""
  342. 2565 [153]
  343. 2570 [129] x[178]1 [164] 18
  344. 2575 y[178][195](a$(x))
  345. 2580 [139] x[178]10 [167] z[178][171]1
  346. 2585 y[178]26[171]y
  347. 2590 [153][166]2);x;[166]2[170]z)"peek      ";a$(x);[166]y)
  348. 2595 [130]
  349. 2598 [139] zz[178]1 [167] [142]
  350. 2600 [153]"welches land (nummer) ?";
  351. 2605 gr[178]2
  352. 2608 [141] 2665
  353. 2610 x[178][197](be$)
  354. 2612 [129] y[178]1 [164] 18
  355. 2615 [139] x[178]y [167] 2630
  356. 2620 [130]
  357. 2625 [137] 2635
  358. 2630 [142]
  359. 2635 [141] 2500
  360. 2640 [153] [163]10)"falsche nummer !!!!"
  361. 2645 [153]:[153]:[153]:[153]:[153]
  362. 2650 [153] [163]15)"t a s t e"
  363. 2655 [151] 198,0:[146] 198,1
  364. 2659 [151] 198,0
  365. 2660 [137] 2525
  366. 2665 [143] ** eingabe **
  367. 2669 be$[178]"":z[178]0
  368. 2670 [153]"  wait";
  369. 2675 [161] x$
  370. 2680 [139] x$[178][199](13)[167] [153]"cmd ":[142]
  371. 2683 [139] x$[178][199](20)[167] 2720
  372. 2684 [139] x$[178][199](32)[167] zz[178]0:[137] 30
  373. 2685 [139] x$[178]"0"[176] x$[178]"1"[176] x$[178]"2"[176] x$[178]"3"[176] x$[178]"4"[176] x$[178]"5"[167] 2705
  374. 2690 [139] x$[178]"6"[176] x$[178]"7"[176] x$[178]"8"[176] x$[178]"9"[167] 2705
  375. 2700 [137] 2675
  376. 2705 [139] z[178]gr [167] 2675
  377. 2708 be$[178]be$[170]x$
  378. 2710 [153]"cmd"x$;" wait";
  379. 2714 z[178]z[170]1
  380. 2715 [137] 2675
  381. 2720 [139] z[178]0 [167] 2675
  382. 2724 [153]"cmd cmdcmd wait";
  383. 2725 be$[178][200](be$,z[171]1)
  384. 2730 z[178]z[171]1
  385. 2735 [137] 2675
  386. 2740 [143] ** floppy an **
  387. 2743 [151] 768,185
  388. 2745 [159] 1,8,15,"i":[160] 1
  389. 2748 [151] 768,139
  390. 2750 [139] st[178][171]128 [167] [153]:[153] [163]10)"floppy nicht bereit !wait"
  391. 2755 [139] st[178][171]128 [167] [129] x[178]1 [164] 2000:[130]
  392. 2760 [139] st[178][171]128 [167] 30
  393. 2765 [142]
  394. 2770 [143] ** drucker an **
  395. 2775 gn[178]4
  396. 2779 [151] 768,185
  397. 2780 [159] 127,gn
  398. 2785 [152]127:[160] 127
  399. 2789 [151] 768,139
  400. 2790 [139] st[178][171]128 [167] [153]:[153] [163]9)"drucker nicht bereit !"
  401. 2795 [139] st[178][171]128 [167] [129] x[178]1 [164] 2000:[130]
  402. 2800 [139] st[178][171]128 [167] 30
  403. 2805 [142]
  404. 2810 [143] ** falsche zahl **
  405. 2815 [129] x[178]1 [164] 18
  406. 2820 [139] x[178]y [167] [142]
  407. 2825 [130]
  408. 2830 [141] 2500
  409. 2835 [153] [163]10)"falsche nummer !!!!"
  410. 2840 [153]:[153]:[153]:[153]:[153]
  411. 2845 [153] [163]15)"t a s t e"
  412. 2850 [151] 198,0:[146] 198,1
  413. 2855 [151] 198,0
  414. 2860 [137] 365
  415. 2865 [143] ** datentraeger **
  416. 2870 [139] d[178]2 [167] 2895
  417. 2875 [151] 214,9:[151] 211,15:[158] 58640
  418. 2880 [153]"diskette / kassettewait"
  419. 2885 d[178]2
  420. 2890 [137] 2910
  421. 2895 [151] 214,9:[151] 211,15:[158] 58640
  422. 2900 [153]"diskettewait / kassette"
  423. 2905 d[178]1
  424. 2910 [151] 214,12:[151] 211,27:[158] 58640
  425. 2915 [139] d[178]1 [167] [153]"diskettewait"
  426. 2920 [139] d[178]2 [167] [153]"kassettewait"
  427. 2925 [142]
  428. 3000 [131] usa,1.89,1,dollar
  429. 3005 [131] kanada,1.44,1,dollar
  430. 3010 [131] england,2.91,1,pfund
  431. 3015 [131] irland,2.72,1,pfund
  432. 3020 [131] holland,89.25,100,hfl
  433. 3025 [131] schweiz,120.00,100,sfrs
  434. 3030 [131] belgien,4.87,100,bfrs
  435. 3035 [131] frankreich,30.75,100,ff
  436. 3040 [131] daenemark,27.25,100,dkr
  437. 3050 [131] norwegen,27.00,100,nkr
  438. 3055 [131] schweden,29.00,100,skr
  439. 3060 [131] italien,1.45,1000,lire
  440. 3065 [131] oesterreich,14.33,100,oes
  441. 3070 [131] spanien,1.47,100,ptas
  442. 3075 [131] portugal,1.50,100,esc
  443. 3080 [131] finnland,41.00,100,fmk
  444. 3085 [131] griechenland,1.55,100,dra
  445. 3090 [131] jugoslawien,0.45,100,din
  446. 3095 [131] 24,feb,1987
  447.