BASIC-15
FILE INFORMATION
FILENAME(S): BASIC-15
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 16:11:21
APPEARS ON: 2 disk(s)
FILE HASH
950673ac6b0a5c3ba7041d3e14e9dbaff80c418e1b7a7e1f61d74f8305890d5b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADLER DISK A2 B | BASIC-15 | PRG | BrainSkull, Sammlung | 23 | 0 | DOWNLOAD FILE |
| ADLER DISK A31 B | BASIC-15 | PRG | BrainSkull, Sammlung | 23 | 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 6E 08 02 00 51 24 B2 22 91 20 20 |81,1.n...Q$.". | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 91 91 | ...| 00000060: 22 3A 5A 24 B2 C7 28 33 34 29 3A 89 31 32 00 A0 |":Z$..(34):.12..| 00000070: 08 03 00 99 22 93 1E 22 3A 81 49 B2 31 A4 33 39 |...."..":.I.1.39| 00000080: 3A 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A |:.C$;:.:.I.1.22:| 00000090: 99 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B |.".."C$;:.:.".";| 000000A0: 00 BD 08 04 00 81 49 B2 31 A4 33 38 3A 99 22 9D |......I.1.38:.".| 000000B0: 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 D8 08 |"C$".";:.:.C$...| 000000C0: 05 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 |...I.1.23:."."C$| 000000D0: 22 9D 22 3B 3A 82 3A 8E 00 E9 08 07 00 A1 41 24 |".";:.:.......A$| 000000E0: 3A 8B 41 24 B2 22 22 A7 37 00 F1 08 08 00 99 3A |:.A$."".7......:| 000000F0: 8E 00 1C 09 0C 00 43 24 B2 22 D8 22 3A 8D 33 3A |......C$.".":.3:| 00000100: 99 22 11 11 11 11 11 22 A3 31 35 29 22 1C 4C 45 |.".....".15)".LE| 00000110: 4B 54 49 4F 4E 20 36 11 11 11 22 3A 00 3D 09 0D |KTION 6...":.=..| 00000120: 00 99 A3 31 32 29 22 11 11 1F 31 2E 20 50 52 4F |...12)"...1. PRO| 00000130: 47 52 41 4D 4D 42 45 49 53 50 49 45 4C 00 76 09 |GRAMMBEISPIEL.v.| 00000140: 0E 00 99 A3 31 32 29 22 32 2E 20 52 45 41 44 CE |....12)"2. READ.| 00000150: 44 41 54 41 2D 42 45 46 45 48 4C 45 20 20 20 22 |DATA-BEFEHLE "| 00000160: 3A 99 A3 31 32 29 22 33 2E 20 4D 41 54 52 49 5A |:..12)"3. MATRIZ| 00000170: 45 4E 22 3A 8D 37 00 98 09 10 00 99 22 93 22 A3 |EN":.7......".".| 00000180: 31 31 29 22 81 50 52 4F 47 52 41 4D 4D 42 45 49 |11)".PROGRAMMBEI| 00000190: 53 50 49 45 4C 22 3A 99 00 C9 09 12 00 99 22 1F |SPIEL":.......".| 000001A0: 11 11 11 48 49 45 52 20 45 49 4E 20 50 52 4F 47 |...HIER EIN PROG| 000001B0: 52 41 4D 4D 2C 20 44 41 53 20 44 45 4E 20 4C 4F |RAMM, DAS DEN LO| 000001C0: 48 4E 20 45 49 4E 45 53 22 00 F4 09 14 00 99 22 |HN EINES"......"| 000001D0: 41 52 42 45 49 54 45 52 53 20 42 45 52 45 43 48 |ARBEITERS BERECH| 000001E0: 4E 45 54 3A 11 22 3A 99 22 1E 32 20 20 49 4E 50 |NET:.":.".2 INP| 000001F0: 55 54 20 48 00 41 0A 18 00 99 22 36 20 20 49 46 |UT H.A...."6 IF| 00000200: 20 48 3E 34 30 20 54 48 45 4E 20 31 32 22 3A 99 | H>40 THEN 12":.| 00000210: 22 38 20 20 50 52 49 4E 54 20 22 5A 24 22 44 45 |"8 PRINT "Z$"DE| 00000220: 52 20 41 52 42 45 49 54 45 52 20 42 45 4B 4F 4D |R ARBEITER BEKOM| 00000230: 4D 54 20 44 4D 22 5A 24 22 38 2E 33 35 2A 48 22 |MT DM"Z$"8.35*H"| 00000240: 3B 00 52 0A 19 00 99 22 31 30 20 47 4F 54 4F 20 |;.R...."10 GOTO | 00000250: 31 36 00 7A 0A 1A 00 99 22 31 32 20 4C 45 54 20 |16.z...."12 LET | 00000260: 53 3D 38 2E 33 35 2A 34 30 2B 28 48 2D 34 30 29 |S=8.35*40+(H-40)| 00000270: 2A 38 2E 33 35 2A 31 2E 35 22 00 B4 0A 1B 00 99 |*8.35*1.5"......| 00000280: 22 31 34 20 50 52 49 4E 54 20 22 5A 24 22 44 45 |"14 PRINT "Z$"DE| 00000290: 52 20 41 52 42 45 49 54 45 52 20 42 45 4B 4F 4D |R ARBEITER BEKOM| 000002A0: 4D 54 20 44 4D 22 5A 24 22 53 22 3A 99 22 31 36 |MT DM"Z$"S":."16| 000002B0: 20 45 4E 44 00 E3 0A 1C 00 99 22 11 1F 53 4F 4C | END......"..SOL| 000002C0: 4C 54 45 20 45 53 20 49 48 4E 45 4E 20 53 43 48 |LTE ES IHNEN SCH| 000002D0: 57 45 52 46 41 4C 4C 45 4E 20 53 4F 4C 43 48 20 |WERFALLEN SOLCH | 000002E0: 45 49 4E 00 10 0B 1D 00 99 22 50 52 4F 47 52 41 |EIN......"PROGRA| 000002F0: 4D 4D 20 5A 55 20 53 43 48 52 45 49 42 45 4E 2C |MM ZU SCHREIBEN,| 00000300: 20 4C 45 53 45 4E 20 53 49 45 20 42 49 54 54 45 | LESEN SIE BITTE| 00000310: 00 30 0B 1E 00 99 22 4C 45 4B 54 49 4F 4E 20 35 |.0...."LEKTION 5| 00000320: 20 4E 4F 43 48 45 49 4E 4D 41 4C 2E 22 3A 8D 37 | NOCHEINMAL.":.7| 00000330: 00 73 0B 20 00 99 22 93 22 A3 31 35 29 22 81 52 |.s. ..".".15)".R| 00000340: 45 41 44 CE 44 41 54 41 11 22 3A 99 22 11 11 11 |EAD.DATA.":."...| 00000350: 1F 53 49 45 20 4B 45 4E 4E 45 4E 20 4A 45 54 5A |.SIE KENNEN JETZ| 00000360: 54 20 53 43 48 4F 4E 20 32 20 4D 45 54 48 4F 44 |T SCHON 2 METHOD| 00000370: 45 4E 2C 00 9C 0B 21 00 99 22 44 41 54 45 4E 20 |EN,...!.."DATEN | 00000380: 49 4E 20 44 45 4E 20 43 4F 4D 50 55 54 45 52 20 |IN DEN COMPUTER | 00000390: 45 49 4E 5A 55 47 45 42 45 4E 3A 22 00 C8 0B 22 |EINZUGEBEN:"..."| 000003A0: 00 99 3A 99 22 9C 31 2E 20 49 4E 50 55 54 2D 42 |..:.".1. INPUT-B| 000003B0: 45 46 45 48 4C 20 1F 5A 2E 42 2E 20 12 34 20 49 |EFEHL .Z.B. .4 I| 000003C0: 4E 50 55 54 20 4B 92 22 00 F3 0B 24 00 99 22 9C |NPUT K."...$..".| 000003D0: 32 2E 20 4C 45 54 2D 42 45 46 45 48 4C 20 20 1F |2. LET-BEFEHL .| 000003E0: 20 5A 2E 42 2E 20 12 38 20 4C 45 54 20 48 3D 39 | Z.B. .8 LET H=9| 000003F0: 22 3A 99 00 34 0C 26 00 99 22 4E 55 4E 20 53 4F |":..4.&.."NUN SO| 00000400: 4C 4C 20 49 48 4E 45 4E 20 45 49 4E 45 20 9C 44 |LL IHNEN EINE .D| 00000410: 52 49 54 54 45 20 4D 45 54 48 4F 44 45 1F 20 56 |RITTE METHODE. V| 00000420: 4F 52 2D 20 47 45 53 54 45 4C 4C 54 20 57 45 52 |OR- GESTELLT WER| 00000430: 44 45 4E 2E 00 6B 0C 27 00 99 3A 99 22 5A 55 4E |DEN..k.'..:."ZUN| 00000440: 41 45 43 48 53 54 20 45 49 4E 20 42 45 49 53 50 |AECHST EIN BEISP| 00000450: 49 45 4C 3A 22 3A 8D 37 3A 99 22 93 1E 20 20 32 |IEL:":.7:.".. 2| 00000460: 20 20 52 45 41 44 20 41 24 2C 48 00 A6 0C 28 00 | READ A$,H...(.| 00000470: 99 22 20 20 34 20 20 50 52 49 4E 54 20 41 24 2C |." 4 PRINT A$,| 00000480: 48 22 3A 99 22 20 20 36 20 20 52 45 41 44 20 42 |H":." 6 READ B| 00000490: 24 2C 52 22 3A 99 22 20 20 38 20 20 50 52 49 4E |$,R":." 8 PRIN| 000004A0: 54 20 42 24 2C 52 00 EA 0C 2A 00 99 22 20 31 30 |T B$,R...*.." 10| 000004B0: 20 20 44 41 54 41 20 22 5A 24 22 54 41 47 45 22 | DATA "Z$"TAGE"| 000004C0: 5A 24 22 2C 20 34 30 2C 20 22 5A 24 22 50 52 45 |Z$", 40, "Z$"PRE| 000004D0: 49 53 22 5A 24 3A 99 22 20 31 32 20 20 44 41 54 |IS"Z$:." 12 DAT| 000004E0: 41 20 34 2E 37 35 22 3A 8D 37 00 2E 0D 2C 00 99 |A 4.75":.7...,..| 000004F0: 22 1F 44 49 45 20 49 4E 20 44 45 4E 81 20 52 45 |".DIE IN DEN. RE| 00000500: 41 44 1F 2D 42 45 46 45 48 4C 45 4E 20 53 54 45 |AD.-BEFEHLEN STE| 00000510: 48 45 4E 44 45 4E 20 20 20 20 20 20 56 41 52 49 |HENDEN VARI| 00000520: 41 42 4C 45 4E 22 3B 3A 59 B2 31 3A 8D 37 00 56 |ABLEN";:Y.1:.7.V| 00000530: 0D 2E 00 8D 39 30 30 3A 8D 39 31 30 3A 59 B2 33 |....900:.910:Y.3| 00000540: 3A 8D 39 30 30 3A 8D 39 31 30 3A 8D 37 3A 59 B2 |:.900:.910:.7:Y.| 00000550: 39 3A 8D 39 30 30 00 81 0D 30 00 99 A6 39 29 22 |9:.900...0...9)"| 00000560: 20 45 52 48 41 4C 54 45 4E 20 49 48 52 45 20 57 | ERHALTEN IHRE W| 00000570: 45 52 54 45 20 41 55 53 20 44 45 4E 20 49 4E 22 |ERTE AUS DEN IN"| 00000580: 3B 00 B4 0D 31 00 99 22 44 45 4E 20 81 44 41 54 |;...1.."DEN .DAT| 00000590: 41 1F 2D 42 45 46 45 48 4C 45 4E 20 47 45 53 50 |A.-BEFEHLEN GESP| 000005A0: 45 49 43 48 45 52 54 45 4E 20 44 41 54 45 4E 2E |EICHERTEN DATEN.| 000005B0: 22 3A 8D 37 00 D7 0D 32 00 59 B2 35 3A 8D 39 30 |":.7...2.Y.5:.90| 000005C0: 30 3A 8D 39 31 30 3A 59 B2 36 3A 8D 39 30 30 3A |0:.910:Y.6:.900:| 000005D0: 8D 39 31 30 3A 8D 37 00 03 0E 34 00 59 B2 31 32 |.910:.7...4.Y.12| 000005E0: 3A 8D 39 30 30 3A 99 22 49 4D 20 4F 42 49 47 45 |:.900:."IM OBIGE| 000005F0: 4E 20 42 45 49 53 50 49 45 4C 20 57 49 52 44 3A |N BEISPIEL WIRD:| 00000600: 22 3A 99 00 37 0E 36 00 99 22 20 20 20 20 44 45 |":..7.6.." DE| 00000610: 52 1E 20 53 54 52 49 4E 47 20 12 22 5A 24 22 54 |R. STRING ."Z$"T| 00000620: 41 47 45 22 5A 24 22 92 1F 20 49 4E 20 1E 12 41 |AGE"Z$".. IN ..A| 00000630: 24 92 1F 2C 22 3A 99 00 5E 0E 38 00 99 22 20 20 |$..,":..^.8.." | 00000640: 20 20 44 49 45 1E 20 5A 41 48 4C 20 12 34 30 92 | DIE. ZAHL .40.| 00000650: 1F 20 49 4E 1E 20 12 48 92 1F 2C 22 3A 99 00 92 |. IN. .H..,":...| 00000660: 0E 3A 00 99 22 20 20 20 20 44 45 52 1E 20 53 54 |.:.." DER. ST| 00000670: 52 49 4E 47 20 12 22 5A 24 22 50 52 45 49 53 22 |RING ."Z$"PREIS"| 00000680: 5A 24 22 92 1F 20 49 4E 1E 20 12 42 24 92 20 22 |Z$".. IN. .B$. "| 00000690: 3A 99 00 CC 0E 3C 00 99 22 20 1F 20 20 20 55 4E |:....<.." . UN| 000006A0: 44 20 44 49 45 1E 20 5A 41 48 4C 20 12 34 2E 37 |D DIE. ZAHL .4.7| 000006B0: 35 92 1F 20 49 4E 1E 20 12 52 92 20 1F 20 47 45 |5.. IN. .R. . GE| 000006C0: 53 50 45 49 43 48 45 52 54 2E 20 22 00 FB 0E 3D |SPEICHERT. "...=| 000006D0: 00 99 22 55 4D 20 41 4C 4C 45 20 42 45 4E 4F 45 |.."UM ALLE BENOE| 000006E0: 54 49 47 54 45 4E 20 57 45 52 54 45 20 5A 55 20 |TIGTEN WERTE ZU | 000006F0: 53 50 45 49 43 48 45 52 4E 2C 22 00 38 0F 3E 00 |SPEICHERN,".8.>.| 00000700: 99 22 4B 41 4E 4E 20 4D 45 48 52 20 41 4C 53 20 |."KANN MEHR ALS | 00000710: 45 49 4E 20 44 41 54 41 2D 42 45 46 45 48 4C 20 |EIN DATA-BEFEHL | 00000720: 47 45 47 45 42 45 4E 22 3A 99 22 57 45 52 44 45 |GEGEBEN":."WERDE| 00000730: 4E 2E 20 22 3B 3A 8D 37 00 59 0F 3F 00 59 31 B2 |N. ";:.7.Y.?.Y1.| 00000740: 31 32 3A 59 32 B2 32 34 3A 8D 39 32 30 3B 3A 59 |12:Y2.24:.920;:Y| 00000750: 20 B2 31 32 3A 8D 39 30 30 00 A7 0F 42 00 99 22 | .12:.900...B.."| 00000760: 44 45 52 20 56 4F 52 54 45 49 4C 20 45 49 4E 45 |DER VORTEIL EINE| 00000770: 53 20 52 45 41 44 2F 44 41 54 41 2D 42 45 46 45 |S READ/DATA-BEFE| 00000780: 48 4C 53 20 20 20 20 20 47 45 47 45 4E 55 45 42 |HLS GEGENUEB| 00000790: 45 52 20 45 49 4E 45 4D 20 49 4E 50 55 54 2D 42 |ER EINEM INPUT-B| 000007A0: 45 46 45 48 4C 22 3B 00 E4 0F 44 00 99 22 20 49 |EFEHL";...D.." I| 000007B0: 53 54 20 44 49 45 20 20 20 81 53 50 45 49 43 48 |ST DIE .SPEICH| 000007C0: 45 52 55 4E 47 20 44 45 52 20 44 41 54 45 4E 20 |ERUNG DER DATEN | 000007D0: 57 41 45 48 52 45 4E 44 20 44 45 53 20 20 20 20 |WAEHREND DES | 000007E0: 20 20 22 3B 00 08 10 45 00 99 22 47 45 53 41 4D | ";...E.."GESAM| 000007F0: 54 45 4E 20 50 52 4F 47 52 41 4D 4D 41 42 4C 41 |TEN PROGRAMMABLA| 00000800: 55 46 53 2E 22 3A 8D 37 00 38 10 46 00 99 22 93 |UFS.":.7.8.F..".| 00000810: 12 1E 31 2E 92 20 31 35 20 52 45 41 44 20 58 2C |..1.. 15 READ X,| 00000820: 59 2C 5A 22 3A 99 22 20 20 20 31 38 20 44 41 54 |Y,Z":." 18 DAT| 00000830: 41 20 31 30 2C 32 30 11 00 77 10 4A 00 99 22 12 |A 10,20..w.J..".| 00000840: 32 2E 92 20 31 31 20 52 45 41 44 20 4D 22 3A 99 |2.. 11 READ M":.| 00000850: 22 20 20 20 32 30 20 44 41 54 41 20 22 5A 24 22 |" 20 DATA "Z$"| 00000860: 4A 41 22 5A 24 3A 99 22 11 12 33 2E 92 20 31 36 |JA"Z$:."..3.. 16| 00000870: 20 52 45 41 44 20 50 00 A3 10 4B 00 99 22 20 20 | READ P...K.." | 00000880: 20 31 38 20 52 45 41 44 20 4E 22 3A 99 22 20 20 | 18 READ N":." | 00000890: 20 32 30 20 44 41 54 41 20 31 36 2C 20 32 39 2E | 20 DATA 16, 29.| 000008A0: 37 11 22 00 F0 10 4D 00 99 22 1F 57 45 4C 43 48 |7."...M..".WELCH| 000008B0: 45 52 20 44 45 52 20 4F 42 49 47 45 4E 20 52 45 |ER DER OBIGEN RE| 000008C0: 41 44 2F 44 41 54 41 2D 42 45 46 45 48 4C 45 22 |AD/DATA-BEFEHLE"| 000008D0: 3A 85 22 49 53 54 20 52 49 43 48 54 49 47 20 28 |:."IST RICHTIG (| 000008E0: 31 2C 20 32 20 4F 44 45 52 20 33 29 22 3B 41 24 |1, 2 ODER 3)";A$| 000008F0: 00 05 11 4E 00 91 C5 28 41 24 29 89 38 34 2C 39 |...N...(A$).84,9| 00000900: 34 2C 31 30 32 00 11 11 50 00 99 51 24 3A 89 37 |4,102...P..Q$:.7| 00000910: 30 00 5A 11 54 00 99 22 11 81 4E 45 49 4E 1F 2C |0.Z.T.."..NEIN.,| 00000920: 20 53 43 48 4C 49 45 53 53 4C 49 43 48 20 4D 55 | SCHLIESSLICH MU| 00000930: 45 53 53 45 4E 20 47 4C 45 49 43 48 20 56 49 45 |ESSEN GLEICH VIE| 00000940: 4C 45 20 57 45 52 54 45 20 49 4D 20 44 41 54 41 |LE WERTE IM DATA| 00000950: 2D 42 45 46 45 48 4C 20 22 3B 00 78 11 56 00 8D |-BEFEHL ";.x.V..| 00000960: 37 3A 59 B2 32 3A 8D 39 30 30 3A 99 A3 32 29 3B |7:Y.2:.900:..2);| 00000970: 3A 8D 39 31 30 3A 8D 37 00 B5 11 58 00 59 B2 31 |:.910:.7...X.Y.1| 00000980: 35 3A 8D 39 30 30 3A 99 A6 32 31 29 22 57 49 45 |5:.900:..21)"WIE| 00000990: 20 56 41 52 49 41 42 4C 45 4E 20 49 4D 20 20 20 | VARIABLEN IM | 000009A0: 52 45 41 44 2D 42 45 46 45 48 4C 20 53 54 45 48 |READ-BEFEHL STEH| 000009B0: 45 4E 2E 22 3B 00 DD 11 5A 00 8D 37 3A 59 B2 31 |EN.";...Z..7:Y.1| 000009C0: 3A 8D 39 30 30 3A 99 A3 32 29 3B 3A 8D 39 31 30 |:.900:..2);:.910| 000009D0: 3A 8D 37 3A 59 B2 31 38 3A 8D 39 30 30 00 0C 12 |:.7:Y.18:.900...| 000009E0: 5C 00 99 22 42 49 54 54 45 2C 20 56 45 52 53 55 |\.."BITTE, VERSU| 000009F0: 43 48 45 4E 20 53 49 45 20 45 53 20 4E 4F 43 48 |CHEN SIE ES NOCH| 00000A00: 4D 41 4C 21 22 3A 8D 37 3A 89 37 30 00 46 12 5E |MAL!":.7:.70.F.^| 00000A10: 00 99 22 11 81 4E 45 49 4E 1F 2C 20 44 45 52 20 |.."..NEIN., DER | 00000A20: 57 45 52 54 20 49 4D 20 44 41 54 41 2D 42 45 46 |WERT IM DATA-BEF| 00000A30: 45 48 4C 20 49 53 54 20 45 49 4E 20 20 20 53 54 |EHL IST EIN ST| 00000A40: 52 49 4E 47 2C 22 00 6F 12 5F 00 8D 37 3A 59 B2 |RING,".o._..7:Y.| 00000A50: 35 3A 8D 39 30 30 3A 99 22 1D 1D 22 3B 3A 8D 39 |5:.900:."..";:.9| 00000A60: 31 30 3A 8D 37 3A 59 B2 31 35 3A 8D 39 30 30 00 |10:.7:Y.15:.900.| 00000A70: A7 12 60 00 99 A6 38 29 22 57 41 45 48 52 45 4E |..`...8)"WAEHREN| 00000A80: 44 20 44 49 45 20 56 41 52 49 41 42 4C 45 20 49 |D DIE VARIABLE I| 00000A90: 4D 20 52 45 41 44 2D 20 20 42 45 46 45 48 4C 22 |M READ- BEFEHL"| 00000AA0: 3A 8D 37 3A 59 B2 34 00 CF 12 62 00 8D 39 30 30 |:.7:Y.4...b..900| 00000AB0: 3A 99 22 1D 1D 22 3B 3A 8D 39 31 30 3A 8D 37 3A |:."..";:.910:.7:| 00000AC0: 59 B2 31 36 3A 8D 39 30 30 3A 99 A3 37 29 3B 00 |Y.16:.900:..7);.| 00000AD0: FA 12 64 00 99 22 45 49 4E 45 20 4E 55 4D 45 52 |..d.."EINE NUMER| 00000AE0: 49 53 43 48 45 20 56 41 52 49 41 42 4C 45 20 49 |ISCHE VARIABLE I| 00000AF0: 53 54 2E 22 3A 99 3A 89 39 32 00 42 13 66 00 99 |ST.":.:.92.B.f..| 00000B00: 22 11 1E 52 49 43 48 54 49 47 21 22 3A 99 22 11 |"..RICHTIG!":.".| 00000B10: 1F 42 45 49 20 12 31 92 20 53 49 4E 44 20 5A 55 |.BEI .1. SIND ZU| 00000B20: 20 57 45 4E 49 47 45 20 57 45 52 54 45 20 49 4D | WENIGE WERTE IM| 00000B30: 20 44 41 54 41 2D 22 3A 99 22 42 45 46 45 48 4C | DATA-":."BEFEHL| 00000B40: 2E 22 00 71 13 67 00 99 22 11 42 45 49 20 12 32 |.".q.g..".BEI .2| 00000B50: 92 20 53 54 49 4D 4D 45 4E 20 41 52 54 20 44 45 |. STIMMEN ART DE| 00000B60: 53 20 57 45 52 54 45 53 20 55 4E 44 20 41 52 54 |S WERTES UND ART| 00000B70: 22 00 96 13 68 00 99 22 44 45 52 20 56 41 52 49 |"...h.."DER VARI| 00000B80: 41 42 4C 45 4E 20 4E 49 43 48 54 20 55 45 42 45 |ABLEN NICHT UEBE| 00000B90: 52 45 49 4E 2E 22 00 D0 13 D2 00 8D 37 3A 43 24 |REIN."......7:C$| 00000BA0: B2 22 12 D8 22 3A 8D 33 3A 99 22 11 11 11 11 1D |."..":.3:.".....| 00000BB0: 1D 1D 1D 1D 1D 1D 1C 45 4E 44 45 20 56 4F 4E 20 |.......ENDE VON | 00000BC0: 4C 45 4B 54 49 4F 4E 20 36 20 54 45 49 4C 20 31 |LEKTION 6 TEIL 1| 00000BD0: 00 14 14 D4 00 99 22 11 11 11 1D 1D 1D 1D 1D 1F |......".........| 00000BE0: 42 49 54 54 45 20 57 41 52 54 45 4E 20 53 49 45 |BITTE WARTEN SIE| 00000BF0: 2C 20 42 49 53 20 54 45 49 4C 20 32 22 3A 99 22 |, BIS TEIL 2":."| 00000C00: 1D 1D 1D 1D 1D 45 49 4E 47 45 4C 45 53 45 4E 20 |.....EINGELESEN | 00000C10: 49 53 54 2E 00 2C 14 D5 00 99 22 11 11 11 11 11 |IST..,....".....| 00000C20: 11 11 11 11 11 11 22 3A 89 39 33 30 00 4F 14 84 |......":.930.O..| 00000C30: 03 99 22 13 22 3A 81 49 B2 30 A4 59 AB 31 3A 99 |..".":.I.0.Y.1:.| 00000C40: 22 11 22 3B 3A 82 3A 99 22 91 91 22 3B 3A 8E 00 |".";:.:."..";:..| 00000C50: 6B 14 8E 03 81 4A B2 31 A4 31 35 3A 99 22 3E 22 |k....J.1.15:.">"| 00000C60: 3B 3A 81 49 B2 31 A4 34 30 3A 82 00 8C 14 93 03 |;:.I.1.40:......| 00000C70: 99 22 9D 12 3E 92 9D 22 3B 3A 81 4B B2 31 A4 32 |."..>..";:.K.1.2| 00000C80: 35 3A 82 3A 82 3A 99 22 20 22 3A 8E 00 D2 14 98 |5:.:.:." ":.....| 00000C90: 03 59 B2 59 31 3A 8D 39 30 30 3A 81 49 B2 30 A4 |.Y.Y1:.900:.I.0.| 00000CA0: 59 32 AB 59 31 3A 99 22 20 20 20 20 20 20 20 20 |Y2.Y1:." | 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CD0: 22 3B 00 D8 14 99 03 82 00 E3 14 9A 03 8D 39 30 |";............90| 00000CE0: 30 3A 8E 00 F5 14 A2 03 93 22 42 41 53 49 43 2D |0:......."BASIC-| 00000CF0: 31 37 22 2C 38 00 00 00 01 52 |17",8....R |
.......45,B(174):.46,B(175):.:.788,52:.6
57,128.D....53280,1:.53281,1.N...Q$.".
...":Z$.G(34):.12. ....".."
:.I.1.39:.C$;:.:.I.1.22:.".."C$;:.:.".";
......I.1.38:."."C$".";:.:.C$.X....I.1.2
3:."."C$".";:.:.......A$:.A$."".7......:
......C$."X":.3:.".....".15)".LEKTION 6.
..":.=.....12)"...1. PROGRAMMBEISPIEL.V.
....12)"2. READNDATA-BEFEHLE ":..12)"3
. MATRIZEN":.7......".".11)".PROGRAMMBEI
SPIEL":..I...."....HIER EIN PROGRAMM, DA
S DEN LOHN EINES"......"ARBEITERS BERECH
NET:.":.".2 INPUT H.A...."6 IF H>40 TH
EN 12":."8 PRINT "Z$"DER ARBEITER BEKOM
MT DM"Z$"8.35*H";.R...."10 GOTO 16.Z....
"12 LET S=8.35*40+(H-40)*8.35*1.5"......
"14 PRINT "Z$"DER ARBEITER BEKOMMT DM"Z$
"S":."16 END......"..SOLLTE ES IHNEN SCH
WERFALLEN SOLCH EIN......"PROGRAMM ZU SC
HREIBEN, LESEN SIE BITTE.0...."LEKTION 5
NOCHEINMAL.":.7.S. ..".".15)".READNDATA
.":."....SIE KENNEN JETZT SCHON 2 METHOD
EN,...!.."DATEN IN DEN COMPUTER EINZUGEB
EN:".H."..:.".1. INPUT-BEFEHL .Z.B. .4 I
NPUT K."...$..".2. LET-BEFEHL . Z.B. .8
LET H=9":..4.&.."NUN SOLL IHNEN EINE .D
RITTE METHODE. VOR- GESTELLT WERDEN..K.'
..:."ZUNAECHST EIN BEISPIEL:":.7:.".. 2
READ A$,H...(.." 4 PRINT A$,H":." 6
READ B$,R":." 8 PRINT B$,R...*.." 10
DATA "Z$"TAGE"Z$", 40, "Z$"PREIS"Z$:."
12 DATA 4.75":.7...,..".DIE IN DEN. RE
AD.-BEFEHLEN STEHENDEN VARIABLEN";:
Y.1:.7.V....900:.910:Y.3:.900:.910:.7:Y.
9:.900...0...9)" ERHALTEN IHRE WERTE AUS
DEN IN";...1.."DEN .DATA.-BEFEHLEN GESP
EICHERTEN DATEN.":.7.W.2.Y.5:.900:.910:Y
.6:.900:.910:.7...4.Y.12:.900:."IM OBIGE
N BEISPIEL WIRD:":..7.6.." DER. STRIN
G ."Z$"TAGE"Z$".. IN ..A$..,":..^.8.."
DIE. ZAHL .40.. IN. .H..,":....:.."
DER. STRING ."Z$"PREIS"Z$".. IN. .B$. "
:..L.<.." . UND DIE. ZAHL .4.75.. IN.
.R. . GESPEICHERT. "...=.."UM ALLE BENOE
TIGTEN WERTE ZU SPEICHERN,".8.>.."KANN M
EHR ALS EIN DATA-BEFEHL GEGEBEN":."WERDE
N. ";:.7.Y.?.Y1.12:Y2.24:.920;:Y .12:.90
0...B.."DER VORTEIL EINES READ/DATA-BEFE
HLS GEGENUEBER EINEM INPUT-BEFEHL";.
..D.." IST DIE .SPEICHERUNG DER DATEN
WAEHREND DES ";...E.."GESAMTEN PROG
RAMMABLAUFS.":.7.8.F.."...1.. 15 READ X,
Y,Z":." 18 DATA 10,20..W.J..".2.. 11 R
EAD M":." 20 DATA "Z$"JA"Z$:."..3.. 16
READ P...K.." 18 READ N":." 20 DATA
16, 29.7."...M..".WELCHER DER OBIGEN RE
AD/DATA-BEFEHLE":."IST RICHTIG (1, 2 ODE
R 3)";A$...N..E(A$).84,94,102...P..Q$:.7
0.Z.T.."..NEIN., SCHLIESSLICH MUESSEN GL
EICH VIELE WERTE IM DATA-BEFEHL ";.X.V..
7:Y.2:.900:..2);:.910:.7...X.Y.15:.900:.
.21)"WIE VARIABLEN IM READ-BEFEHL STEH
EN.";...Z..7:Y.1:.900:..2);:.910:.7:Y.18
:.900...\.."BITTE, VERSUCHEN SIE ES NOCH
MAL!":.7:.70.F.^.."..NEIN., DER WERT IM
DATA-BEFEHL IST EIN STRING,".O._..7:Y.
5:.900:."..";:.910:.7:Y.15:.900...`...8)
"WAEHREND DIE VARIABLE IM READ- BEFEHL"
:.7:Y.4.O.B..900:."..";:.910:.7:Y.16:.90
0:..7);...D.."EINE NUMERISCHE VARIABLE I
ST.":.:.92.B.F.."..RICHTIG!":."..BEI .1.
SIND ZU WENIGE WERTE IM DATA-":."BEFEHL
.".Q.G..".BEI .2. STIMMEN ART DES WERTES
UND ART"...H.."DER VARIABLEN NICHT UEBE
REIN.".P.R..7:C$.".X":.3:."............E
NDE VON LEKTION 6 TEIL 1...T..".........
BITTE WARTEN SIE, BIS TEIL 2":.".....EIN
GELESEN IST..,.U.."...........":.930.O..
..".":.I.0.Y.1:.".";:.:."..";:..K....J.1
.15:.">";:.I.1.40:......."..>..";:.K.1.2
5:.:.:." ":..R...Y.Y1:.900:.I.0.Y2.Y1:."
";.X..........900:......."BASIC-17",8...
.R
> CLICK IMAGE PREVIEW FOR FULL MODAL