BASIC-21
FILE INFORMATION
FILENAME(S): BASIC-21
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 16:11:21
APPEARS ON: 2 disk(s)
FILE HASH
af1c5eeabf88d5a23e3a07113b6f435510bc73b8b415125e41cd73bb88f3ff93
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADLER DISK A2 B | BASIC-21 | PRG | BrainSkull, Sammlung | 11 | 13 | DOWNLOAD FILE |
| ADLER DISK A31 B | BASIC-21 | PRG | BrainSkull, Sammlung | 11 | 13 | 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 51 |88,52:.657,128.Q| 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 3A 5A 24 B2 C7 28 33 34 29 3A 89 31 |81,1:Z$..(34):.1| 00000050: 36 00 7D 08 02 00 59 B2 55 31 3A 8D 39 3A 99 22 |6.}...Y.U1:.9:."| 00000060: CF 22 3A 81 49 B2 30 A4 55 32 AB 55 31 AB 32 3A |.":.I.0.U2.U1.2:| 00000070: 99 22 A5 22 3A 82 3A 99 22 CC 22 3A 8E 00 AF 08 |.".":.:.".":....| 00000080: 03 00 99 22 93 1E 22 3A 81 49 B2 31 A4 33 39 3A |..."..":.I.1.39:| 00000090: 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 3A 99 |.C$;:.:.I.1.22:.| 000000A0: 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 3B 00 |".."C$;:.:.".";.| 000000B0: CC 08 04 00 81 49 B2 31 A4 33 38 3A 99 22 9D 22 |.....I.1.38:."."| 000000C0: 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 E7 08 05 |C$".";:.:.C$....| 000000D0: 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 24 22 |..I.1.23:."."C$"| 000000E0: 9D 22 3B 3A 82 3A 8E 00 07 09 06 00 59 B2 55 31 |.";:.:......Y.U1| 000000F0: 3A 8D 39 3A 81 49 B2 30 A4 55 32 AB 55 31 3A 99 |:.9:.I.0.U2.U1:.| 00000100: 22 20 22 3A 82 3A 8E 00 18 09 07 00 A1 41 24 3A |" ":.:.......A$:| 00000110: 8B 41 24 B2 22 22 A7 37 00 20 09 08 00 99 3A 8E |.A$."".7. ....:.| 00000120: 00 43 09 09 00 99 22 13 22 3A 81 49 B2 30 A4 59 |.C....".":.I.0.Y| 00000130: AB 31 3A 99 22 11 22 3B 3A 82 3A 99 22 91 91 22 |.1:.".";:.:.".."| 00000140: 3B 3A 8E 00 87 09 0D 00 59 B2 59 31 3A 8D 39 3A |;:......Y.Y1:.9:| 00000150: 81 49 B2 31 A4 59 32 AB 59 31 3A 99 22 20 20 20 |.I.1.Y2.Y1:." | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 22 3A 82 00 90 09 0E 00 8D 39 3A 8E | ":.......9:.| 00000190: 00 BA 09 10 00 43 24 B2 22 23 22 3A 8D 33 3A 99 |.....C$."#":.3:.| 000001A0: 22 11 11 11 11 22 A3 31 35 29 22 1C 4C 45 4B 54 |"....".15)".LEKT| 000001B0: 49 4F 4E 20 38 11 11 11 11 22 00 F3 09 11 00 99 |ION 8...."......| 000001C0: A3 31 32 29 22 1F 31 2E 20 50 52 4F 47 52 41 4D |.12)".1. PROGRAM| 000001D0: 4D 42 45 49 53 50 49 45 4C 22 3A 99 A3 31 32 29 |MBEISPIEL":..12)| 000001E0: 22 32 2E 20 47 4F 53 55 42 2E 2E 2E 52 45 54 55 |"2. GOSUB...RETU| 000001F0: 52 4E 22 00 23 0A 12 00 99 A3 31 32 29 22 33 2E |RN".#.....12)"3.| 00000200: 20 4F 4E 2E 2E 2E 47 4F 54 4F 22 3A 99 A3 31 32 | ON...GOTO":..12| 00000210: 29 22 34 2E 20 4F 4E 2E 2E 2E 47 4F 53 55 42 22 |)"4. ON...GOSUB"| 00000220: 3A 8D 37 00 6C 0A 16 00 99 22 93 22 A3 31 31 29 |:.7.l....".".11)| 00000230: 22 1C 50 52 4F 47 52 41 4D 4D 42 45 49 53 50 49 |".PROGRAMMBEISPI| 00000240: 45 4C 11 22 3A 99 22 1F 45 53 20 46 4F 4C 47 54 |EL.":.".ES FOLGT| 00000250: 20 4E 55 4E 20 45 49 4E 20 50 52 4F 47 52 41 4D | NUN EIN PROGRAM| 00000260: 4D 42 45 49 53 50 49 45 4C 2C 22 3B 00 9B 0A 18 |MBEISPIEL,";....| 00000270: 00 99 22 20 44 41 53 20 20 44 49 45 20 5A 41 48 |.." DAS DIE ZAH| 00000280: 4C 45 4E 20 31 20 42 49 53 20 31 30 30 20 49 4E |LEN 1 BIS 100 IN| 00000290: 20 44 49 45 20 45 49 4E 45 22 3B 00 DA 0A 19 00 | DIE EINE";.....| 000002A0: 99 22 20 52 45 49 48 45 20 20 44 52 55 43 4B 54 |." REIHE DRUCKT| 000002B0: 20 55 4E 44 20 44 49 45 20 51 55 41 44 52 41 54 | UND DIE QUADRAT| 000002C0: 45 20 49 4E 20 44 49 45 20 52 45 49 48 45 20 20 |E IN DIE REIHE | 000002D0: 20 20 44 41 4E 45 42 45 4E 2E 00 F9 0A 1A 00 99 | DANEBEN.......| 000002E0: 22 11 22 3A 99 22 1E 31 20 46 4F 52 20 49 20 3D |".":.".1 FOR I =| 000002F0: 20 31 20 54 4F 20 31 30 30 00 1C 0B 1E 00 99 22 | 1 TO 100......"| 00000300: 32 20 50 52 49 4E 54 20 49 2C 20 49 2A 49 22 3A |2 PRINT I, I*I":| 00000310: 99 22 33 20 4E 45 58 54 22 3A 8D 37 00 66 0B 22 |."3 NEXT":.7.f."| 00000320: 00 99 22 93 22 A3 31 30 29 22 1C 47 4F 53 55 42 |..".".10)".GOSUB| 00000330: 2E 2E 2E 52 45 54 55 52 4E 11 22 3A 99 22 1F 47 |...RETURN.":.".G| 00000340: 52 4F 45 53 53 45 52 45 20 50 52 4F 47 52 41 4D |ROESSERE PROGRAM| 00000350: 4D 45 20 42 45 4E 4F 45 54 49 47 45 4E 20 48 41 |ME BENOETIGEN HA| 00000360: 45 55 46 49 47 22 00 B3 0B 24 00 99 22 44 49 45 |EUFIG"...$.."DIE| 00000370: 20 57 49 45 44 45 52 48 4F 4C 55 4E 47 20 45 49 | WIEDERHOLUNG EI| 00000380: 4E 45 52 20 47 41 4E 5A 45 4E 20 47 52 55 50 50 |NER GANZEN GRUPP| 00000390: 45 20 56 4F 4E 22 3B 3A 99 22 42 45 46 45 48 4C |E VON";:."BEFEHL| 000003A0: 45 4E 81 20 28 53 55 42 52 4F 55 54 49 4E 45 29 |EN. (SUBROUTINE)| 000003B0: 2E 11 22 00 E1 0B 26 00 99 22 1F 55 4D 20 44 45 |.."...&..".UM DE| 000003C0: 4D 20 43 4F 4D 50 55 54 45 52 20 4D 49 54 5A 55 |M COMPUTER MITZU| 000003D0: 54 45 49 4C 45 4E 2C 20 44 41 53 53 20 45 49 4E |TEILEN, DASS EIN| 000003E0: 45 00 32 0C 28 00 99 22 81 53 55 42 52 4F 55 54 |E.2.(..".SUBROUT| 000003F0: 49 4E 45 1F 20 41 55 53 47 45 46 55 45 48 52 54 |INE. AUSGEFUEHRT| 00000400: 20 57 45 52 44 45 4E 20 53 4F 4C 4C 2C 22 3A 99 | WERDEN SOLL,":.| 00000410: 22 57 49 52 44 20 44 45 52 20 42 45 46 45 48 4C |"WIRD DER BEFEHL| 00000420: 81 20 47 4F 53 55 42 1F 20 42 45 4E 55 54 5A 54 |. GOSUB. BENUTZT| 00000430: 2E 22 00 5D 0C 2A 00 99 22 11 45 49 4E 20 81 47 |.".].*..".EIN .G| 00000440: 4F 53 55 42 1F 2D 42 45 46 45 48 4C 20 48 41 54 |OSUB.-BEFEHL HAT| 00000450: 20 44 41 53 20 46 4F 52 4D 41 54 3A 11 00 85 0C | DAS FORMAT:....| 00000460: 2C 00 99 22 81 20 20 12 5A 45 49 4C 45 4E 23 31 |,..". .ZEILEN#1| 00000470: 92 20 47 4F 53 55 42 20 12 5A 45 49 4C 45 4E 23 |. GOSUB .ZEILEN#| 00000480: 32 92 22 3A 99 00 D3 0C 2D 00 99 22 1F 42 45 49 |2.":....-..".BEI| 00000490: 20 41 55 53 46 55 45 48 52 55 4E 47 20 56 4F 4E | AUSFUEHRUNG VON| 000004A0: 20 12 5A 45 49 4C 45 4E 23 31 92 20 53 50 52 49 | .ZEILEN#1. SPRI| 000004B0: 4E 47 54 22 3A 99 22 44 45 52 20 43 4F 4D 50 55 |NGT":."DER COMPU| 000004C0: 54 45 52 20 5A 55 20 12 5A 45 49 4C 45 4E 23 32 |TER ZU .ZEILEN#2| 000004D0: 92 11 22 00 FD 0C 2E 00 99 22 55 4E 44 20 46 55 |.."......"UND FU| 000004E0: 45 48 52 54 20 44 49 45 20 41 4E 57 45 49 53 55 |EHRT DIE ANWEISU| 000004F0: 4E 47 45 4E 20 81 42 49 53 20 5A 55 4D 00 28 0D |NGEN .BIS ZUM.(.| 00000500: 30 00 99 22 4E 41 45 43 48 53 54 45 4E 20 52 45 |0.."NAECHSTEN RE| 00000510: 54 55 52 4E 2D 42 45 46 45 48 4C 1F 20 41 55 53 |TURN-BEFEHL. AUS| 00000520: 2C 20 44 41 4E 41 43 48 00 74 0D 32 00 99 22 53 |, DANACH.t.2.."S| 00000530: 50 52 49 4E 47 54 20 44 45 52 20 43 4F 4D 50 55 |PRINGT DER COMPU| 00000540: 54 45 52 20 5A 55 20 44 45 4D 20 42 45 46 45 48 |TER ZU DEM BEFEH| 00000550: 4C 2C 20 44 45 52 22 3A 99 22 44 45 4D 81 20 47 |L, DER":."DEM. G| 00000560: 4F 53 55 42 1F 2D 42 45 46 45 48 4C 20 46 4F 4C |OSUB.-BEFEHL FOL| 00000570: 47 54 2E 22 00 90 0D 33 00 8D 37 3A 81 49 B2 31 |GT."...3..7:.I.1| 00000580: A4 31 31 3A 99 3A 82 3A 99 22 91 22 3B 3A 8D 37 |.11:.:.:.".";:.7| 00000590: 00 C7 0D 34 00 59 B2 31 34 3A 8D 39 3A 99 22 44 |...4.Y.14:.9:."D| 000005A0: 49 45 20 47 52 55 50 50 45 20 56 4F 4E 20 42 45 |IE GRUPPE VON BE| 000005B0: 46 45 48 4C 45 4E 2C 20 44 49 45 20 41 42 20 5A |FEHLEN, DIE AB Z| 000005C0: 45 49 4C 45 23 32 22 00 09 0E 36 00 99 22 42 49 |EILE#2"...6.."BI| 000005D0: 53 20 5A 55 4D 20 52 45 54 55 52 4E 2D 42 45 46 |S ZUM RETURN-BEF| 000005E0: 45 48 4C 20 53 54 45 48 54 2C 20 48 45 49 53 53 |EHL STEHT, HEISS| 000005F0: 54 20 45 49 4E 45 22 3B 3A 99 22 81 12 53 55 42 |T EINE";:."..SUB| 00000600: 52 4F 55 54 49 4E 45 2E 11 00 4C 0E 38 00 99 22 |ROUTINE...L.8.."| 00000610: 1F 44 45 52 81 20 52 45 54 55 52 4E 1F 2D 42 45 |.DER. RETURN.-BE| 00000620: 46 45 48 4C 20 48 41 54 20 44 41 53 20 46 4F 52 |FEHL HAT DAS FOR| 00000630: 4D 41 54 3A 11 22 3A 99 22 81 20 20 12 5A 45 49 |MAT:.":.". .ZEI| 00000640: 4C 45 4E 23 92 20 52 45 54 55 52 4E 00 85 0E 3A |LEN#. RETURN...:| 00000650: 00 99 22 11 1F 42 45 54 52 41 43 48 54 45 4E 20 |.."..BETRACHTEN | 00000660: 53 49 45 20 4E 55 4E 20 44 41 53 20 46 4F 4C 47 |SIE NUN DAS FOLG| 00000670: 45 4E 44 45 22 3A 99 22 50 52 4F 47 52 41 4D 4D |ENDE":."PROGRAMM| 00000680: 3A 22 3A 8D 37 00 D3 0E 3E 00 99 22 93 1E 20 32 |:":.7...>..".. 2| 00000690: 20 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 30 | FOR I=1 TO 100| 000006A0: 22 3A 99 22 20 34 20 20 49 4E 50 55 54 20 4E 24 |":." 4 INPUT N$| 000006B0: 2C 20 48 2C 20 52 22 3A 99 22 20 36 20 20 47 4F |, H, R":." 6 GO| 000006C0: 53 55 42 20 31 32 22 3A 99 22 20 38 20 20 4E 45 |SUB 12":." 8 NE| 000006D0: 58 54 22 00 1E 0F 40 00 99 22 20 31 30 20 47 4F |XT"...@.." 10 GO| 000006E0: 54 4F 20 32 32 22 3A 99 22 20 31 31 20 52 45 4D |TO 22":." 11 REM| 000006F0: 20 4C 4F 48 4E 53 55 4D 4D 45 4E 2D 53 55 42 52 | LOHNSUMMEN-SUBR| 00000700: 4F 55 54 49 4E 45 22 3A 99 22 20 31 32 20 49 46 |OUTINE":." 12 IF| 00000710: 20 48 3E 34 30 20 54 48 45 4E 20 31 38 22 00 48 | H>40 THEN 18".H| 00000720: 0F 41 00 99 22 20 31 34 20 50 52 49 4E 54 20 4E |.A.." 14 PRINT N| 00000730: 24 20 22 5A 24 22 20 56 45 52 44 49 45 4E 54 20 |$ "Z$" VERDIENT | 00000740: 22 5A 24 22 20 48 2A 52 00 7D 0F 42 00 99 22 20 |"Z$" H*R.}.B.." | 00000750: 31 36 20 52 45 54 55 52 4E 22 3A 99 22 20 31 38 |16 RETURN":." 18| 00000760: 20 4C 45 54 20 53 3D 20 34 30 2A 52 20 2B 20 28 | LET S= 40*R + (| 00000770: 48 2D 34 30 29 2A 31 2E 35 20 2A 20 52 00 BD 0F |H-40)*1.5 * R...| 00000780: 44 00 99 22 20 32 30 20 50 52 49 4E 54 20 4E 24 |D.." 20 PRINT N$| 00000790: 20 22 5A 24 22 56 45 52 44 49 45 4E 54 22 5A 24 | "Z$"VERDIENT"Z$| 000007A0: 22 20 53 22 3A 99 22 20 32 31 20 52 45 54 55 52 |" S":." 21 RETUR| 000007B0: 4E 22 3A 99 22 20 32 32 20 45 4E 44 22 00 C4 0F |N":." 22 END"...| 000007C0: 45 00 8D 37 00 05 10 46 00 99 22 1F 44 49 45 53 |E..7...F..".DIES| 000007D0: 45 53 20 50 52 4F 47 52 41 4D 4D 20 42 45 52 45 |ES PROGRAMM BERE| 000007E0: 43 48 4E 45 54 20 44 45 4E 20 4C 4F 48 4E 22 3A |CHNET DEN LOHN":| 000007F0: 99 22 46 55 45 52 20 31 30 30 20 41 52 42 45 49 |."FUER 100 ARBEI| 00000800: 54 45 52 2E 22 00 1F 10 4A 00 8D 37 3A 59 31 B2 |TER."...J..7:Y1.| 00000810: 31 35 3A 59 32 B2 32 35 3A 8D 31 33 3A 8D 39 00 |15:Y2.25:.13:.9.| 00000820: 4F 10 4D 00 99 22 49 4E 20 1E 5A 45 49 4C 45 20 |O.M.."IN .ZEILE | 00000830: 34 1F 20 57 49 52 44 20 44 49 45 20 45 49 4E 47 |4. WIRD DIE EING| 00000840: 41 42 45 20 44 45 53 20 4E 41 4D 45 4E 53 2C 00 |ABE DES NAMENS,.| 00000850: 8C 10 4E 00 99 22 44 45 52 20 41 52 42 45 49 54 |..N.."DER ARBEIT| 00000860: 53 53 54 55 4E 44 45 4E 20 55 4E 44 20 44 45 53 |SSTUNDEN UND DES| 00000870: 20 47 45 48 41 4C 54 53 22 3A 99 22 45 52 4D 4F | GEHALTS":."ERMO| 00000880: 45 47 4C 49 43 48 54 2E 22 3A 8D 37 00 D4 10 50 |EGLICHT.":.7...P| 00000890: 00 99 22 1E 5A 45 49 4C 45 20 36 1F 20 53 4F 52 |..".ZEILE 6. SOR| 000008A0: 47 54 20 46 55 45 52 20 44 45 4E 20 53 50 52 55 |GT FUER DEN SPRU| 000008B0: 4E 47 20 4E 41 43 48 22 3A 99 22 1E 5A 45 49 4C |NG NACH":.".ZEIL| 000008C0: 45 20 31 32 1F 2E 22 3A 8D 37 3A 55 31 B2 33 3A |E 12..":.7:U1.3:| 000008D0: 55 32 B2 37 00 DB 10 51 00 8D 32 00 15 11 52 00 |U2.7...Q..2...R.| 000008E0: 8D 31 33 3A 59 B2 31 35 3A 8D 39 3A 99 22 49 4E |.13:Y.15:.9:."IN| 000008F0: 20 1E 5A 45 49 4C 45 20 31 32 1F 20 57 49 52 44 | .ZEILE 12. WIRD| 00000900: 20 46 45 53 54 47 45 53 54 45 4C 4C 54 2C 20 4F | FESTGESTELLT, O| 00000910: 42 20 44 45 52 00 4F 11 54 00 99 22 41 52 42 45 |B DER.O.T.."ARBE| 00000920: 49 54 45 52 20 4D 45 48 52 20 41 4C 53 20 34 30 |ITER MEHR ALS 40| 00000930: 20 53 54 55 4E 44 45 4E 20 47 45 41 52 42 45 49 | STUNDEN GEARBEI| 00000940: 54 45 54 22 3A 99 22 48 41 54 2E 22 3A 8D 37 00 |TET":."HAT.":.7.| 00000950: 7F 11 56 00 99 22 57 45 4E 4E 20 4A 41 2C 20 53 |..V.."WENN JA, S| 00000960: 4F 20 57 49 52 44 20 41 4C 53 20 4E 41 45 43 48 |O WIRD ALS NAECH| 00000970: 53 54 45 53 20 49 4E 20 1E 5A 45 49 4C 45 22 00 |STES IN .ZEILE".| 00000980: AC 11 57 00 99 22 31 38 1F 20 44 41 53 20 47 45 |..W.."18. DAS GE| 00000990: 48 41 4C 54 20 49 4E 4B 4C 55 53 49 56 45 20 55 |HALT INKLUSIVE U| 000009A0: 45 42 45 52 53 54 55 4E 44 45 4E 22 00 E3 11 58 |EBERSTUNDEN"...X| 000009B0: 00 99 22 42 45 52 45 43 48 4E 45 54 20 55 4E 44 |.."BERECHNET UND| 000009C0: 20 49 4E 20 12 53 92 20 47 45 53 50 45 49 43 48 | IN .S. GESPEICH| 000009D0: 45 52 54 2E 22 3A 8D 37 3A 55 31 B2 38 3A 55 32 |ERT.":.7:U1.8:U2| 000009E0: B2 31 30 00 F2 11 59 00 8D 32 3A 59 B2 32 33 3A |.10...Y..2:Y.23:| 000009F0: 8D 37 00 24 12 5A 00 8D 39 3A 99 22 1E 5A 45 49 |.7.$.Z..9:.".ZEI| 00000A00: 4C 45 20 32 30 1F 20 42 45 57 49 52 4B 54 20 44 |LE 20. BEWIRKT D| 00000A10: 45 4E 20 44 52 55 43 4B 20 44 45 53 20 4E 41 4D |EN DRUCK DES NAM| 00000A20: 45 4E 53 22 00 3E 12 5B 00 99 22 55 4E 44 20 44 |ENS".>.[.."UND D| 00000A30: 45 53 20 4C 4F 48 4E 53 2E 22 3B 3A 8D 37 00 7E |ES LOHNS.";:.7.~| 00000A40: 12 5C 00 55 31 B2 33 3A 8D 36 3A 8D 31 33 3A 59 |.\.U1.3:.6:.13:Y| 00000A50: B2 31 36 3A 8D 39 3A 99 22 1E 5A 45 49 4C 45 20 |.16:.9:.".ZEILE | 00000A60: 32 31 1F 20 42 45 57 49 52 4B 54 20 44 45 4E 20 |21. BEWIRKT DEN | 00000A70: 53 50 52 55 4E 47 20 5A 55 52 55 45 43 4B 00 AA |SPRUNG ZURUECK..| 00000A80: 12 5E 00 99 22 5A 55 1E 20 5A 45 49 4C 45 20 38 |.^.."ZU. ZEILE 8| 00000A90: 1F 2E 22 3A 8D 37 3A 55 31 B2 34 3A 55 32 B2 31 |..":.7:U1.4:U2.1| 00000AA0: 32 3A 8D 32 3A 8D 37 3A 8D 36 00 DF 12 60 00 59 |2:.2:.7:.6...`.Y| 00000AB0: B2 31 36 3A 8D 39 3A 99 22 57 45 4E 4E 20 4E 49 |.16:.9:."WENN NI| 00000AC0: 43 48 54 20 55 45 42 45 52 20 34 30 20 53 54 55 |CHT UEBER 40 STU| 00000AD0: 4E 44 45 4E 20 47 45 41 52 42 45 49 54 45 54 00 |NDEN GEARBEITET.| 00000AE0: 1F 13 62 00 99 22 57 55 52 44 45 2C 20 53 4F 20 |..b.."WURDE, SO | 00000AF0: 57 49 52 44 20 49 4E 20 1E 5A 45 49 4C 45 20 31 |WIRD IN .ZEILE 1| 00000B00: 34 1F 20 44 41 53 20 47 45 48 41 4C 54 22 3A 99 |4. DAS GEHALT":.| 00000B10: 22 42 45 52 45 43 48 4E 45 54 2E 22 3A 8D 37 00 |"BERECHNET.":.7.| 00000B20: 64 13 64 00 99 22 1E 5A 45 49 4C 45 20 31 36 1F |d.d..".ZEILE 16.| 00000B30: 20 53 4F 52 47 54 20 46 55 45 52 20 44 45 4E 20 | SORGT FUER DEN | 00000B40: 53 50 52 55 4E 47 20 5A 55 52 55 45 43 4B 22 3A |SPRUNG ZURUECK":| 00000B50: 99 22 5A 55 1E 20 5A 45 49 4C 45 20 38 1F 2E 22 |."ZU. ZEILE 8.."| 00000B60: 3B 3A 8D 37 00 7E 13 66 00 55 32 B2 39 3A 8D 32 |;:.7.~.f.U2.9:.2| 00000B70: 3A 8D 37 3A 8D 36 3A 59 B2 32 33 3A 8D 39 00 A7 |:.7:.6:Y.23:.9..| 00000B80: 13 67 00 99 22 41 4E 20 44 49 45 53 45 52 20 53 |.g.."AN DIESER S| 00000B90: 54 45 4C 4C 45 20 57 49 52 44 20 44 49 45 20 53 |TELLE WIRD DIE S| 00000BA0: 43 48 4C 45 49 46 45 00 CF 13 68 00 99 22 57 49 |CHLEIFE...h.."WI| 00000BB0: 45 44 45 52 48 4F 4C 54 2E 22 3B 3A 8D 37 3A 55 |EDERHOLT.";:.7:U| 00000BC0: 31 B2 31 3A 55 32 B2 34 3A 8D 32 3B 3A 8D 37 00 |1.1:U2.4:.2;:.7.| 00000BD0: E2 13 69 00 8D 36 3A 8D 31 33 3A 59 B2 31 35 3A |..i..6:.13:Y.15:| 00000BE0: 8D 39 00 0D 14 6A 00 99 22 1E 5A 45 49 4C 45 20 |.9...j..".ZEILE | 00000BF0: 31 30 1F 20 53 4F 52 47 54 20 46 55 45 52 20 44 |10. SORGT FUER D| 00000C00: 45 4E 20 53 50 52 55 4E 47 20 5A 55 22 00 3B 14 |EN SPRUNG ZU".;.| 00000C10: 6C 00 99 22 1E 5A 45 49 4C 45 20 32 32 1F 2C 20 |l..".ZEILE 22., | 00000C20: 55 4D 20 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 |UM DAS PROGRAMM | 00000C30: 5A 55 20 42 45 45 4E 44 45 4E 2C 00 75 14 6D 00 |ZU BEENDEN,.u.m.| 00000C40: 99 22 57 45 4E 4E 20 44 45 52 20 31 30 30 53 54 |."WENN DER 100ST| 00000C50: 45 20 4E 41 4D 45 20 45 49 4E 47 45 47 45 42 45 |E NAME EINGEGEBE| 00000C60: 4E 20 49 53 54 2E 22 3A 8D 37 3A 55 31 B2 35 3A |N IST.":.7:U1.5:| 00000C70: 55 32 B2 31 33 00 7F 14 6E 00 8D 32 3A 8D 37 00 |U2.13...n..2:.7.| 00000C80: B6 14 90 01 43 24 B2 22 12 23 22 3A 8D 33 3A 99 |....C$.".#":.3:.| 00000C90: 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1C 45 4E 44 |"............END| 00000CA0: 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 38 20 |E VON LEKTION 8 | 00000CB0: 54 45 49 4C 20 31 00 FB 14 92 01 99 22 11 11 11 |TEIL 1......"...| 00000CC0: 1D 1D 1D 1D 1D 1F 42 49 54 54 45 20 57 41 52 54 |......BITTE WART| 00000CD0: 45 4E 20 53 49 45 2C 20 42 49 53 20 54 45 49 4C |EN SIE, BIS TEIL| 00000CE0: 20 32 22 3A 99 22 1D 1D 1D 1D 1D 45 49 4E 47 45 | 2":.".....EINGE| 00000CF0: 4C 45 53 45 4E 20 49 53 54 2E 22 00 0C 15 93 01 |LESEN IST.".....| 00000D00: 99 22 11 11 11 11 11 11 11 11 11 11 00 1E 15 52 |.".............R| 00000D10: 03 93 22 42 41 53 49 43 2D 32 32 22 2C 38 00 00 |.."BASIC-22",8..| 00000D20: 00 01 4D |..M |
.......45,B(174):.46,B(175):.:.788,52:.6
57,128.Q....53280,1:.53281,1:Z$.G(34):.1
6.}...Y.U1:.9:."O":.I.0.U2.U1.2:.".":.:.
"L":......."..":.I.1.39:.C$;:.:.I.1.22:.
".."C$;:.:.".";.L....I.1.38:."."C$".";:.
:.C$......I.1.23:."."C$".";:.:......Y.U1
:.9:.I.0.U2.U1:." ":.:.......A$:.A$."".7
. ....:..C....".":.I.0.Y.1:.".";:.:.".."
;:......Y.Y1:.9:.I.1.Y2.Y1:."
":.......9:.
.....C$."#":.3:."....".15)".LEKTION 8...
.".......12)".1. PROGRAMMBEISPIEL":..12)
"2. GOSUB...RETURN".#.....12)"3. ON...GO
TO":..12)"4. ON...GOSUB":.7.L....".".11)
".PROGRAMMBEISPIEL.":.".ES FOLGT NUN EIN
PROGRAMMBEISPIEL,";......" DAS DIE ZAH
LEN 1 BIS 100 IN DIE EINE";.Z...." REIHE
DRUCKT UND DIE QUADRATE IN DIE REIHE
DANEBEN.......".":.".1 FOR I = 1 TO 10
0......"2 PRINT I, I*I":."3 NEXT":.7.F."
..".".10)".GOSUB...RETURN.":.".GROESSERE
PROGRAMME BENOETIGEN HAEUFIG"...$.."DIE
WIEDERHOLUNG EINER GANZEN GRUPPE VON";:
."BEFEHLEN. (SUBROUTINE).."...&..".UM DE
M COMPUTER MITZUTEILEN, DASS EINE.2.(.."
.SUBROUTINE. AUSGEFUEHRT WERDEN SOLL,":.
"WIRD DER BEFEHL. GOSUB. BENUTZT.".].*..
".EIN .GOSUB.-BEFEHL HAT DAS FORMAT:....
,..". .ZEILEN#1. GOSUB .ZEILEN#2.":..S.
-..".BEI AUSFUEHRUNG VON .ZEILEN#1. SPRI
NGT":."DER COMPUTER ZU .ZEILEN#2..".....
."UND FUEHRT DIE ANWEISUNGEN .BIS ZUM.(.
0.."NAECHSTEN RETURN-BEFEHL. AUS, DANACH
.T.2.."SPRINGT DER COMPUTER ZU DEM BEFEH
L, DER":."DEM. GOSUB.-BEFEHL FOLGT."...3
..7:.I.1.11:.:.:.".";:.7.G.4.Y.14:.9:."D
IE GRUPPE VON BEFEHLEN, DIE AB ZEILE#2".
..6.."BIS ZUM RETURN-BEFEHL STEHT, HEISS
T EINE";:."..SUBROUTINE...L.8..".DER. RE
TURN.-BEFEHL HAT DAS FORMAT:.":.". .ZEI
LEN#. RETURN...:.."..BETRACHTEN SIE NUN
DAS FOLGENDE":."PROGRAMM:":.7.S.>..".. 2
FOR I=1 TO 100":." 4 INPUT N$, H, R":
." 6 GOSUB 12":." 8 NEXT"...@.." 10 GO
TO 22":." 11 REM LOHNSUMMEN-SUBROUTINE":
." 12 IF H>40 THEN 18".H.A.." 14 PRINT N
$ "Z$" VERDIENT "Z$" H*R.}.B.." 16 RETUR
N":." 18 LET S= 40*R + (H-40)*1.5 * R...
D.." 20 PRINT N$ "Z$"VERDIENT"Z$" S":."
21 RETURN":." 22 END".D.E..7...F..".DIES
ES PROGRAMM BERECHNET DEN LOHN":."FUER 1
00 ARBEITER."...J..7:Y1.15:Y2.25:.13:.9.
O.M.."IN .ZEILE 4. WIRD DIE EINGABE DES
NAMENS,...N.."DER ARBEITSSTUNDEN UND DES
GEHALTS":."ERMOEGLICHT.":.7.T.P..".ZEIL
E 6. SORGT FUER DEN SPRUNG NACH":.".ZEIL
E 12..":.7:U1.3:U2.7...Q..2...R..13:Y.15
:.9:."IN .ZEILE 12. WIRD FESTGESTELLT, O
B DER.O.T.."ARBEITER MEHR ALS 40 STUNDEN
GEARBEITET":."HAT.":.7..V.."WENN JA, S
O WIRD ALS NAECHSTES IN .ZEILE"...W.."18
. DAS GEHALT INKLUSIVE UEBERSTUNDEN"...X
.."BERECHNET UND IN .S. GESPEICHERT.":.7
:U1.8:U2.10...Y..2:Y.23:.7.$.Z..9:.".ZEI
LE 20. BEWIRKT DEN DRUCK DES NAMENS".>.[
.."UND DES LOHNS.";:.7.~.\.U1.3:.6:.13:Y
.16:.9:.".ZEILE 21. BEWIRKT DEN SPRUNG Z
URUECK...^.."ZU. ZEILE 8..":.7:U1.4:U2.1
2:.2:.7:.6...`.Y.16:.9:."WENN NICHT UEBE
R 40 STUNDEN GEARBEITET...B.."WURDE, SO
WIRD IN .ZEILE 14. DAS GEHALT":."BERECHN
ET.":.7.D.D..".ZEILE 16. SORGT FUER DEN
SPRUNG ZURUECK":."ZU. ZEILE 8..";:.7.~.F
.U2.9:.2:.7:.6:Y.23:.9...G.."AN DIESER S
TELLE WIRD DIE SCHLEIFE.O.H.."WIEDERHOLT
.";:.7:U1.1:U2.4:.2;:.7...I..6:.13:Y.15:
.9...J..".ZEILE 10. SORGT FUER DEN SPRUN
G ZU".;.L..".ZEILE 22., UM DAS PROGRAMM
ZU BEENDEN,.U.M.."WENN DER 100STE NAME E
INGEGEBEN IST.":.7:U1.5:U2.13..N..2:.7.
....C$.".#":.3:."............ENDE VON LE
KTION 8 TEIL 1......".........BITTE WART
EN SIE, BIS TEIL 2":.".....EINGELESEN IS
T."......".............R.."BASIC-22",8..
..M
> CLICK IMAGE PREVIEW FOR FULL MODAL