TEIL 15
FILE INFORMATION
FILENAME(S): TEIL 15
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 23:47:27
APPEARS ON: 1 disk(s)
FILE HASH
4b316ec5904548e8ae803f78c101627d1c885fbc5d3d1e18393b4429e8a20d1d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC KURS | TEIL 15 | PRG | swasti, flohmarkt | 12 | 18 | 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 59 B2 33 3A 8D 39 30 30 3A 8D |:.910:Y.3:.900:.|
00000500: 39 31 30 3A 8D 37 3A 59 B2 39 3A 8D 39 30 30 00 |910:.7:Y.9:.900.|
00000510: 4C 0D 30 00 99 A3 31 30 29 22 45 52 48 41 4C 54 |L.0...10)"ERHALT|
00000520: 45 4E 20 49 48 52 45 20 57 45 52 54 45 20 41 55 |EN IHRE WERTE AU|
00000530: 53 20 44 45 4E 2C 49 4E 44 45 4E 20 44 41 54 41 |S DEN,INDEN DATA|
00000540: 2D 42 45 46 45 48 4C 45 4E 20 22 3B 00 6B 0D 31 |-BEFEHLEN ";.k.1|
00000550: 00 99 22 47 45 53 50 45 49 43 48 45 52 54 45 4E |.."GESPEICHERTEN|
00000560: 20 44 41 54 45 4E 2E 22 3A 8D 37 00 8E 0D 32 00 | DATEN.":.7...2.|
00000570: 59 B2 35 3A 8D 39 30 30 3A 8D 39 31 30 3A 59 B2 |Y.5:.900:.910:Y.|
00000580: 36 3A 8D 39 30 30 3A 8D 39 31 30 3A 8D 37 00 BA |6:.900:.910:.7..|
00000590: 0D 34 00 59 B2 31 32 3A 8D 39 30 30 3A 99 22 49 |.4.Y.12:.900:."I|
000005A0: 4D 20 4F 42 49 47 45 4E 20 42 45 49 53 50 49 45 |M OBIGEN BEISPIE|
000005B0: 4C 20 57 49 52 44 3A 22 3A 99 00 EA 0D 36 00 99 |L WIRD:":....6..|
000005C0: 22 20 20 20 20 44 45 52 20 53 54 52 49 4E 47 20 |" DER STRING |
000005D0: 12 22 5A 24 22 54 41 47 45 22 5A 24 22 92 20 49 |."Z$"TAGE"Z$". I|
000005E0: 4E 20 12 41 24 92 2C 22 3A 99 00 0D 0E 38 00 99 |N .A$.,":....8..|
000005F0: 22 20 20 20 20 44 49 45 20 5A 41 48 4C 20 12 34 |" DIE ZAHL .4|
00000600: 30 92 20 49 4E 20 12 48 92 2C 22 3A 99 00 3E 0E |0. IN .H.,":..>.|
00000610: 3A 00 99 22 20 20 20 20 44 45 52 20 53 54 52 49 |:.." DER STRI|
00000620: 4E 47 20 12 22 5A 24 22 50 52 45 49 53 22 5A 24 |NG ."Z$"PREIS"Z$|
00000630: 22 92 20 49 4E 20 12 42 24 92 20 22 3A 99 00 73 |". IN .B$. ":..s|
00000640: 0E 3C 00 99 22 20 20 20 20 55 4E 44 20 44 49 45 |.<.." UND DIE|
00000650: 20 5A 41 48 4C 20 12 34 2E 37 35 92 20 49 4E 20 | ZAHL .4.75. IN |
00000660: 12 52 92 20 20 47 45 53 50 45 49 43 48 45 52 54 |.R. GESPEICHERT|
00000670: 2E 20 22 00 A0 0E 3D 00 99 22 55 4D 20 41 4C 4C |. "...=.."UM ALL|
00000680: 45 20 42 45 4E 4F 45 54 49 47 54 45 4E 20 57 45 |E BENOETIGTEN WE|
00000690: 52 54 45 20 5A 55 20 53 50 45 49 43 48 45 52 4E |RTE ZU SPEICHERN|
000006A0: 00 DD 0E 3E 00 99 22 4B 41 4E 4E 20 4D 45 48 52 |...>.."KANN MEHR|
000006B0: 20 41 4C 53 20 45 49 4E 20 44 41 54 41 2D 42 45 | ALS EIN DATA-BE|
000006C0: 46 45 48 4C 20 47 45 47 45 42 45 4E 22 3A 99 22 |FEHL GEGEBEN":."|
000006D0: 57 45 52 44 45 4E 2E 20 22 3B 3A 8D 37 00 FE 0E |WERDEN. ";:.7...|
000006E0: 3F 00 59 31 B2 31 30 3A 59 32 B2 32 34 3A 8D 39 |?.Y1.10:Y2.24:.9|
000006F0: 32 30 3B 3A 59 20 B2 31 32 3A 8D 39 30 30 00 4C |20;:Y .12:.900.L|
00000700: 0F 42 00 99 22 44 45 52 20 56 4F 52 54 45 49 4C |.B.."DER VORTEIL|
00000710: 20 45 49 4E 45 53 20 52 45 41 44 2F 44 41 54 41 | EINES READ/DATA|
00000720: 2D 42 45 46 45 48 4C 53 20 20 20 20 20 47 45 47 |-BEFEHLS GEG|
00000730: 45 4E 55 45 42 45 52 20 45 49 4E 45 4D 20 49 4E |ENUEBER EINEM IN|
00000740: 50 55 54 2D 42 45 46 45 48 4C 22 3B 00 88 0F 44 |PUT-BEFEHL";...D|
00000750: 00 99 22 20 49 53 54 20 44 49 45 20 20 20 53 50 |.." IST DIE SP|
00000760: 45 49 43 48 45 52 55 4E 47 20 44 45 52 20 44 41 |EICHERUNG DER DA|
00000770: 54 45 4E 20 57 41 45 48 52 45 4E 44 20 44 45 53 |TEN WAEHREND DES|
00000780: 20 20 20 20 20 20 22 3B 00 AC 0F 45 00 99 22 47 | ";...E.."G|
00000790: 45 53 41 4D 54 45 4E 20 50 52 4F 47 52 41 4D 4D |ESAMTEN PROGRAMM|
000007A0: 41 42 4C 41 55 46 53 2E 22 3A 8D 37 00 DB 0F 46 |ABLAUFS.":.7...F|
000007B0: 00 99 22 93 12 31 2E 92 20 31 35 20 52 45 41 44 |.."..1.. 15 READ|
000007C0: 20 58 2C 59 2C 5A 22 3A 99 22 20 20 20 31 38 20 | X,Y,Z":." 18 |
000007D0: 44 41 54 41 20 31 30 2C 32 30 11 00 1A 10 4A 00 |DATA 10,20....J.|
000007E0: 99 22 12 32 2E 92 20 31 31 20 52 45 41 44 20 4D |.".2.. 11 READ M|
000007F0: 22 3A 99 22 20 20 20 32 30 20 44 41 54 41 20 22 |":." 20 DATA "|
00000800: 5A 24 22 4A 41 22 5A 24 3A 99 22 11 12 33 2E 92 |Z$"JA"Z$:."..3..|
00000810: 20 31 36 20 52 45 41 44 20 50 00 46 10 4B 00 99 | 16 READ P.F.K..|
00000820: 22 20 20 20 31 38 20 52 45 41 44 20 4E 22 3A 99 |" 18 READ N":.|
00000830: 22 20 20 20 32 30 20 44 41 54 41 20 31 36 2C 20 |" 20 DATA 16, |
00000840: 32 39 2E 37 11 22 00 92 10 4D 00 99 22 57 45 4C |29.7."...M.."WEL|
00000850: 43 48 45 52 20 44 45 52 20 4F 42 49 47 45 4E 20 |CHER DER OBIGEN |
00000860: 52 45 41 44 2F 44 41 54 41 2D 42 45 46 45 48 4C |READ/DATA-BEFEHL|
00000870: 45 1D 49 53 54 20 52 49 43 48 54 49 47 20 28 31 |E.IST RICHTIG (1|
00000880: 2C 20 32 20 4F 44 45 52 20 33 29 22 3B 3A 89 31 |, 2 ODER 3)";:.1|
00000890: 30 32 00 AB 10 4E 00 85 41 24 3A 91 C5 28 41 24 |02...N..A$:..(A$|
000008A0: 29 89 38 34 2C 39 34 2C 31 30 32 00 B7 10 50 00 |).84,94,102...P.|
000008B0: 99 51 24 3A 89 37 30 00 FE 10 54 00 99 22 11 4E |.Q$:.70...T..".N|
000008C0: 45 49 4E 2C 20 53 43 48 4C 49 45 53 53 4C 49 43 |EIN, SCHLIESSLIC|
000008D0: 48 20 4D 55 45 53 53 45 4E 20 47 4C 45 49 43 48 |H MUESSEN GLEICH|
000008E0: 20 56 49 45 4C 45 20 57 45 52 54 45 20 49 4D 20 | VIELE WERTE IM |
000008F0: 44 41 54 41 2D 42 45 46 45 48 4C 20 22 2C 00 1C |DATA-BEFEHL ",..|
00000900: 11 56 00 8D 37 3A 59 B2 32 3A 8D 39 30 30 3A 99 |.V..7:Y.2:.900:.|
00000910: A3 32 29 3B 3A 8D 39 31 30 3A 8D 37 00 59 11 58 |.2);:.910:.7.Y.X|
00000920: 00 59 B2 31 35 3A 8D 39 30 30 3A 99 A3 32 31 29 |.Y.15:.900:..21)|
00000930: 22 57 49 45 20 56 41 52 49 41 42 4C 45 4E 20 49 |"WIE VARIABLEN I|
00000940: 4D 20 20 20 52 45 41 44 2D 42 45 46 45 48 4C 20 |M READ-BEFEHL |
00000950: 53 54 45 48 45 4E 2E 22 3B 00 81 11 5A 00 8D 37 |STEHEN.";...Z..7|
00000960: 3A 59 B2 31 3A 8D 39 30 30 3A 99 A3 32 29 3B 3A |:Y.1:.900:..2);:|
00000970: 8D 39 31 30 3A 8D 37 3A 59 B2 31 38 3A 8D 39 30 |.910:.7:Y.18:.90|
00000980: 30 00 B0 11 5C 00 99 22 42 49 54 54 45 2C 20 56 |0...\.."BITTE, V|
00000990: 45 52 53 55 43 48 45 4E 20 53 49 45 20 45 53 20 |ERSUCHEN SIE ES |
000009A0: 4E 4F 43 48 4D 41 4C 21 22 3A 8D 37 3A 89 37 30 |NOCHMAL!":.7:.70|
000009B0: 00 E8 11 5E 00 99 22 11 4E 45 49 4E 2C 20 44 45 |...^..".NEIN, DE|
000009C0: 52 20 57 45 52 54 20 49 4D 20 44 41 54 41 2D 42 |R WERT IM DATA-B|
000009D0: 45 46 45 48 4C 20 49 53 54 20 45 49 4E 20 20 20 |EFEHL IST EIN |
000009E0: 53 54 52 49 4E 47 2C 22 00 11 12 5F 00 8D 37 3A |STRING,"..._..7:|
000009F0: 59 B2 35 3A 8D 39 30 30 3A 99 22 1D 1D 22 3B 3A |Y.5:.900:."..";:|
00000A00: 8D 39 31 30 3A 8D 37 3A 59 B2 31 35 3A 8D 39 30 |.910:.7:Y.15:.90|
00000A10: 30 00 49 12 60 00 99 A3 38 29 22 57 41 45 48 52 |0.I.`...8)"WAEHR|
00000A20: 45 4E 44 20 44 49 45 20 56 41 52 49 41 42 4C 45 |END DIE VARIABLE|
00000A30: 20 49 4D 20 52 45 41 44 2D 20 20 42 45 46 45 48 | IM READ- BEFEH|
00000A40: 4C 22 3A 8D 37 3A 59 B2 34 00 71 12 62 00 8D 39 |L":.7:Y.4.q.b..9|
00000A50: 30 30 3A 99 22 1D 1D 22 3B 3A 8D 39 31 30 3A 8D |00:."..";:.910:.|
00000A60: 37 3A 59 B2 31 36 3A 8D 39 30 30 3A 99 A3 37 29 |7:Y.16:.900:..7)|
00000A70: 3B 00 9C 12 64 00 99 22 45 49 4E 45 20 4E 55 4D |;...d.."EINE NUM|
00000A80: 45 52 49 53 43 48 45 20 56 41 52 49 41 42 4C 45 |ERISCHE VARIABLE|
00000A90: 20 49 53 54 2E 22 3A 99 3A 89 39 32 00 E2 12 66 | IST.":.:.92...f|
00000AA0: 00 99 22 11 52 49 43 48 54 49 47 21 22 3A 99 22 |..".RICHTIG!":."|
00000AB0: 11 49 4E 20 5A 45 49 4C 45 20 12 31 92 20 53 49 |.IN ZEILE .1. SI|
00000AC0: 4E 44 20 5A 55 20 57 45 4E 49 47 45 20 57 45 52 |ND ZU WENIGE WER|
00000AD0: 54 45 20 49 4D 20 44 41 54 41 2D 42 45 46 45 48 |TE IM DATA-BEFEH|
00000AE0: 4C 2E 00 11 13 67 00 99 22 11 49 4E 20 5A 45 49 |L....g..".IN ZEI|
00000AF0: 4C 45 20 12 32 92 20 53 54 49 4D 4D 45 4E 20 41 |LE .2. STIMMEN A|
00000B00: 52 54 20 44 45 53 20 57 45 52 54 45 53 20 55 4E |RT DES WERTES UN|
00000B10: 44 00 3A 13 68 00 99 22 41 52 54 20 44 45 52 20 |D.:.h.."ART DER |
00000B20: 56 41 52 49 41 42 4C 45 4E 20 4E 49 43 48 54 20 |VARIABLEN NICHT |
00000B30: 55 45 42 45 52 45 49 4E 2E 22 00 73 13 D2 00 8D |UEBEREIN.".s....|
00000B40: 37 3A 43 24 B2 22 12 D8 22 3A 8D 33 3A 99 22 11 |7:C$."..":.3:.".|
00000B50: 11 11 11 1D 1D 1D 1D 1D 1D 1D 45 4E 44 45 20 56 |..........ENDE V|
00000B60: 4F 4E 20 4C 45 4B 54 49 4F 4E 20 36 20 54 45 49 |ON LEKTION 6 TEI|
00000B70: 4C 20 31 00 B9 13 D4 00 99 22 11 11 11 11 1D 1D |L 1......"......|
00000B80: 1D 1D 1D 42 49 54 54 45 20 57 41 52 54 45 4E 20 |...BITTE WARTEN |
00000B90: 53 49 45 2C 20 42 49 53 20 54 45 49 4C 20 32 22 |SIE, BIS TEIL 2"|
00000BA0: 3A 99 22 11 11 1D 1D 1D 1D 1D 45 49 4E 47 45 4C |:.".......EINGEL|
00000BB0: 45 53 45 4E 20 49 53 54 2E 00 CF 13 D5 00 99 22 |ESEN IST......."|
00000BC0: 11 11 11 11 11 11 11 11 11 22 3A 89 39 33 30 00 |.........":.930.|
00000BD0: F2 13 84 03 99 22 13 22 3A 81 49 B2 30 A4 59 AB |.....".":.I.0.Y.|
00000BE0: 31 3A 99 22 11 22 3B 3A 82 3A 99 22 91 91 22 3B |1:.".";:.:."..";|
00000BF0: 3A 8E 00 0E 14 8E 03 81 4A B2 31 A4 31 35 3A 99 |:.......J.1.15:.|
00000C00: 22 3E 22 3B 3A 81 49 B2 31 A4 34 30 3A 82 00 2F |">";:.I.1.40:../|
00000C10: 14 93 03 99 22 9D 12 3E 92 9D 22 3B 3A 81 4B B2 |...."..>..";:.K.|
00000C20: 31 A4 32 35 3A 82 3A 82 3A 99 22 20 22 3A 8E 00 |1.25:.:.:." ":..|
00000C30: 75 14 98 03 59 B2 59 31 3A 8D 39 30 30 3A 81 49 |u...Y.Y1:.900:.I|
00000C40: B2 30 A4 59 32 AB 59 31 3A 99 22 20 20 20 20 20 |.0.Y2.Y1:." |
00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C70: 20 20 20 22 3B 00 7B 14 99 03 82 00 86 14 9A 03 | ";.{.........|
00000C80: 8D 39 30 30 3A 8E 00 97 14 A2 03 93 22 54 45 49 |.900:......."TEI|
00000C90: 4C 20 31 36 22 2C 38 00 00 00 01 24 24 24 24 24 |L 16",8....$$$$$|
00000CA0: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000CB0: 24 24 24 24 24 24 24 00 00 41 80 41 24 24 24 24 |$$$$$$$..A.A$$$$|
00000CC0: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000CD0: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000CE0: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000CF0: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000D00: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00000D10: 24 24 24 24 24 24 24 24 24 24 24 2C 22 00 3D 15 |$$$$$$$$$$$,".=.|
00000D20: 67 02 99 22 11 11 1D 54 49 50 50 45 4E 20 53 20 |g.."...TIPPEN S |
00000D30: 22 |" |
.......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:Y.3:.900:.
910:.7:Y.9:.900.L.0...10)"ERHALTEN IHRE
WERTE AUS DEN,INDEN DATA-BEFEHLEN ";.K.1
.."GESPEICHERTEN DATEN.":.7...2.Y.5:.900
:.910:Y.6:.900:.910:.7...4.Y.12:.900:."I
M OBIGEN BEISPIEL WIRD:":....6.." DER
STRING ."Z$"TAGE"Z$". IN .A$.,":....8..
" DIE ZAHL .40. IN .H.,":..>.:.."
DER STRING ."Z$"PREIS"Z$". IN .B$. ":..S
.<.." UND DIE ZAHL .4.75. IN .R. GES
PEICHERT. ". .=.."UM ALLE BENOETIGTEN WE
RTE ZU SPEICHERN...>.."KANN MEHR ALS EIN
DATA-BEFEHL GEGEBEN":."WERDEN. ";:.7...
?.Y1.10:Y2.24:.920;:Y .12:.900.L.B.."DER
VORTEIL EINES READ/DATA-BEFEHLS GEG
ENUEBER EINEM INPUT-BEFEHL";...D.." IST
DIE SPEICHERUNG DER DATEN WAEHREND DES
";...E.."GESAMTEN PROGRAMMABLAUFS.
":.7...F.."..1.. 15 READ X,Y,Z":." 18
DATA 10,20....J..".2.. 11 READ M":." 2
0 DATA "Z$"JA"Z$:."..3.. 16 READ P.F.K..
" 18 READ N":." 20 DATA 16, 29.7."..
.M.."WELCHER DER OBIGEN READ/DATA-BEFEHL
E.IST RICHTIG (1, 2 ODER 3)";:.102...N..
A$:.E(A$).84,94,102...P..Q$:.70...T..".N
EIN, SCHLIESSLICH MUESSEN GLEICH VIELE W
ERTE IM DATA-BEFEHL ",...V..7:Y.2:.900:.
.2);:.910:.7.Y.X.Y.15:.900:..21)"WIE VAR
IABLEN IM READ-BEFEHL STEHEN.";...Z..7
:Y.1:.900:..2);:.910:.7:Y.18:.900...\.."
BITTE, VERSUCHEN SIE ES NOCHMAL!":.7:.70
...^..".NEIN, DER WERT IM DATA-BEFEHL IS
T EIN STRING,"..._..7:Y.5:.900:."..";:
.910:.7:Y.15:.900.I.`...8)"WAEHREND DIE
VARIABLE IM READ- BEFEHL":.7:Y.4.Q.B..9
00:."..";:.910:.7:Y.16:.900:..7);...D.."
EINE NUMERISCHE VARIABLE IST.":.:.92...F
..".RICHTIG!":.".IN ZEILE .1. SIND ZU WE
NIGE WERTE IM DATA-BEFEHL....G..".IN ZEI
LE .2. STIMMEN ART DES WERTES UND.:.H.."
ART DER VARIABLEN NICHT UEBEREIN.".S.R..
7:C$.".X":.3:."...........ENDE VON LEKTI
ON 6 TEIL 1...T..".........BITTE WARTEN
SIE, BIS TEIL 2":.".......EINGELESEN IST
..O.U..".........":.930......".":.I.0.Y.
1:.".";:.:."..";:.......J.1.15:.">";:.I.
1.40:../...."..>..";:.K.1.25:.:.:." ":..
U...Y.Y1:.900:.I.0.Y2.Y1:."
";.{.........
.900:......."TEIL 16",8....$$$$$$$$$$$$$
$$$$$$$$$$$$$$$..A.A$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$,".=.
G.."...TIPPEN S "
> CLICK IMAGE PREVIEW FOR FULL MODAL