home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8901d.d64 / variabeln.l < prev   
Text File  |  1995-03-30  |  2KB  |  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.