TEIL 13
FILE INFORMATION
FILENAME(S): TEIL 13
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 23:23:02
APPEARS ON: 1 disk(s)
FILE HASH
358113684ef17b71e563d6c59af8599d05d4ae3a076506bf3501c4a666c010e8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NR 45 2 | TEIL 13 | PRG | swasti, dinkel | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 01 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.|
00000010: 35 33 32 38 31 2C 31 00 4D 08 02 00 51 24 B2 22 |53281,1.M...Q$."|
00000020: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 91 91 22 3A 89 39 00 7E 08 | ..":.9.~.|
00000050: 03 00 99 22 93 22 3A 81 49 B2 31 A4 33 39 3A 99 |...".":.I.1.39:.|
00000060: 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A 99 22 |C$;:.:.I.1.22:."|
00000070: 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B 00 9B |.."C$;:.:.".";..|
00000080: 08 04 00 81 49 B2 31 A4 33 38 3A 99 22 9D 22 43 |....I.1.38:."."C|
00000090: 24 22 9D 22 3B 3A 82 3A 99 43 24 00 B6 08 05 00 |$".";:.:.C$.....|
000000A0: 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 22 9D |.I.1.23:."."C$".|
000000B0: 22 3B 3A 82 3A 8E 00 C7 08 06 00 A1 41 24 3A 8B |";:.:.......A$:.|
000000C0: 41 24 B2 22 22 A7 36 00 CF 08 07 00 99 3A 8E 00 |A$."".6......:..|
000000D0: E0 08 09 00 5A 24 B2 C7 28 33 34 29 3A 89 31 30 |....Z$..(34):.10|
000000E0: 00 1D 09 0A 00 99 22 93 11 11 11 11 11 22 3A 99 |......"......":.|
000000F0: 22 1D 1D 49 46 2E 2E 2E 54 48 45 4E 2D 42 45 46 |"..IF...THEN-BEF|
00000100: 45 48 4C 20 28 46 4F 52 54 53 45 54 5A 55 4E 47 |EHL (FORTSETZUNG|
00000110: 20 56 4F 4E 20 35 2E 31 29 22 3A 8D 36 00 4A 09 | VON 5.1)":.6.J.|
00000120: 78 00 99 22 93 44 45 52 20 49 46 2E 2E 2E 54 48 |x..".DER IF...TH|
00000130: 45 4E 2D 42 45 46 45 48 4C 20 45 52 4D 4F 45 47 |EN-BEFEHL ERMOEG|
00000140: 4C 49 43 48 54 20 45 49 4E 45 00 71 09 79 00 99 |LICHT EINE.q.y..|
00000150: 22 41 45 4E 44 45 52 55 4E 47 20 49 4E 20 44 45 |"AENDERUNG IN DE|
00000160: 52 20 52 45 49 48 45 4E 46 4F 4C 47 45 20 44 45 |R REIHENFOLGE DE|
00000170: 52 00 BF 09 7A 00 99 22 50 52 4F 47 52 41 4D 4D |R...z.."PROGRAMM|
00000180: 53 43 48 52 49 54 54 45 2C 20 49 4E 20 41 42 48 |SCHRITTE, IN ABH|
00000190: 41 45 4E 47 49 47 4B 45 49 54 20 56 4F 4E 20 20 |AENGIGKEIT VON |
000001A0: 44 45 52 20 45 52 46 55 45 4C 4C 55 4E 47 20 45 |DER ERFUELLUNG E|
000001B0: 49 4E 45 52 20 42 45 44 49 4E 47 55 4E 47 2E 00 |INER BEDINGUNG..|
000001C0: E9 09 7B 00 8D 37 3A 99 22 45 49 4E 45 20 42 45 |..{..7:."EINE BE|
000001D0: 44 49 4E 47 55 4E 47 20 48 41 54 20 44 49 45 20 |DINGUNG HAT DIE |
000001E0: 46 4F 52 4D 3A 22 3A 8D 37 00 16 0A 7C 00 99 22 |FORM:":.7...|.."|
000001F0: 20 20 20 20 12 41 55 53 44 52 55 43 4B 92 20 52 | .AUSDRUCK. R|
00000200: 45 4C 41 54 49 4F 4E 20 12 41 55 53 44 52 55 43 |ELATION .AUSDRUC|
00000210: 4B 92 22 3A 8D 37 00 49 0A 7D 00 99 22 57 4F 42 |K.":.7.I.}.."WOB|
00000220: 45 49 20 46 4F 4C 47 45 4E 44 45 20 52 45 4C 41 |EI FOLGENDE RELA|
00000230: 54 49 4F 4E 45 4E 20 5A 55 4C 41 45 53 53 49 47 |TIONEN ZULAESSIG|
00000240: 22 3A 99 22 53 49 4E 44 3A 00 85 0A 7E 00 99 22 |":."SIND:...~.."|
00000250: 20 20 20 20 20 12 52 45 4C 41 54 49 4F 4E 92 20 | .RELATION. |
00000260: 12 42 45 44 45 55 54 55 4E 47 92 22 3A 99 3A 99 |.BEDEUTUNG.":.:.|
00000270: 22 20 20 20 20 20 20 20 20 3D 20 20 20 20 20 47 |" = G|
00000280: 4C 45 49 43 48 00 C3 0A 7F 00 99 22 20 20 20 20 |LEICH......" |
00000290: 20 20 20 20 3E 20 20 20 20 20 47 52 4F 45 53 53 | > GROESS|
000002A0: 45 52 20 41 4C 53 22 3A 99 22 20 20 20 20 20 20 |ER ALS":." |
000002B0: 20 20 3C 20 20 20 20 20 4B 4C 45 49 4E 45 52 20 | < KLEINER |
000002C0: 41 4C 53 00 0B 0B 80 00 99 22 20 20 20 20 20 20 |ALS......" |
000002D0: 20 20 3E 3D 20 20 20 20 47 52 4F 45 53 53 45 52 | >= GROESSER|
000002E0: 20 41 4C 53 20 4F 44 45 52 20 47 4C 45 49 43 48 | ALS ODER GLEICH|
000002F0: 22 3A 99 22 20 20 20 20 20 20 20 20 3C 3D 20 20 |":." <= |
00000300: 20 20 4B 4C 45 49 4E 45 52 22 3B 00 44 0B 81 00 | KLEINER";.D...|
00000310: 99 22 20 41 4C 53 20 4F 44 45 52 20 47 4C 45 49 |." ALS ODER GLEI|
00000320: 43 48 22 3A 99 22 20 20 20 20 20 20 20 20 3C 3E |CH":." <>|
00000330: 20 20 20 20 4E 49 43 48 54 20 47 4C 45 49 43 48 | NICHT GLEICH|
00000340: 22 3A 8D 36 00 62 0B 82 00 59 31 B2 39 3A 59 32 |":.6.b...Y1.9:Y2|
00000350: B2 32 32 3A 8D 35 30 30 30 3A 8D 36 30 30 30 3A |.22:.5000:.6000:|
00000360: 8D 37 00 97 0B 84 00 99 22 45 49 4E 20 49 46 2E |.7......"EIN IF.|
00000370: 2E 2E 54 48 45 4E 2D 42 45 46 45 48 4C 20 48 41 |..THEN-BEFEHL HA|
00000380: 54 20 46 4F 4C 47 45 4E 44 45 53 20 22 3A 99 22 |T FOLGENDES ":."|
00000390: 46 4F 52 4D 41 54 3A 00 CF 0B 88 00 99 22 11 12 |FORMAT:......"..|
000003A0: 5A 45 49 4C 45 4E 23 31 92 20 49 46 20 12 42 45 |ZEILEN#1. IF .BE|
000003B0: 44 49 4E 47 55 4E 47 92 20 54 48 45 4E 20 12 5A |DINGUNG. THEN .Z|
000003C0: 45 49 4C 45 4E 23 32 92 22 3A 8D 37 3A 8D 37 00 |EILEN#2.":.7:.7.|
000003D0: FB 0B 8E 00 99 22 44 49 45 20 42 45 44 49 4E 47 |....."DIE BEDING|
000003E0: 55 4E 47 20 42 45 57 49 52 4B 54 20 45 49 4E 45 |UNG BEWIRKT EINE|
000003F0: 4E 20 54 45 53 54 2E 22 3A 8D 37 00 36 0C 90 00 |N TEST.":.7.6...|
00000400: 99 22 49 53 54 20 44 49 45 20 42 45 44 49 4E 47 |."IST DIE BEDING|
00000410: 55 4E 47 20 45 52 46 55 45 4C 4C 54 2C 20 53 4F |UNG ERFUELLT, SO|
00000420: 20 57 49 52 44 20 49 4D 20 20 4E 41 45 43 48 53 | WIRD IM NAECHS|
00000430: 54 45 4E 20 22 3B 00 79 0C 92 00 99 22 50 52 4F |TEN ";.y...."PRO|
00000440: 47 52 41 4D 4D 53 43 48 52 49 54 54 20 44 45 52 |GRAMMSCHRITT DER|
00000450: 20 42 45 46 45 48 4C 20 49 4E 22 3A 99 22 12 5A | BEFEHL IN":.".Z|
00000460: 45 49 4C 45 4E 23 32 92 20 41 55 53 47 45 46 55 |EILEN#2. AUSGEFU|
00000470: 45 48 52 54 2E 22 3A 8D 37 00 B3 0C 94 00 99 22 |EHRT.":.7......"|
00000480: 49 53 54 20 44 49 45 20 42 45 44 49 4E 47 55 4E |IST DIE BEDINGUN|
00000490: 47 20 4E 49 43 48 54 20 45 52 46 55 45 4C 4C 54 |G NICHT ERFUELLT|
000004A0: 2C 20 53 4F 20 20 20 20 57 49 52 44 20 41 4C 53 |, SO WIRD ALS|
000004B0: 20 22 3B 00 FB 0C 95 00 99 22 4E 41 45 43 48 53 | ";......"NAECHS|
000004C0: 54 45 53 20 44 45 52 20 42 45 46 45 48 4C 20 49 |TES DER BEFEHL I|
000004D0: 4E 20 44 45 52 22 3A 99 22 5A 45 49 4C 45 20 4E |N DER":."ZEILE N|
000004E0: 41 43 48 20 12 5A 45 49 4C 45 4E 23 31 92 20 41 |ACH .ZEILEN#1. A|
000004F0: 55 53 47 45 46 55 45 48 52 54 2E 00 02 0D 96 00 |USGEFUEHRT......|
00000500: 8D 36 00 36 0D 9C 00 99 22 93 45 49 4E 49 47 45 |.6.6....".EINIGE|
00000510: 20 42 45 49 53 50 49 45 4C 45 20 46 55 45 52 20 | BEISPIELE FUER |
00000520: 49 46 2E 2E 2E 54 48 45 4E 2D 42 45 46 45 48 4C |IF...THEN-BEFEHL|
00000530: 45 3A 22 3A 8D 37 00 69 0D 9E 00 99 22 32 20 49 |E:":.7.i...."2 I|
00000540: 46 20 41 3D 30 20 54 48 45 4E 20 31 30 22 3A 8D |F A=0 THEN 10":.|
00000550: 37 3A 99 22 34 20 49 46 20 58 3C 3D 39 39 20 54 |7:."4 IF X<=99 T|
00000560: 48 45 4E 20 32 22 3A 8D 37 00 8A 0D 9F 00 99 22 |HEN 2":.7......"|
00000570: 36 20 49 46 20 52 2B 57 3E 50 2D 54 2B 31 20 54 |6 IF R+W>P-T+1 T|
00000580: 48 45 4E 20 35 35 22 3A 8D 37 00 B0 0D A0 00 99 |HEN 55":.7......|
00000590: 22 38 20 49 46 20 41 24 3D 22 5A 24 22 4E 45 49 |"8 IF A$="Z$"NEI|
000005A0: 4E 22 5A 24 22 54 48 45 4E 20 38 38 22 3A 8D 36 |N"Z$"THEN 88":.6|
000005B0: 00 EA 0D A3 00 99 22 93 31 20 49 46 20 41 3D 32 |......".1 IF A=2|
000005C0: 2A 42 2B 43 43 20 54 48 45 4E 20 31 30 22 3A 99 |*B+CC THEN 10":.|
000005D0: 22 32 20 49 46 20 50 2A 33 2B 55 2F 31 2E 35 20 |"2 IF P*3+U/1.5 |
000005E0: 3E 20 54 48 45 4E 20 31 38 22 00 0E 0E A4 00 99 |> THEN 18"......|
000005F0: 22 33 20 49 46 20 41 24 3D 22 5A 24 22 4E 45 49 |"3 IF A$="Z$"NEI|
00000600: 4E 22 5A 24 22 20 54 48 45 4E 20 31 30 30 00 5E |N"Z$" THEN 100.^|
00000610: 0E A5 00 99 3A 99 22 57 45 4C 43 48 45 20 44 45 |....:."WELCHE DE|
00000620: 52 20 4F 42 49 47 45 4E 20 41 4E 57 45 49 53 55 |R OBIGEN ANWEISU|
00000630: 4E 47 45 4E 20 49 53 54 20 4B 45 49 4E 20 20 5A |NGEN IST KEIN Z|
00000640: 55 4C 41 45 53 53 49 47 45 52 20 49 46 2E 2E 2E |ULAESSIGER IF...|
00000650: 54 48 45 4E 2D 42 45 46 45 48 4C 20 22 3B 00 7C |THEN-BEFEHL ";.||
00000660: 0E A6 00 99 22 28 31 2C 20 32 20 4F 44 45 52 20 |...."(1, 2 ODER |
00000670: 33 29 22 3B 3A 85 58 24 3A 99 3A 99 00 A0 0E A7 |3)";:.X$:.:.....|
00000680: 00 91 C5 28 58 24 29 89 31 36 39 2C 31 37 34 2C |...(X$).169,174,|
00000690: 31 37 32 3A 8B C5 28 58 24 29 B1 33 A7 31 36 38 |172:..(X$).3.168|
000006A0: 00 AD 0E A8 00 99 51 24 3A 89 31 36 33 00 D7 0E |......Q$:.163...|
000006B0: A9 00 99 22 4E 45 49 4E 2C 20 44 49 45 53 45 52 |..."NEIN, DIESER|
000006C0: 20 42 45 46 45 48 4C 20 49 53 54 20 4B 4F 52 52 | BEFEHL IST KORR|
000006D0: 45 4B 54 21 22 3A 99 00 23 0F AA 00 99 22 45 49 |EKT!":..#...."EI|
000006E0: 4E 45 20 52 45 4C 41 54 49 4F 4E 20 5A 57 49 53 |NE RELATION ZWIS|
000006F0: 43 48 45 4E 20 45 49 4E 45 52 20 56 41 52 49 41 |CHEN EINER VARIA|
00000700: 42 4C 45 4E 20 20 55 4E 44 20 45 49 4E 45 4D 20 |BLEN UND EINEM |
00000710: 54 45 52 4D 20 49 53 54 20 5A 55 4C 41 45 53 53 |TERM IST ZULAESS|
00000720: 49 47 2E 00 5D 0F AB 00 99 3A 99 22 42 49 54 54 |IG..]....:."BITT|
00000730: 45 2C 20 56 45 52 53 55 43 48 45 4E 20 53 49 45 |E, VERSUCHEN SIE|
00000740: 20 45 53 20 4E 4F 43 48 45 49 4E 4D 41 4C 21 22 | ES NOCHEINMAL!"|
00000750: 3A 8D 36 3A 99 22 93 22 3A 89 31 36 33 00 A8 0F |:.6:.".":.163...|
00000760: AC 00 99 22 4E 45 49 4E 2C 20 44 49 45 53 45 52 |..."NEIN, DIESER|
00000770: 20 42 45 46 45 48 4C 20 49 53 54 20 4B 4F 52 52 | BEFEHL IST KORR|
00000780: 45 4B 54 21 22 3A 99 3A 99 22 45 49 4E 45 20 52 |EKT!":.:."EINE R|
00000790: 45 4C 41 54 49 4F 4E 20 5A 57 49 53 43 48 45 4E |ELATION ZWISCHEN|
000007A0: 20 45 49 4E 45 4D 22 3B 00 E6 0F AD 00 99 22 20 | EINEM";......" |
000007B0: 53 54 52 49 4E 47 20 55 4E 44 20 45 49 4E 45 52 |STRING UND EINER|
000007C0: 20 53 54 52 49 4E 47 56 41 52 49 41 42 4C 45 4E | STRINGVARIABLEN|
000007D0: 20 49 53 54 20 5A 55 4C 41 45 53 53 49 47 2E 22 | IST ZULAESSIG."|
000007E0: 20 3A 89 31 37 31 00 2F 10 AE 00 99 22 11 52 49 | :.171./....".RI|
000007F0: 43 48 54 49 47 21 21 21 20 20 5A 45 49 4C 45 20 |CHTIG!!! ZEILE |
00000800: 32 20 49 53 54 20 46 41 4C 53 43 48 2C 44 41 20 |2 IST FALSCH,DA |
00000810: 52 45 43 48 54 53 4E 45 42 45 4E 20 44 45 52 20 |RECHTSNEBEN DER |
00000820: 52 45 4C 41 54 49 4F 4E 20 4B 45 49 4E 22 3B 00 |RELATION KEIN";.|
00000830: 4F 10 AF 00 99 22 20 41 55 53 44 52 55 43 4B 20 |O...." AUSDRUCK |
00000840: 53 54 45 48 54 2E 22 3A 8D 36 3A 89 32 30 30 00 |STEHT.":.6:.200.|
00000850: 98 10 B0 00 99 22 93 4D 4F 45 43 48 54 45 4E 20 |.....".MOECHTEN |
00000860: 53 49 45 20 44 45 4E 20 41 42 53 43 48 4E 49 54 |SIE DEN ABSCHNIT|
00000870: 54 20 55 45 42 45 52 22 3A 99 22 49 46 2E 2E 54 |T UEBER":."IF..T|
00000880: 48 45 4E 2D 42 45 46 45 48 4C 45 20 4E 4F 43 48 |HEN-BEFEHLE NOCH|
00000890: 45 49 4E 4D 41 4C 22 3B 00 B8 10 B1 00 99 22 20 |EINMAL";......" |
000008A0: 4C 45 53 45 4E 20 28 4A 41 20 20 20 4F 44 45 52 |LESEN (JA ODER|
000008B0: 20 4E 45 49 4E 29 22 3B 00 CB 10 B2 00 A1 4D 24 | NEIN)";......M$|
000008C0: 3A 8B 4D 24 B2 22 22 A7 31 37 38 00 DB 10 B3 00 |:.M$."".178.....|
000008D0: 8B 4D 24 B2 22 4A 22 A7 31 32 30 00 F0 10 B4 00 |.M$."J".120.....|
000008E0: 8B 4D 24 B2 22 4E 22 A7 34 30 30 3A 89 31 37 38 |.M$."N".400:.178|
000008F0: 00 3F 11 C8 00 99 22 93 4E 4F 43 48 20 45 49 4E |.?....".NOCH EIN|
00000900: 45 20 41 4E 44 45 52 45 20 46 4F 52 4D 20 44 45 |E ANDERE FORM DE|
00000910: 53 20 49 46 2E 2E 2E 54 48 45 4E 2D 20 20 20 20 |S IF...THEN- |
00000920: 42 45 46 45 48 4C 53 20 49 53 54 20 4D 4F 45 47 |BEFEHLS IST MOEG|
00000930: 4C 49 43 48 2C 20 4E 41 45 4D 4C 49 43 48 3A 00 |LICH, NAEMLICH:.|
00000940: 74 11 CA 00 8D 37 3A 99 22 20 20 12 5A 45 49 4C |t....7:." .ZEIL|
00000950: 45 4E 23 92 20 49 46 20 12 42 45 44 49 4E 47 55 |EN#. IF .BEDINGU|
00000960: 4E 47 92 20 54 48 45 4E 20 12 42 45 46 45 48 4C |NG. THEN .BEFEHL|
00000970: 22 3A 8D 37 00 BD 11 CC 00 99 22 49 53 54 20 44 |":.7......"IST D|
00000980: 49 45 20 12 42 45 44 49 4E 47 55 4E 47 92 20 45 |IE .BEDINGUNG. E|
00000990: 52 46 55 45 4C 4C 54 2C 20 53 4F 20 57 49 52 44 |RFUELLT, SO WIRD|
000009A0: 20 20 20 20 20 12 42 45 46 45 48 4C 92 20 41 55 | .BEFEHL. AU|
000009B0: 53 47 45 46 55 45 48 52 54 2C 20 22 3B 00 FC 11 |SGEFUEHRT, ";...|
000009C0: CD 00 99 22 55 4E 44 20 44 41 4E 4E 20 44 45 52 |..."UND DANN DER|
000009D0: 22 3A 99 22 42 45 46 45 48 4C 20 49 4E 20 44 45 |":."BEFEHL IN DE|
000009E0: 52 20 5A 45 49 4C 45 20 4E 41 43 48 20 12 5A 45 |R ZEILE NACH .ZE|
000009F0: 49 4C 45 4E 23 92 2E 22 3A 8D 20 37 00 48 12 CF |ILEN#..":. 7.H..|
00000A00: 00 99 22 49 53 54 20 44 49 45 20 12 42 45 44 49 |.."IST DIE .BEDI|
00000A10: 4E 47 55 4E 47 92 20 4E 49 43 48 54 20 45 52 46 |NGUNG. NICHT ERF|
00000A20: 55 45 4C 4C 54 2C 20 57 49 52 44 20 20 12 42 45 |UELLT, WIRD .BE|
00000A30: 46 45 48 4C 92 20 41 55 53 47 45 4C 41 53 53 45 |FEHL. AUSGELASSE|
00000A40: 4E 20 55 4E 44 20 22 3B 00 8D 12 D0 00 99 22 44 |N UND ";......"D|
00000A50: 41 53 20 50 52 4F 47 52 41 4D 4D 20 57 49 52 44 |AS PROGRAMM WIRD|
00000A60: 4D 49 54 20 44 45 52 20 5A 45 49 4C 45 20 4E 41 |MIT DER ZEILE NA|
00000A70: 43 48 20 12 5A 45 49 4C 45 4E 23 92 20 46 4F 52 |CH .ZEILEN#. FOR|
00000A80: 54 47 45 53 45 54 5A 54 2E 22 3A 8D 37 00 CF 12 |TGESETZT.":.7...|
00000A90: D1 00 99 22 45 49 4E 49 47 45 20 42 45 49 53 50 |..."EINIGE BEISP|
00000AA0: 49 45 4C 45 3A 22 3A 8D 37 3A 99 22 20 20 34 35 |IELE:":.7:." 45|
00000AB0: 20 49 46 20 58 3E 31 32 20 54 48 45 4E 20 50 52 | IF X>12 THEN PR|
00000AC0: 49 4E 54 20 22 5A 24 22 4A 41 22 5A 24 3A 99 00 |INT "Z$"JA"Z$:..|
00000AD0: 19 13 D2 00 99 22 20 20 36 35 20 49 46 20 41 24 |....." 65 IF A$|
00000AE0: 3D 22 5A 24 22 4E 45 49 4E 22 5A 24 22 20 54 48 |="Z$"NEIN"Z$" TH|
00000AF0: 45 4E 20 49 4E 50 55 54 20 42 24 22 3A 99 3A 99 |EN INPUT B$":.:.|
00000B00: 22 20 20 38 20 49 46 20 52 3D 54 20 54 48 45 4E |" 8 IF R=T THEN|
00000B10: 20 56 3D 56 2B 31 22 3A 99 00 3B 13 D4 00 99 22 | V=V+1":..;...."|
00000B20: 20 20 37 20 49 46 20 4C 3E 3D 31 C1 30 20 54 48 | 7 IF L>=1.0 TH|
00000B30: 45 4E 20 45 4E 44 22 3A 20 8D 36 00 44 13 FA 00 |EN END": .6.D...|
00000B40: 89 31 37 36 00 78 13 90 01 43 24 B2 22 12 D7 22 |.176.x...C$.".."|
00000B50: 3A 8D 33 3A 99 22 11 11 11 11 22 A3 37 29 22 45 |:.3:."....".7)"E|
00000B60: 4E 44 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 |NDE VON LEKTION |
00000B70: 35 20 54 45 49 4C 20 32 00 A6 13 91 01 99 22 11 |5 TEIL 2......".|
00000B80: 11 11 11 1D 1D 1D 1D 20 20 42 49 54 54 45 20 57 |....... BITTE W|
00000B90: 41 52 54 45 4E 20 53 49 45 2C 20 42 49 53 20 54 |ARTEN SIE, BIS T|
00000BA0: 45 49 4C 20 33 22 00 C4 13 92 01 99 22 11 11 1D |EIL 3"......"...|
00000BB0: 1D 1D 1D 20 20 45 49 4E 47 45 4C 45 53 45 4E 20 |... EINGELESEN |
00000BC0: 49 53 54 2E 00 D4 13 93 01 99 22 11 11 11 11 11 |IST.......".....|
00000BD0: 11 11 11 11 00 DE 13 94 01 89 37 30 30 30 00 09 |..........7000..|
00000BE0: 14 88 13 99 22 13 22 3B 3A 81 49 B2 31 A4 59 31 |....".";:.I.1.Y1|
00000BF0: 3A 99 22 11 22 3B 3A 82 3A 99 22 91 22 3B 3A 81 |:.".";:.:.".";:.|
00000C00: 4A B2 30 A4 59 32 AB 59 31 00 3C 14 89 13 99 22 |J.0.Y2.Y1.<...."|
00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C30: 20 20 20 20 20 20 20 22 3A 82 3A 8E 00 5E 14 70 | ":.:..^.p|
00000C40: 17 99 22 13 22 3B 3A 81 49 B2 31 A4 59 31 3A 99 |..".";:.I.1.Y1:.|
00000C50: 22 11 22 3B 3A 82 3A 99 22 91 22 3B 3A 8E 00 6F |".";:.:.".";:..o|
00000C60: 14 58 1B 93 22 54 45 49 4C 20 31 34 22 2C 38 00 |.X.."TEIL 14",8.|
00000C70: 00 00 01 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D |...MMMMMMMMMMMMM|
00000C80: 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 00 9A 0F 96 19 8F |MMMMMMMMMM......|
00000C90: 4D 4D 4D 00 A0 0F 58 1B 93 00 00 00 20 44 49 45 |MMM...X..... DIE|
00000CA0: 20 53 50 41 43 45 2D 54 41 53 54 45 20 44 52 55 | SPACE-TASTE DRU|
00000CB0: 45 43 4B 45 4E 2E 20 20 22 3A 8D 36 00 E7 14 58 |ECKEN. ":.6...X|
00000CC0: 02 43 24 B2 22 12 D8 22 3A 8D 33 3A 99 22 11 11 |.C$."..":.3:."..|
00000CD0: 11 11 22 A3 31 30 29 22 45 4E 44 45 20 56 4F 4E |..".10)"ENDE VON|
00000CE0: 20 4C 45 4B 54 49 4F 4E 20 34 11 11 11 11 00 14 | LEKTION 4......|
00000CF0: 15 62 02 99 22 1D 57 45 4E 4E 20 53 49 45 20 42 |.b..".WENN SIE B|
00000D00: 45 52 45 49 54 20 53 49 4E 44 20 46 55 45 52 20 |EREIT SIND FUER |
00000D10: 4C 45 4B 54 49 4F 4E 20 35 2C 22 00 3D 15 67 02 |LEKTION 5,".=.g.|
00000D20: 99 22 11 11 1D 54 49 50 50 45 4E 20 53 1D 54 49 |."...TIPPEN S.TI|
00000D30: 50 83 E8 00 |P... |
.......53280,1:.53281,1.M...Q$.".
..":.9.~.
...".":.I.1.39:.C$;:.:.I.1.22:.".."C$;:.
:.".";......I.1.38:."."C$".";:.:.C$.....
.I.1.23:."."C$".";:.:..G....A$:.A$."".6.
O....:......Z$.G(34):.10......"......":.
"..IF...THEN-BEFEHL (FORTSETZUNG VON 5.1
)":.6.J.X..".DER IF...THEN-BEFEHL ERMOEG
LICHT EINE.Q.Y.."AENDERUNG IN DER REIHEN
FOLGE DER...Z.."PROGRAMMSCHRITTE, IN ABH
AENGIGKEIT VON DER ERFUELLUNG EINER BED
INGUNG....{..7:."EINE BEDINGUNG HAT DIE
FORM:":.7...|.." .AUSDRUCK. RELATION
.AUSDRUCK.":.7.I.}.."WOBEI FOLGENDE RELA
TIONEN ZULAESSIG":."SIND:...~.." .RE
LATION. .BEDEUTUNG.":.:." = G
LEICH.C..." > GROESSER ALS":
." < KLEINER ALS......"
>= GROESSER ALS ODER GLEICH":."
<= KLEINER";.D...." ALS ODER GLEI
CH":." <> NICHT GLEICH":.6.B..
.Y1.9:Y2.22:.5000:.6000:.7......"EIN IF.
..THEN-BEFEHL HAT FOLGENDES ":."FORMAT:.
O...."..ZEILEN#1. IF .BEDINGUNG. THEN .Z
EILEN#2.":.7:.7......"DIE BEDINGUNG BEWI
RKT EINEN TEST.":.7.6...."IST DIE BEDING
UNG ERFUELLT, SO WIRD IM NAECHSTEN ";.Y
...."PROGRAMMSCHRITT DER BEFEHL IN":.".Z
EILEN#2. AUSGEFUEHRT.":.7......"IST DIE
BEDINGUNG NICHT ERFUELLT, SO WIRD ALS
";......"NAECHSTES DER BEFEHL IN DER":.
"ZEILE NACH .ZEILEN#1. AUSGEFUEHRT......
.6.6....".EINIGE BEISPIELE FUER IF...THE
N-BEFEHLE:":.7.I...."2 IF A=0 THEN 10":.
7:."4 IF X<=99 THEN 2":.7......"6 IF R+W
>P-T+1 THEN 55":.7... .."8 IF A$="Z$"NEI
N"Z$"THEN 88":.6......".1 IF A=2*B+CC TH
EN 10":."2 IF P*3+U/1.5 > THEN 18"......
"3 IF A$="Z$"NEIN"Z$" THEN 100.^....:."W
ELCHE DER OBIGEN ANWEISUNGEN IST KEIN Z
ULAESSIGER IF...THEN-BEFEHL ";.|...."(1,
2 ODER 3)";:.X$:.:.. ....E(X$).169,174,
172:.E(X$).3.168......Q$:.163.W...."NEIN
, DIESER BEFEHL IST KORREKT!":..#...."EI
NE RELATION ZWISCHEN EINER VARIABLEN UN
D EINEM TERM IST ZULAESSIG..]....:."BITT
E, VERSUCHEN SIE ES NOCHEINMAL!":.6:."."
:.163......"NEIN, DIESER BEFEHL IST KORR
EKT!":.:."EINE RELATION ZWISCHEN EINEM";
......" STRING UND EINER STRINGVARIABLEN
IST ZULAESSIG." :.171./....".RICHTIG!!!
ZEILE 2 IST FALSCH,DA RECHTSNEBEN DER
RELATION KEIN";.O...." AUSDRUCK STEHT.":
.6:.200......".MOECHTEN SIE DEN ABSCHNIT
T UEBER":."IF..THEN-BEFEHLE NOCHEINMAL";
......" LESEN (JA ODER NEIN)";.K....M$
:.M$."".178......M$."J".120......M$."N".
400:.178.?.H..".NOCH EINE ANDERE FORM DE
S IF...THEN- BEFEHLS IST MOEGLICH, NA
EMLICH:.T.J..7:." .ZEILEN#. IF .BEDINGU
NG. THEN .BEFEHL":.7...L.."IST DIE .BEDI
NGUNG. ERFUELLT, SO WIRD .BEFEHL. AU
SGEFUEHRT, ";...M.."UND DANN DER":."BEFE
HL IN DER ZEILE NACH .ZEILEN#..":. 7.H.O
.."IST DIE .BEDINGUNG. NICHT ERFUELLT, W
IRD .BEFEHL. AUSGELASSEN UND ";...P.."D
AS PROGRAMM WIRDMIT DER ZEILE NACH .ZEIL
EN#. FORTGESETZT.":.7.O.Q.."EINIGE BEISP
IELE:":.7:." 45 IF X>12 THEN PRINT "Z$"
JA"Z$:....R.." 65 IF A$="Z$"NEIN"Z$" TH
EN INPUT B$":.:." 8 IF R=T THEN V=V+1":
..;.T.." 7 IF L>=1A0 THEN END": .6.D...
.176.X...C$.".W":.3:."....".7)"ENDE VON
LEKTION 5 TEIL 2......"........ BITTE W
ARTEN SIE, BIS TEIL 3".D...."...... EIN
GELESEN IST..T...."...............7000..
....".";:.I.1.Y1:.".";:.:.".";:.J.0.Y2.Y
1.<...."
":.:..^.P..".";:.I.1.Y1:.".";:.:.
".";:..O.X.."TEIL 14",8....MMMMMMMMMMMMM
MMMMMMMMMM......MMM. .X..... DIE SPACE-T
ASTE DRUECKEN. ":.6...X.C$.".X":.3:."..
..".10)"ENDE VON LEKTION 4.......B..".WE
NN SIE BEREIT SIND FUER LEKTION 5,".=.G.
."...TIPPEN S.TIP...
> CLICK IMAGE PREVIEW FOR FULL MODAL