VARIABELN.L

FILE INFORMATION

FILENAME(S): VARIABELN.L

FILE TYPE(S): SEQ

FILE SIZE: 1.8K

FIRST SEEN: 2025-10-20 14:31:32

APPEARS ON: 11 disk(s)

FILE HASH

48e4dc651b1a68b7042eb2245246203460df2e30fb33b34dd79c437068864e49

FOUND ON DISKS (11 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10808 SEITE B	VARIABELN.L	SEQ	Treasure Chest - Klaus Der Suhler	29	7	DOWNLOAD FILE
10809 SEITE B	VARIABELN.L	SEQ	C64er, DuncanTwain	32	1	DOWNLOAD FILE
10808 SEITE B	VARIABELN.L	SEQ	C64er, DuncanTwain	29	7	DOWNLOAD FILE
10810 SEITE B	VARIABELN.L	SEQ	C64er, DuncanTwain	30	2	DOWNLOAD FILE
10812 SEITE B	VARIABELN.L	SEQ	C64er, DuncanTwain	30	2	DOWNLOAD FILE
10811 SEITE B	VARIABELN.L	SEQ	C64er, DuncanTwain	30	2	DOWNLOAD FILE
10902 SEITE D	VARIABELN.L	SEQ	C64er, DuncanTwain	5	8	DOWNLOAD FILE
10901 SEITE D	VARIABELN.L	SEQ	C64er, DuncanTwain	30	2	DOWNLOAD FILE
10812 SEITE B	VARIABELN.L	SEQ	DuncanTwain	30	2	DOWNLOAD FILE
10811 SEITE B	VARIABELN.L	SEQ	DuncanTwain	30	2	DOWNLOAD FILE
10902 SEITE D	VARIABELN.L	SEQ	DuncanTwain	5	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 20  50 52 4F 47 52 41 4D 4D  |0010 // PROGRAMM|
00000010: 20 5A 55 4D 20 41 55 53  54 45 53 54 45 4E 20 56  | ZUM AUSTESTEN V|
00000020: 4F 4E 20 50 41 52 41 4D  45 54 45 52 2D 55 45 42  |ON PARAMETER-UEB|
00000030: 45 52 47 41 42 45 20 49  4E 20 50 52 4F 43 45 44  |ERGABE IN PROCED|
00000040: 55 52 45 4E 0D 30 30 32  30 20 2F 2F 0D 30 30 33  |UREN.0020 //.003|
00000050: 30 20 2F 2F 20 44 45 46  49 4E 49 54 49 4F 4E 20  |0 // DEFINITION |
00000060: 56 4F 4E 20 47 4C 4F 42  41 4C 2D 56 41 52 49 41  |VON GLOBAL-VARIA|
00000070: 42 45 4C 4E 0D 30 30 34  30 20 56 41 52 31 3A 3D  |BELN.0040 VAR1:=|
00000080: 31 3B 20 56 41 52 32 3A  3D 32 3B 20 56 41 52 33  |1; VAR2:=2; VAR3|
00000090: 3A 3D 33 3B 20 56 41 52  34 3A 3D 34 3B 20 56 41  |:=3; VAR4:=4; VA|
000000A0: 52 35 3A 3D 35 3B 20 56  41 52 36 3A 3D 36 0D 30  |R5:=5; VAR6:=6.0|
000000B0: 30 35 30 20 44 49 4D 20  41 52 54 24 20 4F 46 20  |050 DIM ART$ OF |
000000C0: 33 30 0D 30 30 36 30 20  2F 2F 0D 30 30 37 30 20  |30.0060 //.0070 |
000000D0: 50 52 4F 43 20 57 45 52  54 45 5F 41 55 53 47 45  |PROC WERTE_AUSGE|
000000E0: 42 45 4E 20 0D 30 30 38  30 20 5A 4F 4E 45 20 32  |BEN .0080 ZONE 2|
000000F0: 0D 30 30 39 30 20 50 52  49 4E 54 20 56 41 52 31  |.0090 PRINT VAR1|
00000100: 2C 56 41 52 32 2C 56 41  52 33 2C 56 41 52 34 2C  |,VAR2,VAR3,VAR4,|
00000110: 56 41 52 35 2C 56 41 52  36 3B 0D 30 31 30 30 20  |VAR5,VAR6;.0100 |
00000120: 50 52 49 4E 54 20 41 52  54 24 0D 30 31 31 30 20  |PRINT ART$.0110 |
00000130: 45 4E 44 50 52 4F 43 20  57 45 52 54 45 5F 41 55  |ENDPROC WERTE_AU|
00000140: 53 47 45 42 45 4E 0D 30  31 32 30 20 2F 2F 0D 30  |SGEBEN.0120 //.0|
00000150: 31 33 30 20 50 52 4F 43  20 56 45 52 41 45 4E 44  |130 PROC VERAEND|
00000160: 45 52 4E 31 20 0D 30 31  34 30 20 2F 2F 20 4B 45  |ERN1 .0140 // KE|
00000170: 49 4E 45 20 57 45 52 54  45 2D 55 45 42 45 52 47  |INE WERTE-UEBERG|
00000180: 41 42 45 2C 20 4B 45 49  4E 20 41 42 47 45 53 43  |ABE, KEIN ABGESC|
00000190: 48 4C 4F 53 53 45 4E 45  20 50 52 4F 43 45 44 55  |HLOSSENE PROCEDU|
000001A0: 52 45 0D 30 31 35 30 20  56 41 52 31 3A 3D 56 41  |RE.0150 VAR1:=VA|
000001B0: 52 31 2B 31 0D 30 31 36  30 20 56 41 52 32 3A 3D  |R1+1.0160 VAR2:=|
000001C0: 56 41 52 32 2B 31 0D 30  31 37 30 20 56 41 52 33  |VAR2+1.0170 VAR3|
000001D0: 3A 3D 56 41 52 33 2B 31  0D 30 31 38 30 20 56 41  |:=VAR3+1.0180 VA|
000001E0: 52 34 3A 3D 56 41 52 34  2B 31 0D 30 31 39 30 20  |R4:=VAR4+1.0190 |
000001F0: 56 41 52 35 3A 3D 56 41  52 35 2B 31 0D 30 32 30  |VAR5:=VAR5+1.020|
00000200: 30 20 56 41 52 36 3A 3D  56 41 52 36 2B 31 0D 30  |0 VAR6:=VAR6+1.0|
00000210: 32 31 30 20 45 4E 44 50  52 4F 43 20 56 45 52 41  |210 ENDPROC VERA|
00000220: 45 4E 44 45 52 4E 31 0D  30 32 32 30 20 2F 2F 0D  |ENDERN1.0220 //.|
00000230: 30 32 33 30 20 50 52 4F  43 20 56 45 52 41 45 4E  |0230 PROC VERAEN|
00000240: 44 45 52 4E 32 28 56 41  52 31 2C 56 41 52 32 29  |DERN2(VAR1,VAR2)|
00000250: 20 0D 30 32 34 30 20 2F  2F 20 57 45 52 54 45 2D  | .0240 // WERTE-|
00000260: 50 41 52 41 4D 45 54 45  52 0D 30 32 35 30 20 56  |PARAMETER.0250 V|
00000270: 41 52 31 3A 3D 56 41 52  31 2B 31 0D 30 32 36 30  |AR1:=VAR1+1.0260|
00000280: 20 56 41 52 32 3A 3D 56  41 52 32 2B 31 0D 30 32  | VAR2:=VAR2+1.02|
00000290: 37 30 20 56 41 52 33 3A  3D 56 41 52 33 2B 31 0D  |70 VAR3:=VAR3+1.|
000002A0: 30 32 38 30 20 56 41 52  34 3A 3D 56 41 52 34 2B  |0280 VAR4:=VAR4+|
000002B0: 31 0D 30 32 39 30 20 56  41 52 35 3A 3D 56 41 52  |1.0290 VAR5:=VAR|
000002C0: 35 2B 31 0D 30 33 30 30  20 56 41 52 36 3A 3D 56  |5+1.0300 VAR6:=V|
000002D0: 41 52 36 2B 31 0D 30 33  31 30 20 45 4E 44 50 52  |AR6+1.0310 ENDPR|
000002E0: 4F 43 20 56 45 52 41 45  4E 44 45 52 4E 32 0D 30  |OC VERAENDERN2.0|
000002F0: 33 32 30 20 2F 2F 0D 30  33 33 30 20 50 52 4F 43  |320 //.0330 PROC|
00000300: 20 56 45 52 41 45 4E 44  45 52 4E 33 28 56 41 52  | VERAENDERN3(VAR|
00000310: 31 2C 52 45 46 20 56 41  52 32 29 20 0D 30 33 34  |1,REF VAR2) .034|
00000320: 30 20 2F 2F 20 57 45 52  54 45 2D 20 55 2E 20 56  |0 // WERTE- U. V|
00000330: 41 52 49 41 42 4C 45 4E  2D 50 41 52 41 4D 45 54  |ARIABLEN-PARAMET|
00000340: 45 52 0D 30 33 35 30 20  56 41 52 31 3A 3D 56 41  |ER.0350 VAR1:=VA|
00000350: 52 31 2B 31 0D 30 33 36  30 20 56 41 52 32 3A 3D  |R1+1.0360 VAR2:=|
00000360: 56 41 52 32 2B 31 0D 30  33 37 30 20 56 41 52 33  |VAR2+1.0370 VAR3|
00000370: 3A 3D 56 41 52 33 2B 31  0D 30 33 38 30 20 56 41  |:=VAR3+1.0380 VA|
00000380: 52 34 3A 3D 56 41 52 34  2B 31 0D 30 33 39 30 20  |R4:=VAR4+1.0390 |
00000390: 56 41 52 35 3A 3D 56 41  52 35 2B 31 0D 30 34 30  |VAR5:=VAR5+1.040|
000003A0: 30 20 56 41 52 36 3A 3D  56 41 52 36 2B 31 0D 30  |0 VAR6:=VAR6+1.0|
000003B0: 34 31 30 20 45 4E 44 50  52 4F 43 20 56 45 52 41  |410 ENDPROC VERA|
000003C0: 45 4E 44 45 52 4E 33 0D  30 34 32 30 20 2F 2F 0D  |ENDERN3.0420 //.|
000003D0: 30 34 33 30 20 50 52 4F  43 20 56 45 52 41 45 4E  |0430 PROC VERAEN|
000003E0: 44 45 52 4E 34 28 52 45  46 20 56 41 52 31 2C 52  |DERN4(REF VAR1,R|
000003F0: 45 46 20 56 41 52 32 29  20 0D 30 34 34 30 20 2F  |EF VAR2) .0440 /|
00000400: 2F 20 56 41 52 49 41 42  4C 45 4E 2D 50 41 52 41  |/ VARIABLEN-PARA|
00000410: 4D 45 54 45 52 0D 30 34  35 30 20 56 41 52 31 3A  |METER.0450 VAR1:|
00000420: 3D 56 41 52 31 2B 31 0D  30 34 36 30 20 56 41 52  |=VAR1+1.0460 VAR|
00000430: 32 3A 3D 56 41 52 32 2B  31 0D 30 34 37 30 20 56  |2:=VAR2+1.0470 V|
00000440: 41 52 33 3A 3D 56 41 52  33 2B 31 0D 30 34 38 30  |AR3:=VAR3+1.0480|
00000450: 20 56 41 52 34 3A 3D 56  41 52 34 2B 31 0D 30 34  | VAR4:=VAR4+1.04|
00000460: 39 30 20 56 41 52 35 3A  3D 56 41 52 35 2B 31 0D  |90 VAR5:=VAR5+1.|
00000470: 30 35 30 30 20 56 41 52  36 3A 3D 56 41 52 36 2B  |0500 VAR6:=VAR6+|
00000480: 31 0D 30 35 31 30 20 45  4E 44 50 52 4F 43 20 56  |1.0510 ENDPROC V|
00000490: 45 52 41 45 4E 44 45 52  4E 34 0D 30 35 32 30 20  |ERAENDERN4.0520 |
000004A0: 2F 2F 0D 30 35 33 30 20  50 52 4F 43 20 56 45 52  |//.0530 PROC VER|
000004B0: 41 45 4E 44 45 52 4E 35  28 56 41 52 31 2C 52 45  |AENDERN5(VAR1,RE|
000004C0: 46 20 56 41 52 32 29 20  43 4C 4F 53 45 44 0D 30  |F VAR2) CLOSED.0|
000004D0: 35 34 30 20 2F 2F 20 47  45 53 43 48 4C 4F 53 53  |540 // GESCHLOSS|
000004E0: 45 4E 45 20 50 52 4F 43  45 44 55 52 45 0D 30 35  |ENE PROCEDURE.05|
000004F0: 35 30 20 56 41 52 31 3A  3D 56 41 52 31 2B 31 0D  |50 VAR1:=VAR1+1.|
00000500: 30 35 36 30 20 56 41 52  32 3A 3D 56 41 52 32 2B  |0560 VAR2:=VAR2+|
00000510: 31 0D 30 35 37 30 20 56  41 52 33 3A 3D 56 41 52  |1.0570 VAR3:=VAR|
00000520: 33 2B 31 0D 30 35 38 30  20 56 41 52 34 3A 3D 56  |3+1.0580 VAR4:=V|
00000530: 41 52 34 2B 31 0D 30 35  39 30 20 56 41 52 35 3A  |AR4+1.0590 VAR5:|
00000540: 3D 56 41 52 35 2B 31 0D  30 36 30 30 20 56 41 52  |=VAR5+1.0600 VAR|
00000550: 36 3A 3D 56 41 52 36 2B  31 0D 30 36 31 30 20 45  |6:=VAR6+1.0610 E|
00000560: 4E 44 50 52 4F 43 20 56  45 52 41 45 4E 44 45 52  |NDPROC VERAENDER|
00000570: 4E 35 0D 30 36 32 30 20  2F 2F 0D 30 36 33 30 20  |N5.0620 //.0630 |
00000580: 2F 2F 20 2A 2A 20 48 41  55 50 54 50 52 4F 47 52  |// ** HAUPTPROGR|
00000590: 41 4D 4D 20 2A 2A 0D 30  36 34 30 20 2F 2F 0D 30  |AMM **.0640 //.0|
000005A0: 36 35 30 20 41 52 54 24  3A 3D 22 20 22 0D 30 36  |650 ART$:=" ".06|
000005B0: 36 30 20 57 45 52 54 45  5F 41 55 53 47 45 42 45  |60 WERTE_AUSGEBE|
000005C0: 4E 0D 30 36 37 30 20 56  45 52 41 45 4E 44 45 52  |N.0670 VERAENDER|
000005D0: 4E 31 0D 30 36 38 30 20  41 52 54 24 3A 3D 22 20  |N1.0680 ART$:=" |
000005E0: 22 0D 30 36 39 30 20 57  45 52 54 45 5F 41 55 53  |".0690 WERTE_AUS|
000005F0: 47 45 42 45 4E 0D 30 37  30 30 20 56 45 52 41 45  |GEBEN.0700 VERAE|
00000600: 4E 44 45 52 4E 32 28 56  41 52 31 2C 56 41 52 32  |NDERN2(VAR1,VAR2|
00000610: 29 0D 30 37 31 30 20 41  52 54 24 3A 3D 22 20 20  |).0710 ART$:="  |
00000620: 28 56 41 52 31 2C 56 41  52 32 29 22 0D 30 37 32  |(VAR1,VAR2)".072|
00000630: 30 20 57 45 52 54 45 5F  41 55 53 47 45 42 45 4E  |0 WERTE_AUSGEBEN|
00000640: 0D 30 37 33 30 20 56 45  52 41 45 4E 44 45 52 4E  |.0730 VERAENDERN|
00000650: 33 28 56 41 52 31 2C 56  41 52 32 29 0D 30 37 34  |3(VAR1,VAR2).074|
00000660: 30 20 41 52 54 24 3A 3D  22 20 20 28 56 41 52 31  |0 ART$:="  (VAR1|
00000670: 2C 52 45 46 20 56 41 52  32 29 22 0D 30 37 35 30  |,REF VAR2)".0750|
00000680: 20 57 45 52 54 45 5F 41  55 53 47 45 42 45 4E 0D  | WERTE_AUSGEBEN.|
00000690: 30 37 36 30 20 56 45 52  41 45 4E 44 45 52 4E 34  |0760 VERAENDERN4|
000006A0: 28 56 41 52 31 2C 56 41  52 32 29 0D 30 37 37 30  |(VAR1,VAR2).0770|
000006B0: 20 41 52 54 24 3A 3D 22  20 28 52 45 46 20 56 41  | ART$:=" (REF VA|
000006C0: 52 31 2C 52 45 46 20 56  41 52 32 29 22 0D 30 37  |R1,REF VAR2)".07|
000006D0: 38 30 20 57 45 52 54 45  5F 41 55 53 47 45 42 45  |80 WERTE_AUSGEBE|
000006E0: 4E 0D 30 37 39 30 20 56  45 52 41 45 4E 44 45 52  |N.0790 VERAENDER|
000006F0: 4E 35 28 56 41 52 31 2C  56 41 52 32 29 0D 30 38  |N5(VAR1,VAR2).08|
00000700: 30 30 20 41 52 54 24 3A  3D 22 20 28 56 41 52 20  |00 ART$:=" (VAR |
00000710: 31 2C 52 45 46 20 56 41  52 32 29 20 43 4C 4F 53  |1,REF VAR2) CLOS|
00000720: 45 44 22 0D 30 38 31 30  20 57 45 52 54 45 5F 41  |ED".0810 WERTE_A|
00000730: 55 53 47 45 42 45 4E 0D  30 38 32 30 20 45 4E 44  |USGEBEN.0820 END|
00000740: 20 0D 30 38 33 30 20 2F  2F 0D                    | .0830 //.      |

0010 // PROGRAMM ZUM AUSTESTEN VON PARAM
ETER-UEBERGABE IN PROCEDUREN.0020 //.003
0 // DEFINITION VON GLOBAL-VARIABELN.004
0 VAR1:=1; VAR2:=2; VAR3:=3; VAR4:=4; VA
R5:=5; VAR6:=6.0050 DIM ART$ OF 30.0060 
//.0070 PROC WERTE_AUSGEBEN .0080 ZONE 2
.0090 PRINT VAR1,VAR2,VAR3,VAR4,VAR5,VAR
6;.0100 PRINT ART$.0110 ENDPROC WERTE_AU
SGEBEN.0120 //.0130 PROC VERAENDERN1 .01
40 // KEINE WERTE-UEBERGABE, KEIN ABGESC
HLOSSENE PROCEDURE.0150 VAR1:=VAR1+1.016
0 VAR2:=VAR2+1.0170 VAR3:=VAR3+1.0180 VA
R4:=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 VAR
4:=VAR4+1.0290 VAR5:=VAR5+1.0300 VAR6:=V
AR6+1.0310 ENDPROC VERAENDERN2.0320 //.0
330 PROC VERAENDERN3(VAR1,REF VAR2) .034
0 // WERTE- U. VARIABLEN-PARAMETER.0350 
VAR1:=VAR1+1.0360 VAR2:=VAR2+1.0370 VAR3
:=VAR3+1.0380 VAR4:=VAR4+1.0390 VAR5:=VA
R5+1.0400 VAR6:=VAR6+1.0410 ENDPROC VERA
ENDERN3.0420 //.0430 PROC VERAENDERN4(RE
F VAR1,REF VAR2) .0440 // VARIABLEN-PARA
METER.0450 VAR1:=VAR1+1.0460 VAR2:=VAR2+
1.0470 VAR3:=VAR3+1.0480 VAR4:=VAR4+1.04
90 VAR5:=VAR5+1.0500 VAR6:=VAR6+1.0510 E
NDPROC VERAENDERN4.0520 //.0530 PROC VER
AENDERN5(VAR1,REF VAR2) CLOSED.0540 // G
ESCHLOSSENE PROCEDURE.0550 VAR1:=VAR1+1.
0560 VAR2:=VAR2+1.0570 VAR3:=VAR3+1.0580
 VAR4:=VAR4+1.0590 VAR5:=VAR5+1.0600 VAR
6:=VAR6+1.0610 ENDPROC VERAENDERN5.0620 
//.0630 // ** HAUPTPROGRAMM **.0640 //.0
650 ART$:=" ".0660 WERTE_AUSGEBEN.0670 V
ERAENDERN1.0680 ART$:=" ".0690 WERTE_AUS
GEBEN.0700 VERAENDERN2(VAR1,VAR2).0710 A
RT$:="  (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_AUSGEBE
N.0790 VERAENDERN5(VAR1,VAR2).0800 ART$:
=" (VAR 1,REF VAR2) CLOSED".0810 WERTE_A
USGEBEN.0820 END .0830 //.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL