5/1LEKTION

FILE INFORMATION

FILENAME(S): 5/1LEKTION

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 01:08:08

APPEARS ON: 1 disk(s)

FILE HASH

a8a64cc02d14680c8b604985709ae3cb2a12c717b5e026b0a5c14a2b2229b67c

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SPIELE NR 41 A	5/1LEKTION	PRG	Treasure Chest - Wolfgang Rauprich	13	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2E 08 00 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: 08 01 00 97 35 33 32 38  30 2C 31 3A 97 35 33 32  |....53280,1:.532|
00000040: 38 31 2C 31 00 55 08 02  00 5A 24 B2 C7 28 33 34  |81,1.U...Z$..(34|
00000050: 29 3A 89 31 30 00 87 08  03 00 99 22 93 1E 22 3A  |):.10......"..":|
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 08 04 00 81 49 B2 31  |.:.".";......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 08 05  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: D0 08 06 00 A1 41 24 3A  8B 41 24 B2 22 22 A7 36  |.....A$:.A$."".6|
000000D0: 00 D8 08 07 00 99 3A 8E  00 00 09 0A 00 43 24 B2  |......:......C$.|
000000E0: 22 FF 22 3A 8D 33 3A 99  A3 31 32 29 22 11 11 11  |".":.3:..12)"...|
000000F0: 11 11 11 1C 4C 45 4B 54  49 4F 4E 20 35 22 3A 99  |....LEKTION 5":.|
00000100: 00 21 09 0B 00 99 A3 39  29 22 11 11 11 1F 31 2E  |.!.....9)"....1.|
00000110: 20 50 52 4F 47 52 41 4D  4D 42 45 49 53 50 49 45  | PROGRAMMBEISPIE|
00000120: 4C 00 51 09 0C 00 99 A3  39 29 22 32 2E 20 49 46  |L.Q.....9)"2. IF|
00000130: 2F 54 48 45 4E 2D 42 45  46 45 48 4C 22 3A 99 A3  |/THEN-BEFEHL":..|
00000140: 39 29 22 33 2E 20 47 4F  54 4F 2D 42 45 46 45 48  |9)"3. GOTO-BEFEH|
00000150: 4C 00 72 09 0E 00 99 A3  39 29 22 34 2E 20 50 52  |L.r.....9)"4. PR|
00000160: 4F 47 52 41 4D 4D 42 45  49 53 50 49 45 4C 22 3A  |OGRAMMBEISPIEL":|
00000170: 8D 36 00 9E 09 10 00 99  22 93 41 4D 20 53 43 48  |.6......".AM SCH|
00000180: 4C 55 53 53 20 56 4F 4E  20 4C 45 4B 54 49 4F 4E  |LUSS VON LEKTION|
00000190: 20 34 20 57 55 52 44 45  20 49 48 4E 45 4E 00 C9  | 4 WURDE IHNEN..|
000001A0: 09 11 00 99 22 56 4F 52  47 45 53 43 48 4C 41 47  |...."VORGESCHLAG|
000001B0: 45 4E 2C 20 45 49 4E 20  50 52 4F 47 52 41 4D 4D  |EN, EIN PROGRAMM|
000001C0: 20 46 55 45 52 20 44 45  4E 00 11 0A 12 00 99 22  | FUER DEN......"|
000001D0: 44 55 52 43 48 53 43 48  4E 49 54 54 4C 49 43 48  |DURCHSCHNITTLICH|
000001E0: 45 4E 20 42 45 4E 5A 49  4E 56 45 52 42 52 41 55  |EN BENZINVERBRAU|
000001F0: 43 48 20 41 55 46 22 3A  99 22 31 30 30 4B 4D 20  |CH AUF":."100KM |
00000200: 5A 55 20 53 43 48 52 45  49 42 45 4E 2E 22 3A 8D  |ZU SCHREIBEN.":.|
00000210: 37 00 3F 0A 14 00 99 22  48 49 45 52 46 55 45 52  |7.?...."HIERFUER|
00000220: 20 47 49 42 54 20 45 53  20 56 45 52 53 43 48 49  | GIBT ES VERSCHI|
00000230: 45 44 45 4E 45 20 52 49  43 48 54 49 47 45 22 00  |EDENE RICHTIGE".|
00000240: 82 0A 15 00 99 22 4D 4F  45 47 4C 49 43 48 4B 45  |....."MOEGLICHKE|
00000250: 49 54 45 4E 2E 20 45 49  4E 45 20 44 41 56 4F 4E  |ITEN. EINE DAVON|
00000260: 20 49 53 54 20 44 41 53  22 3A 99 22 46 4F 4C 47  | IST DAS":."FOLG|
00000270: 45 4E 44 45 20 50 52 4F  47 52 41 4D 4D 2E 22 3A  |ENDE PROGRAMM.":|
00000280: 8D 36 00 B0 0A 16 00 99  22 93 1E 32 20 50 52 49  |.6......"..2 PRI|
00000290: 4E 54 20 22 5A 24 22 4B  45 4E 4E 5A 45 49 43 48  |NT "Z$"KENNZEICH|
000002A0: 45 4E 2C 20 4B 4D 2C 20  4C 49 54 45 52 22 5A 24  |EN, KM, LITER"Z$|
000002B0: 00 DF 0A 18 00 99 22 34  20 49 4E 50 55 54 20 4B  |......"4 INPUT K|
000002C0: 5A 24 2C 20 4B 4D 2C 20  4C 22 3A 99 22 36 20 4C  |Z$, KM, L":."6 L|
000002D0: 45 54 20 41 20 3D 20 31  30 30 2A 4C 2F 4B 4D 00  |ET A = 100*L/KM.|
000002E0: 1F 0B 1A 00 99 22 38 20  50 52 49 4E 54 22 5A 24  |....."8 PRINT"Z$|
000002F0: 22 44 45 52 20 57 41 47  45 4E 22 5A 24 22 4B 5A  |"DER WAGEN"Z$"KZ|
00000300: 24 22 5A 24 22 56 45 52  42 52 41 55 43 48 54 22  |$"Z$"VERBRAUCHT"|
00000310: 5A 24 22 41 22 5A 24 22  4C 49 54 45 52 22 3B 00  |Z$"A"Z$"LITER";.|
00000320: 37 0B 1B 00 81 49 B2 31  A4 33 39 3A 99 22 A8 22  |7....I.1.39:."."|
00000330: 3B 3A 82 3A 99 3A 99 00  79 0B 1C 00 99 22 1F 53  |;:.:.:..y....".S|
00000340: 45 48 45 4E 20 53 49 45  20 4E 55 4E 2C 20 57 41  |EHEN SIE NUN, WA|
00000350: 53 20 42 45 49 4D 20 50  52 4F 47 52 41 4D 4D 41  |S BEIM PROGRAMMA|
00000360: 42 4C 41 55 46 22 3A 99  22 50 41 53 53 49 45 52  |BLAUF":."PASSIER|
00000370: 54 2E 22 3A 8D 36 3A 8D  37 00 BA 0B 1E 00 99 22  |T.":.6:.7......"|
00000380: 12 81 42 49 54 54 45 20  47 45 42 45 4E 20 53 49  |..BITTE GEBEN SI|
00000390: 45 20 45 49 4E 20 4B 45  4E 4E 5A 45 49 43 48 45  |E EIN KENNZEICHE|
000003A0: 4E 20 55 4E 44 20 5A 57  45 49 5A 41 48 4C 45 4E  |N UND ZWEIZAHLEN|
000003B0: 20 45 49 4E 2E 92 22 3A  8D 37 00 E5 0B 20 00 99  | EIN..":.7... ..|
000003C0: 3A 99 22 1F 4B 45 4E 4E  5A 45 49 43 48 45 4E 2C  |:.".KENNZEICHEN,|
000003D0: 20 4B 4D 2C 20 4C 49 54  45 52 22 3A 85 4B 5A 24  | KM, LITER":.KZ$|
000003E0: 2C 4B 4D 2C 4C 00 19 0C  22 00 99 22 44 45 52 20  |,KM,L...".."DER |
000003F0: 57 41 47 45 4E 20 22 4B  5A 24 22 20 56 45 52 42  |WAGEN "KZ$" VERB|
00000400: 52 41 55 43 48 54 22 31  30 30 AC 4C AD 4B 4D 22  |RAUCHT"100.L.KM"|
00000410: 4C 49 54 45 52 22 3A 8D  36 00 63 0C 24 00 99 22  |LITER":.6.c.$.."|
00000420: 93 22 A3 31 33 29 22 1C  49 46 2F 54 48 45 4E 22  |.".13)".IF/THEN"|
00000430: 3A 8D 37 3A 99 22 11 11  11 11 11 1F 43 4F 4D 50  |:.7:."......COMP|
00000440: 55 54 45 52 50 52 4F 47  52 41 4D 4D 45 20 57 45  |UTERPROGRAMME WE|
00000450: 52 44 45 4E 20 44 55 52  43 48 20 53 50 52 55 4E  |RDEN DURCH SPRUN|
00000460: 47 2D 22 00 8B 0C 26 00  99 22 42 45 46 45 48 4C  |G-"...&.."BEFEHL|
00000470: 45 20 53 45 48 52 20 56  49 45 4C 20 46 4C 45 58  |E SEHR VIEL FLEX|
00000480: 49 42 4C 45 52 2E 22 20  3A 8D 37 00 B8 0C 29 00  |IBLER." :.7...).|
00000490: 99 22 42 45 54 52 41 43  48 54 45 4E 20 53 49 45  |."BETRACHTEN SIE|
000004A0: 20 46 4F 4C 47 45 4E 44  45 53 20 42 45 49 53 50  | FOLGENDES BEISP|
000004B0: 49 45 4C 3A 22 3A 8D 36  00 E3 0C 2A 00 99 22 93  |IEL:":.6...*..".|
000004C0: 1E 20 32 20 50 52 49 4E  54 20 22 5A 24 22 45 49  |. 2 PRINT "Z$"EI|
000004D0: 4E 47 41 42 45 20 44 45  53 20 41 4C 54 45 52 53  |NGABE DES ALTERS|
000004E0: 22 5A 24 00 26 0D 2C 00  99 22 20 34 20 49 4E 50  |"Z$.&.,.." 4 INP|
000004F0: 55 54 20 41 22 3A 99 22  20 36 20 50 52 49 4E 54  |UT A":." 6 PRINT|
00000500: 22 5A 24 22 41 4E 47 41  42 45 20 49 4E 20 54 41  |"Z$"ANGABE IN TA|
00000510: 47 45 4E 3F 28 4A 41 20  4F 44 45 52 20 4E 45 49  |GEN?(JA ODER NEI|
00000520: 4E 29 22 5A 24 3B 00 5A  0D 2E 00 99 22 20 38 20  |N)"Z$;.Z...." 8 |
00000530: 49 4E 50 55 54 20 42 24  22 3A 99 22 31 30 20 49  |INPUT B$":."10 I|
00000540: 46 20 42 24 3D 22 5A 24  22 4E 45 49 4E 22 5A 24  |F B$="Z$"NEIN"Z$|
00000550: 22 20 54 48 45 4E 20 31  34 22 00 90 0D 30 00 99  |" THEN 14"...0..|
00000560: 22 31 32 20 50 52 49 4E  54 20 22 5A 24 22 53 49  |"12 PRINT "Z$"SI|
00000570: 45 20 53 49 4E 44 22 5A  24 22 20 33 36 35 2A 41  |E SIND"Z$" 365*A|
00000580: 20 22 5A 24 22 54 41 47  45 20 41 4C 54 22 5A 24  | "Z$"TAGE ALT"Z$|
00000590: 00 D3 0D 32 00 99 22 31  34 20 50 52 49 4E 54 20  |...2.."14 PRINT |
000005A0: 22 5A 24 22 53 49 45 20  53 49 4E 44 22 5A 24 22  |"Z$"SIE SIND"Z$"|
000005B0: 20 31 32 2A 41 20 22 5A  24 22 4D 4F 4E 41 54 45  | 12*A "Z$"MONATE|
000005C0: 20 41 4C 54 22 5A 24 3A  59 31 B2 31 30 3A 59 32  | ALT"Z$:Y1.10:Y2|
000005D0: B2 32 34 00 E9 0D 3C 00  81 49 B2 31 A4 33 39 3A  |.24...<..I.1.39:|
000005E0: 99 22 A8 22 3B 3A 82 3A  99 00 2F 0E 52 00 8D 37  |.".";:.:../.R..7|
000005F0: 3A 99 22 1E 5A 45 49 4C  45 20 32 1F 20 42 45 57  |:.".ZEILE 2. BEW|
00000600: 49 52 4B 54 20 44 45 4E  20 44 52 55 43 4B 20 56  |IRKT DEN DRUCK V|
00000610: 4F 4E 3A 22 3A 99 22 20  20 20 12 45 49 4E 47 41  |ON:":."   .EINGA|
00000620: 42 45 20 44 45 53 20 41  4C 54 45 52 53 92 22 00  |BE DES ALTERS.".|
00000630: 5F 0E 54 00 99 3A 20 99  22 1E 5A 45 49 4C 45 20  |_.T..: .".ZEILE |
00000640: 34 20 1F 42 45 57 49 52  4B 54 20 44 49 45 20 41  |4 .BEWIRKT DIE A|
00000650: 55 46 46 4F 52 44 45 52  55 4E 47 20 5A 55 52 00  |UFFORDERUNG ZUR.|
00000660: A0 0E 55 00 99 22 45 49  4E 47 41 42 45 20 45 49  |..U.."EINGABE EI|
00000670: 4E 45 52 20 5A 41 48 4C  20 28 5A 2E 42 2E 20 31  |NER ZAHL (Z.B. 1|
00000680: 30 29 20 44 55 52 43 48  20 44 41 53 22 3A 99 22  |0) DURCH DAS":."|
00000690: 5A 45 49 43 48 45 4E 20  12 3F 92 2E 22 3A 8D 37  |ZEICHEN .?..":.7|
000006A0: 00 C8 0E 58 00 99 22 1E  5A 45 49 4C 45 20 36 1F  |...X..".ZEILE 6.|
000006B0: 20 42 45 57 49 52 4B 54  20 44 45 4E 20 44 52 55  | BEWIRKT DEN DRU|
000006C0: 43 4B 20 56 4F 4E 3A 22  00 F2 0E 5A 00 99 22 20  |CK VON:"...Z.." |
000006D0: 20 20 12 41 4E 47 41 42  45 20 49 4E 20 54 41 47  |  .ANGABE IN TAG|
000006E0: 45 4E 3F 28 4A 41 20 4F  44 45 52 20 4E 45 49 4E  |EN?(JA ODER NEIN|
000006F0: 29 22 00 20 0F 5C 00 99  22 11 1E 5A 45 49 4C 45  |)". .\.."..ZEILE|
00000700: 20 38 1F 20 42 45 57 49  52 4B 54 20 44 49 45 20  | 8. BEWIRKT DIE |
00000710: 41 55 46 46 4F 52 44 45  52 55 4E 47 20 5A 55 52  |AUFFORDERUNG ZUR|
00000720: 00 66 0F 5E 00 99 22 45  49 4E 47 41 42 45 20 44  |.f.^.."EINGABE D|
00000730: 45 52 20 53 54 52 49 4E  47 53 20 12 4A 41 92 20  |ER STRINGS .JA. |
00000740: 4F 44 45 52 20 12 4E 45  49 4E 92 20 22 3A 99 22  |ODER .NEIN. ":."|
00000750: 44 55 52 43 48 20 44 41  53 20 5A 45 49 43 48 45  |DURCH DAS ZEICHE|
00000760: 4E 20 12 3F 92 2E 00 A5  0F 60 00 8D 36 3A 8D 35  |N .?.....`..6:.5|
00000770: 30 30 30 3A 8D 36 30 30  30 3A 99 22 1E 5A 45 49  |000:.6000:.".ZEI|
00000780: 4C 45 20 31 30 1F 20 42  45 57 49 52 4B 54 20 44  |LE 10. BEWIRKT D|
00000790: 49 45 20 50 52 55 45 46  55 4E 47 20 44 45 53 20  |IE PRUEFUNG DES |
000007A0: 49 4E 20 42 24 00 C5 0F  61 00 99 22 47 45 53 50  |IN B$...a.."GESP|
000007B0: 45 49 43 48 45 52 54 45  4E 20 53 54 52 49 4E 47  |EICHERTEN STRING|
000007C0: 53 2C 22 3A 99 00 F6 0F  62 00 99 22 55 4E 44 20  |S,":....b.."UND |
000007D0: 46 55 45 52 20 42 24 3D  4E 45 49 4E 2C 20 44 45  |FUER B$=NEIN, DE|
000007E0: 4E 20 53 50 52 55 4E 47  20 5A 55 20 5A 45 49 4C  |N SPRUNG ZU ZEIL|
000007F0: 45 20 31 34 22 3B 00 1E  10 63 00 99 22 28 5A 45  |E 14";...c.."(ZE|
00000800: 49 4C 45 20 31 32 20 57  49 52 44 20 41 4C 53 4F  |ILE 12 WIRD ALSO|
00000810: 20 41 55 53 47 45 4C 41  53 53 45 4E 2E 29 00 60  | AUSGELASSEN.).`|
00000820: 10 64 00 99 3A 99 22 46  55 45 52 20 42 24 3D 4A  |.d..:."FUER B$=J|
00000830: 41 20 57 49 52 44 20 44  41 53 20 50 52 4F 47 52  |A WIRD DAS PROGR|
00000840: 41 4D 4D 20 4D 49 54 22  3A 99 22 5A 45 49 4C 45  |AMM MIT":."ZEILE|
00000850: 20 31 32 20 46 4F 52 54  47 45 53 45 54 5A 54 2E  | 12 FORTGESETZT.|
00000860: 00 AB 10 66 00 8D 37 3A  99 22 1E 5A 45 49 4C 45  |...f..7:.".ZEILE|
00000870: 20 31 32 1F 20 42 45 57  49 52 4B 54 20 44 45 4E  | 12. BEWIRKT DEN|
00000880: 20 44 52 55 43 4B 20 56  4F 4E 3A 22 3A 99 22 20  | DRUCK VON:":." |
00000890: 20 20 12 53 49 45 20 53  49 4E 44 20 33 36 35 30  |  .SIE SIND 3650|
000008A0: 20 54 41 47 45 20 41 4C  54 92 22 00 F8 10 68 00  | TAGE ALT."...h.|
000008B0: 8D 37 3A 99 22 1E 5A 45  49 4C 45 20 31 34 1F 20  |.7:.".ZEILE 14. |
000008C0: 42 45 57 49 52 4B 54 20  44 45 4E 20 44 52 55 43  |BEWIRKT DEN DRUC|
000008D0: 4B 20 56 4F 4E 3A 22 3A  99 22 20 20 20 20 12 53  |K VON:":."    .S|
000008E0: 49 45 20 53 49 4E 44 20  31 30 30 20 4D 4F 4E 41  |IE SIND 100 MONA|
000008F0: 54 45 20 41 4C 54 92 22  00 21 11 6A 00 99 22 11  |TE ALT.".!.j..".|
00000900: 44 41 4D 49 54 20 49 53  54 20 44 41 53 20 50 52  |DAMIT IST DAS PR|
00000910: 4F 47 52 41 4D 4D 20 42  45 45 4E 44 45 54 2E 22  |OGRAMM BEENDET."|
00000920: 3B 00 28 11 72 00 8D 36  00 5D 11 90 01 43 24 B2  |;.(.r..6.]...C$.|
00000930: 22 12 FF 22 3A 8D 33 3A  99 22 11 11 11 11 22 A3  |"..":.3:."....".|
00000940: 37 29 22 1C 45 4E 44 45  20 56 4F 4E 20 4C 45 4B  |7)".ENDE VON LEK|
00000950: 54 49 4F 4E 20 35 20 54  45 49 4C 20 31 00 6D 11  |TION 5 TEIL 1.m.|
00000960: 93 01 81 5A B2 31 A4 34  30 30 3A 82 5A 00 9B 11  |...Z.1.400:.Z...|
00000970: 94 01 99 22 11 11 11 11  1D 1D 1D 1D 1D 1F 57 49  |..."..........WI|
00000980: 52 20 4D 41 43 48 45 4E  20 47 4C 45 49 43 48 20  |R MACHEN GLEICH |
00000990: 57 45 49 54 45 52 20 4D  49 54 22 00 BE 11 95 01  |WEITER MIT".....|
000009A0: 99 22 11 11 22 A3 31 33  29 22 12 1C 4C 45 4B 54  |."..".13)"..LEKT|
000009B0: 49 4F 4E 35 2F 32 92 22  3A 89 37 30 30 30 00 E9  |ION5/2.":.7000..|
000009C0: 11 88 13 99 22 13 22 3B  3A 81 49 B2 31 A4 59 31  |....".";:.I.1.Y1|
000009D0: 3A 99 22 11 22 3B 3A 82  3A 99 22 91 22 3B 3A 81  |:.".";:.:.".";:.|
000009E0: 4A B2 30 A4 59 32 AB 59  31 00 1C 12 89 13 99 22  |J.0.Y2.Y1......"|
000009F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
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 22  3A 82 3A 8E 00 3E 12 70  |       ":.:..>.p|
00000A20: 17 99 22 13 22 3B 3A 81  49 B2 31 A4 59 31 3A 99  |..".";:.I.1.Y1:.|
00000A30: 22 11 22 3B 3A 82 3A 99  22 91 22 3B 3A 8E 00 52  |".";:.:.".";:..R|
00000A40: 12 58 1B 93 22 35 2F 32  4C 45 4B 54 49 4F 4E 22  |.X.."5/2LEKTION"|
00000A50: 2C 38 00 00 00 01                                 |,8....          |

.......45,B(174):.46,B(175):.:.788,52:.6
57,128.D....53280,1:.53281,1.U...Z$.G(34
):.10......"..":.I.1.39:.C$;:.:.I.1.22:.
".."C$;:.:.".";......I.1.38:."."C$".";:.
:.C$......I.1.23:."."C$".";:.:..P....A$:
.A$."".6.X....:......C$.".":.3:..12)"...
....LEKTION 5":..!.....9)"....1. PROGRAM
MBEISPIEL.Q.....9)"2. IF/THEN-BEFEHL":..
9)"3. GOTO-BEFEHL.R.....9)"4. PROGRAMMBE
ISPIEL":.6......".AM SCHLUSS VON LEKTION
 4 WURDE IHNEN.I...."VORGESCHLAGEN, EIN 
PROGRAMM FUER DEN......"DURCHSCHNITTLICH
EN BENZINVERBRAUCH AUF":."100KM ZU SCHRE
IBEN.":.7.?...."HIERFUER GIBT ES VERSCHI
EDENE RICHTIGE"......"MOEGLICHKEITEN. EI
NE DAVON IST DAS":."FOLGENDE PROGRAMM.":
.6......"..2 PRINT "Z$"KENNZEICHEN, KM, 
LITER"Z$......"4 INPUT KZ$, KM, L":."6 L
ET A = 100*L/KM......"8 PRINT"Z$"DER WAG
EN"Z$"KZ$"Z$"VERBRAUCHT"Z$"A"Z$"LITER";.
7....I.1.39:.".";:.:.:..Y....".SEHEN SIE
 NUN, WAS BEIM PROGRAMMABLAUF":."PASSIER
T.":.6:.7......"..BITTE GEBEN SIE EIN KE
NNZEICHEN UND ZWEIZAHLEN EIN..":.7... ..
:.".KENNZEICHEN, KM, LITER":.KZ$,KM,L...
".."DER WAGEN "KZ$" VERBRAUCHT"100.L.KM"
LITER":.6.C.$..".".13)".IF/THEN":.7:."..
....COMPUTERPROGRAMME WERDEN DURCH SPRUN
G-"...&.."BEFEHLE SEHR VIEL FLEXIBLER." 
:.7...).."BETRACHTEN SIE FOLGENDES BEISP
IEL:":.6...*..".. 2 PRINT "Z$"EINGABE DE
S ALTERS"Z$.&.,.." 4 INPUT A":." 6 PRINT
"Z$"ANGABE IN TAGEN?(JA ODER NEIN)"Z$;.Z
...." 8 INPUT B$":."10 IF B$="Z$"NEIN"Z$
" THEN 14"...0.."12 PRINT "Z$"SIE SIND"Z
$" 365*A "Z$"TAGE ALT"Z$.S.2.."14 PRINT 
"Z$"SIE SIND"Z$" 12*A "Z$"MONATE ALT"Z$:
Y1.10:Y2.24...<..I.1.39:.".";:.:../.R..7
:.".ZEILE 2. BEWIRKT DEN DRUCK VON:":." 
  .EINGABE DES ALTERS."._.T..: .".ZEILE 
4 .BEWIRKT DIE AUFFORDERUNG ZUR. .U.."EI
NGABE EINER ZAHL (Z.B. 10) DURCH DAS":."
ZEICHEN .?..":.7.H.X..".ZEILE 6. BEWIRKT
 DEN DRUCK VON:"...Z.."   .ANGABE IN TAG
EN?(JA ODER NEIN)". .\.."..ZEILE 8. BEWI
RKT DIE AUFFORDERUNG ZUR.F.^.."EINGABE D
ER STRINGS .JA. ODER .NEIN. ":."DURCH DA
S ZEICHEN .?.....`..6:.5000:.6000:.".ZEI
LE 10. BEWIRKT DIE PRUEFUNG DES IN B$.E.
A.."GESPEICHERTEN STRINGS,":....B.."UND 
FUER B$=NEIN, DEN SPRUNG ZU ZEILE 14";..
.C.."(ZEILE 12 WIRD ALSO AUSGELASSEN.).`
.D..:."FUER B$=JA WIRD DAS PROGRAMM MIT"
:."ZEILE 12 FORTGESETZT....F..7:.".ZEILE
 12. BEWIRKT DEN DRUCK VON:":."   .SIE S
IND 3650 TAGE ALT."...H..7:.".ZEILE 14. 
BEWIRKT DEN DRUCK VON:":."    .SIE SIND 
100 MONATE ALT.".!.J..".DAMIT IST DAS PR
OGRAMM BEENDET.";.(.R..6.]...C$."..":.3:
."....".7)".ENDE VON LEKTION 5 TEIL 1.M.
...Z.1.400:.Z......"..........WIR MACHEN
 GLEICH WEITER MIT"......"..".13)"..LEKT
ION5/2.":.7000......".";:.I.1.Y1:.".";:.
:.".";:.J.0.Y2.Y1......"                
                       ":.:..>.P..".";:.
I.1.Y1:.".";:.:.".";:..R.X.."5/2LEKTION"
,8....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL