TEIL 17
FILE INFORMATION
FILENAME(S): TEIL 17
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-02 23:23:02
APPEARS ON: 1 disk(s)
FILE HASH
d70bed966bc8f9ad1601a0fdb2ef7bb1ff4192de99f7fe8dd94773a18762174c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NR 45 2 | TEIL 17 | PRG | swasti, dinkel | 24 | 0 | 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 1F 08 02 00 89 31 36 00 |53281,1......16.| 00000020: 50 08 03 00 99 22 93 22 3A 81 49 B2 31 A4 33 39 |P....".":.I.1.39| 00000030: 3A 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A |:.C$;:.:.I.1.22:| 00000040: 99 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B |.".."C$;:.:.".";| 00000050: 00 6D 08 04 00 81 49 B2 31 A4 33 38 3A 99 22 9D |.m....I.1.38:.".| 00000060: 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 88 08 |"C$".";:.:.C$...| 00000070: 05 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 |...I.1.23:."."C$| 00000080: 22 9D 22 3B 3A 82 3A 8E 00 99 08 07 00 A1 41 24 |".";:.:.......A$| 00000090: 3A 8B 41 24 B2 22 22 A7 37 00 A1 08 08 00 99 3A |:.A$."".7......:| 000000A0: 8E 00 C4 08 09 00 99 22 13 22 3A 81 49 B2 30 A4 |.......".":.I.0.| 000000B0: 59 AB 31 3A 99 22 11 22 3B 3A 82 3A 99 22 91 91 |Y.1:.".";:.:."..| 000000C0: 22 3B 3A 8E 00 FD 08 0B 00 81 4A B2 31 A4 31 35 |";:.......J.1.15| 000000D0: 3A 99 22 3E 22 3B 3A 81 49 B2 31 A4 34 30 3A 82 |:.">";:.I.1.40:.| 000000E0: 3A 99 22 9D 12 3E 92 9D 22 3B 3A 81 4B B2 31 A4 |:."..>..";:.K.1.| 000000F0: 32 30 3A 82 3A 82 3A 99 22 20 22 3A 8E 00 41 09 |20:.:.:." ":..A.| 00000100: 0D 00 59 B2 59 31 3A 8D 39 3A 81 49 B2 30 A4 59 |..Y.Y1:.9:.I.0.Y| 00000110: 32 AB 59 31 3A 99 22 20 20 20 20 20 20 20 20 20 |2.Y1:." | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 00000140: 82 00 4A 09 0E 00 8D 39 3A 8E 00 5C 09 0F 00 81 |..J....9:..\....| 00000150: 49 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 8E 09 10 |I.1.1000:.:.....| 00000160: 00 5A 24 B2 C7 28 33 34 29 3A 43 24 B2 22 A6 22 |.Z$..(34):C$."."| 00000170: 3A 8D 33 3A 99 22 13 11 11 11 11 11 22 A3 31 32 |:.3:."......".12| 00000180: 29 22 4C 45 4B 54 49 4F 4E 20 37 11 11 22 00 A5 |)"LEKTION 7.."..| 00000190: 09 11 00 99 A3 31 30 29 22 31 2E 20 53 43 48 4C |.....10)"1. SCHL| 000001A0: 45 49 46 45 4E 00 E0 09 12 00 99 A3 31 30 29 22 |EIFEN.......10)"| 000001B0: 11 32 2E 20 46 4F 52 2E 2E 2E CE 4E 45 58 54 2D |.2. FOR....NEXT-| 000001C0: 42 45 46 45 48 4C 45 22 3A 99 A3 31 30 29 22 11 |BEFEHLE":..10)".| 000001D0: 33 2E 20 52 45 4D 2D 41 4E 57 45 49 53 55 4E 47 |3. REM-ANWEISUNG| 000001E0: 00 03 0A 13 00 99 A3 31 30 29 22 11 34 2E 20 50 |.......10)".4. P| 000001F0: 52 4F 47 52 41 4D 4D 42 45 49 53 50 49 45 4C 22 |ROGRAMMBEISPIEL"| 00000200: 3A 8D 37 00 45 0A 14 00 99 22 93 22 A3 31 32 29 |:.7.E....".".12)| 00000210: 22 53 43 48 4C 45 49 46 45 4E 22 3A 8D 37 3A 99 |"SCHLEIFEN":.7:.| 00000220: 22 45 49 4E 45 20 44 45 52 20 4E 55 45 54 5A 4C |"EINE DER NUETZL| 00000230: 49 43 48 53 54 45 4E 20 45 49 47 45 4E 53 43 48 |ICHSTEN EIGENSCH| 00000240: 41 46 54 45 4E 00 71 0A 16 00 99 22 49 48 52 45 |AFTEN.q...."IHRE| 00000250: 53 20 50 45 54 20 49 53 54 20 44 49 45 20 4D 4F |S PET IST DIE MO| 00000260: 45 47 4C 49 43 48 4B 45 49 54 2C 20 53 49 43 48 |EGLICHKEIT, SICH| 00000270: 22 00 9B 0A 17 00 99 22 4F 46 54 20 57 49 45 44 |"......"OFT WIED| 00000280: 45 52 48 4F 4C 45 4E 44 45 20 56 4F 52 47 41 45 |ERHOLENDE VORGAE| 00000290: 4E 47 45 20 45 49 4E 46 41 43 48 00 BF 0A 18 00 |NGE EINFACH.....| 000002A0: 99 22 55 4E 44 20 53 43 48 4E 45 4C 4C 20 41 55 |."UND SCHNELL AU| 000002B0: 53 5A 55 46 55 45 48 52 45 4E 2E 22 3A 8D 37 00 |SZUFUEHREN.":.7.| 000002C0: E8 0A 20 00 99 22 93 45 53 20 53 4F 4C 4C 20 4E |.. ..".ES SOLL N| 000002D0: 55 4E 20 41 4E 20 45 49 4E 45 4D 20 50 52 4F 47 |UN AN EINEM PROG| 000002E0: 52 41 4D 4D 20 5A 55 52 00 16 0B 21 00 99 22 42 |RAMM ZUR...!.."B| 000002F0: 45 52 45 43 48 4E 55 4E 47 20 56 45 52 53 43 48 |ERECHNUNG VERSCH| 00000300: 49 45 44 45 4E 45 52 20 41 52 42 45 49 54 53 4C |IEDENER ARBEITSL| 00000310: 4F 45 48 4E 45 22 00 50 0B 22 00 99 22 44 45 52 |OEHNE".P.".."DER| 00000320: 20 47 45 42 52 41 55 43 48 20 56 4F 4E 20 53 43 | GEBRAUCH VON SC| 00000330: 48 4C 45 49 46 45 4E 20 49 4C 4C 55 53 54 52 49 |HLEIFEN ILLUSTRI| 00000340: 45 52 54 20 22 3A 99 22 57 45 52 44 45 4E 3A 22 |ERT ":."WERDEN:"| 00000350: 00 8E 0B 24 00 8D 37 3A 99 22 20 39 35 20 20 52 |...$..7:." 95 R| 00000360: 45 41 44 20 4E 24 2C 52 2C 48 22 3A 99 22 20 31 |EAD N$,R,H":." 1| 00000370: 30 30 20 49 46 20 4E 24 3D 22 5A 24 22 45 4E 44 |00 IF N$="Z$"END| 00000380: 45 22 5A 24 22 20 54 48 45 4E 20 37 35 35 00 CB |E"Z$" THEN 755..| 00000390: 0B 26 00 99 22 20 31 31 30 20 50 52 49 4E 54 22 |.&.." 110 PRINT"| 000003A0: 5A 24 22 44 45 52 20 4C 4F 48 4E 20 46 55 45 52 |Z$"DER LOHN FUER| 000003B0: 22 5A 24 22 4E 24 22 5A 24 22 42 45 54 52 41 45 |"Z$"N$"Z$"BETRAE| 000003C0: 47 54 22 5A 24 22 52 2A 48 22 3B 00 DE 0B 27 00 |GT"Z$"R*H";...'.| 000003D0: 99 22 20 31 31 35 20 47 4F 54 4F 20 39 35 00 2F |." 115 GOTO 95./| 000003E0: 0C 28 00 99 22 20 31 32 30 20 44 41 54 41 20 22 |.(.." 120 DATA "| 000003F0: 5A 24 22 52 2E 20 42 52 41 55 4E 22 5A 24 22 2C |Z$"R. BRAUN"Z$",| 00000400: 20 33 2E 35 30 2C 20 34 30 22 3A 99 22 20 31 32 | 3.50, 40":." 12| 00000410: 35 20 44 41 54 41 20 22 5A 24 22 4B 2E 20 42 4C |5 DATA "Z$"K. BL| 00000420: 41 55 22 5A 24 22 2C 33 2E 37 35 2C 20 32 30 00 |AU"Z$",3.75, 20.| 00000430: 5C 0C 2A 00 99 22 20 31 33 30 20 44 41 54 41 20 |\.*.." 130 DATA | 00000440: 22 5A 24 22 48 41 4E 53 20 44 41 4D 50 46 22 5A |"Z$"HANS DAMPF"Z| 00000450: 24 22 2C 20 34 2E 30 30 2C 20 33 38 00 A7 0C 2C |$", 4.00, 38...,| 00000460: 00 99 22 20 31 34 30 20 44 41 54 41 20 22 5A 24 |.." 140 DATA "Z$| 00000470: 22 41 4E 4E 41 20 52 4F 53 22 5A 24 22 2C 20 34 |"ANNA ROS"Z$", 4| 00000480: 2E 31 30 2C 20 34 30 22 3A 99 22 20 31 39 39 20 |.10, 40":." 199 | 00000490: 44 41 54 41 20 22 5A 24 22 45 4E 44 45 22 5A 24 |DATA "Z$"ENDE"Z$| 000004A0: 22 2C 20 30 2C 20 30 00 DE 0C 2E 00 99 22 20 37 |", 0, 0......" 7| 000004B0: 35 35 20 45 4E 44 22 3A 8D 37 3A 99 22 44 41 53 |55 END":.7:."DAS| 000004C0: 20 4F 42 49 47 45 20 50 52 4F 47 52 41 4D 4D 20 | OBIGE PROGRAMM | 000004D0: 57 49 45 44 45 52 48 4F 4C 54 20 44 49 45 00 03 |WIEDERHOLT DIE..| 000004E0: 0D 2F 00 99 22 42 45 46 45 48 4C 45 20 44 45 52 |./.."BEFEHLE DER| 000004F0: 20 5A 45 49 4C 45 4E 20 39 35 20 42 49 53 20 31 | ZEILEN 95 BIS 1| 00000500: 31 35 2C 00 22 0D 30 00 8D 37 3A 81 59 B2 36 A4 |15,.".0..7:.Y.6.| 00000510: 39 3A 8D 39 3A 8D 31 31 3A 82 3A 59 B2 31 38 3A |9:.9:.11:.:Y.18:| 00000520: 8D 39 00 61 0D 32 00 99 A3 33 31 29 22 53 4F 4C |.9.a.2...31)"SOL| 00000530: 41 4E 47 45 22 3A 99 22 42 49 53 20 49 4E 20 5A |ANGE":."BIS IN Z| 00000540: 45 49 4C 45 20 31 39 39 20 12 45 4E 44 45 92 20 |EILE 199 .ENDE. | 00000550: 55 4E 44 20 44 49 45 20 57 45 52 54 45 20 30 2C |UND DIE WERTE 0,| 00000560: 22 00 85 0D 33 00 99 22 30 20 45 49 4E 47 45 4C |"...3.."0 EINGEL| 00000570: 45 53 45 4E 20 57 4F 52 44 45 4E 20 53 49 4E 44 |ESEN WORDEN SIND| 00000580: 2E 22 3A 8D 37 00 C1 0D 34 00 59 B2 31 34 3A 8D |.":.7...4.Y.14:.| 00000590: 39 3A 8D 31 31 3A 8D 37 3A 59 B2 32 32 3A 8D 39 |9:.11:.7:Y.22:.9| 000005A0: 3A 99 22 44 49 45 20 53 43 48 4C 45 49 46 45 20 |:."DIE SCHLEIFE | 000005B0: 57 49 52 44 20 44 55 52 43 48 20 44 45 4E 20 22 |WIRD DURCH DEN "| 000005C0: 3B 00 F2 0D 35 00 99 22 12 47 4F 54 4F 92 2D 42 |;...5..".GOTO.-B| 000005D0: 45 46 45 48 4C 22 3A 99 22 49 4E 20 5A 45 49 4C |EFEHL":."IN ZEIL| 000005E0: 45 20 31 31 35 20 47 45 53 43 48 4C 4F 53 53 45 |E 115 GESCHLOSSE| 000005F0: 4E 2E 00 07 0E 36 00 8D 37 3A 59 B2 39 3A 8D 39 |N....6..7:Y.9:.9| 00000600: 3A 8D 31 31 3A 8D 37 00 23 0E 37 00 59 31 B2 31 |:.11:.7.#.7.Y1.1| 00000610: 37 3A 59 32 B2 32 33 3A 8D 31 33 3A 59 B2 31 37 |7:Y2.23:.13:Y.17| 00000620: 3A 8D 39 00 6C 0E 38 00 99 22 44 45 52 20 49 46 |:.9.l.8.."DER IF| 00000630: 2D 42 45 46 45 48 4C 20 49 4E 20 5A 45 49 4C 45 |-BEFEHL IN ZEILE| 00000640: 20 31 30 30 20 42 45 45 4E 44 45 54 20 44 49 45 | 100 BEENDET DIE| 00000650: 22 3A 99 22 53 43 48 4C 45 49 46 45 2C 53 4F 42 |":."SCHLEIFE,SOB| 00000660: 41 4C 44 20 12 45 4E 44 45 92 22 3B 00 9F 0E 3A |ALD .ENDE.";...:| 00000670: 00 99 22 20 45 49 4E 47 45 4C 45 53 45 4E 20 57 |.." EINGELESEN W| 00000680: 55 52 44 45 2E 22 3A 8D 37 3A 59 B2 37 3A 8D 39 |URDE.":.7:Y.7:.9| 00000690: 3A 8D 31 31 3A 8D 37 3A 59 B2 32 30 3A 8D 39 00 |:.11:.7:Y.20:.9.| 000006A0: CC 0E 3C 00 99 22 44 45 52 20 45 49 47 45 4E 54 |..<.."DER EIGENT| 000006B0: 4C 49 43 48 45 20 57 45 52 54 20 44 49 45 53 45 |LICHE WERT DIESE| 000006C0: 53 20 50 52 4F 47 52 41 4D 4D 45 53 00 F9 0E 3D |S PROGRAMMES...=| 000006D0: 00 99 22 57 49 52 44 20 45 52 53 54 20 4F 46 46 |.."WIRD ERST OFF| 000006E0: 45 4E 53 49 43 48 54 4C 49 43 48 2C 20 57 45 4E |ENSICHTLICH, WEN| 000006F0: 4E 20 45 53 20 46 55 45 52 00 33 0F 3E 00 99 22 |N ES FUER.3.>.."| 00000700: 56 49 45 4C 45 20 41 52 42 45 49 54 45 52 20 44 |VIELE ARBEITER D| 00000710: 55 52 43 48 47 45 46 55 45 48 52 54 20 57 49 52 |URCHGEFUEHRT WIR| 00000720: 44 2E 22 3A 8D 37 3A 59 32 B2 32 34 3A 8D 31 33 |D.":.7:Y2.24:.13| 00000730: 3A 8D 39 00 61 0F 40 00 99 22 55 4D 20 44 41 53 |:.9.a.@.."UM DAS| 00000740: 20 50 52 4F 47 52 41 4D 4D 20 46 55 45 52 20 4D | PROGRAMM FUER M| 00000750: 45 48 52 20 41 52 42 45 49 54 45 52 20 41 55 53 |EHR ARBEITER AUS| 00000760: 2D 00 90 0F 41 00 99 22 5A 55 46 55 45 48 52 45 |-...A.."ZUFUEHRE| 00000770: 4E 2C 4D 55 45 53 53 45 4E 20 4E 55 52 20 4D 45 |N,MUESSEN NUR ME| 00000780: 48 52 20 44 41 54 41 2D 42 45 46 45 48 4C 45 22 |HR DATA-BEFEHLE"| 00000790: 00 CA 0F 42 00 99 22 47 45 47 45 42 45 4E 20 57 |...B.."GEGEBEN W| 000007A0: 45 52 44 45 4E 20 28 46 55 45 52 20 4A 45 44 45 |ERDEN (FUER JEDE| 000007B0: 4E 20 41 52 42 45 49 54 45 52 22 3A 99 22 45 49 |N ARBEITER":."EI| 000007C0: 4E 45 52 29 2E 91 22 3A 8D 37 00 ED 0F 48 00 8D |NER)..":.7...H..| 000007D0: 31 33 3A 8D 39 3A 99 22 45 49 4E 20 51 55 49 5A |13:.9:."EIN QUIZ| 000007E0: 21 22 3A 8D 37 3A 43 B2 30 3A 8D 31 33 00 25 10 |!":.7:C.0:.13.%.| 000007F0: 4A 00 99 22 57 49 45 20 4F 46 54 20 46 55 45 48 |J.."WIE OFT FUEH| 00000800: 52 54 20 44 45 52 20 43 4F 4D 50 55 54 45 52 20 |RT DER COMPUTER | 00000810: 42 45 46 45 48 4C 20 39 35 22 3A 99 22 41 55 53 |BEFEHL 95":."AUS| 00000820: 22 3A 59 B2 36 00 57 10 4B 00 8D 39 3A 8D 31 31 |":Y.6.W.K..9:.11| 00000830: 3A 59 B2 31 38 3A 8D 39 3A 99 22 1D 1D 1D 1D 28 |:Y.18:.9:."....(| 00000840: 31 2C 20 34 20 4F 44 45 52 20 35 29 20 4D 41 4C |1, 4 ODER 5) MAL| 00000850: 20 22 3B 3A 85 41 24 00 84 10 4C 00 8B 41 24 B3 | ";:.A$...L..A$.| 00000860: B1 22 31 22 AF 41 24 B3 B1 22 34 22 AF 41 24 B3 |."1".A$.."4".A$.| 00000870: B1 22 35 22 A7 99 51 24 3A 99 22 91 91 91 91 22 |."5"..Q$:."...."| 00000880: 3A 89 37 34 00 A3 10 4D 00 8D 31 33 3A 59 B2 31 |:.74...M..13:Y.1| 00000890: 37 3A 8D 39 3A 8B 41 24 B2 22 35 22 AF 43 B2 30 |7:.9:.A$."5".C.0| 000008A0: A7 39 38 00 B7 10 4E 00 8B 41 24 B2 22 35 22 AF |.98...N..A$."5".| 000008B0: 43 B2 31 A7 31 30 30 00 C7 10 4F 00 8B 41 24 B2 |C.1.100...O..A$.| 000008C0: 22 35 22 A7 31 30 34 00 D6 10 50 00 8B 41 24 B2 |"5".104...P..A$.| 000008D0: 22 34 22 A7 39 32 00 03 11 52 00 43 B2 43 AA 31 |"4".92...R.C.C.1| 000008E0: 3A 99 22 4E 45 49 4E 2C 20 44 45 4E 4B 45 4E 20 |:."NEIN, DENKEN | 000008F0: 53 49 45 20 44 41 52 41 4E 2C 20 44 41 53 53 20 |SIE DARAN, DASS | 00000900: 44 45 52 00 31 11 53 00 99 22 47 4F 54 4F 42 45 |DER.1.S.."GOTOBE| 00000910: 46 45 48 4C 20 44 49 45 20 57 49 45 44 45 52 48 |FEHL DIE WIEDERH| 00000920: 4F 4C 55 4E 47 20 44 45 52 20 42 45 46 45 48 4C |OLUNG DER BEFEHL| 00000930: 45 00 5D 11 54 00 99 22 49 4E 20 44 45 4E 20 5A |E.].T.."IN DEN Z| 00000940: 45 49 4C 45 4E 20 39 35 20 42 49 53 20 31 31 35 |EILEN 95 BIS 115| 00000950: 20 42 45 57 49 52 4B 54 2E 22 3A 8D 37 00 8B 11 | BEWIRKT.":.7...| 00000960: 55 00 99 22 44 45 52 20 49 46 2D 42 45 46 45 48 |U.."DER IF-BEFEH| 00000970: 4C 20 42 45 45 4E 44 45 54 20 44 49 45 20 53 43 |L BEENDET DIE SC| 00000980: 48 4C 45 49 46 45 20 45 52 53 54 00 D0 11 56 00 |HLEIFE ERST...V.| 00000990: 99 22 57 45 4E 4E 20 44 55 52 43 48 20 44 45 4E |."WENN DURCH DEN| 000009A0: 20 42 45 46 45 48 4C 20 49 4E 20 5A 45 49 4C 45 | BEFEHL IN ZEILE| 000009B0: 20 31 39 39 20 12 45 4E 44 45 92 22 3A 99 22 45 | 199 .ENDE.":."E| 000009C0: 49 4E 47 45 4C 45 53 45 4E 20 57 55 52 44 45 2E |INGELESEN WURDE.| 000009D0: 00 EA 11 58 00 8D 37 3A 59 B2 31 34 3A 8D 39 3A |...X..7:Y.14:.9:| 000009E0: 8D 31 31 3A 8D 37 3A 8D 31 33 00 1F 12 5A 00 59 |.11:.7:.13...Z.Y| 000009F0: B2 31 37 3A 8D 39 3A 99 22 56 45 52 53 55 43 48 |.17:.9:."VERSUCH| 00000A00: 45 4E 20 53 49 45 20 45 53 20 4E 4F 43 48 4D 41 |EN SIE ES NOCHMA| 00000A10: 4C 21 22 3A 8D 37 3A 8D 31 33 3A 59 B2 31 37 00 |L!":.7:.13:Y.17.| 00000A20: 2A 12 5B 00 8D 39 3A 8D 37 34 00 50 12 5C 00 99 |*.[..9:.74.P.\..| 00000A30: 22 4E 45 49 4E 2C 20 34 20 4D 41 4C 20 49 53 54 |"NEIN, 4 MAL IST| 00000A40: 20 4E 49 43 48 54 20 52 49 43 48 54 49 47 2E 22 | NICHT RICHTIG."| 00000A50: 00 7D 12 5D 00 99 22 42 45 41 43 48 54 45 4E 20 |.}.].."BEACHTEN | 00000A60: 53 49 45 2C 20 44 41 53 53 20 5A 45 49 4C 45 20 |SIE, DASS ZEILE | 00000A70: 39 35 20 46 55 45 52 20 4A 45 44 45 4E 00 C5 12 |95 FUER JEDEN...| 00000A80: 5E 00 99 22 44 41 54 41 2D 42 45 46 45 48 4C 20 |^.."DATA-BEFEHL | 00000A90: 45 49 4E 53 43 48 4C 49 45 53 53 4C 49 43 48 20 |EINSCHLIESSLICH | 00000AA0: 5A 45 49 4C 45 20 31 39 39 22 3A 99 22 45 49 4E |ZEILE 199":."EIN| 00000AB0: 4D 41 4C 20 41 55 53 47 45 46 55 45 48 52 54 20 |MAL AUSGEFUEHRT | 00000AC0: 57 49 52 44 2E 00 F2 12 5F 00 8D 37 3A 99 22 56 |WIRD...._..7:."V| 00000AD0: 45 52 53 55 43 48 45 4E 20 53 49 45 20 45 53 20 |ERSUCHEN SIE ES | 00000AE0: 4E 4F 43 48 4D 41 4C 21 22 3A 43 B2 43 AA 31 3A |NOCHMAL!":C.C.1:| 00000AF0: 8D 37 00 06 13 60 00 8D 31 33 3A 59 B2 31 37 3A |.7...`..13:Y.17:| 00000B00: 8D 39 3A 89 37 34 00 2A 13 62 00 99 22 41 55 46 |.9:.74.*.b.."AUF| 00000B10: 20 41 4E 48 49 45 42 20 52 49 43 48 54 49 47 21 | ANHIEB RICHTIG!| 00000B20: 21 22 3A 8D 37 3A 89 31 30 36 00 57 13 64 00 99 |!":.7:.106.W.d..| 00000B30: 22 42 45 49 4D 20 5A 57 45 49 54 45 4E 20 56 45 |"BEIM ZWEITEN VE| 00000B40: 52 53 55 43 48 20 52 49 43 48 54 49 47 21 22 3A |RSUCH RICHTIG!":| 00000B50: 8D 37 3A 89 31 30 36 00 66 13 68 00 99 22 52 49 |.7:.106.f.h.."RI| 00000B60: 43 48 54 49 47 2E 00 95 13 6A 00 99 22 44 45 52 |CHTIG....j.."DER| 00000B70: 20 52 45 41 44 2D 42 45 46 45 48 4C 20 57 49 52 | READ-BEFEHL WIR| 00000B80: 44 20 35 20 4D 41 4C 20 41 55 53 47 45 46 55 45 |D 5 MAL AUSGEFUE| 00000B90: 48 52 54 2C 22 00 BB 13 6B 00 99 22 46 55 45 52 |HRT,"...k.."FUER| 00000BA0: 20 4A 45 44 45 4E 20 44 41 54 45 4E 2D 42 45 46 | JEDEN DATEN-BEF| 00000BB0: 45 48 4C 20 45 49 4E 4D 41 4C 2E 00 F4 13 D2 00 |EHL EINMAL......| 00000BC0: 8D 37 3A 43 24 B2 22 12 20 22 3A 8D 33 3A 99 22 |.7:C$.". ":.3:."| 00000BD0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 45 4E 44 45 20 |...........ENDE | 00000BE0: 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 37 20 54 45 |VON LEKTION 7 TE| 00000BF0: 49 4C 20 31 00 20 14 D3 00 99 22 11 11 11 11 1D |IL 1. ....".....| 00000C00: 1D 1D 1D 1D 42 49 54 54 45 20 57 41 52 54 45 4E |....BITTE WARTEN| 00000C10: 20 53 49 45 2C 20 42 49 53 20 54 45 49 4C 20 32 | SIE, BIS TEIL 2| 00000C20: 00 3D 14 D4 00 99 22 11 11 1D 1D 1D 1D 1D 45 49 |.=....".......EI| 00000C30: 4E 47 45 4C 45 53 45 4E 20 49 53 54 2E 00 4E 14 |NGELESEN IST..N.| 00000C40: D6 00 93 22 54 45 49 4C 20 31 38 22 2C 38 00 00 |..."TEIL 18",8..| 00000C50: 00 01 A4 35 30 3A 82 3A 82 3A 45 4B 54 49 45 00 |...50:.:.:EKTIE.| 00000C60: 42 |B |
.......53280,1:.53281,1......16.P...."."
:.I.1.39:.C$;:.:.I.1.22:.".."C$;:.:.".";
.M....I.1.38:."."C$".";:.:.C$......I.1.2
3:."."C$".";:.:.......A$:.A$."".7......:
..D....".":.I.0.Y.1:.".";:.:."..";:.....
..J.1.15:.">";:.I.1.40:.:."..>..";:.K.1.
20:.:.:." ":..A...Y.Y1:.9:.I.0.Y2.Y1:."
":
..J....9:..\....I.1.1000:.:......Z$.G(34
):C$.".":.3:."......".12)"LEKTION 7.."..
.....10)"1. SCHLEIFEN.......10)".2. FOR.
..NNEXT-BEFEHLE":..10)".3. REM-ANWEISUNG
.......10)".4. PROGRAMMBEISPIEL":.7.E...
.".".12)"SCHLEIFEN":.7:."EINE DER NUETZL
ICHSTEN EIGENSCHAFTEN.Q...."IHRES PET IS
T DIE MOEGLICHKEIT, SICH"......"OFT WIED
ERHOLENDE VORGAENGE EINFACH......"UND SC
HNELL AUSZUFUEHREN.":.7... ..".ES SOLL N
UN AN EINEM PROGRAMM ZUR...!.."BERECHNUN
G VERSCHIEDENER ARBEITSLOEHNE".P.".."DER
GEBRAUCH VON SCHLEIFEN ILLUSTRIERT ":."
WERDEN:"...$..7:." 95 READ N$,R,H":." 1
00 IF N$="Z$"ENDE"Z$" THEN 755.K.&.." 11
0 PRINT"Z$"DER LOHN FUER"Z$"N$"Z$"BETRAE
GT"Z$"R*H";...'.." 115 GOTO 95./.(.." 12
0 DATA "Z$"R. BRAUN"Z$", 3.50, 40":." 12
5 DATA "Z$"K. BLAU"Z$",3.75, 20.\.*.." 1
30 DATA "Z$"HANS DAMPF"Z$", 4.00, 38...,
.." 140 DATA "Z$"ANNA ROS"Z$", 4.10, 40"
:." 199 DATA "Z$"ENDE"Z$", 0, 0......" 7
55 END":.7:."DAS OBIGE PROGRAMM WIEDERHO
LT DIE.../.."BEFEHLE DER ZEILEN 95 BIS 1
15,.".0..7:.Y.6.9:.9:.11:.:Y.18:.9.A.2..
.31)"SOLANGE":."BIS IN ZEILE 199 .ENDE.
UND DIE WERTE 0,"...3.."0 EINGELESEN WOR
DEN SIND.":.7.A.4.Y.14:.9:.11:.7:Y.22:.9
:."DIE SCHLEIFE WIRD DURCH DEN ";...5.."
.GOTO.-BEFEHL":."IN ZEILE 115 GESCHLOSSE
N....6..7:Y.9:.9:.11:.7.#.7.Y1.17:Y2.23:
.13:Y.17:.9.L.8.."DER IF-BEFEHL IN ZEILE
100 BEENDET DIE":."SCHLEIFE,SOBALD .END
E.";...:.." EINGELESEN WURDE.":.7:Y.7:.9
:.11:.7:Y.20:.9.L.<.."DER EIGENTLICHE WE
RT DIESES PROGRAMMES...=.."WIRD ERST OFF
ENSICHTLICH, WENN ES FUER.3.>.."VIELE AR
BEITER DURCHGEFUEHRT WIRD.":.7:Y2.24:.13
:.9.A.@.."UM DAS PROGRAMM FUER MEHR ARBE
ITER AUS-...A.."ZUFUEHREN,MUESSEN NUR ME
HR DATA-BEFEHLE".J.B.."GEGEBEN WERDEN (F
UER JEDEN ARBEITER":."EINER)..":.7...H..
13:.9:."EIN QUIZ!":.7:C.0:.13.%.J.."WIE
OFT FUEHRT DER COMPUTER BEFEHL 95":."AUS
":Y.6.W.K..9:.11:Y.18:.9:."....(1, 4 ODE
R 5) MAL ";:.A$...L..A$.."1".A$.."4".A$.
."5"..Q$:."....":.74...M..13:Y.17:.9:.A$
."5".C.0.98...N..A$."5".C.1.100.G.O..A$.
"5".104.V.P..A$."4".92...R.C.C.1:."NEIN,
DENKEN SIE DARAN, DASS DER.1.S.."GOTOBE
FEHL DIE WIEDERHOLUNG DER BEFEHLE.].T.."
IN DEN ZEILEN 95 BIS 115 BEWIRKT.":.7...
U.."DER IF-BEFEHL BEENDET DIE SCHLEIFE E
RST.P.V.."WENN DURCH DEN BEFEHL IN ZEILE
199 .ENDE.":."EINGELESEN WURDE....X..7:
Y.14:.9:.11:.7:.13...Z.Y.17:.9:."VERSUCH
EN SIE ES NOCHMAL!":.7:.13:Y.17.*.[..9:.
74.P.\.."NEIN, 4 MAL IST NICHT RICHTIG."
.}.].."BEACHTEN SIE, DASS ZEILE 95 FUER
JEDEN.E.^.."DATA-BEFEHL EINSCHLIESSLICH
ZEILE 199":."EINMAL AUSGEFUEHRT WIRD....
_..7:."VERSUCHEN SIE ES NOCHMAL!":C.C.1:
.7...`..13:Y.17:.9:.74.*.B.."AUF ANHIEB
RICHTIG!!":.7:.106.W.D.."BEIM ZWEITEN VE
RSUCH RICHTIG!":.7:.106.F.H.."RICHTIG...
.J.."DER READ-BEFEHL WIRD 5 MAL AUSGEFUE
HRT,"...K.."FUER JEDEN DATEN-BEFEHL EINM
AL....R..7:C$.". ":.3:."...........ENDE
VON LEKTION 7 TEIL 1. .S..".........BITT
E WARTEN SIE, BIS TEIL 2.=.T..".......EI
NGELESEN IST..N.V.."TEIL 18",8.....50:.:
.:EKTIE.B
> CLICK IMAGE PREVIEW FOR FULL MODAL