TEIL 15
FILE INFORMATION
FILENAME(S): TEIL 15
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-12-02 23:23:02
APPEARS ON: 1 disk(s)
FILE HASH
708b69a49858f9808efd997ba3890e9408afb115ef4629340e214634281dba69
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NR 45 2 | TEIL 15 | PRG | swasti, dinkel | 12 | 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 41 08 02 00 51 24 B2 22 |53281,1.A...Q$."|
00000020: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000030: 91 91 91 22 3A 5A 24 B2 C7 28 33 34 29 3A 89 31 |...":Z$..(34):.1|
00000040: 32 00 72 08 03 00 99 22 93 22 3A 81 49 B2 31 A4 |2.r....".":.I.1.|
00000050: 33 39 3A 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 |39:.C$;:.:.I.1.2|
00000060: 32 3A 99 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D |2:.".."C$;:.:.".|
00000070: 22 3B 00 8F 08 04 00 81 49 B2 31 A4 33 38 3A 99 |";......I.1.38:.|
00000080: 22 9D 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 |"."C$".";:.:.C$.|
00000090: AA 08 05 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 |.....I.1.23:."."|
000000A0: 43 24 22 9D 22 3B 3A 82 3A 8E 00 BB 08 07 00 A1 |C$".";:.:.......|
000000B0: 41 24 3A 8B 41 24 B2 22 22 A7 37 00 C3 08 08 00 |A$:.A$."".7.....|
000000C0: 99 3A 8E 00 ED 08 0C 00 43 24 B2 22 D8 22 3A 8D |.:......C$.".":.|
000000D0: 33 3A 99 22 11 11 11 11 11 22 A3 31 35 29 22 4C |3:.".....".15)"L|
000000E0: 45 4B 54 49 4F 4E 20 36 11 11 11 22 3A 00 0B 09 |EKTION 6...":...|
000000F0: 0D 00 99 A3 31 32 29 22 31 2E 20 50 52 4F 47 52 |....12)"1. PROGR|
00000100: 41 4D 4D 42 45 49 53 50 49 45 4C 00 46 09 0E 00 |AMMBEISPIEL.F...|
00000110: 99 A3 31 32 29 22 11 32 2E 20 52 45 41 44 CE 44 |..12)".2. READ.D|
00000120: 41 54 41 2D 42 45 46 45 48 4C 45 20 20 20 22 3A |ATA-BEFEHLE ":|
00000130: 99 A3 31 32 29 22 11 33 2E 20 4D 41 54 52 49 5A |..12)".3. MATRIZ|
00000140: 45 4E 22 3A 8D 37 00 67 09 10 00 99 22 93 22 A3 |EN":.7.g....".".|
00000150: 31 31 29 22 50 52 4F 47 52 41 4D 4D 42 45 49 53 |11)"PROGRAMMBEIS|
00000160: 50 49 45 4C 22 3A 99 00 94 09 12 00 99 22 48 49 |PIEL":......."HI|
00000170: 45 52 20 45 49 4E 20 50 52 4F 47 52 41 4D 4D 2C |ER EIN PROGRAMM,|
00000180: 20 44 41 53 20 44 45 4E 20 4C 4F 48 4E 20 45 49 | DAS DEN LOHN EI|
00000190: 4E 45 53 22 00 BE 09 14 00 99 22 41 52 42 45 49 |NES"......"ARBEI|
000001A0: 54 45 52 53 20 42 45 52 45 43 48 4E 45 54 3A 11 |TERS BERECHNET:.|
000001B0: 22 3A 99 22 32 20 20 49 4E 50 55 54 20 48 00 0B |":."2 INPUT H..|
000001C0: 0A 18 00 99 22 36 20 20 49 46 20 48 3E 34 30 20 |...."6 IF H>40 |
000001D0: 54 48 45 4E 20 31 32 22 3A 99 22 38 20 20 50 52 |THEN 12":."8 PR|
000001E0: 49 4E 54 20 22 5A 24 22 44 45 52 20 41 52 42 45 |INT "Z$"DER ARBE|
000001F0: 49 54 45 52 20 42 45 4B 4F 4D 4D 54 20 44 4D 22 |ITER BEKOMMT DM"|
00000200: 5A 24 22 36 2E 32 35 2A 48 22 3B 00 1C 0A 19 00 |Z$"6.25*H";.....|
00000210: 99 22 31 30 20 47 4F 54 4F 20 31 36 00 44 0A 1A |."10 GOTO 16.D..|
00000220: 00 99 22 31 32 20 4C 45 54 20 53 3D 36 2E 32 35 |.."12 LET S=6.25|
00000230: 2A 34 30 2B 28 48 2D 34 30 29 2A 36 2E 32 35 2A |*40+(H-40)*6.25*|
00000240: 31 2E 35 22 00 7E 0A 1B 00 99 22 31 34 20 50 52 |1.5".~...."14 PR|
00000250: 49 4E 54 20 22 5A 24 22 44 45 52 20 41 52 42 45 |INT "Z$"DER ARBE|
00000260: 49 54 45 52 20 42 45 4B 4F 4D 4D 54 20 44 4D 22 |ITER BEKOMMT DM"|
00000270: 5A 24 22 53 22 3A 99 22 31 36 20 45 4E 44 00 AC |Z$"S":."16 END..|
00000280: 0A 1C 00 99 22 11 53 4F 4C 4C 54 45 20 45 53 20 |....".SOLLTE ES |
00000290: 49 48 4E 45 4E 20 53 43 48 57 45 52 46 41 4C 4C |IHNEN SCHWERFALL|
000002A0: 45 4E 20 53 4F 4C 43 48 20 45 49 4E 00 D9 0A 1D |EN SOLCH EIN....|
000002B0: 00 99 22 50 52 4F 47 52 41 4D 4D 20 5A 55 20 53 |.."PROGRAMM ZU S|
000002C0: 43 48 52 45 49 42 45 4E 2C 20 4C 45 53 45 4E 20 |CHREIBEN, LESEN |
000002D0: 53 49 45 20 42 49 54 54 45 00 F9 0A 1E 00 99 22 |SIE BITTE......"|
000002E0: 4C 45 4B 54 49 4F 4E 20 35 20 4E 4F 43 48 45 49 |LEKTION 5 NOCHEI|
000002F0: 4E 4D 41 4C 2E 22 3A 8D 37 00 37 0B 20 00 99 22 |NMAL.":.7.7. .."|
00000300: 93 22 A3 31 35 29 22 52 45 41 44 CE 44 41 54 41 |.".15)"READ.DATA|
00000310: 11 22 3A 99 22 53 49 45 20 4B 45 4E 4E 45 4E 20 |.":."SIE KENNEN |
00000320: 4A 45 54 5A 54 20 53 43 48 4F 4E 20 32 20 4D 45 |JETZT SCHON 2 ME|
00000330: 54 48 4F 44 45 4E 2C 00 60 0B 21 00 99 22 44 41 |THODEN,.`.!.."DA|
00000340: 54 45 4E 20 49 4E 20 44 45 4E 20 43 4F 4D 50 55 |TEN IN DEN COMPU|
00000350: 54 45 52 20 45 49 4E 5A 55 47 45 42 45 4E 3A 22 |TER EINZUGEBEN:"|
00000360: 00 8A 0B 22 00 99 3A 99 22 31 2E 20 49 4E 50 55 |..."..:."1. INPU|
00000370: 54 2D 42 45 46 45 48 4C 20 5A 2E 42 2E 20 12 34 |T-BEFEHL Z.B. .4|
00000380: 20 49 4E 50 55 54 20 4B 92 22 00 B3 0B 24 00 99 | INPUT K."...$..|
00000390: 22 32 2E 20 4C 45 54 2D 42 45 46 45 48 4C 20 20 |"2. LET-BEFEHL |
000003A0: 20 5A 2E 42 2E 20 12 38 20 4C 45 54 20 48 3D 39 | Z.B. .8 LET H=9|
000003B0: 22 3A 99 00 F2 0B 26 00 99 22 4E 55 4E 20 53 4F |":....&.."NUN SO|
000003C0: 4C 4C 20 49 48 4E 45 4E 20 45 49 4E 45 20 44 52 |LL IHNEN EINE DR|
000003D0: 49 54 54 45 20 4D 45 54 48 4F 44 45 20 56 4F 52 |ITTE METHODE VOR|
000003E0: 2D 20 47 45 53 54 45 4C 4C 54 20 57 45 52 44 45 |- GESTELLT WERDE|
000003F0: 4E 2E 00 28 0C 27 00 99 3A 99 22 5A 55 4E 41 45 |N..(.'..:."ZUNAE|
00000400: 43 48 53 54 20 45 49 4E 20 42 45 49 53 50 49 45 |CHST EIN BEISPIE|
00000410: 4C 3A 22 3A 8D 37 3A 99 22 93 20 20 32 20 20 52 |L:":.7:.". 2 R|
00000420: 45 41 44 20 41 24 2C 48 00 63 0C 28 00 99 22 20 |EAD A$,H.c.(.." |
00000430: 20 34 20 20 50 52 49 4E 54 20 41 24 2C 48 22 3A | 4 PRINT A$,H":|
00000440: 99 22 20 20 36 20 20 52 45 41 44 20 42 24 2C 52 |." 6 READ B$,R|
00000450: 22 3A 99 22 20 20 38 20 20 50 52 49 4E 54 20 42 |":." 8 PRINT B|
00000460: 24 2C 52 00 A7 0C 2A 00 99 22 20 31 30 20 20 44 |$,R...*.." 10 D|
00000470: 41 54 41 20 22 5A 24 22 54 41 47 45 22 5A 24 22 |ATA "Z$"TAGE"Z$"|
00000480: 2C 20 34 30 2C 20 22 5A 24 22 50 52 45 49 53 22 |, 40, "Z$"PREIS"|
00000490: 5A 24 3A 99 22 20 31 32 20 20 44 41 54 41 20 34 |Z$:." 12 DATA 4|
000004A0: 2E 37 35 22 3A 8D 37 00 E7 0C 2C 00 99 22 44 49 |.75":.7...,.."DI|
000004B0: 45 20 49 4E 20 44 45 4E 20 52 45 41 44 2D 42 45 |E IN DEN READ-BE|
000004C0: 46 45 48 4C 45 4E 20 53 54 45 48 45 4E 44 45 4E |FEHLEN STEHENDEN|
000004D0: 20 20 20 20 20 20 56 41 52 49 41 42 4C 45 4E 22 | VARIABLEN"|
000004E0: 3A 59 B2 31 3A 8D 37 00 0F 0D 2E 00 8D 39 30 30 |:Y.1:.7......900|
000004F0: 3A 8D 39 31 30 3A 4E 20 57 49 52 44 00 1B 10 9F |:.910:N WIRD....|
00000500: 00 99 22 44 49 45 20 53 43 48 52 49 54 54 57 45 |.."DIE SCHRITTWE|
00000510: 49 54 45 20 31 20 46 45 53 54 47 45 4C 45 47 54 |ITE 1 FESTGELEGT|
00000520: 2E 00 4B 10 A0 00 8D 37 3A 99 22 93 44 45 52 20 |..K....7:.".DER |
00000530: 46 4F 52 2E 2E 2E 2D 42 45 46 45 48 4C 20 48 41 |FOR...-BEFEHL HA|
00000540: 54 20 44 41 53 20 46 4F 52 4D 41 54 3A 22 3A 8D |T DAS FORMAT:":.|
00000550: 37 00 83 10 A2 00 99 22 12 5A 45 49 4C 45 4E 23 |7......".ZEILEN#|
00000560: 92 20 46 4F 52 20 12 56 41 52 49 41 42 4C 45 92 |. FOR .VARIABLE.|
00000570: 20 3D 20 12 59 92 20 54 4F 20 12 5A 92 20 53 54 | = .Y. TO .Z. ST|
00000580: 45 50 20 12 53 22 3A 8D 37 00 CD 10 A4 00 99 22 |EP .S":.7......"|
00000590: 57 4F 42 45 49 20 12 59 2C 20 5A 2C 20 55 4E 44 |WOBEI .Y, Z, UND|
000005A0: 20 53 92 20 5A 41 48 4C 45 4E 2C 20 56 41 52 49 | S. ZAHLEN, VARI|
000005B0: 41 42 4C 45 4E 20 22 3A 99 22 4F 44 45 52 20 54 |ABLEN ":."ODER T|
000005C0: 45 52 4D 45 20 53 45 49 4E 20 4B 4F 45 4E 4E 45 |ERME SEIN KOENNE|
000005D0: 4E 2E 22 00 D4 10 A5 00 8D 37 00 00 11 A6 00 99 |N."......7......|
000005E0: 22 44 45 52 20 12 4E 45 58 54 92 2D 42 45 46 45 |"DER .NEXT.-BEFE|
000005F0: 48 4C 20 48 41 54 20 44 41 53 20 46 4F 52 4D 41 |HL HAT DAS FORMA|
00000600: 54 3A 22 3A 8D 37 00 25 11 A8 00 99 22 20 20 12 |T:":.7.%...." .|
00000610: 5A 45 49 4C 45 4E 23 92 20 4E 45 58 54 20 12 56 |ZEILEN#. NEXT .V|
00000620: 41 52 49 41 42 4C 45 22 3A 8D 37 00 74 11 AA 00 |ARIABLE":.7.t...|
00000630: 99 22 57 4F 42 45 49 20 44 49 45 20 47 4C 45 49 |."WOBEI DIE GLEI|
00000640: 43 48 45 20 12 56 41 52 49 41 42 4C 45 92 20 57 |CHE .VARIABLE. W|
00000650: 49 45 20 49 4D 22 3A 99 22 12 46 4F 52 92 2D 42 |IE IM":.".FOR.-B|
00000660: 45 46 45 48 4C 20 42 45 4E 55 54 5A 54 20 57 45 |EFEHL BENUTZT WE|
00000670: 52 44 45 4E 20 4D 55 53 53 2E 00 7B 11 AF 00 8D |RDEN MUSS..{....|
00000680: 37 00 B1 11 D2 00 43 24 B2 22 12 20 22 3A 8D 33 |7.....C$.". ":.3|
00000690: 3A 99 22 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 45 4E |:."...........EN|
000006A0: 44 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 37 |DE VON LEKTION 7|
000006B0: 20 54 45 49 4C 20 32 00 E0 11 D3 00 99 22 11 11 | TEIL 2......"..|
000006C0: 11 11 1D 1D 1D 1D 1D 1D 1D 42 49 54 54 45 20 57 |.........BITTE W|
000006D0: 41 52 54 45 4E 20 53 49 45 2C 20 42 49 53 20 54 |ARTEN SIE, BIS T|
000006E0: 45 49 4C 20 33 22 00 FB 11 D4 00 99 A3 37 29 22 |EIL 3".......7)"|
000006F0: 11 11 45 49 4E 47 45 4C 45 53 45 4E 20 49 53 54 |..EINGELESEN IST|
00000700: 2E 00 0B 12 D5 00 99 22 11 11 11 11 11 11 11 11 |......."........|
00000710: 11 00 1C 12 F0 00 93 22 54 45 49 4C 20 31 39 22 |......."TEIL 19"|
00000720: 2C 38 00 00 00 01 A4 0F D6 00 99 22 11 11 11 11 |,8........."....|
00000730: 11 11 11 22 3A 93 00 00 00 01 93 00 00 00 01 A4 |...":...........|
00000740: 0F D6 00 99 22 11 11 11 11 11 11 11 22 3A 93 00 |....".......":..|
00000750: 00 00 01 58 58 58 58 58 58 58 58 58 00 4E 0E F0 |...XXXXXXXXX.N..|
00000760: 00 93 00 00 00 01 A4 0F D6 00 99 22 11 11 11 11 |..........."....|
00000770: 11 11 11 22 3A 93 00 00 00 01 58 58 58 58 58 58 |...":.....XXXXXX|
00000780: 58 58 58 00 75 0E F0 00 93 00 00 00 01 A4 0F D6 |XXX.u...........|
00000790: 00 99 22 11 11 11 11 11 11 11 22 3A 93 00 00 00 |..".......":....|
000007A0: 01 58 58 58 58 58 58 58 58 58 00 9C 0E F0 00 93 |.XXXXXXXXX......|
000007B0: 00 00 00 01 A4 0F D6 00 99 22 11 11 11 11 11 11 |........."......|
000007C0: 11 22 3A 93 00 00 00 01 58 58 58 58 58 58 58 58 |.":.....XXXXXXXX|
000007D0: 58 00 C3 0E F0 00 93 00 00 00 01 A4 0F D6 00 99 |X...............|
000007E0: 22 11 11 11 11 11 11 11 22 3A 93 00 00 00 01 58 |".......":.....X|
000007F0: 58 58 58 58 58 58 58 58 00 EA 0E F0 00 93 00 00 |XXXXXXXX........|
00000800: 00 01 A4 0F D6 00 99 22 11 11 11 11 11 11 11 22 |......."......."|
00000810: 3A 93 00 00 00 01 58 58 58 58 58 58 58 58 58 00 |:.....XXXXXXXXX.|
00000820: 11 0F F0 00 93 00 00 00 01 A4 0F D6 00 99 22 11 |..............".|
00000830: 11 11 11 11 11 11 22 3A 93 00 00 00 01 58 58 58 |......":.....XXX|
00000840: 58 58 58 58 58 58 00 38 0F F0 00 93 00 00 00 01 |XXXXXX.8........|
00000850: A4 0F D6 00 99 22 11 11 11 11 11 11 11 22 3A 93 |.....".......":.|
00000860: 00 00 00 01 58 58 58 58 58 58 58 58 58 00 5F 0F |....XXXXXXXXX._.|
00000870: F0 00 93 00 00 00 01 A4 0F D6 00 99 22 11 11 11 |............"...|
00000880: 11 11 11 11 22 3A 93 00 00 00 01 58 58 58 58 58 |....":.....XXXXX|
00000890: 58 58 58 58 00 86 0F F0 00 93 00 00 00 01 A4 0F |XXXX............|
000008A0: D6 00 99 22 11 11 11 11 11 11 11 22 3A 93 00 00 |...".......":...|
000008B0: 00 01 58 58 58 58 58 58 58 58 58 00 AD 0F F0 00 |..XXXXXXXXX.....|
000008C0: 93 00 00 00 01 A4 0F D6 00 99 22 11 11 11 11 11 |..........".....|
000008D0: 11 11 22 3A 93 00 00 00 01 58 58 58 58 58 58 58 |..":.....XXXXXXX|
000008E0: 58 58 00 D4 0F F0 00 93 00 00 00 01 A4 0F D6 00 |XX..............|
000008F0: 99 22 11 11 11 11 11 11 11 22 3A 93 00 00 00 01 |.".......":.....|
00000900: 58 58 58 58 58 58 58 58 58 00 FB 0F F0 00 93 00 |XXXXXXXXX.......|
00000910: 00 00 01 A4 0F D6 00 99 22 11 11 11 11 11 11 11 |........".......|
00000920: 22 3A 93 00 00 00 01 3A 93 00 00 00 01 45 49 4C |":.....:.....EIL|
00000930: 20 32 00 39 10 D4 00 99 22 1D 1D 1D 1D 1D 45 49 | 2.9....".....EI|
00000940: 4E 47 45 4C 45 53 45 4E 20 49 53 54 2E 00 4D 10 |NGELESEN IST..M.|
00000950: D6 00 99 22 11 11 11 11 11 11 11 11 11 11 22 3A |..."..........":|
00000960: 93 00 00 00 01 11 11 11 11 11 22 3A 93 00 00 00 |..........":....|
00000970: 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000980: 20 20 20 31 A4 34 3A 48 42 54 | 1.4:HBT |
.......53280,1:.53281,1.A...Q$.".
...":Z$.G(34):.12.R....".":.I.1.
39:.C$;:.:.I.1.22:.".."C$;:.:.".";......
I.1.38:."."C$".";:.:.C$......I.1.23:."."
C$".";:.:.......A$:.A$."".7.C....:......
C$."X":.3:.".....".15)"LEKTION 6...":...
....12)"1. PROGRAMMBEISPIEL.F.....12)".2
. READNDATA-BEFEHLE ":..12)".3. MATRIZ
EN":.7.G....".".11)"PROGRAMMBEISPIEL":..
....."HIER EIN PROGRAMM, DAS DEN LOHN EI
NES"......"ARBEITERS BERECHNET:.":."2 I
NPUT H......"6 IF H>40 THEN 12":."8 PR
INT "Z$"DER ARBEITER BEKOMMT DM"Z$"6.25*
H";......"10 GOTO 16.D...."12 LET S=6.25
*40+(H-40)*6.25*1.5".~...."14 PRINT "Z$"
DER ARBEITER BEKOMMT DM"Z$"S":."16 END..
....".SOLLTE ES IHNEN SCHWERFALLEN SOLCH
EIN.Y...."PROGRAMM ZU SCHREIBEN, LESEN
SIE BITTE......"LEKTION 5 NOCHEINMAL.":.
7.7. ..".".15)"READNDATA.":."SIE KENNEN
JETZT SCHON 2 METHODEN,.`.!.."DATEN IN D
EN COMPUTER EINZUGEBEN:"..."..:."1. INPU
T-BEFEHL Z.B. .4 INPUT K."...$.."2. LET-
BEFEHL Z.B. .8 LET H=9":....&.."NUN SO
LL IHNEN EINE DRITTE METHODE VOR- GESTEL
LT WERDEN..(.'..:."ZUNAECHST EIN BEISPIE
L:":.7:.". 2 READ A$,H.C.(.." 4 PRIN
T A$,H":." 6 READ B$,R":." 8 PRINT B
$,R...*.." 10 DATA "Z$"TAGE"Z$", 40, "Z
$"PREIS"Z$:." 12 DATA 4.75":.7...,.."DI
E IN DEN READ-BEFEHLEN STEHENDEN VA
RIABLEN":Y.1:.7......900:.910:N WIRD....
.."DIE SCHRITTWEITE 1 FESTGELEGT..K. ..7
:.".DER FOR...-BEFEHL HAT DAS FORMAT:":.
7......".ZEILEN#. FOR .VARIABLE. = .Y. T
O .Z. STEP .S":.7.M...."WOBEI .Y, Z, UND
S. ZAHLEN, VARIABLEN ":."ODER TERME SEI
N KOENNEN.".T....7......"DER .NEXT.-BEFE
HL HAT DAS FORMAT:":.7.%...." .ZEILEN#.
NEXT .VARIABLE":.7.T...."WOBEI DIE GLEI
CHE .VARIABLE. WIE IM":.".FOR.-BEFEHL BE
NUTZT WERDEN MUSS..{....7...R.C$.". ":.3
:."...........ENDE VON LEKTION 7 TEIL 2.
..S.."...........BITTE WARTEN SIE, BIS T
EIL 3"...T...7)"..EINGELESEN IST....U.."
..............."TEIL 19",8......V.."....
...":............V..".......":.....XXXXX
XXXX.N..........V..".......":.....XXXXXX
XXX.U..........V..".......":.....XXXXXXX
XX............V..".......":.....XXXXXXXX
X.C..........V..".......":.....XXXXXXXXX
............V..".......":.....XXXXXXXXX.
...........V..".......":.....XXXXXXXXX.8
..........V..".......":.....XXXXXXXXX._.
.........V..".......":.....XXXXXXXXX....
........V..".......":.....XXXXXXXXX.....
.......V..".......":.....XXXXXXXXX.T....
......V..".......":.....XXXXXXXXX.......
.....V..".......":.....:.....EIL 2.9.T..
".....EINGELESEN IST..M.V.."..........":
..........":..... 1.4:H
BT
> CLICK IMAGE PREVIEW FOR FULL MODAL