BASIC-14
FILE INFORMATION
FILENAME(S): BASIC-14
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 16:11:21
APPEARS ON: 2 disk(s)
FILE HASH
0645e5a0fe3ba654abb83dbecb6791c91786d6c93a606019d5e57835ef3a88a5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADLER DISK A2 B | BASIC-14 | PRG | BrainSkull, Sammlung | 13 | 9 | DOWNLOAD FILE |
| ADLER DISK A31 B | BASIC-14 | PRG | BrainSkull, Sammlung | 13 | 9 | 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 7F 08 02 00 51 24 B2 22 91 20 20 |81,1.....Q$.". |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 91 91 91 91 | ....|
00000070: 22 3A 5A 24 B2 C7 28 33 34 29 3A 89 31 38 30 00 |":Z$..(34):.180.|
00000080: B1 08 03 00 99 22 93 1E 22 3A 81 49 B2 31 A4 33 |....."..":.I.1.3|
00000090: 39 3A 99 43 24 3B 3A 82 3A 81 49 B2 31 A4 32 32 |9:.C$;:.:.I.1.22|
000000A0: 3A 99 22 9D 11 22 43 24 3B 3A 82 3A 99 22 9D 22 |:.".."C$;:.:."."|
000000B0: 3B 00 CE 08 04 00 81 49 B2 31 A4 33 38 3A 99 22 |;......I.1.38:."|
000000C0: 9D 22 43 24 22 9D 22 3B 3A 82 3A 99 43 24 00 E9 |."C$".";:.:.C$..|
000000D0: 08 05 00 81 49 B2 31 A4 32 33 3A 99 22 91 22 43 |....I.1.23:."."C|
000000E0: 24 22 9D 22 3B 3A 82 3A 8E 00 FA 08 06 00 A1 41 |$".";:.:.......A|
000000F0: 24 3A 8B 41 24 B2 22 22 A7 36 00 02 09 07 00 99 |$:.A$."".6......|
00000100: 3A 8E 00 1D 09 B4 00 99 22 93 11 11 11 11 22 A3 |:.......".....".|
00000110: 31 36 29 22 1C 47 4F 54 4F 22 3A 8D 36 00 4F 09 |16)".GOTO":.6.O.|
00000120: B6 00 99 22 93 1F 44 45 52 20 81 47 4F 54 4F 1F |..."..DER .GOTO.|
00000130: 2D 42 45 46 45 48 4C 20 45 52 4D 4F 45 47 4C 49 |-BEFEHL ERMOEGLI|
00000140: 43 48 54 20 44 45 4E 20 81 53 50 52 55 4E 47 00 |CHT DEN .SPRUNG.|
00000150: 7A 09 B7 00 99 22 5A 55 20 49 52 47 45 4E 44 45 |z...."ZU IRGENDE|
00000160: 49 4E 45 52 20 5A 45 49 4C 45 20 44 45 53 20 50 |INER ZEILE DES P|
00000170: 52 4F 47 52 41 4D 4D 45 53 2E 00 AF 09 B8 00 8D |ROGRAMMES.......|
00000180: 37 3A 99 22 1F 44 41 42 45 49 20 4B 41 4E 4E 20 |7:.".DABEI KANN |
00000190: 45 4E 54 57 45 44 45 52 20 5A 55 20 45 49 4E 45 |ENTWEDER ZU EINE|
000001A0: 52 20 5A 45 49 4C 45 4E 23 20 56 4F 52 22 3B 00 |R ZEILEN# VOR";.|
000001B0: DB 09 B9 00 99 22 44 45 4D 20 47 4F 54 4F 2D 42 |....."DEM GOTO-B|
000001C0: 45 46 45 48 4C 20 4F 44 45 52 20 5A 55 20 45 49 |EFEHL ODER ZU EI|
000001D0: 4E 45 52 20 5A 45 49 4C 45 4E 23 00 0D 0A BA 00 |NER ZEILEN#.....|
000001E0: 99 22 4E 41 43 48 20 44 45 4D 20 47 4F 54 4F 2D |."NACH DEM GOTO-|
000001F0: 42 45 46 45 48 4C 20 47 45 53 50 52 55 4E 47 45 |BEFEHL GESPRUNGE|
00000200: 4E 20 57 45 52 44 45 4E 2E 22 3A 8D 37 00 45 0A |N WERDEN.":.7.E.|
00000210: BB 00 99 22 42 49 54 54 45 20 42 45 54 52 41 43 |..."BITTE BETRAC|
00000220: 48 54 45 4E 20 53 49 45 20 44 41 53 20 46 4F 4C |HTEN SIE DAS FOL|
00000230: 47 45 4E 44 45 20 20 20 20 20 20 20 50 52 4F 47 |GENDE PROG|
00000240: 52 41 4D 4D 3A 00 80 0A BC 00 8D 36 3A 99 22 93 |RAMM:......6:.".|
00000250: 1E 36 20 20 50 52 49 4E 54 20 22 5A 24 22 45 49 |.6 PRINT "Z$"EI|
00000260: 4E 47 41 42 45 20 44 45 53 20 41 4C 54 45 52 53 |NGABE DES ALTERS|
00000270: 22 5A 24 3A 99 22 37 20 20 49 4E 50 55 54 20 41 |"Z$:."7 INPUT A|
00000280: 00 C3 0A BE 00 99 22 38 20 20 50 52 49 4E 54 22 |......"8 PRINT"|
00000290: 5A 24 22 41 4C 54 45 52 20 49 4E 20 54 41 47 45 |Z$"ALTER IN TAGE|
000002A0: 4E 20 4F 44 45 52 20 49 4E 20 4D 4F 4E 41 54 45 |N ODER IN MONATE|
000002B0: 4E 22 5A 24 3B 3A 99 22 31 30 20 49 4E 50 55 54 |N"Z$;:."10 INPUT|
000002C0: 20 42 24 00 E8 0A C0 00 99 22 31 32 20 49 46 20 | B$......"12 IF |
000002D0: 42 24 3D 22 5A 24 22 54 41 47 45 22 5A 24 22 20 |B$="Z$"TAGE"Z$" |
000002E0: 54 48 45 4E 20 31 38 22 00 1C 0B C1 00 99 22 31 |THEN 18"......"1|
000002F0: 34 20 50 52 49 4E 54 22 5A 24 22 53 49 45 20 53 |4 PRINT"Z$"SIE S|
00000300: 49 4E 44 22 5A 24 22 31 32 2A 41 22 5A 24 22 4D |IND"Z$"12*A"Z$"M|
00000310: 4F 4E 41 54 45 20 41 4C 54 22 5A 24 00 65 0B C2 |ONATE ALT"Z$.e..|
00000320: 00 99 22 31 36 20 47 4F 54 4F 32 30 22 3A 99 22 |.."16 GOTO20":."|
00000330: 31 38 20 50 52 49 4E 54 22 5A 24 22 53 49 45 20 |18 PRINT"Z$"SIE |
00000340: 53 49 4E 44 22 5A 24 22 33 36 35 2A 41 22 5A 24 |SIND"Z$"365*A"Z$|
00000350: 22 54 41 47 45 20 41 4C 54 22 5A 24 3A 99 22 32 |"TAGE ALT"Z$:."2|
00000360: 30 20 45 4E 44 00 98 0B C3 00 8D 37 3A 99 22 1F |0 END......7:.".|
00000370: 44 49 45 53 45 53 20 50 52 4F 47 52 41 4D 4D 20 |DIESES PROGRAMM |
00000380: 42 45 52 45 43 48 4E 45 54 20 1E 45 4E 54 57 45 |BERECHNET .ENTWE|
00000390: 44 45 52 20 1F 44 41 53 00 C5 0B C4 00 99 22 41 |DER .DAS......"A|
000003A0: 4C 54 45 52 20 49 4E 20 54 41 47 45 4E 20 1E 4F |LTER IN TAGEN .O|
000003B0: 44 45 52 1F 20 49 4E 20 4D 4F 4E 41 54 45 4E 2C |DER. IN MONATEN,|
000003C0: 20 41 42 45 52 00 E8 0B C5 00 99 22 12 4E 49 43 | ABER......".NIC|
000003D0: 48 54 92 20 42 45 49 44 45 53 20 5A 55 53 41 4D |HT. BEIDES ZUSAM|
000003E0: 4D 45 4E 2E 22 3A 8D 37 00 11 0C C6 00 99 22 57 |MEN.":.7......"W|
000003F0: 45 4E 4E 20 41 55 46 20 44 49 45 20 46 52 41 47 |ENN AUF DIE FRAG|
00000400: 45 20 56 4F 4E 20 5A 45 49 4C 45 20 38 20 44 45 |E VON ZEILE 8 DE|
00000410: 52 00 41 0C C7 00 99 22 53 54 52 49 4E 47 20 12 |R.A...."STRING .|
00000420: 54 41 47 45 92 20 45 49 4E 47 45 47 45 42 45 4E |TAGE. EINGEGEBEN|
00000430: 20 57 49 52 44 2C 20 53 4F 20 42 45 57 49 52 4B | WIRD, SO BEWIRK|
00000440: 54 00 67 0C C8 00 99 22 44 49 45 53 20 45 49 4E |T.g...."DIES EIN|
00000450: 45 4E 20 53 50 52 55 4E 47 20 5A 55 20 5A 45 49 |EN SPRUNG ZU ZEI|
00000460: 4C 45 20 31 38 2E 22 00 98 0C C9 00 8D 37 3A 99 |LE 18."......7:.|
00000470: 22 57 49 52 44 20 44 45 52 20 53 54 52 49 4E 47 |"WIRD DER STRING|
00000480: 20 12 4D 4F 4E 41 54 45 92 20 45 49 4E 47 45 47 | .MONATE. EINGEG|
00000490: 45 42 45 4E 2C 20 53 4F 00 C9 0C CA 00 99 22 57 |EBEN, SO......"W|
000004A0: 49 52 44 20 44 45 52 20 42 45 46 45 48 4C 20 49 |IRD DER BEFEHL I|
000004B0: 4E 20 5A 45 49 4C 45 20 31 34 20 41 55 53 47 45 |N ZEILE 14 AUSGE|
000004C0: 46 55 45 48 52 54 2C 22 3B 00 F5 0C CB 00 99 22 |FUEHRT,";......"|
000004D0: 55 4E 44 20 5A 45 49 4C 45 20 31 36 20 42 45 57 |UND ZEILE 16 BEW|
000004E0: 49 52 4B 54 20 44 41 4E 4E 20 44 45 4E 20 53 50 |IRKT DANN DEN SP|
000004F0: 52 55 4E 47 22 00 24 0D CC 00 99 22 5A 55 20 5A |RUNG".$...."ZU Z|
00000500: 45 49 4C 45 20 32 30 20 28 5A 45 49 4C 45 20 31 |EILE 20 (ZEILE 1|
00000510: 38 20 57 49 52 44 20 41 55 53 47 45 4C 41 53 53 |8 WIRD AUSGELASS|
00000520: 45 4E 29 2E 00 57 0D CD 00 99 22 81 42 49 54 54 |EN)..W....".BITT|
00000530: 45 20 42 45 41 43 48 54 45 4E 20 53 49 45 2C 44 |E BEACHTEN SIE,D|
00000540: 41 53 53 20 44 45 52 20 1E 12 45 4E 44 92 81 2D |ASS DER ..END..-|
00000550: 42 45 46 45 48 4C 22 00 86 0D CE 00 99 22 44 41 |BEFEHL"......"DA|
00000560: 53 20 50 52 4F 47 52 41 4D 4D 20 49 4E 20 4A 45 |S PROGRAMM IN JE|
00000570: 44 45 4D 20 46 41 4C 4C 20 42 45 45 4E 44 45 54 |DEM FALL BEENDET|
00000580: 2E 22 3B 3A 8D 36 00 BE 0D CF 00 99 22 93 1E 35 |.";:.6......"..5|
00000590: 20 20 49 4E 50 55 54 20 58 22 3A 99 22 31 30 20 | INPUT X":."10 |
000005A0: 49 46 20 58 3E 3D 35 30 20 54 48 45 4E 20 35 30 |IF X>=50 THEN 50|
000005B0: 22 3A 99 22 32 30 20 47 4F 54 4F 20 34 30 00 E0 |":."20 GOTO 40..|
000005C0: 0D D0 00 99 22 33 30 20 50 52 49 4E 54 20 58 2A |...."30 PRINT X*|
000005D0: 31 30 22 3A 99 22 34 30 20 47 4F 54 4F 20 36 30 |10":."40 GOTO 60|
000005E0: 00 FF 0D D1 00 99 22 35 30 20 50 52 49 4E 54 20 |......"50 PRINT |
000005F0: 58 22 3A 99 22 36 30 20 45 4E 44 22 3A 8D 37 00 |X":."60 END":.7.|
00000600: 31 0E D2 00 99 22 1F 57 41 53 20 57 49 52 44 20 |1....".WAS WIRD |
00000610: 44 55 52 43 48 20 44 49 45 53 45 53 20 50 52 4F |DURCH DIESES PRO|
00000620: 47 52 41 4D 4D 20 47 45 44 52 55 43 4B 54 2C 22 |GRAMM GEDRUCKT,"|
00000630: 3B 00 60 0E D3 00 99 22 57 45 4E 4E 20 46 55 45 |;.`...."WENN FUE|
00000640: 52 20 58 20 44 45 52 20 57 45 52 54 20 32 35 20 |R X DER WERT 25 |
00000650: 45 49 4E 47 45 47 45 42 45 4E 20 57 55 52 44 45 |EINGEGEBEN WURDE|
00000660: 00 9E 0E D5 00 99 22 12 31 2E 92 20 32 35 30 22 |......".1.. 250"|
00000670: 3A 99 22 12 32 2E 92 20 32 35 22 3A 99 22 12 33 |:.".2.. 25":.".3|
00000680: 2E 92 20 45 53 20 57 49 52 44 20 4E 49 43 48 54 |.. ES WIRD NICHT|
00000690: 53 20 47 45 44 52 55 43 4B 54 22 3A 8D 37 00 C5 |S GEDRUCKT":.7..|
000006A0: 0E D6 00 99 22 28 31 2C 20 32 20 4F 44 45 52 20 |...."(1, 2 ODER |
000006B0: 33 29 22 3B 3A 85 41 24 3A 8B C5 28 41 24 29 B1 |3)";:.A$:..(A$).|
000006C0: 33 A7 32 31 36 00 DC 0E D7 00 91 C5 28 41 24 29 |3.216.......(A$)|
000006D0: 89 32 31 37 2C 32 31 37 2C 32 32 30 00 E9 0E D8 |.217,217,220....|
000006E0: 00 99 51 24 3A 89 32 30 37 00 38 0F D9 00 99 22 |..Q$:.207.8...."|
000006F0: 11 81 4E 45 49 4E 1F 2C 20 44 41 20 44 49 45 20 |..NEIN., DA DIE |
00000700: 42 45 44 49 4E 47 55 4E 47 20 49 4E 20 5A 45 49 |BEDINGUNG IN ZEI|
00000710: 4C 45 20 31 30 20 46 55 45 52 22 3A 99 22 58 3D |LE 10 FUER":."X=|
00000720: 32 35 20 4E 49 43 48 54 20 45 52 46 55 45 4C 4C |25 NICHT ERFUELL|
00000730: 54 20 49 53 54 2C 22 3B 00 6E 0F DA 00 99 22 20 |T IST,";.n...." |
00000740: 57 49 52 44 20 44 41 53 22 3A 99 22 50 52 4F 47 |WIRD DAS":."PROG|
00000750: 52 41 4D 4D 20 4D 49 54 20 5A 45 49 4C 45 20 32 |RAMM MIT ZEILE 2|
00000760: 30 20 46 4F 52 54 47 45 53 45 54 5A 54 2E 00 9A |0 FORTGESETZT...|
00000770: 0F DB 00 8D 37 3A 99 22 56 45 52 53 55 43 48 45 |....7:."VERSUCHE|
00000780: 4E 20 53 49 45 20 45 53 20 4E 4F 43 48 4D 41 4C |N SIE ES NOCHMAL|
00000790: 21 22 3A 8D 36 3A 89 32 30 37 00 C8 0F DC 00 99 |!":.6:.207......|
000007A0: 22 11 1E 52 49 43 48 54 49 47 21 21 21 1F 20 20 |"..RICHTIG!!!. |
000007B0: 45 53 20 57 49 52 44 20 4E 49 43 48 54 53 20 47 |ES WIRD NICHTS G|
000007C0: 45 44 52 55 43 4B 54 2E 00 F9 0F DD 00 99 22 46 |EDRUCKT......."F|
000007D0: 55 45 52 20 58 3D 32 35 20 57 49 52 44 20 5A 55 |UER X=25 WIRD ZU|
000007E0: 4E 41 45 43 48 53 54 20 5A 45 49 4C 45 20 32 30 |NAECHST ZEILE 20|
000007F0: 20 41 55 53 47 45 2D 22 3B 00 2A 10 DE 00 99 22 | AUSGE-";.*...."|
00000800: 46 55 45 48 52 54 2C 20 5A 45 49 4C 45 20 34 30 |FUEHRT, ZEILE 40|
00000810: 20 42 45 57 49 52 4B 54 20 44 41 4E 4E 20 44 45 | BEWIRKT DANN DE|
00000820: 4E 20 53 50 52 55 4E 47 22 3B 00 5D 10 DF 00 99 |N SPRUNG";.]....|
00000830: 22 5A 55 20 5A 45 49 4C 45 20 36 30 20 28 5A 45 |"ZU ZEILE 60 (ZE|
00000840: 49 4C 45 20 35 30 20 57 49 52 44 20 41 55 53 47 |ILE 50 WIRD AUSG|
00000850: 45 4C 41 53 53 45 4E 29 2E 22 3A 8D 36 00 85 10 |ELASSEN).":.6...|
00000860: E0 00 99 22 93 42 45 56 4F 52 20 53 49 45 20 44 |...".BEVOR SIE D|
00000870: 45 4E 20 4B 55 52 53 20 4D 49 54 20 4C 45 4B 54 |EN KURS MIT LEKT|
00000880: 49 4F 4E 20 36 00 B0 10 E1 00 99 22 46 4F 52 54 |ION 6......"FORT|
00000890: 53 45 54 5A 45 4E 2C 20 56 45 52 53 55 43 48 45 |SETZEN, VERSUCHE|
000008A0: 4E 20 53 49 45 20 42 49 54 54 54 45 20 45 49 4E |N SIE BITTTE EIN|
000008B0: 00 DD 10 E2 00 99 22 50 52 4F 47 52 41 4D 4D 20 |......"PROGRAMM |
000008C0: 5A 55 20 53 43 48 52 45 49 42 45 4E 2C 20 44 41 |ZU SCHREIBEN, DA|
000008D0: 53 53 20 44 45 4E 20 9C 4C 4F 48 4E 22 00 03 11 |SS DEN .LOHN"...|
000008E0: E3 00 99 22 45 49 4E 45 53 20 41 52 42 45 49 54 |..."EINES ARBEIT|
000008F0: 45 52 53 20 1F 42 45 52 45 43 48 4E 45 54 2E 22 |ERS .BERECHNET."|
00000900: 3A 8D 37 00 31 11 E4 00 99 22 44 45 52 20 41 52 |:.7.1...."DER AR|
00000910: 42 45 49 54 45 52 20 53 4F 4C 4C 20 9C 20 44 4D |BEITER SOLL . DM|
00000920: 20 38 2E 33 35 20 20 50 52 4F 20 53 54 55 4E 44 | 8.35 PRO STUND|
00000930: 45 00 7B 11 E5 00 99 22 1F 56 45 52 44 49 45 4E |E.{....".VERDIEN|
00000940: 45 4E 20 55 4E 44 20 46 55 45 52 20 9C 4A 45 44 |EN UND FUER .JED|
00000950: 45 20 55 45 42 45 52 53 54 55 4E 44 45 20 44 41 |E UEBERSTUNDE DA|
00000960: 53 22 3A 99 22 45 49 4E 45 49 4E 48 41 4C 42 46 |S":."EINEINHALBF|
00000970: 41 43 48 45 20 44 45 53 20 22 3B 00 BE 11 E6 00 |ACHE DES ";.....|
00000980: 99 22 4C 4F 48 4E 45 53 1F 20 42 45 4B 4F 4D 4D |."LOHNES. BEKOMM|
00000990: 45 4E 2E 11 22 3A 99 22 45 53 20 53 4F 4C 4C 20 |EN..":."ES SOLL |
000009A0: 4E 41 43 48 20 45 49 4E 47 41 42 45 20 44 45 52 |NACH EINGABE DER|
000009B0: 20 47 45 41 52 42 45 49 54 45 54 45 4E 22 00 EA | GEARBEITETEN"..|
000009C0: 11 E8 00 99 22 53 54 55 4E 44 45 4E 20 44 45 52 |...."STUNDEN DER|
000009D0: 20 4C 4F 48 4E 20 47 45 44 52 55 43 4B 54 20 57 | LOHN GEDRUCKT W|
000009E0: 45 52 44 45 4E 2E 22 3A 8D 37 00 1C 12 E9 00 99 |ERDEN.":.7......|
000009F0: 22 9C 12 42 49 54 54 45 20 4E 4F 54 49 45 52 45 |"..BITTE NOTIERE|
00000A00: 4E 20 53 49 45 20 44 49 45 20 41 55 46 47 41 42 |N SIE DIE AUFGAB|
00000A10: 45 2C 20 20 20 20 20 20 20 20 20 92 00 51 12 EA |E, ..Q..|
00000A20: 00 99 22 12 42 45 56 4F 52 20 53 49 45 20 45 49 |..".BEVOR SIE EI|
00000A30: 4E 45 20 42 45 4C 49 45 42 49 47 45 20 54 41 53 |NE BELIEBIGE TAS|
00000A40: 54 45 20 44 52 55 45 43 4B 45 4E 2E 92 22 3A 8D |TE DRUECKEN..":.|
00000A50: 36 00 80 12 90 01 43 24 B2 22 12 FF 22 3A 8D 33 |6.....C$."..":.3|
00000A60: 3A 99 22 11 11 11 11 22 A3 31 30 29 22 1C 45 4E |:."....".10)".EN|
00000A70: 44 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 35 |DE VON LEKTION 5|
00000A80: 00 B0 12 92 01 99 22 11 11 1D 1F 57 45 4E 4E 20 |......"....WENN |
00000A90: 53 49 45 20 42 45 52 45 49 54 20 53 49 4E 44 20 |SIE BEREIT SIND |
00000AA0: 46 55 45 52 20 4C 45 4B 54 49 4F 4E 20 36 2C 22 |FUER LEKTION 6,"|
00000AB0: 00 DD 12 93 01 99 22 11 1D 41 4E 54 57 4F 52 54 |......"..ANTWORT|
00000AC0: 45 4E 20 53 49 45 20 57 49 45 20 47 45 57 4F 48 |EN SIE WIE GEWOH|
00000AD0: 4E 54 20 4D 49 54 20 28 4A 2F 4E 29 22 00 E7 12 |NT MIT (J/N)"...|
00000AE0: 94 01 89 37 30 30 30 00 12 13 88 13 99 22 13 22 |...7000......"."|
00000AF0: 3B 3A 81 49 B2 31 A4 59 31 3A 99 22 11 22 3B 3A |;:.I.1.Y1:.".";:|
00000B00: 82 3A 99 22 91 22 3B 3A 81 4A B2 30 A4 59 32 AB |.:.".";:.J.0.Y2.|
00000B10: 59 31 00 45 13 89 13 99 22 20 20 20 20 20 20 20 |Y1.E...." |
00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B40: 22 3A 82 3A 8E 00 67 13 70 17 99 22 13 22 3B 3A |":.:..g.p..".";:|
00000B50: 81 49 B2 31 A4 59 31 3A 99 22 11 22 3B 3A 82 3A |.I.1.Y1:.".";:.:|
00000B60: 99 22 91 22 3B 3A 8E 00 7C 13 58 1B A1 41 24 3A |.".";:..|.X..A$:|
00000B70: 8B 41 24 B2 22 4E 22 A7 38 30 30 30 00 8E 13 62 |.A$."N".8000...b|
00000B80: 1B 8B 41 24 B3 B1 22 4A 22 A7 37 30 30 30 00 C0 |..A$.."J".7000..|
00000B90: 13 6C 1B 99 22 11 11 11 11 11 11 1D 1D 56 45 52 |.l.."........VER|
00000BA0: 53 43 48 4E 41 55 46 45 4E 20 53 49 45 20 45 49 |SCHNAUFEN SIE EI|
00000BB0: 4E 45 4E 20 4D 4F 4D 45 4E 54 2C 20 42 49 53 22 |NEN MOMENT, BIS"|
00000BC0: 00 EB 13 76 1B 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D |...v..".........|
00000BD0: 12 1C 4C 45 4B 54 49 4F 4E 20 36 92 20 1F 47 45 |..LEKTION 6. .GE|
00000BE0: 4C 41 44 45 4E 20 49 53 54 2E 22 00 FD 13 80 1B |LADEN IST.".....|
00000BF0: 93 22 42 41 53 49 43 2D 31 35 22 2C 38 00 2C 14 |."BASIC-15",8.,.|
00000C00: 40 1F 99 22 11 11 11 1D 1D 1D 4E 55 4E 20 4B 4F |@.."......NUN KO|
00000C10: 45 4E 4E 45 4E 20 53 49 45 20 4A 41 20 53 43 48 |ENNEN SIE JA SCH|
00000C20: 4F 4E 20 5A 49 45 4D 4C 49 43 48 22 00 5A 14 4A |ON ZIEMLICH".Z.J|
00000C30: 1F 99 22 11 1D 1D 56 49 45 4C 2E 20 55 45 42 45 |.."...VIEL. UEBE|
00000C40: 4E 20 53 49 45 20 41 55 43 48 20 46 55 45 52 20 |N SIE AUCH FUER |
00000C50: 53 49 43 48 20 4E 4F 43 48 22 00 87 14 54 1F 99 |SICH NOCH"...T..|
00000C60: 22 11 1D 1D 45 49 4E 20 57 45 4E 49 47 2C 20 42 |"...EIN WENIG, B|
00000C70: 49 53 20 57 49 52 20 55 4E 53 20 57 49 45 44 45 |IS WIR UNS WIEDE|
00000C80: 52 53 45 48 45 4E 22 00 AA 14 5E 1F 99 22 11 1D |RSEHEN"...^.."..|
00000C90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 45 49 20 1C 4C |..........BEI .L|
00000CA0: 45 4B 54 49 4F 4E 20 36 2E 22 00 BA 14 72 1F 81 |EKTION 6."...r..|
00000CB0: 5A B2 31 A4 37 30 30 3A 82 5A 00 C5 14 7C 1F 9E |Z.1.700:.Z...|..|
00000CC0: 36 34 37 33 38 00 00 00 43 24 B2 22 12 FF 22 3A |64738...C$."..":|
00000CD0: 8D 33 3A 99 22 11 11 11 11 22 A3 37 29 22 45 4E |.3:."....".7)"EN|
00000CE0: 44 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 35 |DE VON LEKTION 5|
00000CF0: 20 54 45 49 4C 20 32 00 82 0F 92 01 99 22 11 11 | TEIL 2......"..|
00000D00: 11 11 1D 1D 1D 1D 20 20 42 49 54 54 45 20 57 41 |...... BITTE WA|
00000D10: 52 54 45 4E 20 53 49 45 2C 20 42 49 53 20 54 45 |RTEN SIE, BIS TE|
00000D20: 49 4C 20 33 22 3A 99 22 1D 1D 1D 1D 20 20 45 49 |IL 3":.".... EI|
00000D30: 4E 47 45 4C 45 53 45 4E 20 49 53 54 2E 00 93 0F |NGELESEN IST....|
00000D40: 93 01 99 22 11 11 11 11 11 11 11 11 11 11 00 9D |..."............|
00000D50: 0F 94 01 89 37 30 30 30 00 C4 0F E8 03 8F 4C 4C |....7000......LL|
00000D60: 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C |LLLLLLLLLLLLLLLL|
00000D70: 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 00 |LLLLLLLLLLLLLLL.|
00000D80: EB 0F E9 03 8F 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C |.....LLLLLLLLLLL|
00000D90: 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C |LLLLLLLLLLLLLLLL|
00000DA0: 4C 4C 4C 4C 4C 4C 00 12 10 EA 03 8F 4C 4C 4C 4C |LLLLLL......LLLL|
00000DB0: 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C |LLLLLLLLLLLLLLLL|
00000DC0: 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 00 39 10 |LLLLLLLLLLLLL.9.|
00000DD0: EB 03 8F 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C |...LLLLLLLLLLLLL|
00000DE0: 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C |LLLLLLLLLLLLLLLL|
00000DF0: 4C 4C 4C 4C 00 64 10 88 13 99 22 13 22 3B 3A 81 |LLLL.d....".";:.|
00000E00: 49 B2 31 A4 59 31 3A 99 22 11 22 3B 3A 82 3A 99 |I.1.Y1:.".";:.:.|
00000E10: 22 91 22 3B 3A 81 4A B2 30 A4 59 32 AB 59 31 00 |".";:.J.0.Y2.Y1.|
00000E20: 97 10 89 13 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 | ":.|
00000E50: 3A 8E 00 B9 10 70 17 99 22 13 22 3B 3A 81 49 B2 |:....p..".";:.I.|
00000E60: 31 A4 59 31 3A 99 22 11 22 3B 3A 82 3A 99 22 91 |1.Y1:.".";:.:.".|
00000E70: 22 3B 3A 8E 00 BF 10 58 1B 93 00 00 00 01 4D 4D |";:....X......MM|
00000E80: 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D |MMMMMMMMMMMMMMMM|
00000E90: 4D 4D 4D 4D 4D 00 9A 0F 96 19 8F 4D 4D 4D 00 A0 |MMMMM......MMM..|
00000EA0: 0F 58 1B 93 00 00 00 01 20 |.X...... |
.......45,B(174):.46,B(175):.:.788,52:.6
57,128.D....53280,1:.53281,1....Q$.".
....":Z$.G(3
4):.180......"..":.I.1.39:.C$;:.:.I.1.22
:.".."C$;:.:.".";.N....I.1.38:."."C$".";
:.:.C$......I.1.23:."."C$".";:.:.......A
$:.A$."".6......:.......".....".16)".GOT
O":.6.O...."..DER .GOTO.-BEFEHL ERMOEGLI
CHT DEN .SPRUNG.Z...."ZU IRGENDEINER ZEI
LE DES PROGRAMMES.......7:.".DABEI KANN
ENTWEDER ZU EINER ZEILEN# VOR";......"DE
M GOTO-BEFEHL ODER ZU EINER ZEILEN#.....
."NACH DEM GOTO-BEFEHL GESPRUNGEN WERDEN
.":.7.E...."BITTE BETRACHTEN SIE DAS FOL
GENDE PROGRAMM:......6:."..6 PRIN
T "Z$"EINGABE DES ALTERS"Z$:."7 INPUT A
.C...."8 PRINT"Z$"ALTER IN TAGEN ODER I
N MONATEN"Z$;:."10 INPUT B$......"12 IF
B$="Z$"TAGE"Z$" THEN 18"...A.."14 PRINT"
Z$"SIE SIND"Z$"12*A"Z$"MONATE ALT"Z$.E.B
.."16 GOTO20":."18 PRINT"Z$"SIE SIND"Z$"
365*A"Z$"TAGE ALT"Z$:."20 END...C..7:.".
DIESES PROGRAMM BERECHNET .ENTWEDER .DAS
.E.D.."ALTER IN TAGEN .ODER. IN MONATEN,
ABER...E..".NICHT. BEIDES ZUSAMMEN.":.7
...F.."WENN AUF DIE FRAGE VON ZEILE 8 DE
R.A.G.."STRING .TAGE. EINGEGEBEN WIRD, S
O BEWIRKT.G.H.."DIES EINEN SPRUNG ZU ZEI
LE 18."...I..7:."WIRD DER STRING .MONATE
. EINGEGEBEN, SO.I.J.."WIRD DER BEFEHL I
N ZEILE 14 AUSGEFUEHRT,";...K.."UND ZEIL
E 16 BEWIRKT DANN DEN SPRUNG".$.L.."ZU Z
EILE 20 (ZEILE 18 WIRD AUSGELASSEN)..W.M
..".BITTE BEACHTEN SIE,DASS DER ..END..-
BEFEHL"...N.."DAS PROGRAMM IN JEDEM FALL
BEENDET.";:.6...O.."..5 INPUT X":."10
IF X>=50 THEN 50":."20 GOTO 40...P.."30
PRINT X*10":."40 GOTO 60...Q.."50 PRINT
X":."60 END":.7.1.R..".WAS WIRD DURCH DI
ESES PROGRAMM GEDRUCKT,";.`.S.."WENN FUE
R X DER WERT 25 EINGEGEBEN WURDE...U..".
1.. 250":.".2.. 25":.".3.. ES WIRD NICHT
S GEDRUCKT":.7.E.V.."(1, 2 ODER 3)";:.A$
:.E(A$).3.216...W..E(A$).217,217,220...X
..Q$:.207.8.Y.."..NEIN., DA DIE BEDINGUN
G IN ZEILE 10 FUER":."X=25 NICHT ERFUELL
T IST,";.N.Z.." WIRD DAS":."PROGRAMM MIT
ZEILE 20 FORTGESETZT.......7:."VERSUCHE
N SIE ES NOCHMAL!":.6:.207.H...."..RICHT
IG!!!. ES WIRD NICHTS GEDRUCKT......."F
UER X=25 WIRD ZUNAECHST ZEILE 20 AUSGE-"
;.*...."FUEHRT, ZEILE 40 BEWIRKT DANN DE
N SPRUNG";.]...."ZU ZEILE 60 (ZEILE 50 W
IRD AUSGELASSEN).":.6......".BEVOR SIE D
EN KURS MIT LEKTION 6......"FORTSETZEN,
VERSUCHEN SIE BITTTE EIN......"PROGRAMM
ZU SCHREIBEN, DASS DEN .LOHN"......"EINE
S ARBEITERS .BERECHNET.":.7.1...."DER AR
BEITER SOLL . DM 8.35 PRO STUNDE.{...."
.VERDIENEN UND FUER .JEDE UEBERSTUNDE DA
S":."EINEINHALBFACHE DES ";......"LOHNES
. BEKOMMEN..":."ES SOLL NACH EINGABE DER
GEARBEITETEN"......"STUNDEN DER LOHN GE
DRUCKT WERDEN.":.7......"..BITTE NOTIERE
N SIE DIE AUFGABE, ..Q....".BEVO
R SIE EINE BELIEBIGE TASTE DRUECKEN..":.
6.....C$."..":.3:."....".10)".ENDE VON L
EKTION 5......"....WENN SIE BEREIT SIND
FUER LEKTION 6,"......"..ANTWORTEN SIE W
IE GEWOHNT MIT (J/N)"......7000......"."
;:.I.1.Y1:.".";:.:.".";:.J.0.Y2.Y1.E....
"
":.:..G.P..".";:.I.1.Y1:.".";:.:.".";:..
|.X..A$:.A$."N".8000...B..A$.."J".7000..
.L.."........VERSCHNAUFEN SIE EINEN MOME
NT, BIS"...V.."...........LEKTION 6. .GE
LADEN IST."......"BASIC-15",8.,.@.."....
..NUN KOENNEN SIE JA SCHON ZIEMLICH".Z.J
.."...VIEL. UEBEN SIE AUCH FUER SICH NOC
H"...T.."...EIN WENIG, BIS WIR UNS WIEDE
RSEHEN"...^.."............BEI .LEKTION 6
."...R..Z.1.700:.Z.E.|..64738...C$."..":
.3:."....".7)"ENDE VON LEKTION 5 TEIL 2.
....."........ BITTE WARTEN SIE, BIS TE
IL 3":.".... EINGELESEN IST......."....
............7000.D....LLLLLLLLLLLLLLLLLL
LLLLLLLLLLLLLLL......LLLLLLLLLLLLLLLLLLL
LLLLLLLLLLLLLL......LLLLLLLLLLLLLLLLLLLL
LLLLLLLLLLLLL.9....LLLLLLLLLLLLLLLLLLLLL
LLLLLLLLLLLL.D....".";:.I.1.Y1:.".";:.:.
".";:.J.0.Y2.Y1......"
":.:....P..".";:.I.
1.Y1:.".";:.:.".";:....X......MMMMMMMMMM
MMMMMMMMMMMMM......MMM. .X......
> CLICK IMAGE PREVIEW FOR FULL MODAL