home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 February
/
64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_B.d64
/
variabeln.l
< prev
next >
Wrap
Text File
|
2022-10-26
|
2KB
|
84 lines
0010 // programm zum austesten von parameter-uebergabe in proceduren
0020 //
0030 // definition von global-variabeln
0040 var1:=1; var2:=2; var3:=3; var4:=4; var5:=5; var6:=6
0050 dim art$ of 30
0060 //
0070 proc werte_ausgeben
0080 zone 2
0090 print var1,var2,var3,var4,var5,var6;
0100 print art$
0110 endproc werte_ausgeben
0120 //
0130 proc veraendern1
0140 // keine werte-uebergabe, kein abgeschlossene procedure
0150 var1:=var1+1
0160 var2:=var2+1
0170 var3:=var3+1
0180 var4:=var4+1
0190 var5:=var5+1
0200 var6:=var6+1
0210 endproc veraendern1
0220 //
0230 proc veraendern2(var1,var2)
0240 // werte-parameter
0250 var1:=var1+1
0260 var2:=var2+1
0270 var3:=var3+1
0280 var4:=var4+1
0290 var5:=var5+1
0300 var6:=var6+1
0310 endproc veraendern2
0320 //
0330 proc veraendern3(var1,ref var2)
0340 // werte- u. variablen-parameter
0350 var1:=var1+1
0360 var2:=var2+1
0370 var3:=var3+1
0380 var4:=var4+1
0390 var5:=var5+1
0400 var6:=var6+1
0410 endproc veraendern3
0420 //
0430 proc veraendern4(ref var1,ref var2)
0440 // variablen-parameter
0450 var1:=var1+1
0460 var2:=var2+1
0470 var3:=var3+1
0480 var4:=var4+1
0490 var5:=var5+1
0500 var6:=var6+1
0510 endproc veraendern4
0520 //
0530 proc veraendern5(var1,ref var2) closed
0540 // geschlossene procedure
0550 var1:=var1+1
0560 var2:=var2+1
0570 var3:=var3+1
0580 var4:=var4+1
0590 var5:=var5+1
0600 var6:=var6+1
0610 endproc veraendern5
0620 //
0630 // ** hauptprogramm **
0640 //
0650 art$:=" "
0660 werte_ausgeben
0670 veraendern1
0680 art$:=" "
0690 werte_ausgeben
0700 veraendern2(var1,var2)
0710 art$:=" (var1,var2)"
0720 werte_ausgeben
0730 veraendern3(var1,var2)
0740 art$:=" (var1,ref var2)"
0750 werte_ausgeben
0760 veraendern4(var1,var2)
0770 art$:=" (ref var1,ref var2)"
0780 werte_ausgeben
0790 veraendern5(var1,var2)
0800 art$:=" (var 1,ref var2) closed"
0810 werte_ausgeben
0820 end
0830 //