6/1LEKTION.8
FILE INFORMATION
FILENAME(S): 6/1LEKTION.8
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 16:15:15
APPEARS ON: 2 disk(s)
FILE HASH
dbf50a60485dced2dfc6f5c7ee38028c119e8512aba56aa7a120e83cd051f759
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIELE 6 | 6/1LEKTION.8 | PRG | BrainSkull, Andraes Maurer | 23 | 11 | DOWNLOAD FILE |
| BASIC KURS | 6/1LEKTION.8 | PRG | BrainSkull, Andraes Maurer | 23 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 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: 08 14 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 1E 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 39 30 00 A0 |":Z$..(34):.90..| 00000070: 08 28 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 32 00 81 49 B2 31 A4 33 38 3A 99 22 9D |...2..I.1.38:.".| 000000B0: 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 D8 08 |"C$".";:.:.C$...| 000000C0: 3C 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 EA 08 46 00 A1 41 24 |".";:.:....F..A$| 000000E0: 3A 8B 41 24 B2 22 22 A7 37 30 00 F2 08 50 00 99 |:.A$."".70...P..| 000000F0: 3A 8E 00 1E 09 5A 00 43 24 B2 22 D8 22 3A 8D 34 |:....Z.C$.".":.4| 00000100: 30 3A 99 22 11 11 11 11 11 22 A3 31 35 29 22 1C |0:.".....".15)".| 00000110: 4C 45 4B 54 49 4F 4E 20 36 11 11 11 22 3A 00 3F |LEKTION 6...":.?| 00000120: 09 64 00 99 A3 31 32 29 22 11 11 1F 31 2E 20 50 |.d...12)"...1. P| 00000130: 52 4F 47 52 41 4D 4D 42 45 49 53 50 49 45 4C 00 |ROGRAMMBEISPIEL.| 00000140: 79 09 6E 00 99 A3 31 32 29 22 32 2E 20 52 45 41 |y.n...12)"2. REA| 00000150: 44 CE 44 41 54 41 2D 42 45 46 45 48 4C 45 20 20 |D.DATA-BEFEHLE | 00000160: 20 22 3A 99 A3 31 32 29 22 33 2E 20 4D 41 54 52 | ":..12)"3. MATR| 00000170: 49 5A 45 4E 22 3A 8D 37 30 00 9B 09 78 00 99 22 |IZEN":.70...x.."| 00000180: 93 22 A3 31 31 29 22 81 50 52 4F 47 52 41 4D 4D |.".11)".PROGRAMM| 00000190: 42 45 49 53 50 49 45 4C 22 3A 99 00 CC 09 82 00 |BEISPIEL":......| 000001A0: 99 22 1F 11 11 11 48 49 45 52 20 45 49 4E 20 50 |."....HIER EIN P| 000001B0: 52 4F 47 52 41 4D 4D 2C 20 44 41 53 20 44 45 4E |ROGRAMM, DAS DEN| 000001C0: 20 4C 4F 48 4E 20 45 49 4E 45 53 22 00 F7 09 8C | LOHN EINES"....| 000001D0: 00 99 22 41 52 42 45 49 54 45 52 53 20 42 45 52 |.."ARBEITERS BER| 000001E0: 45 43 48 4E 45 54 3A 11 22 3A 99 22 1E 32 20 20 |ECHNET:.":.".2 | 000001F0: 49 4E 50 55 54 20 48 00 44 0A 96 00 99 22 36 20 |INPUT H.D...."6 | 00000200: 20 49 46 20 48 3E 34 30 20 54 48 45 4E 20 31 32 | IF H>40 THEN 12| 00000210: 22 3A 99 22 38 20 20 50 52 49 4E 54 20 22 5A 24 |":."8 PRINT "Z$| 00000220: 22 44 45 52 20 41 52 42 45 49 54 45 52 20 42 45 |"DER ARBEITER BE| 00000230: 4B 4F 4D 4D 54 20 44 4D 22 5A 24 22 38 2E 33 35 |KOMMT DM"Z$"8.35| 00000240: 2A 48 22 3B 00 55 0A A0 00 99 22 31 30 20 47 4F |*H";.U...."10 GO| 00000250: 54 4F 20 31 36 00 7D 0A AA 00 99 22 31 32 20 4C |TO 16.}...."12 L| 00000260: 45 54 20 53 3D 38 2E 33 35 2A 34 30 2B 28 48 2D |ET S=8.35*40+(H-| 00000270: 34 30 29 2A 38 2E 33 35 2A 31 2E 35 22 00 B7 0A |40)*8.35*1.5"...| 00000280: B4 00 99 22 31 34 20 50 52 49 4E 54 20 22 5A 24 |..."14 PRINT "Z$| 00000290: 22 44 45 52 20 41 52 42 45 49 54 45 52 20 42 45 |"DER ARBEITER BE| 000002A0: 4B 4F 4D 4D 54 20 44 4D 22 5A 24 22 53 22 3A 99 |KOMMT DM"Z$"S":.| 000002B0: 22 31 36 20 45 4E 44 00 E6 0A BE 00 99 22 11 1F |"16 END......"..| 000002C0: 53 4F 4C 4C 54 45 20 45 53 20 49 48 4E 45 4E 20 |SOLLTE ES IHNEN | 000002D0: 53 43 48 57 45 52 46 41 4C 4C 45 4E 20 53 4F 4C |SCHWERFALLEN SOL| 000002E0: 43 48 20 45 49 4E 00 13 0B C8 00 99 22 50 52 4F |CH EIN......"PRO| 000002F0: 47 52 41 4D 4D 20 5A 55 20 53 43 48 52 45 49 42 |GRAMM ZU SCHREIB| 00000300: 45 4E 2C 20 4C 45 53 45 4E 20 53 49 45 20 42 49 |EN, LESEN SIE BI| 00000310: 54 54 45 00 34 0B D2 00 99 22 4C 45 4B 54 49 4F |TTE.4...."LEKTIO| 00000320: 4E 20 35 20 4E 4F 43 48 45 49 4E 4D 41 4C 2E 22 |N 5 NOCHEINMAL."| 00000330: 3A 8D 37 30 00 77 0B DC 00 99 22 93 22 A3 31 35 |:.70.w....".".15| 00000340: 29 22 81 52 45 41 44 CE 44 41 54 41 11 22 3A 99 |)".READ.DATA.":.| 00000350: 22 11 11 11 1F 53 49 45 20 4B 45 4E 4E 45 4E 20 |"....SIE KENNEN | 00000360: 4A 45 54 5A 54 20 53 43 48 4F 4E 20 32 20 4D 45 |JETZT SCHON 2 ME| 00000370: 54 48 4F 44 45 4E 2C 00 A0 0B E6 00 99 22 44 41 |THODEN,......"DA| 00000380: 54 45 4E 20 49 4E 20 44 45 4E 20 43 4F 4D 50 55 |TEN IN DEN COMPU| 00000390: 54 45 52 20 45 49 4E 5A 55 47 45 42 45 4E 3A 22 |TER EINZUGEBEN:"| 000003A0: 00 CC 0B F0 00 99 3A 99 22 9C 31 2E 20 49 4E 50 |......:.".1. INP| 000003B0: 55 54 2D 42 45 46 45 48 4C 20 1F 5A 2E 42 2E 20 |UT-BEFEHL .Z.B. | 000003C0: 12 34 20 49 4E 50 55 54 20 4B 92 22 00 F7 0B FA |.4 INPUT K."....| 000003D0: 00 99 22 9C 32 2E 20 4C 45 54 2D 42 45 46 45 48 |..".2. LET-BEFEH| 000003E0: 4C 20 20 1F 20 5A 2E 42 2E 20 12 38 20 4C 45 54 |L . Z.B. .8 LET| 000003F0: 20 48 3D 39 22 3A 99 00 38 0C 04 01 99 22 4E 55 | H=9":..8...."NU| 00000400: 4E 20 53 4F 4C 4C 20 49 48 4E 45 4E 20 45 49 4E |N SOLL IHNEN EIN| 00000410: 45 20 9C 44 52 49 54 54 45 20 4D 45 54 48 4F 44 |E .DRITTE METHOD| 00000420: 45 1F 20 56 4F 52 2D 20 47 45 53 54 45 4C 4C 54 |E. VOR- GESTELLT| 00000430: 20 57 45 52 44 45 4E 2E 00 70 0C 0E 01 99 3A 99 | WERDEN..p....:.| 00000440: 22 5A 55 4E 41 45 43 48 53 54 20 45 49 4E 20 42 |"ZUNAECHST EIN B| 00000450: 45 49 53 50 49 45 4C 3A 22 3A 8D 37 30 3A 99 22 |EISPIEL:":.70:."| 00000460: 93 1E 20 20 32 20 20 52 45 41 44 20 41 24 2C 48 |.. 2 READ A$,H| 00000470: 00 AB 0C 18 01 99 22 20 20 34 20 20 50 52 49 4E |......" 4 PRIN| 00000480: 54 20 41 24 2C 48 22 3A 99 22 20 20 36 20 20 52 |T A$,H":." 6 R| 00000490: 45 41 44 20 42 24 2C 52 22 3A 99 22 20 20 38 20 |EAD B$,R":." 8 | 000004A0: 20 50 52 49 4E 54 20 42 24 2C 52 00 F0 0C 22 01 | PRINT B$,R...".| 000004B0: 99 22 20 31 30 20 20 44 41 54 41 20 22 5A 24 22 |." 10 DATA "Z$"| 000004C0: 54 41 47 45 22 5A 24 22 2C 20 34 30 2C 20 22 5A |TAGE"Z$", 40, "Z| 000004D0: 24 22 50 52 45 49 53 22 5A 24 3A 99 22 20 31 32 |$"PREIS"Z$:." 12| 000004E0: 20 20 44 41 54 41 20 34 2E 37 35 22 3A 8D 37 30 | DATA 4.75":.70| 000004F0: 00 35 0D 2C 01 99 22 1F 44 49 45 20 49 4E 20 44 |.5.,..".DIE IN D| 00000500: 45 4E 81 20 52 45 41 44 1F 2D 42 45 46 45 48 4C |EN. READ.-BEFEHL| 00000510: 45 4E 20 53 54 45 48 45 4E 44 45 4E 20 20 20 20 |EN STEHENDEN | 00000520: 20 20 56 41 52 49 41 42 4C 45 4E 22 3B 3A 59 B2 | VARIABLEN";:Y.| 00000530: 31 3A 8D 37 30 00 5E 0D 36 01 8D 36 38 30 3A 8D |1:.70.^.6..680:.| 00000540: 36 39 30 3A 59 B2 33 3A 8D 36 38 30 3A 8D 36 39 |690:Y.3:.680:.69| 00000550: 30 3A 8D 37 30 3A 59 B2 39 3A 8D 36 38 30 00 89 |0:.70:Y.9:.680..| 00000560: 0D 40 01 99 A6 39 29 22 20 45 52 48 41 4C 54 45 |.@...9)" ERHALTE| 00000570: 4E 20 49 48 52 45 20 57 45 52 54 45 20 41 55 53 |N IHRE WERTE AUS| 00000580: 20 44 45 4E 20 49 4E 22 3B 00 BD 0D 4A 01 99 22 | DEN IN";...J.."| 00000590: 44 45 4E 20 81 44 41 54 41 1F 2D 42 45 46 45 48 |DEN .DATA.-BEFEH| 000005A0: 4C 45 4E 20 47 45 53 50 45 49 43 48 45 52 54 45 |LEN GESPEICHERTE| 000005B0: 4E 20 44 41 54 45 4E 2E 22 3A 8D 37 30 00 E1 0D |N DATEN.":.70...| 000005C0: 54 01 59 B2 35 3A 8D 36 38 30 3A 8D 36 39 30 3A |T.Y.5:.680:.690:| 000005D0: 59 B2 36 3A 8D 36 38 30 3A 8D 36 39 30 3A 8D 37 |Y.6:.680:.690:.7| 000005E0: 30 00 0D 0E 5E 01 59 B2 31 32 3A 8D 36 38 30 3A |0...^.Y.12:.680:| 000005F0: 99 22 49 4D 20 4F 42 49 47 45 4E 20 42 45 49 53 |."IM OBIGEN BEIS| 00000600: 50 49 45 4C 20 57 49 52 44 3A 22 3A 99 00 41 0E |PIEL WIRD:":..A.| 00000610: 68 01 99 22 20 20 20 20 44 45 52 1E 20 53 54 52 |h.." DER. STR| 00000620: 49 4E 47 20 12 22 5A 24 22 54 41 47 45 22 5A 24 |ING ."Z$"TAGE"Z$| 00000630: 22 92 1F 20 49 4E 20 1E 12 41 24 92 1F 2C 22 3A |".. IN ..A$..,":| 00000640: 99 00 68 0E 72 01 99 22 20 20 20 20 44 49 45 1E |..h.r.." DIE.| 00000650: 20 5A 41 48 4C 20 12 34 30 92 1F 20 49 4E 1E 20 | ZAHL .40.. IN. | 00000660: 12 48 92 1F 2C 22 3A 99 00 9C 0E 7C 01 99 22 20 |.H..,":....|.." | 00000670: 20 20 20 44 45 52 1E 20 53 54 52 49 4E 47 20 12 | DER. STRING .| 00000680: 22 5A 24 22 50 52 45 49 53 22 5A 24 22 92 1F 20 |"Z$"PREIS"Z$".. | 00000690: 49 4E 1E 20 12 42 24 92 20 22 3A 99 00 D6 0E 86 |IN. .B$. ":.....| 000006A0: 01 99 22 20 1F 20 20 20 55 4E 44 20 44 49 45 1E |.." . UND DIE.| 000006B0: 20 5A 41 48 4C 20 12 34 2E 37 35 92 1F 20 49 4E | ZAHL .4.75.. IN| 000006C0: 1E 20 12 52 92 20 1F 20 47 45 53 50 45 49 43 48 |. .R. . GESPEICH| 000006D0: 45 52 54 2E 20 22 00 05 0F 90 01 99 22 55 4D 20 |ERT. "......"UM | 000006E0: 41 4C 4C 45 20 42 45 4E 4F 45 54 49 47 54 45 4E |ALLE BENOETIGTEN| 000006F0: 20 57 45 52 54 45 20 5A 55 20 53 50 45 49 43 48 | WERTE ZU SPEICH| 00000700: 45 52 4E 2C 22 00 43 0F 9A 01 99 22 4B 41 4E 4E |ERN,".C...."KANN| 00000710: 20 4D 45 48 52 20 41 4C 53 20 45 49 4E 20 44 41 | MEHR ALS EIN DA| 00000720: 54 41 2D 42 45 46 45 48 4C 20 47 45 47 45 42 45 |TA-BEFEHL GEGEBE| 00000730: 4E 22 3A 99 22 57 45 52 44 45 4E 2E 20 22 3B 3A |N":."WERDEN. ";:| 00000740: 8D 37 30 00 64 0F A4 01 59 31 B2 31 32 3A 59 32 |.70.d...Y1.12:Y2| 00000750: B2 32 34 3A 8D 37 31 30 3B 3A 59 20 B2 31 32 3A |.24:.710;:Y .12:| 00000760: 8D 36 38 30 00 B2 0F AE 01 99 22 44 45 52 20 56 |.680......"DER V| 00000770: 4F 52 54 45 49 4C 20 45 49 4E 45 53 20 52 45 41 |ORTEIL EINES REA| 00000780: 44 2F 44 41 54 41 2D 42 45 46 45 48 4C 53 20 20 |D/DATA-BEFEHLS | 00000790: 20 20 20 47 45 47 45 4E 55 45 42 45 52 20 45 49 | GEGENUEBER EI| 000007A0: 4E 45 4D 20 49 4E 50 55 54 2D 42 45 46 45 48 4C |NEM INPUT-BEFEHL| 000007B0: 22 3B 00 EF 0F B8 01 99 22 20 49 53 54 20 44 49 |";......" IST DI| 000007C0: 45 20 20 20 81 53 50 45 49 43 48 45 52 55 4E 47 |E .SPEICHERUNG| 000007D0: 20 44 45 52 20 44 41 54 45 4E 20 57 41 45 48 52 | DER DATEN WAEHR| 000007E0: 45 4E 44 20 44 45 53 20 20 20 20 20 20 22 3B 00 |END DES ";.| 000007F0: 14 10 C2 01 99 22 47 45 53 41 4D 54 45 4E 20 50 |....."GESAMTEN P| 00000800: 52 4F 47 52 41 4D 4D 41 42 4C 41 55 46 53 2E 22 |ROGRAMMABLAUFS."| 00000810: 3A 8D 37 30 00 44 10 CC 01 99 22 93 12 1E 31 2E |:.70.D...."...1.| 00000820: 92 20 31 35 20 52 45 41 44 20 58 2C 59 2C 5A 22 |. 15 READ X,Y,Z"| 00000830: 3A 99 22 20 20 20 31 38 20 44 41 54 41 20 31 30 |:." 18 DATA 10| 00000840: 2C 32 30 11 00 83 10 D6 01 99 22 12 32 2E 92 20 |,20.......".2.. | 00000850: 31 31 20 52 45 41 44 20 4D 22 3A 99 22 20 20 20 |11 READ M":." | 00000860: 32 30 20 44 41 54 41 20 22 5A 24 22 4A 41 22 5A |20 DATA "Z$"JA"Z| 00000870: 24 3A 99 22 11 12 33 2E 92 20 31 36 20 52 45 41 |$:."..3.. 16 REA| 00000880: 44 20 50 00 AF 10 E0 01 99 22 20 20 20 31 38 20 |D P......" 18 | 00000890: 52 45 41 44 20 4E 22 3A 99 22 20 20 20 32 30 20 |READ N":." 20 | 000008A0: 44 41 54 41 20 31 36 2C 20 32 39 2E 37 11 22 00 |DATA 16, 29.7.".| 000008B0: FC 10 EA 01 99 22 1F 57 45 4C 43 48 45 52 20 44 |.....".WELCHER D| 000008C0: 45 52 20 4F 42 49 47 45 4E 20 52 45 41 44 2F 44 |ER OBIGEN READ/D| 000008D0: 41 54 41 2D 42 45 46 45 48 4C 45 22 3A 85 22 49 |ATA-BEFEHLE":."I| 000008E0: 53 54 20 52 49 43 48 54 49 47 20 28 31 2C 20 32 |ST RICHTIG (1, 2| 000008F0: 20 4F 44 45 52 20 33 29 22 3B 41 24 00 13 11 F4 | ODER 3)";A$....| 00000900: 01 91 C5 28 41 24 29 89 35 32 30 2C 35 37 30 2C |...(A$).520,570,| 00000910: 36 32 30 00 20 11 FE 01 99 51 24 3A 89 34 36 30 |620. ....Q$:.460| 00000920: 00 69 11 08 02 99 22 11 81 4E 45 49 4E 1F 2C 20 |.i...."..NEIN., | 00000930: 53 43 48 4C 49 45 53 53 4C 49 43 48 20 4D 55 45 |SCHLIESSLICH MUE| 00000940: 53 53 45 4E 20 47 4C 45 49 43 48 20 56 49 45 4C |SSEN GLEICH VIEL| 00000950: 45 20 57 45 52 54 45 20 49 4D 20 44 41 54 41 2D |E WERTE IM DATA-| 00000960: 42 45 46 45 48 4C 20 22 3B 00 89 11 12 02 8D 37 |BEFEHL ";......7| 00000970: 30 3A 59 B2 32 3A 8D 36 38 30 3A 99 A3 32 29 3B |0:Y.2:.680:..2);| 00000980: 3A 8D 36 39 30 3A 8D 37 30 00 C6 11 1C 02 59 B2 |:.690:.70.....Y.| 00000990: 31 35 3A 8D 36 38 30 3A 99 A6 32 31 29 22 57 49 |15:.680:..21)"WI| 000009A0: 45 20 56 41 52 49 41 42 4C 45 4E 20 49 4D 20 20 |E VARIABLEN IM | 000009B0: 20 52 45 41 44 2D 42 45 46 45 48 4C 20 53 54 45 | READ-BEFEHL STE| 000009C0: 48 45 4E 2E 22 3B 00 F0 11 26 02 8D 37 30 3A 59 |HEN.";...&..70:Y| 000009D0: B2 31 3A 8D 36 38 30 3A 99 A3 32 29 3B 3A 8D 36 |.1:.680:..2);:.6| 000009E0: 39 30 3A 8D 37 30 3A 59 B2 31 38 3A 8D 36 38 30 |90:.70:Y.18:.680| 000009F0: 00 21 12 30 02 99 22 42 49 54 54 45 2C 20 56 45 |.!.0.."BITTE, VE| 00000A00: 52 53 55 43 48 45 4E 20 53 49 45 20 45 53 20 4E |RSUCHEN SIE ES N| 00000A10: 4F 43 48 4D 41 4C 21 22 3A 8D 37 30 3A 89 34 36 |OCHMAL!":.70:.46| 00000A20: 30 00 5B 12 3A 02 99 22 11 81 4E 45 49 4E 1F 2C |0.[.:.."..NEIN.,| 00000A30: 20 44 45 52 20 57 45 52 54 20 49 4D 20 44 41 54 | DER WERT IM DAT| 00000A40: 41 2D 42 45 46 45 48 4C 20 49 53 54 20 45 49 4E |A-BEFEHL IST EIN| 00000A50: 20 20 20 53 54 52 49 4E 47 2C 22 00 86 12 44 02 | STRING,"...D.| 00000A60: 8D 37 30 3A 59 B2 35 3A 8D 36 38 30 3A 99 22 1D |.70:Y.5:.680:.".| 00000A70: 1D 22 3B 3A 8D 36 39 30 3A 8D 37 30 3A 59 B2 31 |.";:.690:.70:Y.1| 00000A80: 35 3A 8D 36 38 30 00 BF 12 4E 02 99 A6 38 29 22 |5:.680...N...8)"| 00000A90: 57 41 45 48 52 45 4E 44 20 44 49 45 20 56 41 52 |WAEHREND DIE VAR| 00000AA0: 49 41 42 4C 45 20 49 4D 20 52 45 41 44 2D 20 20 |IABLE IM READ- | 00000AB0: 42 45 46 45 48 4C 22 3A 8D 37 30 3A 59 B2 34 00 |BEFEHL":.70:Y.4.| 00000AC0: E8 12 58 02 8D 36 38 30 3A 99 22 1D 1D 22 3B 3A |..X..680:."..";:| 00000AD0: 8D 36 39 30 3A 8D 37 30 3A 59 B2 31 36 3A 8D 36 |.690:.70:Y.16:.6| 00000AE0: 38 30 3A 99 A3 37 29 3B 00 14 13 62 02 99 22 45 |80:..7);...b.."E| 00000AF0: 49 4E 45 20 4E 55 4D 45 52 49 53 43 48 45 20 56 |INE NUMERISCHE V| 00000B00: 41 52 49 41 42 4C 45 20 49 53 54 2E 22 3A 99 3A |ARIABLE IST.":.:| 00000B10: 89 35 36 30 00 5C 13 6C 02 99 22 11 1E 52 49 43 |.560.\.l.."..RIC| 00000B20: 48 54 49 47 21 22 3A 99 22 11 1F 42 45 49 20 12 |HTIG!":."..BEI .| 00000B30: 31 92 20 53 49 4E 44 20 5A 55 20 57 45 4E 49 47 |1. SIND ZU WENIG| 00000B40: 45 20 57 45 52 54 45 20 49 4D 20 44 41 54 41 2D |E WERTE IM DATA-| 00000B50: 22 3A 99 22 42 45 46 45 48 4C 2E 22 00 8B 13 76 |":."BEFEHL."...v| 00000B60: 02 99 22 11 42 45 49 20 12 32 92 20 53 54 49 4D |..".BEI .2. STIM| 00000B70: 4D 45 4E 20 41 52 54 20 44 45 53 20 57 45 52 54 |MEN ART DES WERT| 00000B80: 45 53 20 55 4E 44 20 41 52 54 22 00 B0 13 80 02 |ES UND ART".....| 00000B90: 99 22 44 45 52 20 56 41 52 49 41 42 4C 45 4E 20 |."DER VARIABLEN | 00000BA0: 4E 49 43 48 54 20 55 45 42 45 52 45 49 4E 2E 22 |NICHT UEBEREIN."| 00000BB0: 00 EC 13 8A 02 8D 37 30 3A 43 24 B2 22 12 D8 22 |......70:C$.".."| 00000BC0: 3A 8D 34 30 3A 99 22 11 11 11 11 1D 1D 1D 1D 1D |:.40:.".........| 00000BD0: 1D 1D 1C 45 4E 44 45 20 56 4F 4E 20 4C 45 4B 54 |...ENDE VON LEKT| 00000BE0: 49 4F 4E 20 36 20 54 45 49 4C 20 31 00 30 14 94 |ION 6 TEIL 1.0..| 00000BF0: 02 99 22 11 11 11 1D 1D 1D 1D 1D 1F 42 49 54 54 |..".........BITT| 00000C00: 45 20 57 41 52 54 45 4E 20 53 49 45 2C 20 42 49 |E WARTEN SIE, BI| 00000C10: 53 20 54 45 49 4C 20 32 22 3A 99 22 1D 1D 1D 1D |S TEIL 2":."....| 00000C20: 1D 45 49 4E 47 45 4C 45 53 45 4E 20 49 53 54 2E |.EINGELESEN IST.| 00000C30: 00 48 14 9E 02 99 22 11 11 11 11 11 11 11 11 11 |.H....".........| 00000C40: 11 11 22 3A 89 37 34 30 00 6B 14 A8 02 99 22 13 |..":.740.k....".| 00000C50: 22 3A 81 49 B2 30 A4 59 AB 31 3A 99 22 11 22 3B |":.I.0.Y.1:.".";| 00000C60: 3A 82 3A 99 22 91 91 22 3B 3A 8E 00 87 14 B2 02 |:.:."..";:......| 00000C70: 81 4A B2 31 A4 31 35 3A 99 22 3E 22 3B 3A 81 49 |.J.1.15:.">";:.I| 00000C80: B2 31 A4 34 30 3A 82 00 A8 14 BC 02 99 22 9D 12 |.1.40:......."..| 00000C90: 3E 92 9D 22 3B 3A 81 4B B2 31 A4 32 35 3A 82 3A |>..";:.K.1.25:.:| 00000CA0: 82 3A 99 22 20 22 3A 8E 00 EE 14 C6 02 59 B2 59 |.:." ":......Y.Y| 00000CB0: 31 3A 8D 36 38 30 3A 81 49 B2 30 A4 59 32 AB 59 |1:.680:.I.0.Y2.Y| 00000CC0: 31 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |1:." | 00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CE0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 F4 | ";..| 00000CF0: 14 D0 02 82 00 FF 14 DA 02 8D 36 38 30 3A 8E 00 |..........680:..| 00000D00: 15 15 E4 02 93 22 36 2F 32 4C 45 4B 54 49 4F 4E |....."6/2LEKTION| 00000D10: 2E 38 22 2C 38 00 00 00 40 40 |.8",8...@@ |
.......45,B(174):.46,B(175):.:.788,52:.6
57,128.D....53280,1:.53281,1.N...Q$.".
...":Z$.G(34):.90. .(..".."
:.I.1.39:.C$;:.:.I.1.22:.".."C$;:.:.".";
...2..I.1.38:."."C$".";:.:.C$.X.<..I.1.2
3:."."C$".";:.:....F..A$:.A$."".70...P..
:....Z.C$."X":.40:.".....".15)".LEKTION
6...":.?.D...12)"...1. PROGRAMMBEISPIEL.
Y.N...12)"2. READNDATA-BEFEHLE ":..12)
"3. MATRIZEN":.70...X..".".11)".PROGRAMM
BEISPIEL":..L...."....HIER EIN PROGRAMM,
DAS DEN LOHN EINES"......"ARBEITERS BER
ECHNET:.":.".2 INPUT H.D...."6 IF H>40
THEN 12":."8 PRINT "Z$"DER ARBEITER BE
KOMMT DM"Z$"8.35*H";.U. .."10 GOTO 16.}.
..."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
SCHWERFALLEN SOLCH EIN...H.."PROGRAMM ZU
SCHREIBEN, LESEN SIE BITTE.4.R.."LEKTIO
N 5 NOCHEINMAL.":.70.W....".".15)".READN
DATA.":."....SIE KENNEN JETZT SCHON 2 ME
THODEN,. ...."DATEN IN DEN COMPUTER EINZ
UGEBEN:".L....:.".1. INPUT-BEFEHL .Z.B.
.4 INPUT K."......".2. LET-BEFEHL . Z.B
. .8 LET H=9":..8...."NUN SOLL IHNEN EIN
E .DRITTE METHODE. VOR- GESTELLT WERDEN.
.P....:."ZUNAECHST EIN BEISPIEL:":.70:."
.. 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":.70.5.,..".DIE IN D
EN. READ.-BEFEHLEN STEHENDEN VARIAB
LEN";:Y.1:.70.^.6..680:.690:Y.3:.680:.69
0:.70:Y.9:.680...@...9)" ERHALTEN IHRE W
ERTE AUS DEN IN";...J.."DEN .DATA.-BEFEH
LEN GESPEICHERTEN DATEN.":.70...T.Y.5:.6
80:.690:Y.6:.680:.690:.70...^.Y.12:.680:
."IM OBIGEN BEISPIEL WIRD:":..A.H.."
DER. STRING ."Z$"TAGE"Z$".. IN ..A$..,":
..H.R.." DIE. ZAHL .40.. IN. .H..,":.
...|.." DER. STRING ."Z$"PREIS"Z$"..
IN. .B$. ":..V...." . UND DIE. ZAHL .4
.75.. IN. .R. . GESPEICHERT. "......"UM
ALLE BENOETIGTEN WERTE ZU SPEICHERN,".C.
..."KANN MEHR ALS EIN DATA-BEFEHL GEGEBE
N":."WERDEN. ";:.70.D...Y1.12:Y2.24:.710
;:Y .12:.680......"DER VORTEIL EINES REA
D/DATA-BEFEHLS GEGENUEBER EINEM INPU
T-BEFEHL";......" IST DIE .SPEICHERUNG
DER DATEN WAEHREND DES ";...B.."GE
SAMTEN PROGRAMMABLAUFS.":.70.D.L.."...1.
. 15 READ X,Y,Z":." 18 DATA 10,20....V
..".2.. 11 READ M":." 20 DATA "Z$"JA"Z
$:."..3.. 16 READ P......" 18 READ N":
." 20 DATA 16, 29.7."......".WELCHER D
ER OBIGEN READ/DATA-BEFEHLE":."IST RICHT
IG (1, 2 ODER 3)";A$......E(A$).520,570,
620. ....Q$:.460.I...."..NEIN., SCHLIESS
LICH MUESSEN GLEICH VIELE WERTE IM DATA-
BEFEHL ";......70:Y.2:.680:..2);:.690:.7
0.F...Y.15:.680:..21)"WIE VARIABLEN IM
READ-BEFEHL STEHEN.";...&..70:Y.1:.680:
..2);:.690:.70:Y.18:.680.!.0.."BITTE, VE
RSUCHEN SIE ES NOCHMAL!":.70:.460.[.:.."
..NEIN., DER WERT IM DATA-BEFEHL IST EIN
STRING,"...D..70:Y.5:.680:."..";:.690
:.70:Y.15:.680...N...8)"WAEHREND DIE VAR
IABLE IM READ- BEFEHL":.70:Y.4...X..680
:."..";:.690:.70:Y.16:.680:..7);...B.."E
INE NUMERISCHE VARIABLE IST.":.:.560.\.L
.."..RICHTIG!":."..BEI .1. SIND ZU WENIG
E WERTE IM DATA-":."BEFEHL."...V..".BEI
.2. STIMMEN ART DES WERTES UND ART".....
."DER VARIABLEN NICHT UEBEREIN."......70
:C$.".X":.40:."............ENDE VON LEKT
ION 6 TEIL 1.0....".........BITTE WARTEN
SIE, BIS TEIL 2":.".....EINGELESEN IST.
.H...."...........":.740.K....".":.I.0.Y
.1:.".";:.:."..";:.......J.1.15:.">";:.I
.1.40:......."..>..";:.K.1.25:.:.:." ":.
...F.Y.Y1:.680:.I.0.Y2.Y1:."
";...P.....Z
..680:......."6/2LEKTION.8",8...@@
> CLICK IMAGE PREVIEW FOR FULL MODAL