TEIL 21
FILE INFORMATION
FILENAME(S): TEIL 21
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 23:47:27
APPEARS ON: 1 disk(s)
FILE HASH
882239bbf55e12bf75a9d0c2761ac4d7699fca26ef1ac447222da8fee67b437c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC KURS | TEIL 21 | PRG | swasti, flohmarkt | 10 | 13 | 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 4E 20 4E 49 43 48 54 20 44 41 52 41 4E 20 47 |EN 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 BE 0C 9B 00 99 22 42 45 |S TERMS......"BE|
000004B0: 53 54 49 4D 4D 54 20 57 49 52 44 2E 11 22 00 FA |STIMMT WIRD.."..|
000004C0: 0C 9C 00 99 22 48 49 45 52 20 45 49 4E 20 42 45 |...."HIER EIN BE|
000004D0: 49 53 50 49 45 4C 20 46 55 45 52 20 45 49 4E 45 |ISPIEL FUER EINE|
000004E0: 4E 22 3A 99 22 12 4F 4E 2E 2E 2E 47 4F 54 4F 92 |N":.".ON...GOTO.|
000004F0: 2D 42 45 46 45 48 4C 3A 11 22 00 45 0D 9E 00 99 |-BEFEHL:.".E....|
00000500: 22 20 20 38 30 20 4F 4E 20 4A 20 47 4F 54 4F 20 |" 80 ON J GOTO |
00000510: 31 30 2C 20 39 30 11 22 3A 99 22 41 4E 47 45 4E |10, 90.":."ANGEN|
00000520: 4F 4D 4D 45 4E 2C 20 4A 20 48 41 54 20 44 45 4E |OMMEN, J HAT DEN|
00000530: 20 57 45 52 54 20 31 2C 20 53 4F 20 42 45 57 49 | WERT 1, SO BEWI|
00000540: 52 4B 54 22 3B 00 68 0D 9F 00 99 22 44 49 45 53 |RKT";.h...."DIES|
00000550: 20 44 45 4E 20 53 50 52 55 4E 47 20 5A 55 20 5A | DEN SPRUNG ZU Z|
00000560: 45 49 4C 45 20 31 30 2E 00 99 0D A0 00 99 22 41 |EILE 10......."A|
00000570: 4E 47 45 4E 4F 4D 4D 45 4E 2C 20 4A 20 48 41 54 |NGENOMMEN, J HAT|
00000580: 20 44 45 4E 20 57 45 52 54 20 32 2C 20 53 4F 20 | DEN WERT 2, SO |
00000590: 42 45 57 49 52 4B 54 22 3B 00 E9 0D A1 00 99 22 |BEWIRKT";......"|
000005A0: 44 49 45 53 20 44 45 4E 20 53 50 52 55 4E 47 20 |DIES DEN SPRUNG |
000005B0: 5A 55 20 5A 45 49 4C 45 20 39 30 2E 11 22 3A 99 |ZU ZEILE 90..":.|
000005C0: 22 48 41 54 20 4A 20 49 52 47 45 4E 44 45 49 4E |"HAT J IRGENDEIN|
000005D0: 45 4E 20 41 4E 44 45 52 45 4E 20 57 45 52 54 2C |EN ANDEREN WERT,|
000005E0: 20 53 4F 20 57 49 52 44 22 00 18 0E A2 00 99 22 | SO WIRD"......"|
000005F0: 44 49 45 20 5A 45 49 4C 45 20 4E 41 43 48 20 5A |DIE ZEILE NACH Z|
00000600: 45 49 4C 45 20 38 30 20 41 55 53 47 45 46 55 45 |EILE 80 AUSGEFUE|
00000610: 48 52 54 2E 22 3A 8D 37 00 52 0E A4 00 99 22 93 |HRT.":.7.R....".|
00000620: 44 45 52 20 4F 4E 2E 2E 2E 47 4F 54 4F 2D 42 45 |DER ON...GOTO-BE|
00000630: 46 45 48 4C 20 48 41 54 20 44 41 53 20 46 4F 4C |FEHL HAT DAS FOL|
00000640: 47 45 4E 44 45 22 3A 99 22 46 4F 52 4D 41 54 3A |GENDE":."FORMAT:|
00000650: 11 22 00 82 0E A6 00 99 22 12 5A 45 49 4C 45 4E |."......".ZEILEN|
00000660: 23 92 20 4F 4E 20 12 58 92 20 47 4F 54 4F 20 12 |#. ON .X. GOTO .|
00000670: 4C 49 53 54 45 20 56 4F 4E 20 5A 45 49 4C 45 4E |LISTE VON ZEILEN|
00000680: 23 11 00 BE 0E A8 00 99 22 57 4F 42 45 49 20 92 |#......."WOBEI .|
00000690: 58 92 20 45 49 4E 45 20 56 41 52 49 41 42 4C 45 |X. EINE VARIABLE|
000006A0: 20 4F 44 45 52 20 45 49 4E 20 54 45 52 4D 20 53 | ODER EIN TERM S|
000006B0: 45 49 4E 22 3A 99 22 4B 41 4E 4E 2E 3A 11 00 DD |EIN":."KANN.:...|
000006C0: 0E AA 00 99 22 5A 57 45 49 20 57 45 49 54 45 52 |...."ZWEI WEITER|
000006D0: 45 20 42 45 49 53 50 49 45 4C 45 4C 11 00 1C 0F |E BEISPIELEL....|
000006E0: AC 00 99 22 32 20 20 4F 4E 20 46 20 47 4F 54 4F |..."2 ON F GOTO|
000006F0: 20 35 2C 20 35 2C 20 36 11 22 3A 99 22 31 34 20 | 5, 5, 6.":."14 |
00000700: 4F 4E 20 56 2B 32 20 47 4F 54 4F 20 33 33 2C 20 |ON V+2 GOTO 33, |
00000710: 31 30 2C 20 32 2C 20 32 22 3A 8D 37 00 5B 0F B0 |10, 2, 2":.7.[..|
00000720: 00 99 22 93 57 45 4C 43 48 45 20 44 45 52 20 46 |..".WELCHE DER F|
00000730: 4F 4C 47 45 4E 44 45 4E 20 4F 4E 2E 2E 2E 47 4F |OLGENDEN ON...GO|
00000740: 54 4F 2D 42 45 46 45 48 4C 45 20 3A 20 20 49 53 |TO-BEFEHLE : IS|
00000750: 54 20 52 49 43 48 54 49 47 3F 22 00 A0 0F B2 00 |T RICHTIG?".....|
00000760: 99 22 32 30 20 4F 4E 20 4B 2D 32 20 47 4F 54 4F |."20 ON K-2 GOTO|
00000770: 20 31 30 2C 20 4A 2C 20 33 30 11 22 3A 99 22 35 | 10, J, 30.":."5|
00000780: 30 20 4F 4E 20 28 55 2D 56 29 2F 4C 20 47 4F 54 |0 ON (U-V)/L GOT|
00000790: 4F 20 36 38 2C 20 35 35 2C 20 32 2C 20 38 38 11 |O 68, 55, 2, 88.|
000007A0: 00 E3 0F B4 00 99 22 37 30 20 4F 4E 20 58 2C 59 |......"70 ON X,Y|
000007B0: 20 47 4F 54 4F 20 38 39 2C 36 36 11 22 3A 85 22 | GOTO 89,66.":."|
000007C0: 12 28 32 30 2C 20 35 30 20 4F 44 45 52 20 37 30 |.(20, 50 ODER 70|
000007D0: 29 92 22 3B 41 24 3A 8B 41 24 B2 22 37 30 22 A7 |).";A$:.A$."70".|
000007E0: 31 39 30 00 F4 0F B5 00 8B 41 24 B2 22 35 30 22 |190......A$."50"|
000007F0: A7 32 30 30 00 05 10 B6 00 8B 41 24 B2 22 32 30 |.200......A$."20|
00000800: 22 A7 31 38 34 00 16 10 B7 00 99 51 24 22 91 91 |".184......Q$"..|
00000810: 22 3A 89 31 38 30 00 44 10 B8 00 99 22 11 4E 45 |":.180.D....".NE|
00000820: 49 4E 2C 20 44 49 45 53 45 52 20 42 45 46 45 48 |IN, DIESER BEFEH|
00000830: 4C 20 49 53 54 20 4E 49 43 48 54 20 52 49 43 48 |L IST NICHT RICH|
00000840: 54 49 47 21 00 8D 10 B9 00 99 22 49 4E 20 44 45 |TIG!......"IN DE|
00000850: 52 20 4C 49 53 54 45 20 44 45 52 20 5A 45 49 4C |R LISTE DER ZEIL|
00000860: 45 4E 4E 55 4D 4D 45 52 4E 20 44 55 45 52 46 45 |ENNUMMERN DUERFE|
00000870: 4E 22 3A 99 22 4B 45 49 4E 45 20 56 41 52 49 41 |N":."KEINE VARIA|
00000880: 42 4C 45 4E 20 53 54 45 48 45 4E 2E 11 00 B4 10 |BLEN STEHEN.....|
00000890: BA 00 99 22 55 45 42 45 52 4C 45 47 45 4E 20 53 |..."UEBERLEGEN S|
000008A0: 49 45 20 4E 4F 43 48 4D 41 4C 21 22 3A 8D 37 3A |IE NOCHMAL!":.7:|
000008B0: 89 31 37 36 00 E2 10 BE 00 99 22 11 4E 45 49 4E |.176......".NEIN|
000008C0: 2C 20 44 49 45 53 45 52 20 42 45 46 45 48 4C 20 |, DIESER BEFEHL |
000008D0: 49 53 54 20 4E 49 43 48 54 20 52 49 43 48 54 47 |IST NICHT RICHTG|
000008E0: 21 22 00 26 11 BF 00 99 22 49 4E 20 45 49 4E 45 |!".&...."IN EINE|
000008F0: 4D 20 4F 4E 2E 2E 2E 47 4F 54 4F 2D 42 45 46 45 |M ON...GOTO-BEFE|
00000900: 48 4C 20 44 41 52 46 20 4E 49 43 48 54 22 3A 99 |HL DARF NICHT":.|
00000910: 22 12 58 2C 20 59 92 20 53 54 45 48 45 4E 2E 11 |".X, Y. STEHEN..|
00000920: 22 3A 89 31 38 36 00 37 11 C8 00 99 22 11 52 49 |":.186.7....".RI|
00000930: 43 48 54 49 47 21 21 00 61 11 CA 00 99 22 5A 45 |CHTIG!!.a...."ZE|
00000940: 49 4C 45 20 32 30 20 49 53 54 20 4E 49 43 48 54 |ILE 20 IST NICHT|
00000950: 20 4B 4F 52 52 45 4B 54 2C 20 44 41 20 45 49 4E | KORREKT, DA EIN|
00000960: 45 00 9A 11 CB 00 99 22 56 41 52 49 41 42 4C 45 |E......"VARIABLE|
00000970: 20 49 4E 20 44 45 52 20 4C 49 53 54 45 20 44 45 | IN DER LISTE DE|
00000980: 52 20 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 4E 22 |R ZEILENNUMMERN"|
00000990: 3A 99 22 53 54 45 48 54 2E 11 00 C8 11 CC 00 99 |:."STEHT........|
000009A0: 22 5A 45 49 4C 45 20 37 30 20 49 53 54 20 4E 49 |"ZEILE 70 IST NI|
000009B0: 43 48 54 20 4B 4F 52 52 45 4B 54 2C 20 44 41 20 |CHT KORREKT, DA |
000009C0: 12 58 2C 20 59 92 20 22 00 02 12 CD 00 99 22 49 |.X, Y. "......"I|
000009D0: 4E 20 45 49 4E 45 4D 20 4F 4E 2E 2E 2E 47 4F 54 |N EINEM ON...GOT|
000009E0: 4F 2D 42 45 46 45 48 4C 20 4E 49 43 48 54 20 53 |O-BEFEHL NICHT S|
000009F0: 54 45 48 45 4E 22 3A 99 22 44 41 52 46 2E 22 3A |TEHEN":."DARF.":|
00000A00: 8D 37 00 1C 12 CE 00 99 22 93 22 A3 31 36 29 22 |.7......".".16)"|
00000A10: 4F 4E 2E 2E 2E 47 4F 53 55 42 11 22 00 6A 12 CF |ON...GOSUB.".j..|
00000A20: 00 99 22 45 49 4E 20 44 45 4D 20 4F 4E 2E 2E 2E |.."EIN DEM ON...|
00000A30: 47 4F 54 4F 20 53 45 48 52 20 41 45 48 4E 4C 49 |GOTO SEHR AEHNLI|
00000A40: 43 48 45 52 20 22 3A 99 22 42 45 46 45 48 4C 20 |CHER ":."BEFEHL |
00000A50: 49 53 54 20 44 45 52 20 4F 4E 2E 2E 2E 47 4F 53 |IST DER ON...GOS|
00000A60: 55 42 2D 42 45 46 45 48 4C 2E 00 96 12 D0 00 99 |UB-BEFEHL.......|
00000A70: 22 11 44 45 52 20 12 4F 4E 2E 2E 2E 47 4F 53 55 |".DER .ON...GOSU|
00000A80: 42 92 2D 42 45 42 45 48 4C 20 42 45 57 49 52 4B |B.-BEBEHL BEWIRK|
00000A90: 54 20 44 45 4E 22 00 C3 12 D1 00 99 22 53 50 52 |T DEN"......"SPR|
00000AA0: 55 4E 47 20 5A 55 20 45 49 4E 45 52 20 53 55 42 |UNG ZU EINER SUB|
00000AB0: 52 4F 55 54 49 4E 45 2C 20 44 49 45 20 44 55 52 |ROUTINE, DIE DUR|
00000AC0: 43 48 22 00 06 13 D2 00 99 22 44 45 4E 20 57 45 |CH"......"DEN WE|
00000AD0: 52 54 20 45 49 4E 45 52 20 56 41 52 49 41 42 4C |RT EINER VARIABL|
00000AE0: 45 4E 20 4F 44 45 52 20 45 49 4E 45 53 22 3A 99 |EN ODER EINES":.|
00000AF0: 22 54 45 52 4D 53 20 42 45 53 54 49 4D 4D 54 20 |"TERMS BESTIMMT |
00000B00: 57 49 52 44 2E 11 00 37 13 38 00 99 22 4E 41 43 |WIRD...7.8.."NAC|
00000B10: 48 20 44 45 4D 20 52 45 54 55 52 4E 2D 42 45 46 |H DEM RETURN-BEF|
00000B20: 45 48 4C 20 57 49 52 44 20 44 41 53 20 50 52 4F |EHL WIRD DAS PRO|
00000B30: 47 52 41 4D 4D 22 3B 00 76 13 D6 00 99 22 49 4E |GRAMM";.v...."IN|
00000B40: 20 44 45 52 20 5A 45 49 4C 45 20 4E 41 43 48 20 | DER ZEILE NACH |
00000B50: 44 45 4D 20 4F 4E 2E 2E 2E 47 4F 53 55 42 2D 42 |DEM ON...GOSUB-B|
00000B60: 45 46 45 48 4C 22 3A 99 22 46 4F 52 54 47 45 53 |EFEHL":."FORTGES|
00000B70: 45 54 5A 54 2E 11 00 A0 13 D8 00 99 22 44 45 52 |ETZT........"DER|
00000B80: 20 52 45 54 55 52 4E 2D 42 45 46 45 48 4C 20 42 | RETURN-BEFEHL B|
00000B90: 45 57 49 52 4B 54 20 41 4C 53 4F 20 44 41 53 22 |EWIRKT ALSO DAS"|
00000BA0: 00 D5 13 DA 00 99 22 47 4C 45 49 43 48 45 20 57 |......"GLEICHE W|
00000BB0: 49 45 20 49 4D 20 47 4F 53 55 42 2D 42 45 46 45 |IE IM GOSUB-BEFE|
00000BC0: 48 4C 2E 22 3A 8D 37 3A 99 22 93 42 45 49 53 50 |HL.":.7:.".BEISP|
00000BD0: 49 45 4C 3A 11 00 EF 13 DC 00 99 22 37 20 4F 4E |IEL:......."7 ON|
00000BE0: 20 45 20 47 4F 53 55 42 20 35 2C 20 32 11 11 00 | E GOSUB 5, 2...|
00000BF0: 26 14 DE 00 99 22 44 45 52 20 4F 4E 2E 2E 2E 47 |&...."DER ON...G|
00000C00: 4F 53 55 42 2D 42 45 46 45 48 4C 20 48 41 54 20 |OSUB-BEFEHL HAT |
00000C10: 46 4F 4C 47 45 4E 44 45 53 22 3A 99 22 46 4F 52 |FOLGENDES":."FOR|
00000C20: 4D 41 54 3A 11 22 00 57 14 E0 00 99 22 12 5A 45 |MAT:.".W....".ZE|
00000C30: 49 4C 45 4E 23 92 20 4F 4E 20 12 58 92 20 47 4F |ILEN#. ON .X. GO|
00000C40: 53 55 42 20 12 4C 49 53 54 45 20 56 4F 4E 20 5A |SUB .LISTE VON Z|
00000C50: 45 49 4C 45 4E 23 11 00 95 14 E2 00 99 22 57 4F |EILEN#......."WO|
00000C60: 42 45 49 20 12 58 92 20 45 49 4E 45 20 56 41 52 |BEI .X. EINE VAR|
00000C70: 49 41 42 4C 45 20 4F 44 45 52 20 45 49 4E 20 54 |IABLE ODER EIN T|
00000C80: 45 52 4D 20 53 45 49 4E 22 3A 99 22 4B 41 4E 4E |ERM SEIN":."KANN|
00000C90: 2E 22 3A 8D 37 00 C4 14 90 01 43 24 B2 22 12 23 |.":.7.....C$.".#|
00000CA0: 22 3A 8D 33 3A 99 22 11 11 11 11 11 22 A3 31 30 |":.3:.".....".10|
00000CB0: 29 22 45 4E 44 45 20 56 4F 4E 20 4C 45 4B 54 49 |)"ENDE VON LEKTI|
00000CC0: 4F 4E 20 38 00 F9 14 92 01 99 22 11 11 11 11 11 |ON 8......".....|
00000CD0: 22 A3 32 29 22 57 45 4E 4E 20 53 49 45 20 42 45 |".2)"WENN SIE BE|
00000CE0: 52 45 49 54 20 53 49 4E 44 20 46 55 45 52 20 4C |REIT SIND FUER L|
00000CF0: 45 4B 54 49 4F 4E 20 39 2C 00 2B 15 93 01 99 A3 |EKTION 9,.+.....|
00000D00: 34 29 22 11 11 54 49 50 50 45 4E 20 53 49 45 20 |4)"..TIPPEN SIE |
00000D10: 42 49 54 54 45 20 20 4C 20 4F 20 41 20 44 20 20 |BITTE L O A D |
00000D20: 45 49 4E 2E 11 11 11 11 11 11 11 00 3C 15 95 01 |EIN.........<...|
00000D30: 93 22 54 45 49 4C 20 32 32 22 2C 38 00 00 00 01 |."TEIL 22",8....|
00000D40: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000D50: 29 8D |). |
.......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 HABEN 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 F
UER EINEN":.".ON...GOTO.-BEFEHL:.".E....
" 80 ON J GOTO 10, 90.":."ANGENOMMEN, J
HAT DEN WERT 1, SO BEWIRKT";.H...."DIES
DEN SPRUNG ZU ZEILE 10.... .."ANGENOMME
N, J HAT DEN WERT 2, SO BEWIRKT";......"
DIES DEN SPRUNG ZU ZEILE 90..":."HAT J I
RGENDEINEN ANDEREN WERT, SO WIRD"......"
DIE ZEILE NACH ZEILE 80 AUSGEFUEHRT.":.7
.R....".DER ON...GOTO-BEFEHL HAT DAS FOL
GENDE":."FORMAT:."......".ZEILEN#. ON .X
. GOTO .LISTE VON ZEILEN#......."WOBEI .
X. EINE VARIABLE ODER EIN TERM SEIN":."K
ANN.:......."ZWEI WEITERE BEISPIELEL....
..."2 ON F GOTO 5, 5, 6.":."14 ON V+2 G
OTO 33, 10, 2, 2":.7.[....".WELCHE DER F
OLGENDEN ON...GOTO-BEFEHLE : IST RICHTI
G?". ...."20 ON K-2 GOTO 10, J, 30.":."5
0 ON (U-V)/L GOTO 68, 55, 2, 88......."7
0 ON X,Y GOTO 89,66.":.".(20, 50 ODER 70
).";A$:.A$."70".190......A$."50".200....
..A$."20".184......Q$"..":.180.D....".NE
IN, DIESER BEFEHL IST NICHT RICHTIG!....
.."IN DER LISTE DER ZEILENNUMMERN DUERFE
N":."KEINE VARIABLEN STEHEN........"UEBE
RLEGEN SIE NOCHMAL!":.7:.176......".NEIN
, DIESER BEFEHL IST NICHT RICHTG!".&....
"IN EINEM ON...GOTO-BEFEHL DARF NICHT":.
".X, Y. STEHEN..":.186.7.H..".RICHTIG!!.
A.J.."ZEILE 20 IST NICHT KORREKT, DA EIN
E...K.."VARIABLE IN DER LISTE DER ZEILEN
NUMMERN":."STEHT...H.L.."ZEILE 70 IST NI
CHT KORREKT, DA .X, Y. "...M.."IN EINEM
ON...GOTO-BEFEHL NICHT STEHEN":."DARF.":
.7...N..".".16)"ON...GOSUB.".J.O.."EIN D
EM ON...GOTO SEHR AEHNLICHER ":."BEFEHL
IST DER ON...GOSUB-BEFEHL....P..".DER .O
N...GOSUB.-BEBEHL BEWIRKT DEN".C.Q.."SPR
UNG ZU EINER SUBROUTINE, DIE DURCH"...R.
."DEN WERT EINER VARIABLEN ODER EINES":.
"TERMS BESTIMMT WIRD...7.8.."NACH DEM RE
TURN-BEFEHL WIRD DAS PROGRAMM";.V.V.."IN
DER ZEILE NACH DEM ON...GOSUB-BEFEHL":.
"FORTGESETZT... .X.."DER RETURN-BEFEHL B
EWIRKT ALSO DAS".U.Z.."GLEICHE WIE IM GO
SUB-BEFEHL.":.7:.".BEISPIEL:......."7 ON
E GOSUB 5, 2...&...."DER ON...GOSUB-BEF
EHL HAT FOLGENDES":."FORMAT:.".W....".ZE
ILEN#. ON .X. GOSUB .LISTE VON ZEILEN#..
....."WOBEI .X. EINE VARIABLE ODER EIN T
ERM SEIN":."KANN.":.7.D...C$.".#":.3:.".
....".10)"ENDE VON LEKTION 8......".....
".2)"WENN SIE BEREIT SIND FUER LEKTION 9
,.+.....4)"..TIPPEN SIE BITTE L O A D
EIN.........<...."TEIL 22",8....$$$$$$$$
$$$$$$$$).
> CLICK IMAGE PREVIEW FOR FULL MODAL