PRG.LOGELEI-2
FILE INFORMATION
FILENAME(S): PRG.LOGELEI-2
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 01:12:36
APPEARS ON: 2 disk(s)
FILE HASH
ee5a6a8cb303b6237eebf0565e3794ed6aebf5fb34a42ce2ea96413079117129
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTER 64 9 | PRG.LOGELEI-2 | PRG | C64er, DuncanTwain | 23 | 3 | DOWNLOAD FILE |
| MASTER 64 9 | PRG.LOGELEI-2 | PRG | DuncanTwain | 23 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 02 00 8F 20 |*********.Q.... |
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 2A 00 79 08 03 00 8F 20 2A 20 44 49 45 20 53 43 |*.y.... * DIE SC|
00000060: 48 4C 55 53 53 46 4F 4C 47 45 52 55 4E 47 53 4D |HLUSSFOLGERUNGSM|
00000070: 41 53 43 48 49 4E 45 20 2A 00 A1 08 04 00 8F 20 |ASCHINE *...... |
00000080: 2A 20 20 20 20 20 20 20 42 49 53 20 5A 55 20 34 |* BIS ZU 4|
00000090: 20 56 41 52 49 41 42 4C 45 20 20 20 20 20 20 20 | VARIABLE |
000000A0: 2A 00 C9 08 05 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 06 00 8F 20 | *...... |
000000D0: 2A 20 20 48 45 49 4D 4F 20 50 4F 4E 4E 41 54 48 |* HEIMO PONNATH|
000000E0: 20 20 48 41 4D 42 55 52 47 20 31 39 38 35 20 20 | HAMBURG 1985 |
000000F0: 2A 00 19 09 07 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 2A 00 41 09 08 00 8F 20 | *.A.... |
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 00 47 09 09 00 8F 00 70 09 0A 00 99 C7 28 31 |*.G.....p.....(1|
00000150: 34 37 29 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 |47):.53280,0:.53|
00000160: 32 38 31 2C 30 3A 97 36 34 36 2C 35 3A 89 33 30 |281,0:.646,5:.30|
00000170: 00 91 09 0F 00 8F 20 2A 2A 2A 2A 20 55 50 20 43 |...... **** UP C|
00000180: 55 52 53 4F 52 20 53 45 54 5A 45 4E 20 2A 2A 2A |URSOR SETZEN ***|
00000190: 2A 00 AC 09 14 00 97 32 31 31 2C 53 3A 97 32 31 |*......211,S:.21|
000001A0: 34 2C 5A 3A 9E 35 38 36 34 30 3A 8E 00 D3 09 19 |4,Z:.58640:.....|
000001B0: 00 8F 20 2A 2A 2A 2A 20 48 50 2D 31 3A 20 46 55 |.. **** HP-1: FU|
000001C0: 4E 4B 54 49 4F 4E 45 4E 45 49 4E 47 41 42 45 20 |NKTIONENEINGABE |
000001D0: 2A 2A 2A 00 05 0A 1E 00 53 B2 37 3A 5A B2 35 3A |***.....S.7:Z.5:|
000001E0: 8D 32 30 3A 97 36 34 36 2C 37 3A 99 22 53 43 48 |.20:.646,7:."SCH|
000001F0: 4C 55 53 46 4F 4C 47 45 52 55 4E 47 53 4D 41 53 |LUSFOLGERUNGSMAS|
00000200: 43 48 49 4E 45 00 32 0A 23 00 53 B2 31 30 3A 5A |CHINE.2.#.S.10:Z|
00000210: B2 36 3A 8D 32 30 3A 97 36 34 36 2C 32 3A 99 22 |.6:.20:.646,2:."|
00000220: 42 49 53 20 5A 55 20 34 20 56 41 52 49 41 42 4C |BIS ZU 4 VARIABL|
00000230: 45 22 00 6A 0A 28 00 53 B2 36 3A 5A B2 39 3A 8D |E".j.(.S.6:Z.9:.|
00000240: 32 30 3A 97 36 34 36 2C 35 3A 99 22 49 4D 20 50 |20:.646,5:."IM P|
00000250: 52 4F 47 52 41 4D 4D 20 49 53 54 20 44 49 45 20 |ROGRAMM IST DIE |
00000260: 46 55 4E 4B 54 49 4F 4E 3A 22 00 90 0A 2D 00 4B |FUNKTION:"...-.K|
00000270: B2 31 3A 8D 31 30 30 3A 4B B2 30 3A 53 B2 30 3A |.1:.100:K.0:S.0:|
00000280: 5A B2 31 32 3A 8D 32 30 3A 99 22 59 3D 22 4C 24 |Z.12:.20:."Y="L$|
00000290: 00 B2 0A 2E 00 5A B2 31 34 3A 8D 32 30 3A 99 22 |.....Z.14:.20:."|
000002A0: 4D 49 54 20 22 4E 22 20 56 41 52 49 41 42 4C 45 |MIT "N" VARIABLE|
000002B0: 4E 22 00 C3 0A 32 00 53 B2 36 3A 5A B2 31 36 3A |N"...2.S.6:Z.16:|
000002C0: 8D 32 30 00 00 0B 37 00 99 C7 28 31 38 29 22 41 |.20...7...(18)"A|
000002D0: 22 C7 28 31 34 36 29 22 4C 54 45 20 4F 44 45 52 |".(146)"LTE ODER|
000002E0: 20 22 C7 28 31 38 29 22 4E 22 C7 28 31 34 36 29 | ".(18)"N".(146)|
000002F0: 22 45 55 45 20 46 55 4E 4B 54 49 4F 4E 20 3F 22 |"EUE FUNKTION ?"|
00000300: 00 1C 0B 3C 00 A1 41 24 3A 8B 41 24 B3 B1 22 41 |...<..A$:.A$.."A|
00000310: 22 AF 41 24 B3 B1 22 4E 22 A7 36 30 00 4B 0B 3E |".A$.."N".60.K.>|
00000320: 00 5A B2 31 37 3A 8D 32 30 3A 99 22 57 49 45 56 |.Z.17:.20:."WIEV|
00000330: 49 45 4C 45 20 56 41 52 49 41 42 4C 45 20 28 4D |IELE VARIABLE (M|
00000340: 41 58 20 34 29 22 3B 3A 85 42 24 00 63 0B 3F 00 |AX 4)";:.B$.c.?.|
00000350: 4E B2 C5 28 42 24 29 3A 8B 4E B3 31 B0 4E B1 34 |N..(B$):.N.1.N.4|
00000360: A7 36 32 00 72 0B 41 00 8B 41 24 B2 22 41 22 A7 |.62.r.A..A$."A".|
00000370: 39 35 00 A5 0B 46 00 53 B2 30 3A 5A B2 31 39 3A |95...F.S.0:Z.19:|
00000380: 8D 32 30 3A 99 22 59 28 41 2C 42 2C 2E 2E 29 3D |.20:."Y(A,B,..)=|
00000390: 22 3B 3A 85 4C 24 3A 97 37 38 31 2C 31 39 3A 9E |";:.L$:.781,19:.|
000003A0: 35 39 39 30 33 00 C7 0B 4B 00 8D 32 30 3A 99 22 |59903...K..20:."|
000003B0: 59 3D 22 4C 24 3A 81 49 B2 30 A4 35 30 30 3A 82 |Y="L$:.I.0.500:.|
000003C0: 3A 97 36 34 36 2C 30 00 EE 0B 50 00 99 C7 28 31 |:.646,0...P...(1|
000003D0: 34 37 29 C7 28 31 37 29 3A 99 22 31 30 30 4C 24 |47).(17):."100L$|
000003E0: 3D 22 C7 28 33 34 29 4C 24 C7 28 33 34 29 00 26 |=".(34)L$.(34).&|
000003F0: 0C 55 00 99 22 31 31 30 44 45 46 46 4E 4C 28 22 |.U.."110DEFFNL("|
00000400: C7 28 36 34 AA 4E 29 22 29 3D 22 4C 24 3A 99 22 |.(64.N)")="L$:."|
00000410: 31 32 30 4E 3D 22 4E 3A 99 22 52 55 4E 39 35 22 |120N="N:."RUN95"|
00000420: C7 28 31 39 29 3B 00 53 0C 5A 00 97 36 33 31 2C |.(19);.S.Z..631,|
00000430: 31 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 2C |13:.632,13:.633,|
00000440: 31 33 3A 97 36 33 34 2C 31 33 3A 97 31 39 38 2C |13:.634,13:.198,|
00000450: 34 3A 80 00 76 0C 5E 00 8F 20 2A 2A 2A 2A 20 48 |4:..v.^.. **** H|
00000460: 50 2D 32 3A 20 42 45 52 45 43 48 4E 55 4E 47 45 |P-2: BERECHNUNGE|
00000470: 4E 20 2A 2A 2A 2A 00 89 0C 5F 00 97 36 34 36 2C |N ****..._..646,|
00000480: 35 3A 99 C7 28 31 34 37 29 00 B5 0C 64 00 4C 24 |5:..(147)...d.L$|
00000490: B2 22 28 28 41 3E 3D 42 29 41 4E 44 28 42 3E 3D |."((A>=B)AND(B>=|
000004A0: 43 29 41 4E 44 28 43 3E 3D 44 29 29 3E 3D 28 41 |C)AND(C>=D))>=(A|
000004B0: 3E 3D 44 29 22 00 DF 0C 6E 00 96 A5 4C 28 44 29 |>=D)"...n...L(D)|
000004C0: B2 28 28 41 B1 B2 42 29 AF 28 42 B1 B2 43 29 AF |.((A..B).(B..C).|
000004D0: 28 43 B1 B2 44 29 29 B1 B2 28 41 B1 B2 44 29 00 |(C..D))..(A..D).|
000004E0: E8 0C 78 00 4E B2 20 34 00 16 0D 7D 00 43 24 B2 |..x.N. 4...}.C$.|
000004F0: 22 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" -----------|
00000500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000510: 2D 2D 2D 2D 2D 22 00 21 0D 82 00 8B 4B B2 31 A7 |-----".!....K.1.|
00000520: 8E 00 5E 0D 8C 00 53 B2 32 3A 5A B2 30 3A 8D 32 |..^...S.2:Z.0:.2|
00000530: 30 3A 97 36 34 36 2C 32 3A 99 22 48 49 45 52 20 |0:.646,2:."HIER |
00000540: 49 53 54 20 44 49 45 20 57 41 48 52 48 45 49 54 |IST DIE WAHRHEIT|
00000550: 53 54 41 42 45 4C 4C 45 20 56 4F 4E 3A 22 00 8A |STABELLE VON:"..|
00000560: 0D 91 00 53 B2 30 3A 5A B2 32 3A 8D 32 30 3A 99 |...S.0:Z.2:.20:.|
00000570: 22 59 3D 22 4C 24 3A 97 36 34 36 2C 31 3A 99 3A |"Y="L$:.646,1:.:|
00000580: 99 43 24 3A 97 36 34 36 2C 35 00 B7 0D 96 00 91 |.C$:.646,5......|
00000590: 4E 8D 32 30 30 2C 33 30 30 2C 34 30 30 2C 35 30 |N.200,300,400,50|
000005A0: 30 3A 99 3A 97 36 34 36 2C 31 3A 99 43 24 3A 97 |0:.:.646,1:.C$:.|
000005B0: 36 34 36 2C 35 3A 99 00 E3 0D 9B 00 99 22 57 45 |646,5:......."WE|
000005C0: 4E 4E 20 41 4C 4C 45 20 45 52 47 45 42 4E 49 53 |NN ALLE ERGEBNIS|
000005D0: 53 45 20 2D 31 20 4C 41 55 54 45 4E 2C 20 44 41 |SE -1 LAUTEN, DA|
000005E0: 4E 4E 22 00 1A 0E A0 00 99 22 49 53 54 20 44 45 |NN"......"IST DE|
000005F0: 52 20 53 43 48 4C 55 53 53 20 52 49 43 48 54 49 |R SCHLUSS RICHTI|
00000600: 47 20 21 20 28 54 41 53 54 45 29 22 3A 97 31 39 |G ! (TASTE)":.19|
00000610: 38 2C 30 3A 92 31 39 38 2C 31 00 20 0E BE 00 80 |8,0:.198,1. ....|
00000620: 00 3D 0E C3 00 8F 20 2A 2A 2A 2A 2A 20 31 20 56 |.=.... ***** 1 V|
00000630: 41 52 49 41 42 4C 45 20 2A 2A 2A 2A 2A 00 6A 0E |ARIABLE *****.j.|
00000640: C8 00 99 A3 31 35 29 22 41 22 A3 33 30 29 22 45 |....15)"A".30)"E|
00000650: 52 47 49 42 54 22 3A 97 36 34 36 2C 31 3A 99 43 |RGIBT":.646,1:.C|
00000660: 24 3A 99 3A 97 36 34 36 2C 35 00 86 0E CD 00 81 |$:.:.646,5......|
00000670: 41 B2 AB 31 A4 30 3A 99 A3 31 35 29 41 A3 33 30 |A..1.0:..15)A.30|
00000680: 29 A5 4C 28 41 29 00 8F 0E D2 00 82 41 3A 8E 00 |).L(A)......A:..|
00000690: AC 0E 27 01 8F 20 2A 2A 2A 2A 2A 20 32 20 56 41 |..'.. ***** 2 VA|
000006A0: 52 49 41 42 4C 45 20 2A 2A 2A 2A 2A 00 DF 0E 2C |RIABLE *****...,|
000006B0: 01 99 A3 35 29 22 41 22 A3 31 30 29 22 42 22 A3 |...5)"A".10)"B".|
000006C0: 33 30 29 22 45 52 47 49 42 54 22 3A 97 36 34 36 |30)"ERGIBT":.646|
000006D0: 2C 31 3A 99 43 24 3A 99 3A 97 36 34 36 2C 35 00 |,1:.C$:.:.646,5.|
000006E0: F3 0E 31 01 81 41 B2 AB 31 A4 30 3A 81 42 B2 AB |..1..A..1.0:.B..|
000006F0: 31 A4 30 00 0B 0F 36 01 99 A3 35 29 41 A3 31 30 |1.0...6...5)A.10|
00000700: 29 42 A3 33 30 29 A5 4C 28 42 29 00 17 0F 3B 01 |)B.30).L(B)...;.|
00000710: 82 42 3A 82 41 3A 8E 00 34 0F 8B 01 8F 20 2A 2A |.B:.A:..4.... **|
00000720: 2A 2A 2A 20 33 20 56 41 52 49 41 42 4C 45 20 2A |*** 3 VARIABLE *|
00000730: 2A 2A 2A 2A 00 5A 0F 90 01 99 A3 35 29 22 41 22 |****.Z.....5)"A"|
00000740: A3 31 30 29 22 42 22 A3 31 35 29 22 43 22 A3 33 |.10)"B".15)"C".3|
00000750: 30 29 22 45 52 47 49 42 54 22 00 72 0F 95 01 97 |0)"ERGIBT".r....|
00000760: 36 34 36 2C 31 3A 99 43 24 3A 99 3A 97 36 34 36 |646,1:.C$:.:.646|
00000770: 2C 35 00 8E 0F 9A 01 81 41 B2 AB 31 A4 30 3A 81 |,5......A..1.0:.|
00000780: 42 B2 AB 31 A4 30 3A 81 43 B2 AB 31 A4 30 00 AB |B..1.0:.C..1.0..|
00000790: 0F 9F 01 99 A3 35 29 41 A3 31 30 29 42 A3 31 35 |.....5)A.10)B.15|
000007A0: 29 43 A3 33 30 29 A5 4C 28 43 29 00 BA 0F A4 01 |)C.30).L(C).....|
000007B0: 82 43 3A 82 42 3A 82 41 3A 8E 00 D7 0F EF 01 8F |.C:.B:.A:.......|
000007C0: 20 2A 2A 2A 2A 2A 20 34 20 56 41 52 49 41 42 4C | ***** 4 VARIABL|
000007D0: 45 20 2A 2A 2A 2A 2A 00 04 10 F4 01 99 A3 35 29 |E *****.......5)|
000007E0: 22 41 22 A3 31 30 29 22 42 22 A3 31 35 29 22 43 |"A".10)"B".15)"C|
000007F0: 22 A3 32 30 29 22 44 22 A3 33 30 29 22 45 52 47 |".20)"D".30)"ERG|
00000800: 49 42 54 22 00 1C 10 F9 01 97 36 34 36 2C 31 3A |IBT"......646,1:|
00000810: 99 43 24 3A 99 3A 97 36 34 36 2C 35 00 40 10 FE |.C$:.:.646,5.@..|
00000820: 01 81 41 B2 AB 31 A4 30 3A 81 42 B2 AB 31 A4 30 |..A..1.0:.B..1.0|
00000830: 3A 81 43 B2 AB 31 A4 30 3A 81 44 B2 AB 31 A4 30 |:.C..1.0:.D..1.0|
00000840: 00 62 10 03 02 99 A3 35 29 41 A3 31 30 29 42 A3 |.b.....5)A.10)B.|
00000850: 31 35 29 43 A3 32 30 29 44 A3 33 30 29 A5 4C 28 |15)C.20)D.30).L(|
00000860: 44 29 00 74 10 08 02 82 44 3A 82 43 3A 82 42 3A |D).t....D:.C:.B:|
00000870: 82 41 3A 8E 00 00 00 33 |.A:....3 |
..).... ********************************
*.Q.... *
*.Y.... * DIE SCHLUSSFOLGERUNGSMASCHINE
*...... * BIS ZU 4 VARIABLE
*.I.... *
*...... * HEIMO PONNATH HAMBURG 1985
*...... *
*.A.... ********************************
*.G.....P....G(147):.53280,0:.53281,0:.6
46,5:.30...... **** UP CURSOR SETZEN ***
*......211,S:.214,Z:.58640:..S.... ****
HP-1: FUNKTIONENEINGABE ***.....S.7:Z.5:
.20:.646,7:."SCHLUSFOLGERUNGSMASCHINE.2.
#.S.10:Z.6:.20:.646,2:."BIS ZU 4 VARIABL
E".J.(.S.6:Z.9:.20:.646,5:."IM PROGRAMM
IST DIE FUNKTION:"...-.K.1:.100:K.0:S.0:
Z.12:.20:."Y="L$.....Z.14:.20:."MIT "N"
VARIABLEN".C.2.S.6:Z.16:.20...7..G(18)"A
"G(146)"LTE ODER "G(18)"N"G(146)"EUE FUN
KTION ?"...<..A$:.A$.."A".A$.."N".60.K.>
.Z.17:.20:."WIEVIELE VARIABLE (MAX 4)";:
.B$.C.?.N.E(B$):.N.1.N.4.62.R.A..A$."A".
95...F.S.0:Z.19:.20:."Y(A,B,..)=";:.L$:.
781,19:.59903.G.K..20:."Y="L$:.I.0.500:.
:.646,0...P..G(147)G(17):."100L$="G(34)L
$G(34).&.U.."110DEFFNL("G(64.N)")="L$:."
120N="N:."RUN95"G(19);.S.Z..631,13:.632,
13:.633,13:.634,13:.198,4:..V.^.. **** H
P-2: BERECHNUNGEN ****..._..646,5:.G(147
)...D.L$."((A>=B)AND(B>=C)AND(C>=D))>=(A
>=D)"...N...L(D).((A..B).(B..C).(C..D)).
.(A..D)...X.N. 4...}.C$." -----------
---------------------".!....K.1...^...S.
2:Z.0:.20:.646,2:."HIER IST DIE WAHRHEIT
STABELLE VON:".....S.0:Z.2:.20:."Y="L$:.
646,1:.:.C$:.646,5......N.200,300,400,50
0:.:.646,1:.C$:.646,5:......."WENN ALLE
ERGEBNISSE -1 LAUTEN, DANN"... .."IST DE
R SCHLUSS RICHTIG ! (TASTE)":.198,0:.198
,1. .....=.C.. ***** 1 VARIABLE *****.J.
H...15)"A".30)"ERGIBT":.646,1:.C$:.:.646
,5...M..A..1.0:..15)A.30).L(A)...R..A:..
..'.. ***** 2 VARIABLE *****...,...5)"A"
.10)"B".30)"ERGIBT":.646,1:.C$:.:.646,5.
..1..A..1.0:.B..1.0...6...5)A.10)B.30).L
(B)...;..B:.A:..4.... ***** 3 VARIABLE *
****.Z.....5)"A".10)"B".15)"C".30)"ERGIB
T".R....646,1:.C$:.:.646,5......A..1.0:.
B..1.0:.C..1.0.......5)A.10)B.15)C.30).L
(C)......C:.B:.A:..W.... ***** 4 VARIABL
E *****.......5)"A".10)"B".15)"C".20)"D"
.30)"ERGIBT"......646,1:.C$:.:.646,5.@..
..A..1.0:.B..1.0:.C..1.0:.D..1.0.B.....5
)A.10)B.15)C.20)D.30).L(D).T....D:.C:.B:
.A:....3
> CLICK IMAGE PREVIEW FOR FULL MODAL