5/1LEKTION.8
FILE INFORMATION
FILENAME(S): 5/1LEKTION.8
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-02 22:11:45
APPEARS ON: 1 disk(s)
FILE HASH
f2880091869a28c3ac6153cff9e6397ae8776e5ba8525e84ab653b7e708a7f18
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C 64 | 5/1LEKTION.8 | PRG | Treasure Chest - ToGuMi | 14 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 2E 04 0A 00 97 34 35 2C C2 28 31 37 34 29 |.......45,.(174)| 00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 3A 97 37 |:.46,.(175):.:.7| 00000020: 38 38 2C 35 32 3A 97 36 35 37 2C 31 32 38 00 44 |88,52:.657,128.D| 00000030: 04 14 00 97 35 33 32 38 30 2C 31 3A 97 35 33 32 |....53280,1:.532| 00000040: 38 31 2C 31 00 55 04 1E 00 5A 24 B2 C7 28 33 34 |81,1.U...Z$..(34| 00000050: 29 3A 89 39 30 00 87 04 28 00 99 22 93 1E 22 3A |):.90...(.."..":| 00000060: 81 49 B2 31 A4 33 39 3A 99 43 24 3B 3A 82 3A 81 |.I.1.39:.C$;:.:.| 00000070: 49 B2 31 A4 32 32 3A 99 22 9D 11 22 43 24 3B 3A |I.1.22:.".."C$;:| 00000080: 82 3A 99 22 9D 22 3B 00 A4 04 32 00 81 49 B2 31 |.:.".";...2..I.1| 00000090: A4 33 38 3A 99 22 9D 22 43 24 22 9D 22 3B 3A 82 |.38:."."C$".";:.| 000000A0: 3A 99 43 24 00 BF 04 3C 00 81 49 B2 31 A4 32 33 |:.C$...<..I.1.23| 000000B0: 3A 99 22 91 22 43 24 22 9D 22 3B 3A 82 3A 8E 00 |:."."C$".";:.:..| 000000C0: D1 04 46 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 |..F..A$:.A$."".7| 000000D0: 30 00 D9 04 50 00 99 3A 8E 00 02 05 5A 00 43 24 |0...P..:....Z.C$| 000000E0: B2 22 FF 22 3A 8D 34 30 3A 99 A3 31 32 29 22 11 |.".":.40:..12)".| 000000F0: 11 11 11 11 11 1C 4C 45 4B 54 49 4F 4E 20 35 22 |......LEKTION 5"| 00000100: 3A 99 00 23 05 64 00 99 A3 39 29 22 11 11 11 1F |:..#.d...9)"....| 00000110: 31 2E 20 50 52 4F 47 52 41 4D 4D 42 45 49 53 50 |1. PROGRAMMBEISP| 00000120: 49 45 4C 00 53 05 6E 00 99 A3 39 29 22 32 2E 20 |IEL.S.n...9)"2. | 00000130: 49 46 2F 54 48 45 4E 2D 42 45 46 45 48 4C 22 3A |IF/THEN-BEFEHL":| 00000140: 99 A3 39 29 22 33 2E 20 47 4F 54 4F 2D 42 45 46 |..9)"3. GOTO-BEF| 00000150: 45 48 4C 00 75 05 78 00 99 A3 39 29 22 34 2E 20 |EHL.u.x...9)"4. | 00000160: 50 52 4F 47 52 41 4D 4D 42 45 49 53 50 49 45 4C |PROGRAMMBEISPIEL| 00000170: 22 3A 8D 37 30 00 A1 05 82 00 99 22 93 41 4D 20 |":.70......".AM | 00000180: 53 43 48 4C 55 53 53 20 56 4F 4E 20 4C 45 4B 54 |SCHLUSS VON LEKT| 00000190: 49 4F 4E 20 34 20 57 55 52 44 45 20 49 48 4E 45 |ION 4 WURDE IHNE| 000001A0: 4E 00 CC 05 8C 00 99 22 56 4F 52 47 45 53 43 48 |N......"VORGESCH| 000001B0: 4C 41 47 45 4E 2C 20 45 49 4E 20 50 52 4F 47 52 |LAGEN, EIN PROGR| 000001C0: 41 4D 4D 20 46 55 45 52 20 44 45 4E 00 15 06 96 |AMM FUER DEN....| 000001D0: 00 99 22 44 55 52 43 48 53 43 48 4E 49 54 54 4C |.."DURCHSCHNITTL| 000001E0: 49 43 48 45 4E 20 42 45 4E 5A 49 4E 56 45 52 42 |ICHEN BENZINVERB| 000001F0: 52 41 55 43 48 20 41 55 46 22 3A 99 22 31 30 30 |RAUCH AUF":."100| 00000200: 4B 4D 20 5A 55 20 53 43 48 52 45 49 42 45 4E 2E |KM ZU SCHREIBEN.| 00000210: 22 3A 8D 38 30 00 43 06 A0 00 99 22 48 49 45 52 |":.80.C...."HIER| 00000220: 46 55 45 52 20 47 49 42 54 20 45 53 20 56 45 52 |FUER GIBT ES VER| 00000230: 53 43 48 49 45 44 45 4E 45 20 52 49 43 48 54 49 |SCHIEDENE RICHTI| 00000240: 47 45 22 00 87 06 AA 00 99 22 4D 4F 45 47 4C 49 |GE"......"MOEGLI| 00000250: 43 48 4B 45 49 54 45 4E 2E 20 45 49 4E 45 20 44 |CHKEITEN. EINE D| 00000260: 41 56 4F 4E 20 49 53 54 20 44 41 53 22 3A 99 22 |AVON IST DAS":."| 00000270: 46 4F 4C 47 45 4E 44 45 20 50 52 4F 47 52 41 4D |FOLGENDE PROGRAM| 00000280: 4D 2E 22 3A 8D 37 30 00 B5 06 B4 00 99 22 93 1E |M.":.70......"..| 00000290: 32 20 50 52 49 4E 54 20 22 5A 24 22 4B 45 4E 4E |2 PRINT "Z$"KENN| 000002A0: 5A 45 49 43 48 45 4E 2C 20 4B 4D 2C 20 4C 49 54 |ZEICHEN, KM, LIT| 000002B0: 45 52 22 5A 24 00 E4 06 BE 00 99 22 34 20 49 4E |ER"Z$......"4 IN| 000002C0: 50 55 54 20 4B 5A 24 2C 20 4B 4D 2C 20 4C 22 3A |PUT KZ$, KM, L":| 000002D0: 99 22 36 20 4C 45 54 20 41 20 3D 20 31 30 30 2A |."6 LET A = 100*| 000002E0: 4C 2F 4B 4D 00 24 07 C8 00 99 22 38 20 50 52 49 |L/KM.$...."8 PRI| 000002F0: 4E 54 22 5A 24 22 44 45 52 20 57 41 47 45 4E 22 |NT"Z$"DER WAGEN"| 00000300: 5A 24 22 4B 5A 24 22 5A 24 22 56 45 52 42 52 41 |Z$"KZ$"Z$"VERBRA| 00000310: 55 43 48 54 22 5A 24 22 41 22 5A 24 22 4C 49 54 |UCHT"Z$"A"Z$"LIT| 00000320: 45 52 22 3B 00 3C 07 D2 00 81 49 B2 31 A4 33 39 |ER";.<....I.1.39| 00000330: 3A 99 22 A8 22 3B 3A 82 3A 99 3A 99 00 80 07 DC |:.".";:.:.:.....| 00000340: 00 99 22 1F 53 45 48 45 4E 20 53 49 45 20 4E 55 |..".SEHEN SIE NU| 00000350: 4E 2C 20 57 41 53 20 42 45 49 4D 20 50 52 4F 47 |N, WAS BEIM PROG| 00000360: 52 41 4D 4D 41 42 4C 41 55 46 22 3A 99 22 50 41 |RAMMABLAUF":."PA| 00000370: 53 53 49 45 52 54 2E 22 3A 8D 37 30 3A 8D 38 30 |SSIERT.":.70:.80| 00000380: 00 C2 07 E6 00 99 22 12 81 42 49 54 54 45 20 47 |......"..BITTE G| 00000390: 45 42 45 4E 20 53 49 45 20 45 49 4E 20 4B 45 4E |EBEN SIE EIN KEN| 000003A0: 4E 5A 45 49 43 48 45 4E 20 55 4E 44 20 5A 57 45 |NZEICHEN UND ZWE| 000003B0: 49 5A 41 48 4C 45 4E 20 45 49 4E 2E 92 22 3A 8D |IZAHLEN EIN..":.| 000003C0: 38 30 00 ED 07 F0 00 99 3A 99 22 1F 4B 45 4E 4E |80......:.".KENN| 000003D0: 5A 45 49 43 48 45 4E 2C 20 4B 4D 2C 20 4C 49 54 |ZEICHEN, KM, LIT| 000003E0: 45 52 22 3A 85 4B 5A 24 2C 4B 4D 2C 4C 00 22 08 |ER":.KZ$,KM,L.".| 000003F0: FA 00 99 22 44 45 52 20 57 41 47 45 4E 20 22 4B |..."DER WAGEN "K| 00000400: 5A 24 22 20 56 45 52 42 52 41 55 43 48 54 22 31 |Z$" VERBRAUCHT"1| 00000410: 30 30 AC 4C AD 4B 4D 22 4C 49 54 45 52 22 3A 8D |00.L.KM"LITER":.| 00000420: 37 30 00 6D 08 04 01 99 22 93 22 A3 31 33 29 22 |70.m....".".13)"| 00000430: 1C 49 46 2F 54 48 45 4E 22 3A 8D 38 30 3A 99 22 |.IF/THEN":.80:."| 00000440: 11 11 11 11 11 1F 43 4F 4D 50 55 54 45 52 50 52 |......COMPUTERPR| 00000450: 4F 47 52 41 4D 4D 45 20 57 45 52 44 45 4E 20 44 |OGRAMME WERDEN D| 00000460: 55 52 43 48 20 53 50 52 55 4E 47 2D 22 00 96 08 |URCH SPRUNG-"...| 00000470: 0E 01 99 22 42 45 46 45 48 4C 45 20 53 45 48 52 |..."BEFEHLE SEHR| 00000480: 20 56 49 45 4C 20 46 4C 45 58 49 42 4C 45 52 2E | VIEL FLEXIBLER.| 00000490: 22 20 3A 8D 38 30 00 C4 08 18 01 99 22 42 45 54 |" :.80......"BET| 000004A0: 52 41 43 48 54 45 4E 20 53 49 45 20 46 4F 4C 47 |RACHTEN SIE FOLG| 000004B0: 45 4E 44 45 53 20 42 45 49 53 50 49 45 4C 3A 22 |ENDES BEISPIEL:"| 000004C0: 3A 8D 37 30 00 EF 08 22 01 99 22 93 1E 20 32 20 |:.70..."..".. 2 | 000004D0: 50 52 49 4E 54 20 22 5A 24 22 45 49 4E 47 41 42 |PRINT "Z$"EINGAB| 000004E0: 45 20 44 45 53 20 41 4C 54 45 52 53 22 5A 24 00 |E DES ALTERS"Z$.| 000004F0: 32 09 2C 01 99 22 20 34 20 49 4E 50 55 54 20 41 |2.,.." 4 INPUT A| 00000500: 22 3A 99 22 20 36 20 50 52 49 4E 54 22 5A 24 22 |":." 6 PRINT"Z$"| 00000510: 41 4E 47 41 42 45 20 49 4E 20 54 41 47 45 4E 3F |ANGABE IN TAGEN?| 00000520: 28 4A 41 20 4F 44 45 52 20 4E 45 49 4E 29 22 5A |(JA ODER NEIN)"Z| 00000530: 24 3B 00 66 09 36 01 99 22 20 38 20 49 4E 50 55 |$;.f.6.." 8 INPU| 00000540: 54 20 42 24 22 3A 99 22 31 30 20 49 46 20 42 24 |T B$":."10 IF B$| 00000550: 3D 22 5A 24 22 4E 45 49 4E 22 5A 24 22 20 54 48 |="Z$"NEIN"Z$" TH| 00000560: 45 4E 20 31 34 22 00 9C 09 40 01 99 22 31 32 20 |EN 14"...@.."12 | 00000570: 50 52 49 4E 54 20 22 5A 24 22 53 49 45 20 53 49 |PRINT "Z$"SIE SI| 00000580: 4E 44 22 5A 24 22 20 33 36 35 2A 41 20 22 5A 24 |ND"Z$" 365*A "Z$| 00000590: 22 54 41 47 45 20 41 4C 54 22 5A 24 00 DF 09 4A |"TAGE ALT"Z$...J| 000005A0: 01 99 22 31 34 20 50 52 49 4E 54 20 22 5A 24 22 |.."14 PRINT "Z$"| 000005B0: 53 49 45 20 53 49 4E 44 22 5A 24 22 20 31 32 2A |SIE SIND"Z$" 12*| 000005C0: 41 20 22 5A 24 22 4D 4F 4E 41 54 45 20 41 4C 54 |A "Z$"MONATE ALT| 000005D0: 22 5A 24 3A 59 31 B2 31 30 3A 59 32 B2 32 34 00 |"Z$:Y1.10:Y2.24.| 000005E0: F5 09 54 01 81 49 B2 31 A4 33 39 3A 99 22 A8 22 |..T..I.1.39:."."| 000005F0: 3B 3A 82 3A 99 00 3C 0A 5E 01 8D 38 30 3A 99 22 |;:.:..<.^..80:."| 00000600: 1E 5A 45 49 4C 45 20 32 1F 20 42 45 57 49 52 4B |.ZEILE 2. BEWIRK| 00000610: 54 20 44 45 4E 20 44 52 55 43 4B 20 56 4F 4E 3A |T DEN DRUCK VON:| 00000620: 22 3A 99 22 20 20 20 12 45 49 4E 47 41 42 45 20 |":." .EINGABE | 00000630: 44 45 53 20 41 4C 54 45 52 53 92 22 00 6C 0A 68 |DES ALTERS.".l.h| 00000640: 01 99 3A 20 99 22 1E 5A 45 49 4C 45 20 34 20 1F |..: .".ZEILE 4 .| 00000650: 42 45 57 49 52 4B 54 20 44 49 45 20 41 55 46 46 |BEWIRKT DIE AUFF| 00000660: 4F 52 44 45 52 55 4E 47 20 5A 55 52 00 AE 0A 72 |ORDERUNG ZUR...r| 00000670: 01 99 22 45 49 4E 47 41 42 45 20 45 49 4E 45 52 |.."EINGABE EINER| 00000680: 20 5A 41 48 4C 20 28 5A 2E 42 2E 20 31 30 29 20 | ZAHL (Z.B. 10) | 00000690: 44 55 52 43 48 20 44 41 53 22 3A 99 22 5A 45 49 |DURCH DAS":."ZEI| 000006A0: 43 48 45 4E 20 12 3F 92 2E 22 3A 8D 38 30 00 D6 |CHEN .?..":.80..| 000006B0: 0A 7C 01 99 22 1E 5A 45 49 4C 45 20 36 1F 20 42 |.|..".ZEILE 6. B| 000006C0: 45 57 49 52 4B 54 20 44 45 4E 20 44 52 55 43 4B |EWIRKT DEN DRUCK| 000006D0: 20 56 4F 4E 3A 22 00 00 0B 86 01 99 22 20 20 20 | VON:"......" | 000006E0: 12 41 4E 47 41 42 45 20 49 4E 20 54 41 47 45 4E |.ANGABE IN TAGEN| 000006F0: 3F 28 4A 41 20 4F 44 45 52 20 4E 45 49 4E 29 22 |?(JA ODER NEIN)"| 00000700: 00 2E 0B 90 01 99 22 11 1E 5A 45 49 4C 45 20 38 |......"..ZEILE 8| 00000710: 1F 20 42 45 57 49 52 4B 54 20 44 49 45 20 41 55 |. BEWIRKT DIE AU| 00000720: 46 46 4F 52 44 45 52 55 4E 47 20 5A 55 52 00 74 |FFORDERUNG ZUR.t| 00000730: 0B 9A 01 99 22 45 49 4E 47 41 42 45 20 44 45 52 |...."EINGABE DER| 00000740: 20 53 54 52 49 4E 47 53 20 12 4A 41 92 20 4F 44 | STRINGS .JA. OD| 00000750: 45 52 20 12 4E 45 49 4E 92 20 22 3A 99 22 44 55 |ER .NEIN. ":."DU| 00000760: 52 43 48 20 44 41 53 20 5A 45 49 43 48 45 4E 20 |RCH DAS ZEICHEN | 00000770: 12 3F 92 2E 00 B2 0B A4 01 8D 37 30 3A 8D 35 35 |.?........70:.55| 00000780: 30 3A 8D 35 37 30 3A 99 22 1E 5A 45 49 4C 45 20 |0:.570:.".ZEILE | 00000790: 31 30 1F 20 42 45 57 49 52 4B 54 20 44 49 45 20 |10. BEWIRKT DIE | 000007A0: 50 52 55 45 46 55 4E 47 20 44 45 53 20 49 4E 20 |PRUEFUNG DES IN | 000007B0: 42 24 00 D2 0B AE 01 99 22 47 45 53 50 45 49 43 |B$......"GESPEIC| 000007C0: 48 45 52 54 45 4E 20 53 54 52 49 4E 47 53 2C 22 |HERTEN STRINGS,"| 000007D0: 3A 99 00 03 0C B8 01 99 22 55 4E 44 20 46 55 45 |:......."UND FUE| 000007E0: 52 20 42 24 3D 4E 45 49 4E 2C 20 44 45 4E 20 53 |R B$=NEIN, DEN S| 000007F0: 50 52 55 4E 47 20 5A 55 20 5A 45 49 4C 45 20 31 |PRUNG ZU ZEILE 1| 00000800: 34 22 3B 00 2B 0C C2 01 99 22 28 5A 45 49 4C 45 |4";.+...."(ZEILE| 00000810: 20 31 32 20 57 49 52 44 20 41 4C 53 4F 20 41 55 | 12 WIRD ALSO AU| 00000820: 53 47 45 4C 41 53 53 45 4E 2E 29 00 6D 0C CC 01 |SGELASSEN.).m...| 00000830: 99 3A 99 22 46 55 45 52 20 42 24 3D 4A 41 20 57 |.:."FUER B$=JA W| 00000840: 49 52 44 20 44 41 53 20 50 52 4F 47 52 41 4D 4D |IRD DAS PROGRAMM| 00000850: 20 4D 49 54 22 3A 99 22 5A 45 49 4C 45 20 31 32 | MIT":."ZEILE 12| 00000860: 20 46 4F 52 54 47 45 53 45 54 5A 54 2E 00 B9 0C | FORTGESETZT....| 00000870: D6 01 8D 38 30 3A 99 22 1E 5A 45 49 4C 45 20 31 |...80:.".ZEILE 1| 00000880: 32 1F 20 42 45 57 49 52 4B 54 20 44 45 4E 20 44 |2. BEWIRKT DEN D| 00000890: 52 55 43 4B 20 56 4F 4E 3A 22 3A 99 22 20 20 20 |RUCK VON:":." | 000008A0: 12 53 49 45 20 53 49 4E 44 20 33 36 35 30 20 54 |.SIE SIND 3650 T| 000008B0: 41 47 45 20 41 4C 54 92 22 00 07 0D E0 01 8D 38 |AGE ALT."......8| 000008C0: 30 3A 99 22 1E 5A 45 49 4C 45 20 31 34 1F 20 42 |0:.".ZEILE 14. B| 000008D0: 45 57 49 52 4B 54 20 44 45 4E 20 44 52 55 43 4B |EWIRKT DEN DRUCK| 000008E0: 20 56 4F 4E 3A 22 3A 99 22 20 20 20 20 12 53 49 | VON:":." .SI| 000008F0: 45 20 53 49 4E 44 20 31 30 30 20 4D 4F 4E 41 54 |E SIND 100 MONAT| 00000900: 45 20 41 4C 54 92 22 00 30 0D EA 01 99 22 11 44 |E ALT.".0....".D| 00000910: 41 4D 49 54 20 49 53 54 20 44 41 53 20 50 52 4F |AMIT IST DAS PRO| 00000920: 47 52 41 4D 4D 20 42 45 45 4E 44 45 54 2E 22 3B |GRAMM BEENDET.";| 00000930: 00 38 0D F4 01 8D 37 30 00 6E 0D FE 01 43 24 B2 |.8....70.n...C$.| 00000940: 22 12 FF 22 3A 8D 34 30 3A 99 22 11 11 11 11 22 |"..":.40:."...."| 00000950: A3 37 29 22 1C 45 4E 44 45 20 56 4F 4E 20 4C 45 |.7)".ENDE VON LE| 00000960: 4B 54 49 4F 4E 20 35 20 54 45 49 4C 20 31 00 7E |KTION 5 TEIL 1.~| 00000970: 0D 08 02 81 5A B2 31 A4 34 30 30 3A 82 5A 00 AC |....Z.1.400:.Z..| 00000980: 0D 12 02 99 22 11 11 11 11 1D 1D 1D 1D 1D 1F 57 |...."..........W| 00000990: 49 52 20 4D 41 43 48 45 4E 20 47 4C 45 49 43 48 |IR MACHEN GLEICH| 000009A0: 20 57 45 49 54 45 52 20 4D 49 54 22 00 CE 0D 1C | WEITER MIT"....| 000009B0: 02 99 22 11 11 22 A3 31 33 29 22 12 1C 4C 45 4B |.."..".13)"..LEK| 000009C0: 54 49 4F 4E 35 2F 32 92 22 3A 89 35 38 30 00 F9 |TION5/2.":.580..| 000009D0: 0D 26 02 99 22 13 22 3B 3A 81 49 B2 31 A4 59 31 |.&..".";:.I.1.Y1| 000009E0: 3A 99 22 11 22 3B 3A 82 3A 99 22 91 22 3B 3A 81 |:.".";:.:.".";:.| 000009F0: 4A B2 30 A4 59 32 AB 59 31 00 2C 0E 30 02 99 22 |J.0.Y2.Y1.,.0.."| 00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A20: 20 20 20 20 20 20 20 22 3A 82 3A 8E 00 4E 0E 3A | ":.:..N.:| 00000A30: 02 99 22 13 22 3B 3A 81 49 B2 31 A4 59 31 3A 99 |..".";:.I.1.Y1:.| 00000A40: 22 11 22 3B 3A 82 3A 99 22 91 22 3B 3A 8E 00 64 |".";:.:.".";:..d| 00000A50: 0E 44 02 93 22 35 2F 32 4C 45 4B 54 49 4F 4E 2E |.D.."5/2LEKTION.| 00000A60: 38 22 2C 38 00 00 00 FF 55 |8",8....U |
.......45,B(174):.46,B(175):.:.788,52:.6
57,128.D....53280,1:.53281,1.U...Z$.G(34
):.90...(.."..":.I.1.39:.C$;:.:.I.1.22:.
".."C$;:.:.".";...2..I.1.38:."."C$".";:.
:.C$...<..I.1.23:."."C$".";:.:..Q.F..A$:
.A$."".70.Y.P..:....Z.C$.".":.40:..12)".
......LEKTION 5":..#.D...9)"....1. PROGR
AMMBEISPIEL.S.N...9)"2. IF/THEN-BEFEHL":
..9)"3. GOTO-BEFEHL.U.X...9)"4. PROGRAMM
BEISPIEL":.70......".AM SCHLUSS VON LEKT
ION 4 WURDE IHNEN.L...."VORGESCHLAGEN, E
IN PROGRAMM FUER DEN......"DURCHSCHNITTL
ICHEN BENZINVERBRAUCH AUF":."100KM ZU SC
HREIBEN.":.80.C. .."HIERFUER GIBT ES VER
SCHIEDENE RICHTIGE"......"MOEGLICHKEITEN
. EINE DAVON IST DAS":."FOLGENDE PROGRAM
M.":.70......"..2 PRINT "Z$"KENNZEICHEN,
KM, LITER"Z$......"4 INPUT KZ$, KM, L":
."6 LET A = 100*L/KM.$.H.."8 PRINT"Z$"DE
R WAGEN"Z$"KZ$"Z$"VERBRAUCHT"Z$"A"Z$"LIT
ER";.<.R..I.1.39:.".";:.:.:.......".SEHE
N SIE NUN, WAS BEIM PROGRAMMABLAUF":."PA
SSIERT.":.70:.80.B...."..BITTE GEBEN SIE
EIN KENNZEICHEN UND ZWEIZAHLEN EIN..":.
80......:.".KENNZEICHEN, KM, LITER":.KZ$
,KM,L."...."DER WAGEN "KZ$" VERBRAUCHT"1
00.L.KM"LITER":.70.M....".".13)".IF/THEN
":.80:."......COMPUTERPROGRAMME WERDEN D
URCH SPRUNG-"......"BEFEHLE SEHR VIEL FL
EXIBLER." :.80.D...."BETRACHTEN SIE FOLG
ENDES BEISPIEL:":.70..."..".. 2 PRINT "Z
$"EINGABE DES ALTERS"Z$.2.,.." 4 INPUT A
":." 6 PRINT"Z$"ANGABE IN TAGEN?(JA ODER
NEIN)"Z$;.F.6.." 8 INPUT B$":."10 IF B$
="Z$"NEIN"Z$" THEN 14"...@.."12 PRINT "Z
$"SIE SIND"Z$" 365*A "Z$"TAGE ALT"Z$...J
.."14 PRINT "Z$"SIE SIND"Z$" 12*A "Z$"MO
NATE ALT"Z$:Y1.10:Y2.24...T..I.1.39:."."
;:.:..<.^..80:.".ZEILE 2. BEWIRKT DEN DR
UCK VON:":." .EINGABE DES ALTERS.".L.H
..: .".ZEILE 4 .BEWIRKT DIE AUFFORDERUNG
ZUR...R.."EINGABE EINER ZAHL (Z.B. 10)
DURCH DAS":."ZEICHEN .?..":.80.V.|..".ZE
ILE 6. BEWIRKT DEN DRUCK VON:"......"
.ANGABE IN TAGEN?(JA ODER NEIN)"......".
.ZEILE 8. BEWIRKT DIE AUFFORDERUNG ZUR.T
...."EINGABE DER STRINGS .JA. ODER .NEIN
. ":."DURCH DAS ZEICHEN .?........70:.55
0:.570:.".ZEILE 10. BEWIRKT DIE PRUEFUNG
DES IN B$.R...."GESPEICHERTEN STRINGS,"
:......."UND FUER B$=NEIN, DEN SPRUNG ZU
ZEILE 14";.+.B.."(ZEILE 12 WIRD ALSO AU
SGELASSEN.).M.L..:."FUER B$=JA WIRD DAS
PROGRAMM MIT":."ZEILE 12 FORTGESETZT....
V..80:.".ZEILE 12. BEWIRKT DEN DRUCK VON
:":." .SIE SIND 3650 TAGE ALT."......8
0:.".ZEILE 14. BEWIRKT DEN DRUCK VON:":.
" .SIE SIND 100 MONATE ALT.".0....".D
AMIT IST DAS PROGRAMM BEENDET.";.8....70
.N...C$."..":.40:."....".7)".ENDE VON LE
KTION 5 TEIL 1.~....Z.1.400:.Z......"...
.......WIR MACHEN GLEICH WEITER MIT".N..
.."..".13)"..LEKTION5/2.":.580...&..".";
:.I.1.Y1:.".";:.:.".";:.J.0.Y2.Y1.,.0.."
"
:.:..N.:..".";:.I.1.Y1:.".";:.:.".";:..D
.D.."5/2LEKTION.8",8....U
> CLICK IMAGE PREVIEW FOR FULL MODAL