LEKTION7
FILE INFORMATION
FILENAME(S): LEKTION7
FILE TYPE(S): SEQ
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-02 22:11:06
APPEARS ON: 1 disk(s)
FILE HASH
e4939ec717634a87aea1f4d75e5dab98b6eef3d0ee1df88afc2af87a44d55bb3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DISC53 | LEKTION7 | SEQ | Treasure Chest - ToGuMi | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2F 2A 20 CC 45 4B 54 49 4F 4E 37 0D 0D D0 41 52 |/* .EKTION7...AR| 00000010: 41 4D 45 54 45 52 20 55 4E 44 20 44 59 4E 41 4D |AMETER UND DYNAM| 00000020: 49 53 43 48 45 20 D6 41 52 49 41 42 4C 45 4E 0D |ISCHE .ARIABLEN.| 00000030: 0D C5 49 4E 45 52 20 C6 55 4E 4B 54 49 4F 4E 20 |..INER .UNKTION | 00000040: 45 49 4E 45 4E 20 D0 41 52 41 4D 45 54 45 52 20 |EINEN .ARAMETER | 00000050: 5A 55 20 55 45 42 45 52 47 45 42 45 4E 20 49 53 |ZU UEBERGEBEN IS| 00000060: 54 20 4D 49 54 20 C8 49 4C 46 45 20 44 45 53 20 |T MIT .ILFE DES | 00000070: D2 45 47 49 53 54 45 52 53 20 C8 D2 20 4B 45 49 |.EGISTERS .. KEI| 00000080: 4E 20 D0 52 4F 42 4C 45 4D 2E 20 DA 55 52 20 CE |N .ROBLEM. .UR .| 00000090: 4F 54 20 47 49 4E 47 45 4E 20 41 55 43 48 20 5A |OT GINGEN AUCH Z| 000000A0: 57 45 49 20 D0 41 52 41 4D 45 54 45 52 20 4D 49 |WEI .ARAMETER MI| 000000B0: 54 20 C8 49 4C 46 45 20 56 4F 4E 20 CE D2 2E 20 |T .ILFE VON ... | 000000C0: C6 55 45 52 20 4D 45 48 52 20 41 4C 53 20 5A 57 |.UER MEHR ALS ZW| 000000D0: 45 49 20 D7 45 52 54 45 20 49 53 54 20 44 49 45 |EI .ERTE IST DIE| 000000E0: 53 45 53 20 D6 45 52 46 41 48 52 45 4E 20 4E 49 |SES .ERFAHREN NI| 000000F0: 43 48 54 20 5A 55 20 47 45 42 52 41 55 43 48 45 |CHT ZU GEBRAUCHE| 00000100: 4E 2E 0D 0D C5 49 4E 45 20 C6 55 4E 4B 54 49 4F |N....INE .UNKTIO| 00000110: 4E 20 4E 41 4D 45 4E 53 20 46 55 45 4C 4C 45 4E |N NAMENS FUELLEN| 00000120: 20 53 4F 4C 4C 20 45 49 4E 45 4E 20 D3 50 45 49 | SOLL EINEN .PEI| 00000130: 43 48 45 52 42 45 52 45 49 43 48 20 4D 49 54 20 |CHERBEREICH MIT | 00000140: 45 49 4E 45 4D 20 D7 45 52 54 20 46 55 45 4C 4C |EINEM .ERT FUELL| 00000150: 45 4E 2E 20 D7 49 52 20 48 41 45 54 54 45 4E 20 |EN. .IR HAETTEN | 00000160: 5A 55 20 55 45 42 45 52 47 45 42 45 4E 20 44 49 |ZU UEBERGEBEN DI| 00000170: 45 20 C1 4E 46 41 4E 47 53 41 44 52 45 53 53 45 |E .NFANGSADRESSE| 00000180: 20 44 45 53 20 D3 50 45 49 43 48 45 52 42 45 52 | DES .PEICHERBER| 00000190: 45 49 43 48 45 53 2C 20 44 45 4E 20 D7 45 52 54 |EICHES, DEN .ERT| 000001A0: 20 55 4E 44 20 44 49 45 20 C1 4E 5A 41 48 4C 20 | UND DIE .NZAHL | 000001B0: 44 45 52 20 C2 59 54 45 53 2E 20 C4 49 45 53 20 |DER .YTES. .IES | 000001C0: 4B 41 4E 4E 20 46 4F 4C 47 45 4E 44 45 52 4D 41 |KANN FOLGENDERMA| 000001D0: 53 53 45 4E 20 47 45 53 43 48 45 48 45 4E 3A 0D |SSEN GESCHEHEN:.| 000001E0: 0D 28 20 53 43 52 45 45 4E 20 2C 20 27 41 27 20 |.( SCREEN , 'A' | 000001F0: 2C 20 31 30 30 30 20 46 55 45 4C 4C 45 4E 20 29 |, 1000 FUELLEN )| 00000200: 0D 0D C4 49 45 20 D5 45 42 45 52 47 41 42 45 20 |...IE .EBERGABE | 00000210: 4B 41 4E 4E 20 47 41 4E 5A 20 4F 48 4E 45 20 47 |KANN GANZ OHNE G| 00000220: 4C 4F 42 41 4C 45 20 D6 41 52 49 41 42 4C 45 4E |LOBALE .ARIABLEN| 00000230: 20 45 52 46 4F 4C 47 45 4E 2E 20 C4 45 52 20 CB | ERFOLGEN. .ER .| 00000240: 4F 4D 4D 41 42 45 46 45 48 4C 20 4C 45 47 54 20 |OMMABEFEHL LEGT | 00000250: 45 49 4E 45 4E 20 D7 45 52 54 20 49 4E 20 C8 D2 |EINEN .ERT IN ..| 00000260: 20 41 55 46 20 44 45 4D 20 42 45 52 45 49 54 53 | AUF DEM BEREITS| 00000270: 20 42 45 4B 41 4E 4E 54 45 4E 20 D3 54 41 50 45 | BEKANNTEN .TAPE| 00000280: 4C 20 41 42 2E 20 C5 49 4E 45 20 4F 45 46 46 4E |L AB. .INE OEFFN| 00000290: 45 4E 44 45 20 CB 4C 41 4D 4D 45 52 20 42 45 57 |ENDE .LAMMER BEW| 000002A0: 49 52 4B 54 20 45 54 57 41 53 20 5A 55 53 41 45 |IRKT ETWAS ZUSAE| 000002B0: 54 5A 4C 49 43 48 45 53 2C 20 44 41 53 20 42 49 |TZLICHES, DAS BI| 000002C0: 53 48 45 52 20 4E 4F 43 48 20 4E 49 43 48 54 20 |SHER NOCH NICHT | 000002D0: 42 45 53 50 52 4F 43 48 45 4E 20 57 55 52 44 45 |BESPROCHEN WURDE| 000002E0: 2E 20 D3 49 45 20 53 49 43 48 45 52 54 20 44 45 |. .IE SICHERT DE| 000002F0: 4E 20 D3 54 41 4E 44 20 44 45 53 20 D0 41 52 41 |N .TAND DES .ARA| 00000300: 4D 45 54 45 52 53 54 41 50 45 4C 53 20 41 55 46 |METERSTAPELS AUF| 00000310: 20 44 45 4D 20 D2 45 54 55 52 4E 53 54 41 50 45 | DEM .ETURNSTAPE| 00000320: 4C 2E 20 C5 49 4E 45 20 53 43 48 4C 49 45 53 53 |L. .INE SCHLIESS| 00000330: 45 4E 44 45 20 CB 4C 41 4D 4D 45 52 20 42 45 52 |ENDE .LAMMER BER| 00000340: 49 43 48 54 49 47 54 20 4D 49 54 20 C8 49 4C 46 |ICHTIGT MIT .ILF| 00000350: 45 20 44 45 53 20 47 45 53 49 43 48 45 52 54 45 |E DES GESICHERTE| 00000360: 4E 20 D3 54 41 50 45 4C 53 54 41 4E 44 45 53 20 |N .TAPELSTANDES | 00000370: 44 45 4E 20 D0 41 52 41 4D 45 54 45 52 53 54 41 |DEN .ARAMETERSTA| 00000380: 50 45 4C 20 57 49 45 44 45 52 2E 20 D7 49 52 20 |PEL WIEDER. .IR | 00000390: 44 55 45 52 46 45 4E 20 44 41 48 45 52 20 49 4E |DUERFEN DAHER IN| 000003A0: 4E 45 52 48 41 4C 42 20 56 4F 4E 20 CB 4C 41 4D |NERHALB VON .LAM| 000003B0: 4D 45 52 4E 20 45 49 4E 46 41 43 48 20 D7 45 52 |MERN EINFACH .ER| 000003C0: 54 45 20 41 55 46 20 44 45 4E 20 D0 41 52 41 4D |TE AUF DEN .ARAM| 000003D0: 45 54 45 52 53 54 41 50 45 4C 20 42 45 46 4F 45 |ETERSTAPEL BEFOE| 000003E0: 52 44 45 52 4E 2C 20 41 55 46 20 57 45 4C 43 48 |RDERN, AUF WELCH| 000003F0: 45 20 44 41 4E 4E 20 45 49 4E 45 20 C6 55 4E 4B |E DANN EINE .UNK| 00000400: 54 49 4F 4E 20 28 46 55 45 4C 4C 45 4E 29 20 5A |TION (FUELLEN) Z| 00000410: 55 47 52 45 49 46 45 4E 20 4B 41 4E 4E 2E 20 C4 |UGREIFEN KANN. .| 00000420: 49 45 53 20 47 45 53 43 48 49 45 48 54 20 4D 49 |IES GESCHIEHT MI| 00000430: 54 20 C8 49 4C 46 45 20 56 4F 4E 20 D0 41 52 41 |T .ILFE VON .ARA| 00000440: 4D 45 54 45 52 56 41 52 49 41 42 4C 45 4E 3A 0D |METERVARIABLEN:.| 00000450: 0D 56 4F 49 44 20 46 55 45 4C 4C 45 4E 28 20 41 |.VOID FUELLEN( A| 00000460: 44 52 20 5A 45 49 43 48 45 4E 20 29 0D 42 45 47 |DR ZEICHEN ).BEG| 00000470: 49 4E 0D 20 20 49 4E 54 20 41 4E 5A 41 48 4C 20 |IN. INT ANZAHL | 00000480: 3B 0D 20 20 47 4F 20 50 52 46 0D 3A 20 57 52 20 |;. GO PRF.: WR | 00000490: 5A 45 49 43 48 45 4E 20 5D 20 41 44 52 20 5D 2B |ZEICHEN ] ADR ]+| 000004A0: 2B 20 42 59 20 3D 0D 3A 20 50 52 46 20 41 4E 5A |+ BY =.: PRF ANZ| 000004B0: 41 48 4C 20 5D 2D 2D 20 49 46 20 57 52 0D 42 45 |AHL ]-- IF WR.BE| 000004C0: 4E 44 0D 0D C4 59 4E 41 4D 49 53 43 48 45 20 D6 |ND...YNAMISCHE .| 000004D0: 41 52 49 41 42 4C 45 4E 20 53 49 4E 44 20 D6 41 |ARIABLEN SIND .A| 000004E0: 52 49 41 42 4C 45 4E 2C 20 44 49 45 20 53 49 43 |RIABLEN, DIE SIC| 000004F0: 48 20 41 55 46 20 44 45 4D 20 D0 41 52 41 4D 45 |H AUF DEM .ARAME| 00000500: 54 45 52 53 54 41 50 45 4C 20 42 45 46 49 4E 44 |TERSTAPEL BEFIND| 00000510: 45 4E 2E 20 C6 55 4E 4B 54 49 4F 4E 45 4E 2C 20 |EN. .UNKTIONEN, | 00000520: 44 49 45 20 53 4F 4C 43 48 45 20 D6 41 52 49 41 |DIE SOLCHE .ARIA| 00000530: 42 4C 45 4E 20 42 45 4E 55 45 54 5A 45 4E 2C 20 |BLEN BENUETZEN, | 00000540: 4D 55 45 53 53 45 4E 20 49 4D 4D 45 52 2C 20 41 |MUESSEN IMMER, A| 00000550: 55 43 48 20 57 45 4E 4E 20 42 45 49 4D 20 C1 55 |UCH WENN BEIM .U| 00000560: 46 52 55 46 20 4B 45 49 4E 45 20 D7 45 52 54 55 |FRUF KEINE .ERTU| 00000570: 45 42 45 52 47 41 42 45 20 53 54 41 54 54 46 49 |EBERGABE STATTFI| 00000580: 4E 44 45 54 2C 20 49 4E 4E 45 52 48 41 4C 42 20 |NDET, INNERHALB | 00000590: 56 4F 4E 20 CB 4C 41 4D 4D 45 52 4E 20 41 55 46 |VON .LAMMERN AUF| 000005A0: 47 45 52 55 46 45 4E 20 57 45 52 44 45 4E 2E 20 |GERUFEN WERDEN. | 000005B0: C9 4E 20 44 45 52 20 CB 4C 41 4D 4D 45 52 20 44 |.N DER .LAMMER D| 000005C0: 45 52 20 C6 55 4E 4B 54 49 4F 4E 53 56 45 52 45 |ER .UNKTIONSVERE| 000005D0: 49 4E 42 41 52 55 4E 47 20 53 49 4E 44 20 46 55 |INBARUNG SIND FU| 000005E0: 45 52 20 44 49 45 20 55 45 42 45 52 47 45 42 45 |ER DIE UEBERGEBE| 000005F0: 4E 45 4E 20 D7 45 52 54 45 20 D6 41 52 49 41 42 |NEN .ERTE .ARIAB| 00000600: 4C 45 4E 4E 41 4D 45 4E 20 41 4E 5A 55 47 45 42 |LENNAMEN ANZUGEB| 00000610: 45 4E 2E 20 C4 49 45 20 C1 4E 5A 41 48 4C 20 44 |EN. .IE .NZAHL D| 00000620: 49 45 53 45 52 20 CE 41 4D 45 4E 20 4D 55 53 53 |IESER .AMEN MUSS| 00000630: 20 4D 49 54 20 44 45 52 20 C1 4E 5A 41 48 4C 20 | MIT DER .NZAHL | 00000640: 44 45 52 20 D7 45 52 54 45 20 55 45 42 45 52 45 |DER .ERTE UEBERE| 00000650: 49 4E 53 54 49 4D 4D 45 4E 2C 20 53 4F 46 45 52 |INSTIMMEN, SOFER| 00000660: 4E 20 4E 4F 43 48 20 57 45 49 54 45 52 45 20 44 |N NOCH WEITERE D| 00000670: 59 4E 41 4D 49 53 43 48 45 20 D6 41 52 49 41 42 |YNAMISCHE .ARIAB| 00000680: 4C 45 4E 20 49 4E 4E 45 52 48 41 4C 42 20 44 45 |LEN INNERHALB DE| 00000690: 52 20 C6 55 4E 4B 54 49 4F 4E 20 44 45 46 49 4E |R .UNKTION DEFIN| 000006A0: 49 45 52 54 20 57 45 52 44 45 4E 20 53 4F 4C 4C |IERT WERDEN SOLL| 000006B0: 45 4E 2E 20 C9 4D 20 C2 45 49 53 50 49 45 4C 20 |EN. .M .EISPIEL | 000006C0: 57 55 52 44 45 4E 20 4E 55 52 20 41 44 52 20 55 |WURDEN NUR ADR U| 000006D0: 4E 44 20 5A 45 49 43 48 45 4E 20 41 4C 53 20 D0 |ND ZEICHEN ALS .| 000006E0: 41 52 41 4D 45 54 45 52 56 41 52 49 41 42 4C 45 |ARAMETERVARIABLE| 000006F0: 4E 20 41 4E 47 45 47 45 42 45 4E 2C 20 44 45 4E |N ANGEGEBEN, DEN| 00000700: 4E 20 44 45 52 20 4C 45 54 5A 54 45 20 D7 45 52 |N DER LETZTE .ER| 00000710: 54 20 41 4E 5A 41 48 4C 20 57 55 52 44 45 20 4C |T ANZAHL WURDE L| 00000720: 45 44 49 47 4C 49 43 48 20 44 55 52 43 48 20 C8 |EDIGLICH DURCH .| 00000730: D2 20 55 45 42 45 52 47 45 42 45 4E 2E 20 C4 49 |. UEBERGEBEN. .I| 00000740: 45 53 45 4E 20 D7 45 52 54 20 48 41 42 45 4E 20 |ESEN .ERT HABEN | 00000750: 57 49 52 20 5A 55 52 20 C1 42 57 45 43 48 53 4C |WIR ZUR .BWECHSL| 00000760: 55 4E 47 20 49 4E 20 45 49 4E 45 52 20 44 59 4E |UNG IN EINER DYN| 00000770: 41 4D 49 53 43 48 45 4E 20 D6 41 52 49 41 42 4C |AMISCHEN .ARIABL| 00000780: 45 4E 20 41 42 47 45 4C 45 47 54 2E 20 C4 59 4E |EN ABGELEGT. .YN| 00000790: 41 4D 49 53 43 48 45 20 D6 41 52 49 41 42 4C 45 |AMISCHE .ARIABLE| 000007A0: 4E 20 57 45 52 44 45 4E 20 4E 41 43 48 20 42 45 |N WERDEN NACH BE| 000007B0: 47 49 4E 20 49 4D 20 C3 4F 44 45 42 45 52 45 49 |GIN IM .ODEBEREI| 000007C0: 43 48 20 56 45 52 45 49 4E 42 41 52 54 2E 20 C4 |CH VEREINBART. .| 000007D0: 49 45 20 D6 45 52 45 49 4E 42 41 52 55 4E 47 20 |IE .EREINBARUNG | 000007E0: 49 53 54 20 4D 49 54 20 C8 49 4C 46 45 20 56 4F |IST MIT .ILFE VO| 000007F0: 4E 20 49 4E 54 20 55 4E 44 20 43 48 41 52 2C 20 |N INT UND CHAR, | 00000800: 46 41 53 54 20 47 45 4E 41 55 53 4F 20 57 49 45 |FAST GENAUSO WIE| 00000810: 20 42 45 49 20 53 54 41 54 49 53 43 48 45 4E 20 | BEI STATISCHEN | 00000820: D6 41 52 49 41 42 4C 45 4E 20 4D 4F 45 47 4C 49 |.ARIABLEN MOEGLI| 00000830: 43 48 2E 20 CB 4F 4D 4D 41 53 20 55 4E 44 20 D3 |CH. .OMMAS UND .| 00000840: 54 52 49 43 48 50 55 4E 4B 54 45 2C 20 44 49 45 |TRICHPUNKTE, DIE| 00000850: 20 44 49 45 20 CE 41 4D 45 4E 20 54 52 45 4E 4E | DIE .AMEN TRENN| 00000860: 45 4E 20 42 45 5A 49 45 48 55 4E 47 53 57 45 49 |EN BEZIEHUNGSWEI| 00000870: 53 45 20 44 49 45 20 D6 45 52 45 49 4E 42 41 52 |SE DIE .EREINBAR| 00000880: 55 4E 47 20 41 42 53 43 48 4C 49 45 53 53 45 4E |UNG ABSCHLIESSEN| 00000890: 2C 20 57 45 52 44 45 4E 20 41 4C 53 20 C2 45 46 |, WERDEN ALS .EF| 000008A0: 45 48 4C 2C 20 44 45 4E 20 C9 4E 48 41 4C 54 20 |EHL, DEN .NHALT | 000008B0: 56 4F 4E 20 C8 D2 20 41 55 46 20 44 45 4E 20 D3 |VON .. AUF DEN .| 000008C0: 54 41 50 45 4C 20 5A 55 20 4C 45 47 45 4E 20 55 |TAPEL ZU LEGEN U| 000008D0: 45 42 45 52 53 45 54 5A 54 2E 20 C5 53 20 4B 41 |EBERSETZT. .S KA| 000008E0: 4E 4E 20 44 41 48 45 52 20 42 45 49 20 44 45 52 |NN DAHER BEI DER| 000008F0: 20 C4 45 46 49 4E 49 54 49 4F 4E 20 42 45 52 45 | .EFINITION BERE| 00000900: 49 54 53 20 45 49 4E 45 20 DA 55 57 45 49 53 55 |ITS EINE .UWEISU| 00000910: 4E 47 20 56 4F 52 47 45 4E 4F 4D 4D 45 4E 20 57 |NG VORGENOMMEN W| 00000920: 45 52 44 45 4E 3A 0D 0D 49 4E 54 20 41 20 35 20 |ERDEN:..INT A 5 | 00000930: 33 20 2B 20 3B 0D 0D D3 4F 47 41 52 20 C1 52 49 |3 + ;...OGAR .RI| 00000940: 54 48 4D 45 54 49 53 43 48 45 20 C1 55 53 44 52 |THMETISCHE .USDR| 00000950: 55 45 43 4B 45 20 53 49 4E 44 20 4D 4F 45 47 4C |UECKE SIND MOEGL| 00000960: 49 43 48 2E 20 C4 49 45 53 45 20 C1 55 53 44 52 |ICH. .IESE .USDR| 00000970: 55 45 43 4B 45 20 44 55 45 52 46 45 4E 20 41 42 |UECKE DUERFEN AB| 00000980: 45 52 20 4B 45 49 4E 45 20 CB 4F 4D 4D 41 53 20 |ER KEINE .OMMAS | 00000990: 4F 44 45 52 20 D3 54 52 49 43 48 50 55 4E 4B 54 |ODER .TRICHPUNKT| 000009A0: 45 20 45 4E 54 48 41 4C 54 45 4E 2E 0D 0D D6 45 |E ENTHALTEN....E| 000009B0: 52 42 4F 54 45 4E 20 49 53 54 3A 0D 49 4E 54 20 |RBOTEN IST:.INT | 000009C0: 41 20 28 20 35 20 2C 20 33 20 45 58 50 20 29 20 |A ( 5 , 3 EXP ) | 000009D0: 3B 0D 0D CD 4F 45 47 4C 49 43 48 20 44 41 47 45 |;...OEGLICH DAGE| 000009E0: 47 45 4E 3A 0D 28 20 35 20 2C 20 33 20 45 58 50 |GEN:.( 5 , 3 EXP| 000009F0: 20 29 20 49 4E 54 20 41 20 3B 0D 0D C5 49 4E 45 | ) INT A ;...INE| 00000A00: 20 57 49 45 44 45 52 48 4F 4C 54 45 20 D6 45 52 | WIEDERHOLTE .ER| 00000A10: 45 49 4E 42 41 52 55 4E 47 20 49 4E 20 45 49 4E |EINBARUNG IN EIN| 00000A20: 45 52 20 D0 52 4F 47 52 41 4D 4D 53 43 48 4C 45 |ER .ROGRAMMSCHLE| 00000A30: 49 46 45 20 47 49 4C 54 20 45 53 20 5A 55 20 56 |IFE GILT ES ZU V| 00000A40: 45 52 4D 45 49 44 45 4E 2E 20 C1 4C 53 4F 20 42 |ERMEIDEN. .LSO B| 00000A50: 49 54 54 45 20 4E 49 43 48 54 3A 0D 0D 3A 20 4C |ITTE NICHT:..: L| 00000A60: 41 42 20 49 4E 54 20 41 20 3B 0D 20 20 47 45 54 |AB INT A ;. GET| 00000A70: 43 20 4E 49 46 20 4C 41 42 0D 0D CD 4F 45 47 4C |C NIF LAB...OEGL| 00000A80: 49 43 48 20 57 41 45 52 45 20 42 45 49 20 55 4E |ICH WAERE BEI UN| 00000A90: 53 45 52 45 52 20 C6 55 4E 4B 54 49 4F 4E 20 46 |SERER .UNKTION F| 00000AA0: 55 45 4C 4C 45 4E 20 41 55 43 48 20 47 45 57 45 |UELLEN AUCH GEWE| 00000AB0: 53 45 4E 3A 0D 0D 56 4F 49 44 20 46 55 45 4C 4C |SEN:..VOID FUELL| 00000AC0: 45 4E 28 20 41 44 52 20 5A 45 49 43 48 45 4E 20 |EN( ADR ZEICHEN | 00000AD0: 41 4E 5A 41 48 4C 20 29 0D 42 45 47 49 4E 20 2C |ANZAHL ).BEGIN ,| 00000AE0: 0D 0D C8 49 45 52 20 53 54 49 4D 4D 54 20 44 49 |...IER STIMMT DI| 00000AF0: 45 20 C1 4E 5A 41 48 4C 20 44 45 52 20 D6 41 52 |E .NZAHL DER .AR| 00000B00: 49 41 42 4C 45 4E 20 4E 49 43 48 54 20 4D 49 54 |IABLEN NICHT MIT| 00000B10: 20 44 45 4E 20 D7 45 52 54 45 4E 20 41 55 46 20 | DEN .ERTEN AUF | 00000B20: 44 45 4D 20 D3 54 41 50 45 4C 20 55 45 42 45 52 |DEM .TAPEL UEBER| 00000B30: 45 49 4E 2C 20 4A 45 44 4F 43 48 20 45 49 4E 20 |EIN, JEDOCH EIN | 00000B40: CB 4F 4D 4D 41 20 4E 41 43 48 20 42 45 47 49 4E |.OMMA NACH BEGIN| 00000B50: 20 4C 45 47 54 20 44 45 4E 20 D7 45 52 54 20 4E | LEGT DEN .ERT N| 00000B60: 41 43 48 54 52 41 45 47 4C 49 43 48 20 41 55 46 |ACHTRAEGLICH AUF| 00000B70: 20 44 45 4D 20 D3 54 41 50 45 4C 20 49 4E 20 41 | DEM .TAPEL IN A| 00000B80: 4E 5A 41 48 4C 20 41 42 2E 20 C4 45 52 20 D6 45 |NZAHL AB. .ER .E| 00000B90: 52 45 49 4E 42 41 52 55 4E 47 20 57 45 49 54 45 |REINBARUNG WEITE| 00000BA0: 52 45 52 20 44 59 4E 41 4D 49 53 43 48 45 52 20 |RER DYNAMISCHER | 00000BB0: D6 41 52 49 41 42 4C 45 4E 20 53 54 45 48 54 20 |.ARIABLEN STEHT | 00000BC0: 4E 49 43 48 54 53 20 4D 45 48 52 20 49 4D 20 D7 |NICHTS MEHR IM .| 00000BD0: 45 47 45 2E 20 C4 59 4E 41 4D 49 53 43 48 45 20 |EGE. .YNAMISCHE | 00000BE0: D6 41 52 49 41 42 4C 45 4E 20 57 45 52 44 45 4E |.ARIABLEN WERDEN| 00000BF0: 20 42 45 49 20 4A 45 44 45 4D 20 C6 55 4E 4B 54 | BEI JEDEM .UNKT| 00000C00: 49 4F 4E 53 41 55 46 52 55 46 20 4E 45 55 20 41 |IONSAUFRUF NEU A| 00000C10: 4E 47 45 4C 45 47 54 20 55 4E 44 20 42 45 48 41 |NGELEGT UND BEHA| 00000C20: 4C 54 45 4E 20 44 41 48 45 52 20 49 48 52 45 20 |LTEN DAHER IHRE | 00000C30: D7 45 52 54 45 20 4E 49 43 48 54 20 42 45 49 2C |.ERTE NICHT BEI,| 00000C40: 20 57 49 45 20 44 49 45 53 45 53 20 42 45 49 20 | WIE DIESES BEI | 00000C50: 53 54 41 54 49 53 43 48 45 4E 20 D6 41 52 49 41 |STATISCHEN .ARIA| 00000C60: 42 4C 45 4E 20 44 45 52 20 C6 41 4C 4C 20 49 53 |BLEN DER .ALL IS| 00000C70: 54 2E 0D 0D C5 53 20 49 53 54 20 41 55 43 48 20 |T....S IST AUCH | 00000C80: 4D 4F 45 47 4C 49 43 48 2C 20 45 49 4E 45 20 55 |MOEGLICH, EINE U| 00000C90: 4E 42 45 53 54 49 4D 4D 54 45 20 C1 4E 5A 41 48 |NBESTIMMTE .NZAH| 00000CA0: 4C 20 56 4F 4E 20 D0 41 52 41 4D 45 54 45 52 4E |L VON .ARAMETERN| 00000CB0: 20 5A 55 20 55 45 42 45 52 47 45 42 45 4E 2E 20 | ZU UEBERGEBEN. | 00000CC0: CE 55 52 20 44 55 45 52 46 45 4E 20 44 41 4E 4E |.UR DUERFEN DANN| 00000CD0: 20 4B 45 49 4E 45 20 57 45 49 54 45 52 45 4E 20 | KEINE WEITEREN | 00000CE0: 44 59 4E 41 4D 49 53 43 48 45 4E 20 D6 41 52 49 |DYNAMISCHEN .ARI| 00000CF0: 41 42 4C 45 4E 20 49 4E 4E 45 52 48 41 4C 42 20 |ABLEN INNERHALB | 00000D00: 44 45 52 20 C6 55 4E 4B 54 49 4F 4E 20 4D 45 48 |DER .UNKTION MEH| 00000D10: 52 20 56 45 52 45 49 4E 42 41 52 54 20 57 45 52 |R VEREINBART WER| 00000D20: 44 45 4E 2C 20 44 41 20 44 45 52 20 C3 4F 4D 50 |DEN, DA DER .OMP| 00000D30: 49 4C 45 52 20 57 45 47 45 4E 20 CE 49 43 48 54 |ILER WEGEN .ICHT| 00000D40: 4B 45 4E 4E 54 4E 49 53 20 44 45 52 20 D0 41 52 |KENNTNIS DER .AR| 00000D50: 41 4D 45 54 45 52 5A 41 48 4C 20 4E 49 43 48 54 |AMETERZAHL NICHT| 00000D60: 20 44 45 52 45 4E 20 D0 4F 53 49 54 49 4F 4E 49 | DEREN .OSITIONI| 00000D70: 45 52 55 4E 47 20 42 45 53 54 49 4D 4D 45 4E 20 |ERUNG BESTIMMEN | 00000D80: 4B 41 4E 4E 2E 20 C1 42 45 52 20 46 55 45 52 20 |KANN. .BER FUER | 00000D90: 44 49 45 53 45 4E 20 C6 41 4C 4C 20 47 49 42 54 |DIESEN .ALL GIBT| 00000DA0: 20 45 53 20 4A 41 20 41 55 43 48 20 4E 4F 43 48 | ES JA AUCH NOCH| 00000DB0: 20 44 49 45 20 53 54 41 54 49 53 43 48 45 4E 20 | DIE STATISCHEN | 00000DC0: D6 41 52 49 41 42 4C 45 4E 2E 0D 0D C5 49 4E 20 |.ARIABLEN....IN | 00000DD0: C2 45 49 53 50 49 45 4C 20 48 49 45 52 5A 55 20 |.EISPIEL HIERZU | 00000DE0: 49 53 54 20 44 49 45 20 C1 4E 57 45 49 53 55 4E |IST DIE .NWEISUN| 00000DF0: 47 20 50 52 49 4E 54 2C 20 44 49 45 20 49 4D 20 |G PRINT, DIE IM | 00000E00: D5 4E 54 45 52 53 43 48 49 45 44 20 5A 55 20 50 |.NTERSCHIED ZU P| 00000E10: 55 54 4C 20 4D 45 48 52 45 52 45 20 D3 54 52 49 |UTL MEHRERE .TRI| 00000E20: 4E 47 53 20 41 55 53 5A 55 47 45 42 45 4E 20 56 |NGS AUSZUGEBEN V| 00000E30: 45 52 4D 41 47 3A 0D 0D 41 24 20 50 55 54 4C 20 |ERMAG:..A$ PUTL | 00000E40: 42 24 20 50 55 54 4C 20 43 24 20 50 55 54 4C 0D |B$ PUTL C$ PUTL.| 00000E50: 28 20 41 24 20 2C 20 42 24 20 2C 20 43 24 20 50 |( A$ , B$ , C$ P| 00000E60: 52 49 4E 54 20 29 0D 0D D7 49 52 20 56 45 52 45 |RINT )...IR VERE| 00000E70: 49 4E 42 41 52 45 4E 3A 0D 0D 56 4F 49 44 20 50 |INBAREN:..VOID P| 00000E80: 52 49 4E 54 28 20 4C 49 53 54 45 20 29 0D 49 4E |RINT( LISTE ).IN| 00000E90: 54 20 5A 47 20 3B 0D 42 45 47 49 4E 20 2C 20 30 |T ZG ;.BEGIN , 0| 00000EA0: 20 2C 0D 20 20 4C 49 53 54 45 20 5A 47 20 3D 20 | ,. LISTE ZG = | 00000EB0: 5D 0D 3A 20 4C 41 42 20 50 55 54 4C 20 32 20 5A |].: LAB PUTL 2 Z| 00000EC0: 47 20 2B 3D 20 5D 20 49 46 20 4C 41 42 0D 42 45 |G += ] IF LAB.BE| 00000ED0: 4E 44 0D 0D CE 55 52 20 46 55 45 52 20 44 45 4E |ND...UR FUER DEN| 00000EE0: 20 45 52 53 54 45 4E 20 D7 45 52 54 20 57 49 52 | ERSTEN .ERT WIR| 00000EF0: 44 20 45 49 4E 45 20 D6 41 52 49 41 42 4C 45 20 |D EINE .ARIABLE | 00000F00: 4E 41 4D 45 4E 53 20 4C 49 53 54 45 20 56 45 52 |NAMENS LISTE VER| 00000F10: 45 49 4E 42 41 52 54 2E 20 CE 41 43 48 20 42 45 |EINBART. .ACH BE| 00000F20: 47 49 4E 20 57 49 52 44 20 44 45 52 20 4C 45 54 |GIN WIRD DER LET| 00000F30: 5A 54 45 20 D7 45 52 54 20 41 55 46 20 44 45 4E |ZTE .ERT AUF DEN| 00000F40: 20 D3 54 41 50 45 4C 20 47 45 42 52 41 43 48 54 | .TAPEL GEBRACHT| 00000F50: 20 55 4E 44 20 5A 55 53 41 45 54 5A 4C 49 43 48 | UND ZUSAETZLICH| 00000F60: 20 45 49 4E 45 20 CE 55 4C 4C 2C 20 44 49 45 20 | EINE .ULL, DIE | 00000F70: 44 41 53 20 C5 4E 44 45 20 44 45 52 20 CC 49 53 |DAS .NDE DER .IS| 00000F80: 54 45 20 4D 41 52 4B 49 45 52 54 2E 20 CE 41 43 |TE MARKIERT. .AC| 00000F90: 48 20 44 45 52 20 DA 55 57 45 49 53 55 4E 47 20 |H DER .UWEISUNG | 00000FA0: 4C 49 53 54 45 20 5A 47 20 3D 20 5A 45 49 47 54 |LISTE ZG = ZEIGT| 00000FB0: 20 5A 47 20 41 55 46 20 44 45 4E 20 D0 41 52 41 | ZG AUF DEN .ARA| 00000FC0: 4D 45 54 45 52 53 54 41 50 45 4C 2C 20 57 4F 20 |METERSTAPEL, WO | 00000FD0: 53 49 43 48 20 44 49 45 20 D6 41 52 49 41 42 4C |SICH DIE .ARIABL| 00000FE0: 45 20 4C 49 53 54 45 20 42 45 46 49 4E 44 45 54 |E LISTE BEFINDET| 00000FF0: 2E 20 C4 45 52 45 4E 20 C9 4E 48 41 4C 54 20 49 |. .EREN .NHALT I| 00001000: 53 54 20 44 49 45 20 C1 44 52 45 53 53 45 20 44 |ST DIE .DRESSE D| 00001010: 45 53 20 45 52 53 54 45 4E 20 D3 54 52 49 4E 47 |ES ERSTEN .TRING| 00001020: 53 2E 20 C4 49 45 20 C1 55 53 47 41 42 45 20 4B |S. .IE .USGABE K| 00001030: 41 4E 4E 20 45 52 46 4F 4C 47 45 4E 2E 20 CE 41 |ANN ERFOLGEN. .A| 00001040: 43 48 20 C5 52 48 4F 45 48 55 4E 47 20 44 45 53 |CH .RHOEHUNG DES| 00001050: 20 DA 45 49 47 45 52 53 20 5A 47 20 55 4D 20 44 | .EIGERS ZG UM D| 00001060: 45 4E 20 D7 45 52 54 20 5A 57 45 49 20 57 49 52 |EN .ERT ZWEI WIR| 00001070: 44 20 41 55 46 20 44 49 45 20 57 45 49 54 45 52 |D AUF DIE WEITER| 00001080: 45 4E 20 D0 41 52 41 4D 45 54 45 52 20 5A 55 47 |EN .ARAMETER ZUG| 00001090: 45 47 52 49 46 46 45 4E 2C 20 42 49 53 20 44 49 |EGRIFFEN, BIS DI| 000010A0: 45 20 CE 55 4C 4C 4D 41 52 4B 49 45 52 55 4E 47 |E .ULLMARKIERUNG| 000010B0: 20 45 52 52 45 49 43 48 54 20 57 49 52 44 2E 0D | ERREICHT WIRD..| 000010C0: 0D D0 52 4F 47 52 41 4D 4D 42 45 49 53 50 49 45 |..ROGRAMMBEISPIE| 000010D0: 4C 3A 0D 2A 2F 0D 0D 0D 44 45 46 20 43 4C 53 20 |L:.*/...DEF CLS | 000010E0: 31 34 37 20 50 55 54 43 3B 0D 44 45 46 20 5D 5D |147 PUTC;.DEF ]]| 000010F0: 2B 2B 20 5D 2B 2B 20 42 59 20 5D 3B 0D 0D 56 4F |++ ]++ BY ];..VO| 00001100: 49 44 20 50 55 54 43 28 20 29 0D 42 45 47 49 4E |ID PUTC( ).BEGIN| 00001110: 0D 20 20 41 43 20 42 59 20 3D 20 30 58 46 46 44 |. AC BY = 0XFFD| 00001120: 32 20 53 59 53 0D 42 45 4E 44 0D 0D 56 4F 49 44 |2 SYS.BEND..VOID| 00001130: 20 50 55 54 4C 28 20 29 0D 49 4E 54 20 5A 47 20 | PUTL( ).INT ZG | 00001140: 3B 0D 42 45 47 49 4E 0D 20 20 5A 47 20 3D 20 47 |;.BEGIN. ZG = G| 00001150: 4F 20 52 44 0D 3A 20 57 52 20 50 55 54 43 0D 3A |O RD.: WR PUTC.:| 00001160: 20 52 44 20 5A 47 20 5D 5D 2B 2B 20 49 46 20 57 | RD ZG ]]++ IF W| 00001170: 52 0D 42 45 4E 44 0D 0D 43 48 41 52 20 47 45 54 |R.BEND..CHAR GET| 00001180: 43 28 20 29 0D 42 45 47 49 4E 0D 20 20 30 58 46 |C( ).BEGIN. 0XF| 00001190: 46 45 34 20 53 59 53 20 41 43 20 42 59 20 5D 0D |FE4 SYS AC BY ].| 000011A0: 42 45 4E 44 0D 0D 43 48 41 52 20 4B 45 59 28 20 |BEND..CHAR KEY( | 000011B0: 29 0D 42 45 47 49 4E 0D 3A 20 4E 45 58 54 20 47 |).BEGIN.: NEXT G| 000011C0: 45 54 43 20 4E 49 46 20 4E 45 58 54 0D 42 45 4E |ETC NIF NEXT.BEN| 000011D0: 44 0D 0D 56 4F 49 44 20 46 55 45 4C 4C 45 4E 28 |D..VOID FUELLEN(| 000011E0: 20 41 44 52 20 5A 45 49 43 48 45 4E 20 41 4E 5A | ADR ZEICHEN ANZ| 000011F0: 41 48 4C 20 29 0D 42 45 47 49 4E 20 2C 0D 20 20 |AHL ).BEGIN ,. | 00001200: 5A 45 49 43 48 45 4E 20 5D 20 47 4F 20 50 52 46 |ZEICHEN ] GO PRF| 00001210: 0D 3A 20 57 52 20 53 57 41 50 20 41 44 52 20 5D |.: WR SWAP ADR ]| 00001220: 2B 2B 20 42 59 20 3D 0D 3A 20 50 52 46 20 41 4E |++ BY =.: PRF AN| 00001230: 5A 41 48 4C 20 5D 2D 2D 20 49 46 20 57 52 0D 42 |ZAHL ]-- IF WR.B| 00001240: 45 4E 44 0D 0D 56 4F 49 44 20 50 52 49 4E 54 28 |END..VOID PRINT(| 00001250: 20 4C 49 53 54 45 20 29 0D 49 4E 54 20 5A 47 20 | LISTE ).INT ZG | 00001260: 3B 0D 42 45 47 49 4E 20 2C 20 30 20 2C 0D 20 20 |;.BEGIN , 0 ,. | 00001270: 4C 49 53 54 45 20 5A 47 20 3D 20 5D 0D 3A 20 4C |LISTE ZG = ].: L| 00001280: 41 42 20 50 55 54 4C 20 32 20 5A 47 20 2B 3D 20 |AB PUTL 2 ZG += | 00001290: 5D 20 49 46 20 4C 41 42 0D 42 45 4E 44 0D 0D 4D |] IF LAB.BEND..M| 000012A0: 41 49 4E 28 29 0D 43 48 41 52 0D 20 20 46 55 20 |AIN().CHAR. FU | 000012B0: 22 28 20 31 30 32 34 20 2C 20 27 41 27 20 2C 20 |"( 1024 , 'A' , | 000012C0: 31 30 30 30 20 46 55 45 4C 4C 45 4E 20 29 22 0D |1000 FUELLEN )".| 000012D0: 2C 20 54 41 53 54 45 20 22 20 D7 45 49 54 45 52 |, TASTE " .EITER| 000012E0: 20 4D 49 54 20 D4 41 53 54 45 20 22 0D 2C 20 46 | MIT .ASTE "., F| 000012F0: 49 20 22 28 20 31 30 32 34 20 2C 20 27 42 27 20 |I "( 1024 , 'B' | 00001300: 2C 20 31 30 30 30 20 46 49 4C 4C 20 29 22 20 3B |, 1000 FILL )" ;| 00001310: 0D 42 45 47 49 4E 0D 0D 28 20 22 2F 31 34 37 C4 |.BEGIN..( "/147.| 00001320: 49 45 20 C6 55 4E 4B 54 49 4F 4E 20 22 20 2C 20 |IE .UNKTION " , | 00001330: 46 55 20 2C 20 22 20 46 55 45 4C 4C 54 20 44 45 |FU , " FUELLT DE| 00001340: 4E 20 47 41 4E 5A 45 4E 20 C2 49 4C 44 53 43 48 |N GANZEN .ILDSCH| 00001350: 49 52 4D 2E 2F 4E 2F 4E 2F 4E 22 20 2C 20 54 41 |IRM./N/N/N" , TA| 00001360: 53 54 45 20 50 52 49 4E 54 20 29 0D 0D 20 20 4B |STE PRINT ).. K| 00001370: 45 59 20 28 20 31 30 32 34 20 2C 20 27 41 27 20 |EY ( 1024 , 'A' | 00001380: 2C 20 31 30 30 30 20 46 55 45 4C 4C 45 4E 20 29 |, 1000 FUELLEN )| 00001390: 0D 20 20 28 20 22 2F 31 39 22 20 2C 20 54 41 53 |. ( "/19" , TAS| 000013A0: 54 45 20 50 52 49 4E 54 20 29 20 4B 45 59 0D 0D |TE PRINT ) KEY..| 000013B0: 28 20 22 2F 31 34 37 C4 49 45 20 42 45 52 45 49 |( "/147.IE BEREI| 000013C0: 54 53 20 49 4E 20 C3 D0 20 45 4E 54 48 41 4C 54 |TS IN .. ENTHALT| 000013D0: 45 4E 45 20 C6 55 4E 4B 54 49 4F 4E 2F 4E 22 20 |ENE .UNKTION/N" | 000013E0: 2C 20 46 49 20 2C 20 22 20 49 53 54 2F 4E 57 45 |, FI , " IST/NWE| 000013F0: 53 45 4E 54 4C 49 43 48 20 53 43 48 4E 45 4C 4C |SENTLICH SCHNELL| 00001400: 45 52 2E 2F 4E 2F 4E 2F 4E 22 20 2C 20 54 41 53 |ER./N/N/N" , TAS| 00001410: 54 45 20 50 52 49 4E 54 20 29 0D 0D 20 20 4B 45 |TE PRINT ).. KE| 00001420: 59 20 28 20 31 30 32 34 20 2C 20 27 42 27 20 2C |Y ( 1024 , 'B' ,| 00001430: 20 31 30 30 30 20 46 49 4C 4C 20 29 0D 20 20 28 | 1000 FILL ). (| 00001440: 20 22 2F 31 39 22 20 2C 20 54 41 53 54 45 20 50 | "/19" , TASTE P| 00001450: 52 49 4E 54 20 29 20 4B 45 59 20 43 4C 53 0D 42 |RINT ) KEY CLS.B| 00001460: 45 4E 44 0D 0D 0D 2F 2A 20 D7 45 49 54 45 52 20 |END.../* .EITER | 00001470: 4D 49 54 20 4C 45 4B 54 49 4F 4E 38 20 2A 2F 0D |MIT LEKTION8 */.|
/* LEKTION7..PARAMETER UND DYNAMISCHE VA RIABLEN..EINER FUNKTION EINEN PARAMETER ZU UEBERGEBEN IST MIT HILFE DES REGISTER S HR KEIN PROBLEM. ZUR NOT GINGEN AUCH Z WEI PARAMETER MIT HILFE VON NR. FUER MEH R ALS ZWEI WERTE IST DIESES VERFAHREN NI CHT ZU GEBRAUCHEN...EINE FUNKTION NAMENS FUELLEN SOLL EINEN SPEICHERBEREICH MIT EINEM WERT FUELLEN. WIR HAETTEN ZU UEBER GEBEN DIE ANFANGSADRESSE DES SPEICHERBER EICHES, DEN WERT UND DIE ANZAHL DER BYTE S. DIES KANN FOLGENDERMASSEN GESCHEHEN:. .( SCREEN , 'A' , 1000 FUELLEN )..DIE UE BERGABE KANN GANZ OHNE GLOBALE VARIABLEN ERFOLGEN. DER KOMMABEFEHL LEGT EINEN WE RT IN HR AUF DEM BEREITS BEKANNTEN STAPE L AB. EINE OEFFNENDE KLAMMER BEWIRKT ETW AS ZUSAETZLICHES, DAS BISHER NOCH NICHT BESPROCHEN WURDE. SIE SICHERT DEN STAND DES PARAMETERSTAPELS AUF DEM RETURNSTAPE L. EINE SCHLIESSENDE KLAMMER BERICHTIGT MIT HILFE DES GESICHERTEN STAPELSTANDES DEN PARAMETERSTAPEL WIEDER. WIR DUERFEN DAHER INNERHALB VON KLAMMERN EINFACH WER TE AUF DEN PARAMETERSTAPEL BEFOERDERN, A UF WELCHE DANN EINE FUNKTION (FUELLEN) Z UGREIFEN KANN. DIES GESCHIEHT MIT HILFE VON PARAMETERVARIABLEN:..VOID FUELLEN( A DR ZEICHEN ).BEGIN. INT ANZAHL ;. GO P RF.: WR ZEICHEN ] ADR ]++ BY =.: PRF ANZ AHL ]-- IF WR.BEND..DYNAMISCHE VARIABLEN SIND VARIABLEN, DIE SICH AUF DEM PARAME TERSTAPEL BEFINDEN. FUNKTIONEN, DIE SOLC HE VARIABLEN BENUETZEN, MUESSEN IMMER, A UCH WENN BEIM AUFRUF KEINE WERTUEBERGABE STATTFINDET, INNERHALB VON KLAMMERN AUF GERUFEN WERDEN. IN DER KLAMMER DER FUNKT IONSVEREINBARUNG SIND FUER DIE UEBERGEBE NEN WERTE VARIABLENNAMEN ANZUGEBEN. DIE ANZAHL DIESER NAMEN MUSS MIT DER ANZAHL DER WERTE UEBEREINSTIMMEN, SOFERN NOCH W EITERE DYNAMISCHE VARIABLEN INNERHALB DE R FUNKTION DEFINIERT WERDEN SOLLEN. IM B EISPIEL WURDEN NUR ADR UND ZEICHEN ALS P ARAMETERVARIABLEN ANGEGEBEN, DENN DER LE TZTE WERT ANZAHL WURDE LEDIGLICH DURCH H R UEBERGEBEN. DIESEN WERT HABEN WIR ZUR ABWECHSLUNG IN EINER DYNAMISCHEN VARIABL EN ABGELEGT. DYNAMISCHE VARIABLEN WERDEN NACH BEGIN IM CODEBEREICH VEREINBART. D IE VEREINBARUNG IST MIT HILFE VON INT UN D CHAR, FAST GENAUSO WIE BEI STATISCHEN VARIABLEN MOEGLICH. KOMMAS UND STRICHPUN KTE, DIE DIE NAMEN TRENNEN BEZIEHUNGSWEI SE DIE VEREINBARUNG ABSCHLIESSEN, WERDEN ALS BEFEHL, DEN INHALT VON HR AUF DEN S TAPEL ZU LEGEN UEBERSETZT. ES KANN DAHER BEI DER DEFINITION BEREITS EINE ZUWEISU NG VORGENOMMEN WERDEN:..INT A 5 3 + ;..S OGAR ARITHMETISCHE AUSDRUECKE SIND MOEGL ICH. DIESE AUSDRUECKE DUERFEN ABER KEINE KOMMAS ODER STRICHPUNKTE ENTHALTEN...VE RBOTEN IST:.INT A ( 5 , 3 EXP ) ;..MOEGL ICH DAGEGEN:.( 5 , 3 EXP ) INT A ;..EINE WIEDERHOLTE VEREINBARUNG IN EINER PROGR AMMSCHLEIFE GILT ES ZU VERMEIDEN. ALSO B ITTE NICHT:..: LAB INT A ;. GETC NIF LA B..MOEGLICH WAERE BEI UNSERER FUNKTION F UELLEN AUCH GEWESEN:..VOID FUELLEN( ADR ZEICHEN ANZAHL ).BEGIN ,..HIER STIMMT DI E ANZAHL DER VARIABLEN NICHT MIT DEN WER TEN AUF DEM STAPEL UEBEREIN, JEDOCH EIN KOMMA NACH BEGIN LEGT DEN WERT NACHTRAEG LICH AUF DEM STAPEL IN ANZAHL AB. DER VE REINBARUNG WEITERER DYNAMISCHER VARIABLE N STEHT NICHTS MEHR IM WEGE. DYNAMISCHE VARIABLEN WERDEN BEI JEDEM FUNKTIONSAUFR UF NEU ANGELEGT UND BEHALTEN DAHER IHRE WERTE NICHT BEI, WIE DIESES BEI STATISCH EN VARIABLEN DER FALL IST...ES IST AUCH MOEGLICH, EINE UNBESTIMMTE ANZAHL VON PA RAMETERN ZU UEBERGEBEN. NUR DUERFEN DANN KEINE WEITEREN DYNAMISCHEN VARIABLEN IN NERHALB DER FUNKTION MEHR VEREINBART WER DEN, DA DER COMPILER WEGEN NICHTKENNTNIS DER PARAMETERZAHL NICHT DEREN POSITIONI ERUNG BESTIMMEN KANN. ABER FUER DIESEN F ALL GIBT ES JA AUCH NOCH DIE STATISCHEN VARIABLEN...EIN BEISPIEL HIERZU IST DIE ANWEISUNG PRINT, DIE IM UNTERSCHIED ZU P UTL MEHRERE STRINGS AUSZUGEBEN VERMAG:.. A$ PUTL B$ PUTL C$ PUTL.( A$ , B$ , C$ P RINT )..WIR VEREINBAREN:..VOID PRINT( LI STE ).INT ZG ;.BEGIN , 0 ,. LISTE ZG = ].: LAB PUTL 2 ZG += ] IF LAB.BEND..NUR FUER DEN ERSTEN WERT WIRD EINE VARIABLE NAMENS LISTE VEREINBART. NACH BEGIN WIRD DER LETZTE WERT AUF DEN STAPEL GEBRACHT UND ZUSAETZLICH EINE NULL, DIE DAS ENDE DER LISTE MARKIERT. NACH DER ZUWEISUNG LISTE ZG = ZEIGT ZG AUF DEN PARAMETERSTA PEL, WO SICH DIE VARIABLE LISTE BEFINDET . DEREN INHALT IST DIE ADRESSE DES ERSTE N STRINGS. DIE AUSGABE KANN ERFOLGEN. NA CH ERHOEHUNG DES ZEIGERS ZG UM DEN WERT ZWEI WIRD AUF DIE WEITEREN PARAMETER ZUG EGRIFFEN, BIS DIE NULLMARKIERUNG ERREICH T WIRD...PROGRAMMBEISPIEL:.*/...DEF CLS 147 PUTC;.DEF ]]++ ]++ BY ];..VOID PUTC( ).BEGIN. AC BY = 0XFFD2 SYS.BEND..VOID PUTL( ).INT ZG ;.BEGIN. ZG = GO RD.: W R PUTC.: RD ZG ]]++ IF WR.BEND..CHAR GET C( ).BEGIN. 0XFFE4 SYS AC BY ].BEND..CH AR KEY( ).BEGIN.: NEXT GETC NIF NEXT.BEN D..VOID FUELLEN( ADR ZEICHEN ANZAHL ).BE GIN ,. ZEICHEN ] GO PRF.: WR SWAP ADR ] ++ BY =.: PRF ANZAHL ]-- IF WR.BEND..VOI D PRINT( LISTE ).INT ZG ;.BEGIN , 0 ,. LISTE ZG = ].: LAB PUTL 2 ZG += ] IF LAB .BEND..MAIN().CHAR. FU "( 1024 , 'A' , 1000 FUELLEN )"., TASTE " WEITER MIT TAS TE "., FI "( 1024 , 'B' , 1000 FILL )" ; .BEGIN..( "/147DIE FUNKTION " , FU , " F UELLT DEN GANZEN BILDSCHIRM./N/N/N" , TA STE PRINT ).. KEY ( 1024 , 'A' , 1000 F UELLEN ). ( "/19" , TASTE PRINT ) KEY.. ( "/147DIE BEREITS IN CP ENTHALTENE FUNK TION/N" , FI , " IST/NWESENTLICH SCHNELL ER./N/N/N" , TASTE PRINT ).. KEY ( 1024 , 'B' , 1000 FILL ). ( "/19" , TASTE P RINT ) KEY CLS.BEND.../* WEITER MIT LEKT ION8 */.
> CLICK IMAGE PREVIEW FOR FULL MODAL