8/1LEKTION.8
FILE INFORMATION
FILENAME(S): 8/1LEKTION.8
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 16:15:15
APPEARS ON: 2 disk(s)
FILE HASH
a29f713eee4ea765ac42141ea5af9759a3c9fb8231a3f04a113f51d8841e0f3d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIELE 6 | 8/1LEKTION.8 | PRG | BrainSkull, Andraes Maurer | 25 | 0 | DOWNLOAD FILE |
| BASIC KURS | 8/1LEKTION.8 | PRG | BrainSkull, Andraes Maurer | 25 | 0 | 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 52 |88,52:.657,128.R| 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 3A 5A 24 B2 C7 28 33 34 29 3A 89 31 |81,1:Z$..(34):.1| 00000050: 33 30 00 80 08 1E 00 59 B2 55 31 3A 8D 31 30 30 |30.....Y.U1:.100| 00000060: 3A 99 22 CF 22 3A 81 49 B2 30 A4 55 32 AB 55 31 |:.".":.I.0.U2.U1| 00000070: AB 32 3A 99 22 A5 22 3A 82 3A 99 22 CC 22 3A 8E |.2:.".":.:.".":.| 00000080: 00 B2 08 28 00 99 22 93 1E 22 3A 81 49 B2 31 A4 |...(.."..":.I.1.| 00000090: 33 39 3A 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 |39:.C$;:.:.I.1.2| 000000A0: 32 3A 99 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D |2:.".."C$;:.:.".| 000000B0: 22 3B 00 CF 08 32 00 81 49 B2 31 A4 33 38 3A 99 |";...2..I.1.38:.| 000000C0: 22 9D 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 |"."C$".";:.:.C$.| 000000D0: EA 08 3C 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 |..<..I.1.23:."."| 000000E0: 43 24 22 9D 22 3B 3A 82 3A 8E 00 0C 09 46 00 59 |C$".";:.:....F.Y| 000000F0: B2 55 31 3A 8D 31 30 30 3A 81 49 B2 30 A4 55 32 |.U1:.100:.I.0.U2| 00000100: AB 55 31 3A 99 22 20 22 3A 82 3A 8E 00 1E 09 50 |.U1:." ":.:....P| 00000110: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 30 00 26 |..A$:.A$."".80.&| 00000120: 09 5A 00 99 3A 8E 00 49 09 64 00 99 22 13 22 3A |.Z..:..I.d..".":| 00000130: 81 49 B2 30 A4 59 AB 31 3A 99 22 11 22 3B 3A 82 |.I.0.Y.1:.".";:.| 00000140: 3A 99 22 91 91 22 3B 3A 8E 00 8F 09 6E 00 59 B2 |:."..";:....n.Y.| 00000150: 59 31 3A 8D 31 30 30 3A 81 49 B2 31 A4 59 32 AB |Y1:.100:.I.1.Y2.| 00000160: 59 31 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |Y1:." | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 00 | ":..| 00000190: 9A 09 78 00 8D 31 30 30 3A 8E 00 C5 09 82 00 43 |..x..100:......C| 000001A0: 24 B2 22 23 22 3A 8D 34 30 3A 99 22 11 11 11 11 |$."#":.40:."....| 000001B0: 22 A3 31 35 29 22 1C 4C 45 4B 54 49 4F 4E 20 38 |".15)".LEKTION 8| 000001C0: 11 11 11 11 22 00 FE 09 8C 00 99 A3 31 32 29 22 |....".......12)"| 000001D0: 1F 31 2E 20 50 52 4F 47 52 41 4D 4D 42 45 49 53 |.1. PROGRAMMBEIS| 000001E0: 50 49 45 4C 22 3A 99 A3 31 32 29 22 32 2E 20 47 |PIEL":..12)"2. G| 000001F0: 4F 53 55 42 2E 2E 2E 52 45 54 55 52 4E 22 00 2F |OSUB...RETURN"./| 00000200: 0A 96 00 99 A3 31 32 29 22 33 2E 20 4F 4E 2E 2E |.....12)"3. ON..| 00000210: 2E 47 4F 54 4F 22 3A 99 A3 31 32 29 22 34 2E 20 |.GOTO":..12)"4. | 00000220: 4F 4E 2E 2E 2E 47 4F 53 55 42 22 3A 8D 38 30 00 |ON...GOSUB":.80.| 00000230: 78 0A A0 00 99 22 93 22 A3 31 31 29 22 1C 50 52 |x....".".11)".PR| 00000240: 4F 47 52 41 4D 4D 42 45 49 53 50 49 45 4C 11 22 |OGRAMMBEISPIEL."| 00000250: 3A 99 22 1F 45 53 20 46 4F 4C 47 54 20 4E 55 4E |:.".ES FOLGT NUN| 00000260: 20 45 49 4E 20 50 52 4F 47 52 41 4D 4D 42 45 49 | EIN PROGRAMMBEI| 00000270: 53 50 49 45 4C 2C 22 3B 00 A7 0A AA 00 99 22 20 |SPIEL,";......" | 00000280: 44 41 53 20 20 44 49 45 20 5A 41 48 4C 45 4E 20 |DAS DIE ZAHLEN | 00000290: 31 20 42 49 53 20 31 30 30 20 49 4E 20 44 49 45 |1 BIS 100 IN DIE| 000002A0: 20 45 49 4E 45 22 3B 00 E6 0A B4 00 99 22 20 52 | EINE";......" R| 000002B0: 45 49 48 45 20 20 44 52 55 43 4B 54 20 55 4E 44 |EIHE DRUCKT UND| 000002C0: 20 44 49 45 20 51 55 41 44 52 41 54 45 20 49 4E | DIE QUADRATE IN| 000002D0: 20 44 49 45 20 52 45 49 48 45 20 20 20 20 44 41 | DIE REIHE DA| 000002E0: 4E 45 42 45 4E 2E 00 05 0B BE 00 99 22 11 22 3A |NEBEN.......".":| 000002F0: 99 22 1E 31 20 46 4F 52 20 49 20 3D 20 31 20 54 |.".1 FOR I = 1 T| 00000300: 4F 20 31 30 30 00 29 0B C8 00 99 22 32 20 50 52 |O 100.)...."2 PR| 00000310: 49 4E 54 20 49 2C 20 49 2A 49 22 3A 99 22 33 20 |INT I, I*I":."3 | 00000320: 4E 45 58 54 22 3A 8D 38 30 00 73 0B D2 00 99 22 |NEXT":.80.s...."| 00000330: 93 22 A3 31 30 29 22 1C 47 4F 53 55 42 2E 2E 2E |.".10)".GOSUB...| 00000340: 52 45 54 55 52 4E 11 22 3A 99 22 1F 47 52 4F 45 |RETURN.":.".GROE| 00000350: 53 53 45 52 45 20 50 52 4F 47 52 41 4D 4D 45 20 |SSERE PROGRAMME | 00000360: 42 45 4E 4F 45 54 49 47 45 4E 20 48 41 45 55 46 |BENOETIGEN HAEUF| 00000370: 49 47 22 00 C0 0B DC 00 99 22 44 49 45 20 57 49 |IG"......"DIE WI| 00000380: 45 44 45 52 48 4F 4C 55 4E 47 20 45 49 4E 45 52 |EDERHOLUNG EINER| 00000390: 20 47 41 4E 5A 45 4E 20 47 52 55 50 50 45 20 56 | GANZEN GRUPPE V| 000003A0: 4F 4E 22 3B 3A 99 22 42 45 46 45 48 4C 45 4E 81 |ON";:."BEFEHLEN.| 000003B0: 20 28 53 55 42 52 4F 55 54 49 4E 45 29 2E 11 22 | (SUBROUTINE).."| 000003C0: 00 EE 0B E6 00 99 22 1F 55 4D 20 44 45 4D 20 43 |......".UM DEM C| 000003D0: 4F 4D 50 55 54 45 52 20 4D 49 54 5A 55 54 45 49 |OMPUTER MITZUTEI| 000003E0: 4C 45 4E 2C 20 44 41 53 53 20 45 49 4E 45 00 3F |LEN, DASS EINE.?| 000003F0: 0C F0 00 99 22 81 53 55 42 52 4F 55 54 49 4E 45 |....".SUBROUTINE| 00000400: 1F 20 41 55 53 47 45 46 55 45 48 52 54 20 57 45 |. AUSGEFUEHRT WE| 00000410: 52 44 45 4E 20 53 4F 4C 4C 2C 22 3A 99 22 57 49 |RDEN SOLL,":."WI| 00000420: 52 44 20 44 45 52 20 42 45 46 45 48 4C 81 20 47 |RD DER BEFEHL. G| 00000430: 4F 53 55 42 1F 20 42 45 4E 55 54 5A 54 2E 22 00 |OSUB. BENUTZT.".| 00000440: 6A 0C FA 00 99 22 11 45 49 4E 20 81 47 4F 53 55 |j....".EIN .GOSU| 00000450: 42 1F 2D 42 45 46 45 48 4C 20 48 41 54 20 44 41 |B.-BEFEHL HAT DA| 00000460: 53 20 46 4F 52 4D 41 54 3A 11 00 92 0C 04 01 99 |S FORMAT:.......| 00000470: 22 81 20 20 12 5A 45 49 4C 45 4E 23 31 92 20 47 |". .ZEILEN#1. G| 00000480: 4F 53 55 42 20 12 5A 45 49 4C 45 4E 23 32 92 22 |OSUB .ZEILEN#2."| 00000490: 3A 99 00 E0 0C 0E 01 99 22 1F 42 45 49 20 41 55 |:.......".BEI AU| 000004A0: 53 46 55 45 48 52 55 4E 47 20 56 4F 4E 20 12 5A |SFUEHRUNG VON .Z| 000004B0: 45 49 4C 45 4E 23 31 92 20 53 50 52 49 4E 47 54 |EILEN#1. SPRINGT| 000004C0: 22 3A 99 22 44 45 52 20 43 4F 4D 50 55 54 45 52 |":."DER COMPUTER| 000004D0: 20 5A 55 20 12 5A 45 49 4C 45 4E 23 32 92 11 22 | ZU .ZEILEN#2.."| 000004E0: 00 0A 0D 18 01 99 22 55 4E 44 20 46 55 45 48 52 |......"UND FUEHR| 000004F0: 54 20 44 49 45 20 41 4E 57 45 49 53 55 4E 47 45 |T DIE ANWEISUNGE| 00000500: 4E 20 81 42 49 53 20 5A 55 4D 00 35 0D 22 01 99 |N .BIS ZUM.5."..| 00000510: 22 4E 41 45 43 48 53 54 45 4E 20 52 45 54 55 52 |"NAECHSTEN RETUR| 00000520: 4E 2D 42 45 46 45 48 4C 1F 20 41 55 53 2C 20 44 |N-BEFEHL. AUS, D| 00000530: 41 4E 41 43 48 00 81 0D 2C 01 99 22 53 50 52 49 |ANACH...,.."SPRI| 00000540: 4E 47 54 20 44 45 52 20 43 4F 4D 50 55 54 45 52 |NGT DER COMPUTER| 00000550: 20 5A 55 20 44 45 4D 20 42 45 46 45 48 4C 2C 20 | ZU DEM BEFEHL, | 00000560: 44 45 52 22 3A 99 22 44 45 4D 81 20 47 4F 53 55 |DER":."DEM. GOSU| 00000570: 42 1F 2D 42 45 46 45 48 4C 20 46 4F 4C 47 54 2E |B.-BEFEHL FOLGT.| 00000580: 22 00 9F 0D 36 01 8D 38 30 3A 81 49 B2 31 A4 31 |"...6..80:.I.1.1| 00000590: 31 3A 99 3A 82 3A 99 22 91 22 3B 3A 8D 38 30 00 |1:.:.:.".";:.80.| 000005A0: D8 0D 40 01 59 B2 31 34 3A 8D 31 30 30 3A 99 22 |..@.Y.14:.100:."| 000005B0: 44 49 45 20 47 52 55 50 50 45 20 56 4F 4E 20 42 |DIE GRUPPE VON B| 000005C0: 45 46 45 48 4C 45 4E 2C 20 44 49 45 20 41 42 20 |EFEHLEN, DIE AB | 000005D0: 5A 45 49 4C 45 23 32 22 00 1A 0E 4A 01 99 22 42 |ZEILE#2"...J.."B| 000005E0: 49 53 20 5A 55 4D 20 52 45 54 55 52 4E 2D 42 45 |IS ZUM RETURN-BE| 000005F0: 46 45 48 4C 20 53 54 45 48 54 2C 20 48 45 49 53 |FEHL STEHT, HEIS| 00000600: 53 54 20 45 49 4E 45 22 3B 3A 99 22 81 12 53 55 |ST EINE";:."..SU| 00000610: 42 52 4F 55 54 49 4E 45 2E 11 00 5D 0E 54 01 99 |BROUTINE...].T..| 00000620: 22 1F 44 45 52 81 20 52 45 54 55 52 4E 1F 2D 42 |".DER. RETURN.-B| 00000630: 45 46 45 48 4C 20 48 41 54 20 44 41 53 20 46 4F |EFEHL HAT DAS FO| 00000640: 52 4D 41 54 3A 11 22 3A 99 22 81 20 20 12 5A 45 |RMAT:.":.". .ZE| 00000650: 49 4C 45 4E 23 92 20 52 45 54 55 52 4E 00 97 0E |ILEN#. RETURN...| 00000660: 5E 01 99 22 11 1F 42 45 54 52 41 43 48 54 45 4E |^.."..BETRACHTEN| 00000670: 20 53 49 45 20 4E 55 4E 20 44 41 53 20 46 4F 4C | SIE NUN DAS FOL| 00000680: 47 45 4E 44 45 22 3A 99 22 50 52 4F 47 52 41 4D |GENDE":."PROGRAM| 00000690: 4D 3A 22 3A 8D 38 30 00 E5 0E 68 01 99 22 93 1E |M:":.80...h.."..| 000006A0: 20 32 20 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 | 2 FOR I=1 TO 1| 000006B0: 30 30 22 3A 99 22 20 34 20 20 49 4E 50 55 54 20 |00":." 4 INPUT | 000006C0: 4E 24 2C 20 48 2C 20 52 22 3A 99 22 20 36 20 20 |N$, H, R":." 6 | 000006D0: 47 4F 53 55 42 20 31 32 22 3A 99 22 20 38 20 20 |GOSUB 12":." 8 | 000006E0: 4E 45 58 54 22 00 30 0F 72 01 99 22 20 31 30 20 |NEXT".0.r.." 10 | 000006F0: 47 4F 54 4F 20 32 32 22 3A 99 22 20 31 31 20 52 |GOTO 22":." 11 R| 00000700: 45 4D 20 4C 4F 48 4E 53 55 4D 4D 45 4E 2D 53 55 |EM LOHNSUMMEN-SU| 00000710: 42 52 4F 55 54 49 4E 45 22 3A 99 22 20 31 32 20 |BROUTINE":." 12 | 00000720: 49 46 20 48 3E 34 30 20 54 48 45 4E 20 31 38 22 |IF H>40 THEN 18"| 00000730: 00 5A 0F 7C 01 99 22 20 31 34 20 50 52 49 4E 54 |.Z.|.." 14 PRINT| 00000740: 20 4E 24 20 22 5A 24 22 20 56 45 52 44 49 45 4E | N$ "Z$" VERDIEN| 00000750: 54 20 22 5A 24 22 20 48 2A 52 00 8F 0F 86 01 99 |T "Z$" H*R......| 00000760: 22 20 31 36 20 52 45 54 55 52 4E 22 3A 99 22 20 |" 16 RETURN":." | 00000770: 31 38 20 4C 45 54 20 53 3D 20 34 30 2A 52 20 2B |18 LET S= 40*R +| 00000780: 20 28 48 2D 34 30 29 2A 31 2E 35 20 2A 20 52 00 | (H-40)*1.5 * R.| 00000790: CF 0F 90 01 99 22 20 32 30 20 50 52 49 4E 54 20 |....." 20 PRINT | 000007A0: 4E 24 20 22 5A 24 22 56 45 52 44 49 45 4E 54 22 |N$ "Z$"VERDIENT"| 000007B0: 5A 24 22 20 53 22 3A 99 22 20 32 31 20 52 45 54 |Z$" S":." 21 RET| 000007C0: 55 52 4E 22 3A 99 22 20 32 32 20 45 4E 44 22 00 |URN":." 22 END".| 000007D0: D7 0F 9A 01 8D 38 30 00 18 10 A4 01 99 22 1F 44 |.....80......".D| 000007E0: 49 45 53 45 53 20 50 52 4F 47 52 41 4D 4D 20 42 |IESES PROGRAMM B| 000007F0: 45 52 45 43 48 4E 45 54 20 44 45 4E 20 4C 4F 48 |ERECHNET DEN LOH| 00000800: 4E 22 3A 99 22 46 55 45 52 20 31 30 30 20 41 52 |N":."FUER 100 AR| 00000810: 42 45 49 54 45 52 2E 22 00 36 10 AE 01 8D 38 30 |BEITER.".6....80| 00000820: 3A 59 31 B2 31 35 3A 59 32 B2 32 35 3A 8D 31 31 |:Y1.15:Y2.25:.11| 00000830: 30 3A 8D 31 30 30 00 66 10 B8 01 99 22 49 4E 20 |0:.100.f...."IN | 00000840: 1E 5A 45 49 4C 45 20 34 1F 20 57 49 52 44 20 44 |.ZEILE 4. WIRD D| 00000850: 49 45 20 45 49 4E 47 41 42 45 20 44 45 53 20 4E |IE EINGABE DES N| 00000860: 41 4D 45 4E 53 2C 00 A4 10 C2 01 99 22 44 45 52 |AMENS,......"DER| 00000870: 20 41 52 42 45 49 54 53 53 54 55 4E 44 45 4E 20 | ARBEITSSTUNDEN | 00000880: 55 4E 44 20 44 45 53 20 47 45 48 41 4C 54 53 22 |UND DES GEHALTS"| 00000890: 3A 99 22 45 52 4D 4F 45 47 4C 49 43 48 54 2E 22 |:."ERMOEGLICHT."| 000008A0: 3A 8D 38 30 00 ED 10 CC 01 99 22 1E 5A 45 49 4C |:.80......".ZEIL| 000008B0: 45 20 36 1F 20 53 4F 52 47 54 20 46 55 45 52 20 |E 6. SORGT FUER | 000008C0: 44 45 4E 20 53 50 52 55 4E 47 20 4E 41 43 48 22 |DEN SPRUNG NACH"| 000008D0: 3A 99 22 1E 5A 45 49 4C 45 20 31 32 1F 2E 22 3A |:.".ZEILE 12..":| 000008E0: 8D 38 30 3A 55 31 B2 33 3A 55 32 B2 37 00 F5 10 |.80:U1.3:U2.7...| 000008F0: D6 01 8D 33 30 00 32 11 E0 01 8D 31 31 30 3A 59 |...30.2....110:Y| 00000900: B2 31 35 3A 8D 31 30 30 3A 99 22 49 4E 20 1E 5A |.15:.100:."IN .Z| 00000910: 45 49 4C 45 20 31 32 1F 20 57 49 52 44 20 46 45 |EILE 12. WIRD FE| 00000920: 53 54 47 45 53 54 45 4C 4C 54 2C 20 4F 42 20 44 |STGESTELLT, OB D| 00000930: 45 52 00 6D 11 EA 01 99 22 41 52 42 45 49 54 45 |ER.m...."ARBEITE| 00000940: 52 20 4D 45 48 52 20 41 4C 53 20 34 30 20 53 54 |R MEHR ALS 40 ST| 00000950: 55 4E 44 45 4E 20 47 45 41 52 42 45 49 54 45 54 |UNDEN GEARBEITET| 00000960: 22 3A 99 22 48 41 54 2E 22 3A 8D 38 30 00 9D 11 |":."HAT.":.80...| 00000970: F4 01 99 22 57 45 4E 4E 20 4A 41 2C 20 53 4F 20 |..."WENN JA, SO | 00000980: 57 49 52 44 20 41 4C 53 20 4E 41 45 43 48 53 54 |WIRD ALS NAECHST| 00000990: 45 53 20 49 4E 20 1E 5A 45 49 4C 45 22 00 CA 11 |ES IN .ZEILE"...| 000009A0: FE 01 99 22 31 38 1F 20 44 41 53 20 47 45 48 41 |..."18. DAS GEHA| 000009B0: 4C 54 20 49 4E 4B 4C 55 53 49 56 45 20 55 45 42 |LT INKLUSIVE UEB| 000009C0: 45 52 53 54 55 4E 44 45 4E 22 00 02 12 08 02 99 |ERSTUNDEN"......| 000009D0: 22 42 45 52 45 43 48 4E 45 54 20 55 4E 44 20 49 |"BERECHNET UND I| 000009E0: 4E 20 12 53 92 20 47 45 53 50 45 49 43 48 45 52 |N .S. GESPEICHER| 000009F0: 54 2E 22 3A 8D 38 30 3A 55 31 B2 38 3A 55 32 B2 |T.":.80:U1.8:U2.| 00000A00: 31 30 00 13 12 12 02 8D 33 30 3A 59 B2 32 33 3A |10......30:Y.23:| 00000A10: 8D 38 30 00 47 12 1C 02 8D 31 30 30 3A 99 22 1E |.80.G....100:.".| 00000A20: 5A 45 49 4C 45 20 32 30 1F 20 42 45 57 49 52 4B |ZEILE 20. BEWIRK| 00000A30: 54 20 44 45 4E 20 44 52 55 43 4B 20 44 45 53 20 |T DEN DRUCK DES | 00000A40: 4E 41 4D 45 4E 53 22 00 62 12 26 02 99 22 55 4E |NAMENS".b.&.."UN| 00000A50: 44 20 44 45 53 20 4C 4F 48 4E 53 2E 22 3B 3A 8D |D DES LOHNS.";:.| 00000A60: 38 30 00 A6 12 30 02 55 31 B2 33 3A 8D 37 30 3A |80...0.U1.3:.70:| 00000A70: 8D 31 31 30 3A 59 B2 31 36 3A 8D 31 30 30 3A 99 |.110:Y.16:.100:.| 00000A80: 22 1E 5A 45 49 4C 45 20 32 31 1F 20 42 45 57 49 |".ZEILE 21. BEWI| 00000A90: 52 4B 54 20 44 45 4E 20 53 50 52 55 4E 47 20 5A |RKT DEN SPRUNG Z| 00000AA0: 55 52 55 45 43 4B 00 D6 12 3A 02 99 22 5A 55 1E |URUECK...:.."ZU.| 00000AB0: 20 5A 45 49 4C 45 20 38 1F 2E 22 3A 8D 38 30 3A | ZEILE 8..":.80:| 00000AC0: 55 31 B2 34 3A 55 32 B2 31 32 3A 8D 33 30 3A 8D |U1.4:U2.12:.30:.| 00000AD0: 38 30 3A 8D 37 30 00 0D 13 44 02 59 B2 31 36 3A |80:.70...D.Y.16:| 00000AE0: 8D 31 30 30 3A 99 22 57 45 4E 4E 20 4E 49 43 48 |.100:."WENN NICH| 00000AF0: 54 20 55 45 42 45 52 20 34 30 20 53 54 55 4E 44 |T UEBER 40 STUND| 00000B00: 45 4E 20 47 45 41 52 42 45 49 54 45 54 00 4E 13 |EN GEARBEITET.N.| 00000B10: 4E 02 99 22 57 55 52 44 45 2C 20 53 4F 20 57 49 |N.."WURDE, SO WI| 00000B20: 52 44 20 49 4E 20 1E 5A 45 49 4C 45 20 31 34 1F |RD IN .ZEILE 14.| 00000B30: 20 44 41 53 20 47 45 48 41 4C 54 22 3A 99 22 42 | DAS GEHALT":."B| 00000B40: 45 52 45 43 48 4E 45 54 2E 22 3A 8D 38 30 00 94 |ERECHNET.":.80..| 00000B50: 13 58 02 99 22 1E 5A 45 49 4C 45 20 31 36 1F 20 |.X..".ZEILE 16. | 00000B60: 53 4F 52 47 54 20 46 55 45 52 20 44 45 4E 20 53 |SORGT FUER DEN S| 00000B70: 50 52 55 4E 47 20 5A 55 52 55 45 43 4B 22 3A 99 |PRUNG ZURUECK":.| 00000B80: 22 5A 55 1E 20 5A 45 49 4C 45 20 38 1F 2E 22 3B |"ZU. ZEILE 8..";| 00000B90: 3A 8D 38 30 00 B3 13 62 02 55 32 B2 39 3A 8D 33 |:.80...b.U2.9:.3| 00000BA0: 30 3A 8D 38 30 3A 8D 37 30 3A 59 B2 32 33 3A 8D |0:.80:.70:Y.23:.| 00000BB0: 31 30 30 00 DC 13 6C 02 99 22 41 4E 20 44 49 45 |100...l.."AN DIE| 00000BC0: 53 45 52 20 53 54 45 4C 4C 45 20 57 49 52 44 20 |SER STELLE WIRD | 00000BD0: 44 49 45 20 53 43 48 4C 45 49 46 45 00 07 14 76 |DIE SCHLEIFE...v| 00000BE0: 02 99 22 57 49 45 44 45 52 48 4F 4C 54 2E 22 3B |.."WIEDERHOLT.";| 00000BF0: 3A 8D 38 30 3A 55 31 B2 31 3A 55 32 B2 34 3A 8D |:.80:U1.1:U2.4:.| 00000C00: 33 30 3B 3A 8D 38 30 00 1E 14 80 02 8D 37 30 3A |30;:.80......70:| 00000C10: 8D 31 31 30 3A 59 B2 31 35 3A 8D 31 30 30 00 49 |.110:Y.15:.100.I| 00000C20: 14 8A 02 99 22 1E 5A 45 49 4C 45 20 31 30 1F 20 |....".ZEILE 10. | 00000C30: 53 4F 52 47 54 20 46 55 45 52 20 44 45 4E 20 53 |SORGT FUER DEN S| 00000C40: 50 52 55 4E 47 20 5A 55 22 00 77 14 94 02 99 22 |PRUNG ZU".w...."| 00000C50: 1E 5A 45 49 4C 45 20 32 32 1F 2C 20 55 4D 20 44 |.ZEILE 22., UM D| 00000C60: 41 53 20 50 52 4F 47 52 41 4D 4D 20 5A 55 20 42 |AS PROGRAMM ZU B| 00000C70: 45 45 4E 44 45 4E 2C 00 B2 14 9E 02 99 22 57 45 |EENDEN,......"WE| 00000C80: 4E 4E 20 44 45 52 20 31 30 30 53 54 45 20 4E 41 |NN DER 100STE NA| 00000C90: 4D 45 20 45 49 4E 47 45 47 45 42 45 4E 20 49 53 |ME EINGEGEBEN IS| 00000CA0: 54 2E 22 3A 8D 38 30 3A 55 31 B2 35 3A 55 32 B2 |T.":.80:U1.5:U2.| 00000CB0: 31 33 00 BE 14 A8 02 8D 33 30 3A 8D 38 30 00 F6 |13......30:.80..| 00000CC0: 14 B2 02 43 24 B2 22 12 23 22 3A 8D 34 30 3A 99 |...C$.".#":.40:.| 00000CD0: 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1C 45 4E 44 |"............END| 00000CE0: 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 38 20 |E VON LEKTION 8 | 00000CF0: 54 45 49 4C 20 31 00 3B 15 BC 02 99 22 11 11 11 |TEIL 1.;...."...| 00000D00: 1D 1D 1D 1D 1D 1F 42 49 54 54 45 20 57 41 52 54 |......BITTE WART| 00000D10: 45 4E 20 53 49 45 2C 20 42 49 53 20 54 45 49 4C |EN SIE, BIS TEIL| 00000D20: 20 32 22 3A 99 22 1D 1D 1D 1D 1D 45 49 4E 47 45 | 2":.".....EINGE| 00000D30: 4C 45 53 45 4E 20 49 53 54 2E 22 00 4C 15 C6 02 |LESEN IST.".L...| 00000D40: 99 22 11 11 11 11 11 11 11 11 11 11 00 62 15 D0 |."...........b..| 00000D50: 02 93 22 38 2F 32 4C 45 4B 54 49 4F 4E 2E 38 22 |.."8/2LEKTION.8"| 00000D60: 2C 38 00 00 00 31 30 |,8...10 |
.......45,B(174):.46,B(175):.:.788,52:.6
57,128.R....53280,1:.53281,1:Z$.G(34):.1
30.....Y.U1:.100:."O":.I.0.U2.U1.2:.".":
.:."L":....(.."..":.I.1.39:.C$;:.:.I.1.2
2:.".."C$;:.:.".";.O.2..I.1.38:."."C$"."
;:.:.C$...<..I.1.23:."."C$".";:.:....F.Y
.U1:.100:.I.0.U2.U1:." ":.:....P..A$:.A$
."".80.&.Z..:..I.D..".":.I.0.Y.1:.".";:.
:."..";:....N.Y.Y1:.100:.I.1.Y2.Y1:."
":..
..X..100:..E...C$."#":.40:."....".15)".L
EKTION 8....".......12)".1. PROGRAMMBEIS
PIEL":..12)"2. GOSUB...RETURN"./.....12)
"3. ON...GOTO":..12)"4. ON...GOSUB":.80.
X. ..".".11)".PROGRAMMBEISPIEL.":.".ES F
OLGT NUN EIN PROGRAMMBEISPIEL,";......"
DAS DIE ZAHLEN 1 BIS 100 IN DIE EINE";.
....." REIHE DRUCKT UND DIE QUADRATE IN
DIE REIHE DANEBEN.......".":.".1 FOR
I = 1 TO 100.).H.."2 PRINT I, I*I":."3
NEXT":.80.S.R..".".10)".GOSUB...RETURN."
:.".GROESSERE PROGRAMME BENOETIGEN HAEUF
IG"......"DIE WIEDERHOLUNG EINER GANZEN
GRUPPE VON";:."BEFEHLEN. (SUBROUTINE).."
......".UM DEM COMPUTER MITZUTEILEN, DAS
S EINE.?....".SUBROUTINE. AUSGEFUEHRT WE
RDEN SOLL,":."WIRD DER BEFEHL. GOSUB. BE
NUTZT.".J....".EIN .GOSUB.-BEFEHL HAT DA
S FORMAT:.......". .ZEILEN#1. GOSUB .ZE
ILEN#2.":.......".BEI AUSFUEHRUNG VON .Z
EILEN#1. SPRINGT":."DER COMPUTER ZU .ZEI
LEN#2.."......"UND FUEHRT DIE ANWEISUNGE
N .BIS ZUM.5.".."NAECHSTEN RETURN-BEFEHL
. AUS, DANACH...,.."SPRINGT DER COMPUTER
ZU DEM BEFEHL, DER":."DEM. GOSUB.-BEFEH
L FOLGT."...6..80:.I.1.11:.:.:.".";:.80.
X.@.Y.14:.100:."DIE GRUPPE VON BEFEHLEN,
DIE AB ZEILE#2"...J.."BIS ZUM RETURN-BE
FEHL STEHT, HEISST EINE";:."..SUBROUTINE
...].T..".DER. RETURN.-BEFEHL HAT DAS FO
RMAT:.":.". .ZEILEN#. RETURN...^.."..BE
TRACHTEN SIE NUN DAS FOLGENDE":."PROGRAM
M:":.80...H..".. 2 FOR I=1 TO 100":." 4
INPUT N$, H, R":." 6 GOSUB 12":." 8
NEXT".0.R.." 10 GOTO 22":." 11 REM LOHNS
UMMEN-SUBROUTINE":." 12 IF H>40 THEN 18"
.Z.|.." 14 PRINT N$ "Z$" VERDIENT "Z$" H
*R......" 16 RETURN":." 18 LET S= 40*R +
(H-40)*1.5 * R.O...." 20 PRINT N$ "Z$"V
ERDIENT"Z$" S":." 21 RETURN":." 22 END".
W....80......".DIESES PROGRAMM BERECHNET
DEN LOHN":."FUER 100 ARBEITER.".6....80
:Y1.15:Y2.25:.110:.100.F...."IN .ZEILE 4
. WIRD DIE EINGABE DES NAMENS,...B.."DER
ARBEITSSTUNDEN UND DES GEHALTS":."ERMOE
GLICHT.":.80...L..".ZEILE 6. SORGT FUER
DEN SPRUNG NACH":.".ZEILE 12..":.80:U1.3
:U2.7...V..30.2....110:Y.15:.100:."IN .Z
EILE 12. WIRD FESTGESTELLT, OB DER.M....
"ARBEITER MEHR ALS 40 STUNDEN GEARBEITET
":."HAT.":.80......"WENN JA, SO WIRD ALS
NAECHSTES IN .ZEILE".J...."18. DAS GEHA
LT INKLUSIVE UEBERSTUNDEN"......"BERECHN
ET UND IN .S. GESPEICHERT.":.80:U1.8:U2.
10......30:Y.23:.80.G....100:.".ZEILE 20
. BEWIRKT DEN DRUCK DES NAMENS".B.&.."UN
D DES LOHNS.";:.80...0.U1.3:.70:.110:Y.1
6:.100:.".ZEILE 21. BEWIRKT DEN SPRUNG Z
URUECK.V.:.."ZU. ZEILE 8..":.80:U1.4:U2.
12:.30:.80:.70...D.Y.16:.100:."WENN NICH
T UEBER 40 STUNDEN GEARBEITET.N.N.."WURD
E, SO WIRD IN .ZEILE 14. DAS GEHALT":."B
ERECHNET.":.80...X..".ZEILE 16. SORGT FU
ER DEN SPRUNG ZURUECK":."ZU. ZEILE 8..";
:.80...B.U2.9:.30:.80:.70:Y.23:.100...L.
."AN DIESER STELLE WIRD DIE SCHLEIFE...V
.."WIEDERHOLT.";:.80:U1.1:U2.4:.30;:.80.
.....70:.110:Y.15:.100.I....".ZEILE 10.
SORGT FUER DEN SPRUNG ZU".W....".ZEILE 2
2., UM DAS PROGRAMM ZU BEENDEN,......"WE
NN DER 100STE NAME EINGEGEBEN IST.":.80:
U1.5:U2.13......30:.80.....C$.".#":.40:.
"............ENDE VON LEKTION 8 TEIL 1.;
....".........BITTE WARTEN SIE, BIS TEIL
2":.".....EINGELESEN IST.".L.F.."......
.....B.P.."8/2LEKTION.8",8...10
> CLICK IMAGE PREVIEW FOR FULL MODAL