home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_B.d64 / variabeln.l < prev    next >
Encoding:
Text File  |  1988-01-01  |  1.8 KB  |  84 lines
  1. 0010 // programm zum austesten von parameter-uebergabe in proceduren
  2. 0020 //
  3. 0030 // definition von global-variabeln
  4. 0040 var1:=1; var2:=2; var3:=3; var4:=4; var5:=5; var6:=6
  5. 0050 dim art$ of 30
  6. 0060 //
  7. 0070 proc werte_ausgeben 
  8. 0080 zone 2
  9. 0090 print var1,var2,var3,var4,var5,var6;
  10. 0100 print art$
  11. 0110 endproc werte_ausgeben
  12. 0120 //
  13. 0130 proc veraendern1 
  14. 0140 // keine werte-uebergabe, kein abgeschlossene procedure
  15. 0150 var1:=var1+1
  16. 0160 var2:=var2+1
  17. 0170 var3:=var3+1
  18. 0180 var4:=var4+1
  19. 0190 var5:=var5+1
  20. 0200 var6:=var6+1
  21. 0210 endproc veraendern1
  22. 0220 //
  23. 0230 proc veraendern2(var1,var2) 
  24. 0240 // werte-parameter
  25. 0250 var1:=var1+1
  26. 0260 var2:=var2+1
  27. 0270 var3:=var3+1
  28. 0280 var4:=var4+1
  29. 0290 var5:=var5+1
  30. 0300 var6:=var6+1
  31. 0310 endproc veraendern2
  32. 0320 //
  33. 0330 proc veraendern3(var1,ref var2) 
  34. 0340 // werte- u. variablen-parameter
  35. 0350 var1:=var1+1
  36. 0360 var2:=var2+1
  37. 0370 var3:=var3+1
  38. 0380 var4:=var4+1
  39. 0390 var5:=var5+1
  40. 0400 var6:=var6+1
  41. 0410 endproc veraendern3
  42. 0420 //
  43. 0430 proc veraendern4(ref var1,ref var2) 
  44. 0440 // variablen-parameter
  45. 0450 var1:=var1+1
  46. 0460 var2:=var2+1
  47. 0470 var3:=var3+1
  48. 0480 var4:=var4+1
  49. 0490 var5:=var5+1
  50. 0500 var6:=var6+1
  51. 0510 endproc veraendern4
  52. 0520 //
  53. 0530 proc veraendern5(var1,ref var2) closed
  54. 0540 // geschlossene procedure
  55. 0550 var1:=var1+1
  56. 0560 var2:=var2+1
  57. 0570 var3:=var3+1
  58. 0580 var4:=var4+1
  59. 0590 var5:=var5+1
  60. 0600 var6:=var6+1
  61. 0610 endproc veraendern5
  62. 0620 //
  63. 0630 // ** hauptprogramm **
  64. 0640 //
  65. 0650 art$:=" "
  66. 0660 werte_ausgeben
  67. 0670 veraendern1
  68. 0680 art$:=" "
  69. 0690 werte_ausgeben
  70. 0700 veraendern2(var1,var2)
  71. 0710 art$:="  (var1,var2)"
  72. 0720 werte_ausgeben
  73. 0730 veraendern3(var1,var2)
  74. 0740 art$:="  (var1,ref var2)"
  75. 0750 werte_ausgeben
  76. 0760 veraendern4(var1,var2)
  77. 0770 art$:=" (ref var1,ref var2)"
  78. 0780 werte_ausgeben
  79. 0790 veraendern5(var1,var2)
  80. 0800 art$:=" (var 1,ref var2) closed"
  81. 0810 werte_ausgeben
  82. 0820 end 
  83. 0830 //
  84.