TEIL 21
FILE INFORMATION
FILENAME(S): TEIL 21
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 23:23:02
APPEARS ON: 1 disk(s)
FILE HASH
207fa2114701503d7e4714df1799dae3fd821dcaceadafb4234f872251a0c863
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NR 45 2 | TEIL 21 | PRG | swasti, dinkel | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 01 00 97 35 33 32 38 31 2C 31 3A 97 |.......53281,1:.|
00000010: 35 33 32 38 30 2C 31 00 3F 08 02 00 51 24 B2 22 |53280,1.?...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 91 22 3A 89 39 00 | .":.9.|
00000040: 70 08 03 00 99 22 93 22 3A 81 49 B2 31 A4 33 39 |p....".":.I.1.39|
00000050: 3A 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A |:.C$;:.:.I.1.22:|
00000060: 99 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B |.".."C$;:.:.".";|
00000070: 00 8D 08 04 00 81 49 B2 31 A4 33 38 3A 99 22 9D |......I.1.38:.".|
00000080: 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 A8 08 |"C$".";:.:.C$...|
00000090: 05 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 |...I.1.23:."."C$|
000000A0: 22 9D 22 3B 3A 82 3A 8E 00 B9 08 07 00 A1 41 24 |".";:.:.......A$|
000000B0: 3A 8B 41 24 B2 22 22 A7 37 00 C1 08 08 00 99 3A |:.A$."".7......:|
000000C0: 8E 00 F6 08 09 00 99 22 93 11 11 11 11 22 A3 34 |.......".....".4|
000000D0: 29 22 47 4F 53 55 42 20 28 46 4F 52 54 53 45 54 |)"GOSUB (FORTSET|
000000E0: 5A 55 4E 47 20 56 4F 4E 20 38 2E 31 29 22 3A 8D |ZUNG VON 8.1)":.|
000000F0: 37 3A 99 22 93 22 00 FF 08 6F 00 99 22 93 22 00 |7:."."...o..".".|
00000100: 3D 09 70 00 99 22 20 32 20 20 4C 45 54 20 41 3D |=.p.." 2 LET A=|
00000110: 31 22 3A 99 22 20 34 20 20 47 4F 53 55 42 31 30 |1":." 4 GOSUB10|
00000120: 22 3A 99 22 20 36 20 20 50 52 49 4E 54 20 41 22 |":." 6 PRINT A"|
00000130: 3A 99 22 20 38 20 20 47 4F 54 4F 31 32 00 5F 09 |:." 8 GOTO12._.|
00000140: 72 00 99 22 20 31 30 20 4C 45 54 20 41 3D 41 2A |r.." 10 LET A=A*|
00000150: 31 30 22 3A 99 22 20 31 32 20 45 4E 44 11 22 00 |10":." 12 END.".|
00000160: A6 09 73 00 99 22 57 41 53 20 57 49 52 44 20 42 |..s.."WAS WIRD B|
00000170: 45 49 20 44 45 52 20 41 55 53 46 55 45 48 52 55 |EI DER AUSFUEHRU|
00000180: 4E 47 20 44 45 53 20 4F 42 49 47 45 4E 22 3A 99 |NG DES OBIGEN":.|
00000190: 22 50 52 4F 47 52 41 4D 4D 53 20 47 45 44 52 55 |"PROGRAMMS GEDRU|
000001A0: 43 4B 54 3F 11 22 00 D4 09 74 00 99 22 12 31 2E |CKT?."...t..".1.|
000001B0: 92 20 31 20 20 20 20 20 20 20 12 32 2E 92 20 31 |. 1 .2.. 1|
000001C0: 30 20 20 20 20 20 20 20 20 12 33 2E 92 20 4E 49 |0 .3.. NI|
000001D0: 43 48 54 53 00 FE 09 76 00 85 22 28 31 2C 32 20 |CHTS...v.."(1,2 |
000001E0: 4F 44 45 52 20 33 29 22 3B 41 24 3A 91 C5 28 41 |ODER 3)";A$:..(A|
000001F0: 24 29 89 31 32 34 2C 31 33 30 2C 31 34 30 00 0B |$).124,130,140..|
00000200: 0A 77 00 99 51 24 3A 89 31 31 31 00 38 0A 7C 00 |.w..Q$:.111.8.|.|
00000210: 99 22 11 4E 45 49 4E 2C 20 53 49 45 20 48 41 42 |.".NEIN, SIE HAB|
00000220: 45 42 20 4E 49 43 48 54 20 44 41 52 41 4E 20 47 |EB NICHT DARAN G|
00000230: 45 44 41 43 48 54 2C 22 00 83 0A 7D 00 99 22 44 |EDACHT,"...}.."D|
00000240: 41 53 53 20 44 45 52 20 47 4F 53 55 42 2D 42 45 |ASS DER GOSUB-BE|
00000250: 46 45 48 4C 20 49 4E 20 5A 45 49 4C 45 20 34 20 |FEHL IN ZEILE 4 |
00000260: 44 45 4E 22 3A 99 22 53 50 52 55 4E 47 20 5A 55 |DEN":."SPRUNG ZU|
00000270: 20 5A 45 49 4C 45 20 31 30 20 42 45 57 49 52 4B | ZEILE 10 BEWIRK|
00000280: 54 2E 11 00 AA 0A 7E 00 99 22 55 45 42 45 52 4C |T.....~.."UEBERL|
00000290: 45 47 45 4E 20 53 49 45 20 4E 4F 43 48 4D 41 4C |EGEN SIE NOCHMAL|
000002A0: 21 22 3A 8D 37 3A 89 31 31 31 00 D7 0A 82 00 99 |!":.7:.111......|
000002B0: 22 11 4E 45 49 4E 2C 20 44 45 52 20 52 45 54 55 |".NEIN, DER RETU|
000002C0: 52 4E 2D 42 45 46 45 48 4C 20 46 45 48 45 54 21 |RN-BEFEHL FEHET!|
000002D0: 11 22 3A 89 31 32 36 00 04 0B 8C 00 99 22 11 47 |.":.126......".G|
000002E0: 41 4E 5A 20 47 45 4E 41 55 2C 20 45 53 20 57 49 |ANZ GENAU, ES WI|
000002F0: 52 44 20 4E 49 43 48 54 53 20 47 45 44 52 55 43 |RD NICHTS GEDRUC|
00000300: 4B 54 2E 11 00 2E 0B 8E 00 99 22 57 45 4E 4E 20 |KT........"WENN |
00000310: 12 41 92 20 47 45 44 52 55 43 4B 54 20 57 45 52 |.A. GEDRUCKT WER|
00000320: 44 45 4E 20 53 4F 4C 4C 2C 20 4D 55 53 53 00 5B |DEN SOLL, MUSS.[|
00000330: 0B 8F 00 99 22 44 45 4D 20 50 52 4F 47 52 41 4D |...."DEM PROGRAM|
00000340: 4D 20 44 49 45 20 46 4F 4C 47 45 4E 44 45 20 5A |M DIE FOLGENDE Z|
00000350: 45 49 4C 45 20 48 49 4E 5A 55 2D 00 85 0B 90 00 |EILE HINZU-.....|
00000360: 99 22 47 45 46 55 45 47 54 20 57 45 52 44 45 4E |."GEFUEGT WERDEN|
00000370: 3A 11 22 3A 99 22 20 12 31 31 20 52 45 54 55 52 |:.":." .11 RETUR|
00000380: 4E 22 3A 8D 37 00 C7 0B 92 00 99 22 93 22 A3 31 |N":.7......".".1|
00000390: 36 29 22 4F 4E 2E 2E 2E 47 4F 54 4F 22 3A 99 22 |6)"ON...GOTO":."|
000003A0: 11 53 49 45 20 57 49 53 53 45 4E 20 53 43 48 4F |.SIE WISSEN SCHO|
000003B0: 4E 2C 20 44 41 53 53 20 44 45 52 20 47 4F 54 4F |N, DASS DER GOTO|
000003C0: 2D 42 45 46 45 48 4C 00 F2 0B 94 00 99 22 44 45 |-BEFEHL......"DE|
000003D0: 4E 20 53 50 52 55 4E 47 20 5A 55 20 45 49 4E 45 |N SPRUNG ZU EINE|
000003E0: 52 20 53 50 45 5A 49 45 4C 4C 45 4E 20 5A 45 49 |R SPEZIELLEN ZEI|
000003F0: 4C 45 00 1E 0C 96 00 99 22 57 41 45 48 52 45 4E |LE......"WAEHREN|
00000400: 44 20 44 45 53 20 50 52 4F 47 52 4D 4D 41 42 4C |D DES PROGRMMABL|
00000410: 41 55 46 53 20 42 45 57 49 52 4B 54 2E 11 00 4E |AUFS BEWIRKT...N|
00000420: 0C 98 00 99 22 44 45 52 20 12 4F 4E 2E 2E 2E 47 |...."DER .ON...G|
00000430: 4F 54 4F 92 2D 42 45 46 45 48 4C 20 42 45 57 49 |OTO.-BEFEHL BEWI|
00000440: 52 4B 54 20 44 45 4E 20 53 50 52 55 4E 47 00 7B |RKT DEN SPRUNG.{|
00000450: 0C 99 00 99 22 5A 55 20 45 49 4E 45 52 20 5A 45 |...."ZU EINER ZE|
00000460: 49 4C 45 2C 20 44 45 52 45 4E 20 4E 55 4D 4D 45 |ILE, DEREN NUMME|
00000470: 52 20 44 55 52 43 48 20 44 45 4E 00 A7 0C 9A 00 |R DURCH DEN.....|
00000480: 99 22 57 45 52 54 20 45 49 4E 45 52 20 56 41 52 |."WERT EINER VAR|
00000490: 49 41 42 4C 45 4E 20 4F 44 45 52 20 45 49 4E 45 |IABLEN ODER EINE|
000004A0: 53 20 54 45 52 4D 53 00 BD 0C 9B 00 99 22 42 45 |S TERMS......"BE|
000004B0: 53 54 49 4D 4D 54 20 57 49 52 44 2E 11 00 F8 0C |STIMMT WIRD.....|
000004C0: 9C 00 99 22 48 49 45 52 20 45 49 4E 20 42 45 49 |..."HIER EIN BEI|
000004D0: 53 50 49 45 4C 20 46 55 45 52 20 45 49 4E 45 4E |SPIEL FUER EINEN|
000004E0: 22 3A 99 22 12 4F 4E 2E 2E 2E 47 4F 54 4F 92 2D |":.".ON...GOTO.-|
000004F0: 42 45 46 45 48 4C 3A 11 00 43 0D 9E 00 99 22 20 |BEFEHL:..C...." |
00000500: 20 38 30 20 4F 4E 20 4A 20 47 4F 54 4F 20 31 30 | 80 ON J GOTO 10|
00000510: 2C 20 39 30 11 22 3A 99 22 41 4E 47 45 4E 4F 4D |, 90.":."ANGENOM|
00000520: 4D 45 4E 2C 20 4A 20 48 41 54 20 44 45 4E 20 57 |MEN, J HAT DEN W|
00000530: 45 52 54 20 31 2C 20 53 4F 20 42 45 57 49 52 4B |ERT 1, SO BEWIRK|
00000540: 54 22 3B 00 66 0D 9F 00 99 22 44 49 45 53 20 44 |T";.f...."DIES D|
00000550: 45 4E 20 53 50 52 55 4E 47 20 5A 55 20 5A 45 49 |EN SPRUNG ZU ZEI|
00000560: 4C 45 20 31 30 2E 00 97 0D A0 00 99 22 41 4E 47 |LE 10......."ANG|
00000570: 45 4E 4F 4D 4D 45 4E 2C 20 4A 20 48 41 54 20 44 |ENOMMEN, J HAT D|
00000580: 45 4E 20 57 45 52 54 20 32 2C 20 53 4F 20 42 45 |EN WERT 2, SO BE|
00000590: 57 49 52 4B 54 22 3B 00 E7 0D A1 00 99 22 44 49 |WIRKT";......"DI|
000005A0: 45 53 20 44 45 4E 20 53 50 52 55 4E 47 20 5A 55 |ES DEN SPRUNG ZU|
000005B0: 20 5A 45 49 4C 45 20 39 30 2E 11 22 3A 99 22 48 | ZEILE 90..":."H|
000005C0: 41 54 20 4A 20 49 52 47 45 4E 44 45 49 4E 45 4E |AT J IRGENDEINEN|
000005D0: 20 41 4E 44 45 52 45 4E 20 57 45 52 54 2C 20 53 | ANDEREN WERT, S|
000005E0: 4F 20 57 49 52 44 22 00 16 0E A2 00 99 22 44 49 |O WIRD"......"DI|
000005F0: 45 20 5A 45 49 4C 45 20 4E 41 43 48 20 5A 45 49 |E ZEILE NACH ZEI|
00000600: 4C 45 20 38 30 20 41 55 53 47 45 46 55 45 48 52 |LE 80 AUSGEFUEHR|
00000610: 54 2E 22 3A 8D 37 00 50 0E A4 00 99 22 93 44 45 |T.":.7.P....".DE|
00000620: 52 20 4F 4E 2E 2E 2E 47 4F 54 4F 2D 42 45 46 45 |R ON...GOTO-BEFE|
00000630: 48 4C 20 48 41 54 20 44 41 53 20 46 4F 4C 47 45 |HL HAT DAS FOLGE|
00000640: 4E 44 45 22 3A 99 22 46 4F 52 4D 41 54 3A 11 22 |NDE":."FORMAT:."|
00000650: 00 80 0E A6 00 99 22 12 5A 45 49 4C 45 4E 23 92 |......".ZEILEN#.|
00000660: 20 4F 4E 20 12 58 92 20 47 4F 54 4F 20 12 4C 49 | ON .X. GOTO .LI|
00000670: 53 54 45 20 56 4F 4E 20 5A 45 49 4C 45 4E 23 11 |STE VON ZEILEN#.|
00000680: 00 BC 0E A8 00 99 22 57 4F 42 45 49 20 92 58 92 |......"WOBEI .X.|
00000690: 20 45 49 4E 45 20 56 41 52 49 41 42 4C 45 20 4F | EINE VARIABLE O|
000006A0: 44 45 52 20 45 49 4E 20 54 45 52 4D 20 53 45 49 |DER EIN TERM SEI|
000006B0: 4E 22 3A 99 22 4B 41 4E 4E 2E 3A 11 00 DB 0E AA |N":."KANN.:.....|
000006C0: 00 99 22 5A 57 45 49 20 57 45 49 54 45 52 45 20 |.."ZWEI WEITERE |
000006D0: 42 45 49 53 50 49 45 4C 45 4C 11 00 1A 0F AC 00 |BEISPIELEL......|
000006E0: 99 22 32 20 20 4F 4E 20 46 20 47 4F 54 4F 20 35 |."2 ON F GOTO 5|
000006F0: 2C 20 35 2C 20 36 11 22 3A 99 22 31 34 20 4F 4E |, 5, 6.":."14 ON|
00000700: 20 56 2B 32 20 47 4F 54 4F 20 33 33 2C 20 31 30 | V+2 GOTO 33, 10|
00000710: 2C 20 32 2C 20 32 22 3A 8D 37 00 59 0F B0 00 99 |, 2, 2":.7.Y....|
00000720: 22 93 57 45 4C 43 48 45 20 44 45 52 20 46 4F 4C |".WELCHE DER FOL|
00000730: 47 45 4E 44 45 4E 20 4F 4E 2E 2E 2E 47 4F 54 4F |GENDEN ON...GOTO|
00000740: 2D 42 45 46 45 48 4C 45 20 3A 99 20 49 53 54 20 |-BEFEHLE :. IST |
00000750: 52 49 43 48 54 49 47 3F 22 00 9E 0F B2 00 99 22 |RICHTIG?"......"|
00000760: 32 30 20 4F 4E 20 4B 2D 32 20 47 4F 54 4F 20 31 |20 ON K-2 GOTO 1|
00000770: 30 2C 20 4A 2C 20 33 30 11 22 3A 99 22 35 30 20 |0, J, 30.":."50 |
00000780: 4F 4E 20 28 55 2D 56 29 2F 4C 20 47 4F 54 4F 20 |ON (U-V)/L GOTO |
00000790: 36 38 2C 20 35 35 2C 20 32 2C 20 38 38 11 00 E1 |68, 55, 2, 88...|
000007A0: 0F B4 00 99 22 37 30 20 4F 4E 20 58 2C 59 20 47 |...."70 ON X,Y G|
000007B0: 4F 54 4F 20 38 39 2C 36 36 11 22 3A 85 22 12 28 |OTO 89,66.":.".(|
000007C0: 32 30 2C 20 35 30 20 4F 44 45 52 20 37 30 29 92 |20, 50 ODER 70).|
000007D0: 22 3B 41 24 3A 8B 41 24 B2 22 37 30 22 A7 31 39 |";A$:.A$."70".19|
000007E0: 30 00 F2 0F B5 00 8B 41 24 B2 22 35 30 22 A7 32 |0......A$."50".2|
000007F0: 30 30 00 03 10 B6 00 8B 41 24 B2 22 32 30 22 A7 |00......A$."20".|
00000800: 31 38 34 00 14 10 B7 00 99 51 24 22 91 91 22 3A |184......Q$"..":|
00000810: 89 31 38 30 00 42 10 B8 00 99 22 11 4E 45 49 4E |.180.B....".NEIN|
00000820: 2C 20 44 49 45 53 45 52 20 42 45 46 45 48 4C 20 |, DIESER BEFEHL |
00000830: 49 53 54 20 4E 49 43 48 54 20 52 49 43 48 54 49 |IST NICHT RICHTI|
00000840: 47 21 00 8B 10 B9 00 99 22 49 4E 20 44 45 52 20 |G!......"IN DER |
00000850: 4C 49 53 54 45 20 44 45 52 20 5A 45 49 4C 45 4E |LISTE DER ZEILEN|
00000860: 4E 55 4D 4D 45 52 4E 20 44 55 45 52 46 45 4E 22 |NUMMERN DUERFEN"|
00000870: 3A 99 22 4B 45 49 4E 45 20 56 41 52 49 41 42 4C |:."KEINE VARIABL|
00000880: 45 4E 20 53 54 45 48 45 4E 2E 11 00 B2 10 BA 00 |EN STEHEN.......|
00000890: 99 22 55 45 42 45 52 4C 45 47 45 4E 20 53 49 45 |."UEBERLEGEN SIE|
000008A0: 20 4E 4F 43 48 4D 41 4C 21 22 3A 8D 37 3A 89 31 | NOCHMAL!":.7:.1|
000008B0: 37 36 00 E0 10 BE 00 99 22 11 4E 45 49 4E 2C 20 |76......".NEIN, |
000008C0: 44 49 45 53 45 52 20 42 45 46 45 48 4C 20 49 53 |DIESER BEFEHL IS|
000008D0: 54 20 4E 49 43 48 54 20 52 49 43 48 54 47 21 22 |T NICHT RICHTG!"|
000008E0: 00 24 11 BF 00 99 22 49 4E 20 45 49 4E 45 4D 20 |.$...."IN EINEM |
000008F0: 4F 4E 2E 2E 2E 47 4F 54 4F 2D 42 45 46 45 48 4C |ON...GOTO-BEFEHL|
00000900: 20 44 41 52 46 20 4E 49 43 48 54 22 3A 99 22 12 | DARF NICHT":.".|
00000910: 58 2C 20 59 92 20 53 54 45 48 45 4E 2E 11 22 3A |X, Y. STEHEN..":|
00000920: 89 31 38 36 00 35 11 C8 00 99 22 11 52 49 43 48 |.186.5....".RICH|
00000930: 54 49 47 21 21 00 5F 11 CA 00 99 22 5A 45 49 4C |TIG!!._...."ZEIL|
00000940: 45 20 32 30 20 49 53 54 20 4E 49 43 48 54 20 4B |E 20 IST NICHT K|
00000950: 4F 52 52 45 4B 54 2C 20 44 41 20 45 49 4E 45 00 |ORREKT, DA EINE.|
00000960: 98 11 CB 00 99 22 56 41 52 49 41 42 4C 45 20 49 |....."VARIABLE I|
00000970: 4E 20 44 45 52 20 4C 49 53 54 45 20 44 45 52 20 |N DER LISTE DER |
00000980: 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 4E 22 3A 99 |ZEILENNUMMERN":.|
00000990: 22 53 54 45 48 54 2E 11 00 C6 11 CC 00 99 22 5A |"STEHT........"Z|
000009A0: 45 49 4C 45 20 37 30 20 49 53 54 20 4E 49 43 48 |EILE 70 IST NICH|
000009B0: 54 20 4B 4F 52 52 45 4B 54 2C 20 44 41 20 12 58 |T KORREKT, DA .X|
000009C0: 2C 20 59 92 20 22 00 00 12 CD 00 99 22 49 4E 20 |, Y. "......"IN |
000009D0: 45 49 4E 45 4D 20 4F 4E 2E 2E 2E 47 4F 54 4F 2D |EINEM ON...GOTO-|
000009E0: 42 45 46 45 48 4C 20 4E 49 43 48 54 20 53 54 45 |BEFEHL NICHT STE|
000009F0: 48 45 4E 22 3A 99 22 44 41 52 46 2E 22 3A 8D 37 |HEN":."DARF.":.7|
00000A00: 00 1A 12 CE 00 99 22 93 22 A3 31 36 29 22 4F 4E |......".".16)"ON|
00000A10: 2E 2E 2E 47 4F 53 55 42 11 22 00 68 12 CF 00 99 |...GOSUB.".h....|
00000A20: 22 45 49 4E 20 44 45 4D 20 4F 4E 2E 2E 2E 47 4F |"EIN DEM ON...GO|
00000A30: 54 4F 20 53 45 48 52 20 41 45 48 4E 4C 49 43 48 |TO SEHR AEHNLICH|
00000A40: 45 52 20 22 3A 99 22 42 45 46 45 48 4C 20 49 53 |ER ":."BEFEHL IS|
00000A50: 54 20 44 45 52 20 4F 4E 2E 2E 2E 47 4F 53 55 42 |T DER ON...GOSUB|
00000A60: 2D 42 45 46 45 48 4C 2E 00 94 12 D0 00 99 22 11 |-BEFEHL.......".|
00000A70: 44 45 52 20 12 4F 4E 2E 2E 2E 47 4F 53 55 42 92 |DER .ON...GOSUB.|
00000A80: 2D 42 45 42 45 48 4C 20 42 45 57 49 52 4B 54 20 |-BEBEHL BEWIRKT |
00000A90: 44 45 4E 22 00 C1 12 D1 00 99 22 53 50 52 55 4E |DEN"......"SPRUN|
00000AA0: 47 20 5A 55 20 45 49 4E 45 52 20 53 55 42 52 4F |G ZU EINER SUBRO|
00000AB0: 55 54 49 4E 45 2C 20 44 49 45 20 44 55 52 43 48 |UTINE, DIE DURCH|
00000AC0: 22 00 04 13 D2 00 99 22 44 45 4E 20 57 45 52 54 |"......"DEN WERT|
00000AD0: 20 45 49 4E 45 52 20 56 41 52 49 41 42 4C 45 4E | EINER VARIABLEN|
00000AE0: 20 4F 44 45 52 20 45 49 4E 45 53 22 3A 99 22 54 | ODER EINES":."T|
00000AF0: 45 52 4D 53 20 42 45 53 54 49 4D 4D 54 20 57 49 |ERMS BESTIMMT WI|
00000B00: 52 44 2E 11 00 35 13 38 00 99 22 4E 41 43 48 20 |RD...5.8.."NACH |
00000B10: 44 45 4D 20 52 45 54 55 52 4E 2D 42 45 46 45 48 |DEM RETURN-BEFEH|
00000B20: 4C 20 57 49 52 44 20 44 41 53 20 50 52 4F 47 52 |L WIRD DAS PROGR|
00000B30: 41 4D 4D 22 3B 00 74 13 D6 00 99 22 49 4E 20 44 |AMM";.t...."IN D|
00000B40: 45 52 20 5A 45 49 4C 45 20 4E 41 43 48 20 44 45 |ER ZEILE NACH DE|
00000B50: 4D 20 4F 4E 2E 2E 2E 47 4F 53 55 42 2D 42 45 46 |M ON...GOSUB-BEF|
00000B60: 45 48 4C 22 3A 99 22 46 4F 52 54 47 45 53 45 54 |EHL":."FORTGESET|
00000B70: 5A 54 2E 11 00 9E 13 D8 00 99 22 44 45 52 20 52 |ZT........"DER R|
00000B80: 45 54 55 52 4E 2D 42 45 46 45 48 4C 20 42 45 57 |ETURN-BEFEHL BEW|
00000B90: 49 52 4B 54 20 41 4C 53 4F 20 44 41 53 22 00 D3 |IRKT ALSO DAS"..|
00000BA0: 13 DA 00 99 22 47 4C 45 49 43 48 45 20 57 49 45 |...."GLEICHE WIE|
00000BB0: 20 49 4D 20 47 4F 53 55 42 2D 42 45 46 45 48 4C | IM GOSUB-BEFEHL|
00000BC0: 2E 22 3A 8D 37 3A 99 22 93 42 45 49 53 50 49 45 |.":.7:.".BEISPIE|
00000BD0: 4C 3A 11 00 ED 13 DC 00 99 22 37 20 4F 4E 20 45 |L:......."7 ON E|
00000BE0: 20 47 4F 53 55 42 20 35 2C 20 32 11 11 00 24 14 | GOSUB 5, 2...$.|
00000BF0: DE 00 99 22 44 45 52 20 4F 4E 2E 2E 2E 47 4F 53 |..."DER ON...GOS|
00000C00: 55 42 2D 42 45 46 45 48 4C 20 48 41 54 20 46 4F |UB-BEFEHL HAT FO|
00000C10: 4C 47 45 4E 44 45 53 22 3A 99 22 46 4F 52 4D 41 |LGENDES":."FORMA|
00000C20: 54 3A 11 22 00 55 14 E0 00 99 22 12 5A 45 49 4C |T:.".U....".ZEIL|
00000C30: 45 4E 23 92 20 4F 4E 20 12 58 92 20 47 4F 53 55 |EN#. ON .X. GOSU|
00000C40: 42 20 12 4C 49 53 54 45 20 56 4F 4E 20 5A 45 49 |B .LISTE VON ZEI|
00000C50: 4C 45 4E 23 11 00 93 14 E2 00 99 22 57 4F 42 45 |LEN#......."WOBE|
00000C60: 49 20 12 58 92 20 45 49 4E 45 20 56 41 52 49 41 |I .X. EINE VARIA|
00000C70: 42 4C 45 20 4F 44 45 52 20 45 49 4E 20 54 45 52 |BLE ODER EIN TER|
00000C80: 4D 20 53 45 49 4E 22 3A 99 22 4B 41 4E 4E 2E 22 |M SEIN":."KANN."|
00000C90: 3A 8D 37 00 C2 14 90 01 43 24 B2 22 12 23 22 3A |:.7.....C$.".#":|
00000CA0: 8D 33 3A 99 22 11 11 11 11 11 22 A3 31 30 29 22 |.3:.".....".10)"|
00000CB0: 45 4E 44 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E |ENDE VON LEKTION|
00000CC0: 20 38 00 F7 14 92 01 99 22 11 11 11 11 11 22 A3 | 8......".....".|
00000CD0: 32 29 22 57 45 4E 4E 20 53 49 45 20 42 45 52 45 |2)"WENN SIE BERE|
00000CE0: 49 54 20 53 49 4E 44 20 46 55 45 52 20 4C 45 4B |IT SIND FUER LEK|
00000CF0: 54 49 4F 4E 20 39 2C 00 29 15 93 01 99 A3 34 29 |TION 9,.).....4)|
00000D00: 22 11 11 54 49 50 50 45 4E 20 53 49 45 20 42 49 |"..TIPPEN SIE BI|
00000D10: 54 54 45 20 20 4C 20 4F 20 41 20 44 20 20 45 49 |TTE L O A D EI|
00000D20: 4E 2E 11 11 11 11 11 11 11 00 3A 15 95 01 93 22 |N.........:...."|
00000D30: 54 45 49 4C 20 32 32 22 2C 38 00 00 00 01 24 24 |TEIL 22",8....$$|
00000D40: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000D50: 24 24 44 4F 4C |$$DOL |
.......53281,1:.53280,1.?...Q$.".
.":.9.P....".":.I.1.39
:.C$;:.:.I.1.22:.".."C$;:.:.".";......I.
1.38:."."C$".";:.:.C$......I.1.23:."."C$
".";:.:.......A$:.A$."".7.A....:......."
.....".4)"GOSUB (FORTSETZUNG VON 8.1)":.
7:."."...O..".".=.P.." 2 LET A=1":." 4
GOSUB10":." 6 PRINT A":." 8 GOTO12._.
R.." 10 LET A=A*10":." 12 END."...S.."WA
S WIRD BEI DER AUSFUEHRUNG DES OBIGEN":.
"PROGRAMMS GEDRUCKT?.".T.T..".1.. 1
.2.. 10 .3.. NICHTS...V.."(1,2
ODER 3)";A$:.E(A$).124,130,140...W..Q$:.
111.8.|..".NEIN, SIE HABEB NICHT DARAN G
EDACHT,"...}.."DASS DER GOSUB-BEFEHL IN
ZEILE 4 DEN":."SPRUNG ZU ZEILE 10 BEWIRK
T.....~.."UEBERLEGEN SIE NOCHMAL!":.7:.1
11.W....".NEIN, DER RETURN-BEFEHL FEHET!
.":.126......".GANZ GENAU, ES WIRD NICHT
S GEDRUCKT........"WENN .A. GEDRUCKT WER
DEN SOLL, MUSS.[...."DEM PROGRAMM DIE FO
LGENDE ZEILE HINZU-......"GEFUEGT WERDEN
:.":." .11 RETURN":.7.G....".".16)"ON...
GOTO":.".SIE WISSEN SCHON, DASS DER GOTO
-BEFEHL......"DEN SPRUNG ZU EINER SPEZIE
LLEN ZEILE......"WAEHREND DES PROGRMMABL
AUFS BEWIRKT...N...."DER .ON...GOTO.-BEF
EHL BEWIRKT DEN SPRUNG.{...."ZU EINER ZE
ILE, DEREN NUMMER DURCH DEN......"WERT E
INER VARIABLEN ODER EINES TERMS......"BE
STIMMT WIRD........"HIER EIN BEISPIEL FU
ER EINEN":.".ON...GOTO.-BEFEHL:..C...."
80 ON J GOTO 10, 90.":."ANGENOMMEN, J H
AT DEN WERT 1, SO BEWIRKT";.F...."DIES D
EN SPRUNG ZU ZEILE 10.... .."ANGENOMMEN,
J HAT DEN WERT 2, SO BEWIRKT";......"DI
ES DEN SPRUNG ZU ZEILE 90..":."HAT J IRG
ENDEINEN ANDEREN WERT, SO WIRD"......"DI
E ZEILE NACH ZEILE 80 AUSGEFUEHRT.":.7.P
....".DER ON...GOTO-BEFEHL HAT DAS FOLGE
NDE":."FORMAT:."......".ZEILEN#. ON .X.
GOTO .LISTE VON ZEILEN#......."WOBEI .X.
EINE VARIABLE ODER EIN TERM SEIN":."KAN
N.:......."ZWEI WEITERE BEISPIELEL......
."2 ON F GOTO 5, 5, 6.":."14 ON V+2 GOT
O 33, 10, 2, 2":.7.Y....".WELCHE DER FOL
GENDEN ON...GOTO-BEFEHLE :. IST RICHTIG?
"......"20 ON K-2 GOTO 10, J, 30.":."50
ON (U-V)/L GOTO 68, 55, 2, 88......."70
ON X,Y GOTO 89,66.":.".(20, 50 ODER 70).
";A$:.A$."70".190......A$."50".200......
A$."20".184......Q$"..":.180.B....".NEIN
, DIESER BEFEHL IST NICHT RICHTIG!......
"IN DER LISTE DER ZEILENNUMMERN DUERFEN"
:."KEINE VARIABLEN STEHEN........"UEBERL
EGEN SIE NOCHMAL!":.7:.176......".NEIN,
DIESER BEFEHL IST NICHT RICHTG!".$...."I
N EINEM ON...GOTO-BEFEHL DARF NICHT":.".
X, Y. STEHEN..":.186.5.H..".RICHTIG!!._.
J.."ZEILE 20 IST NICHT KORREKT, DA EINE.
..K.."VARIABLE IN DER LISTE DER ZEILENNU
MMERN":."STEHT...F.L.."ZEILE 70 IST NICH
T KORREKT, DA .X, Y. "...M.."IN EINEM ON
...GOTO-BEFEHL NICHT STEHEN":."DARF.":.7
...N..".".16)"ON...GOSUB.".H.O.."EIN DEM
ON...GOTO SEHR AEHNLICHER ":."BEFEHL IS
T DER ON...GOSUB-BEFEHL....P..".DER .ON.
..GOSUB.-BEBEHL BEWIRKT DEN".A.Q.."SPRUN
G ZU EINER SUBROUTINE, DIE DURCH"...R.."
DEN WERT EINER VARIABLEN ODER EINES":."T
ERMS BESTIMMT WIRD...5.8.."NACH DEM RETU
RN-BEFEHL WIRD DAS PROGRAMM";.T.V.."IN D
ER ZEILE NACH DEM ON...GOSUB-BEFEHL":."F
ORTGESETZT.....X.."DER RETURN-BEFEHL BEW
IRKT ALSO DAS".S.Z.."GLEICHE WIE IM GOSU
B-BEFEHL.":.7:.".BEISPIEL:......."7 ON E
GOSUB 5, 2...$...."DER ON...GOSUB-BEFEH
L HAT FOLGENDES":."FORMAT:.".U....".ZEIL
EN#. ON .X. GOSUB .LISTE VON ZEILEN#....
..."WOBEI .X. EINE VARIABLE ODER EIN TER
M SEIN":."KANN.":.7.B...C$.".#":.3:."...
..".10)"ENDE VON LEKTION 8......".....".
2)"WENN SIE BEREIT SIND FUER LEKTION 9,.
).....4)"..TIPPEN SIE BITTE L O A D EI
N.........:...."TEIL 22",8....$$$$$$$$$$
$$$$$$$$$$DOL
> CLICK IMAGE PREVIEW FOR FULL MODAL