_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

PRG.LOGELEI-1

FILE INFORMATION

FILENAME(S): PRG.LOGELEI-1

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 01:12:36

APPEARS ON: 2 disk(s)

FILE HASH

ac84814d83af2d57cfa2cb9b2df4c310e84589523d703cc6b4268a4717605376

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MASTER 64 9 PRG.LOGELEI-1 PRG C64er, DuncanTwain 23 0 DOWNLOAD FILE
MASTER 64 9 PRG.LOGELEI-1 PRG DuncanTwain 23 0 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 20 20 20 20 20 4C  |*.y.... *      L|
00000060: 4F 47 45 4C 45 49 45 4E  20 46 55 45 52 20 5A 57  |OGELEIEN FUER ZW|
00000070: 45 49 20 20 20 20 20 20  2A 00 A1 08 04 00 8F 20  |EI      *...... |
00000080: 2A 20 20 20 20 20 20 20  20 20 20 20 56 41 52 49  |*           VARI|
00000090: 41 42 4C 45 20 20 20 20  20 20 20 20 20 20 20 20  |ABLE            |
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 02 0A 1E 00  53 B2 31 31 3A 5A B2 35  |***.....S.11:Z.5|
000001E0: 3A 8D 32 30 3A 97 36 34  36 2C 37 3A 99 22 4C 4F  |:.20:.646,7:."LO|
000001F0: 47 45 4C 45 49 45 4E 20  46 55 45 52 20 5A 57 45  |GELEIEN FUER ZWE|
00000200: 49 22 00 26 0A 23 00 53  B2 31 36 3A 5A B2 36 3A  |I".&.#.S.16:Z.6:|
00000210: 8D 32 30 3A 97 36 34 36  2C 32 3A 99 22 56 41 52  |.20:.646,2:."VAR|
00000220: 49 41 42 4C 45 22 00 5F  0A 28 00 53 B2 36 3A 5A  |IABLE"._.(.S.6:Z|
00000230: B2 31 30 3A 8D 32 30 3A  97 36 34 36 2C 35 3A 99  |.10:.20:.646,5:.|
00000240: 22 49 4D 20 50 52 4F 47  52 41 4D 4D 20 49 53 54  |"IM PROGRAMM IST|
00000250: 20 44 49 45 20 46 55 4E  4B 54 49 4F 4E 3A 22 00  | DIE FUNKTION:".|
00000260: 85 0A 2D 00 4B B2 31 3A  8D 31 30 30 3A 4B B2 30  |..-.K.1:.100:K.0|
00000270: 3A 53 B2 30 3A 5A B2 31  35 3A 8D 32 30 3A 99 22  |:S.0:Z.15:.20:."|
00000280: 43 3D 22 4C 24 00 96 0A  32 00 53 B2 36 3A 5A B2  |C="L$...2.S.6:Z.|
00000290: 32 30 3A 8D 32 30 00 D3  0A 37 00 99 C7 28 31 38  |20:.20...7...(18|
000002A0: 29 22 41 22 C7 28 31 34  36 29 22 4C 54 45 20 4F  |)"A".(146)"LTE O|
000002B0: 44 45 52 20 22 C7 28 31  38 29 22 4E 22 C7 28 31  |DER ".(18)"N".(1|
000002C0: 34 36 29 22 45 55 45 20  46 55 4E 4B 54 49 4F 4E  |46)"EUE FUNKTION|
000002D0: 20 3F 22 00 EF 0A 3C 00  A1 41 24 3A 8B 41 24 B3  | ?"...<..A$:.A$.|
000002E0: B1 22 41 22 AF 41 24 B3  B1 22 4E 22 A7 36 30 00  |."A".A$.."N".60.|
000002F0: FE 0A 41 00 8B 41 24 B2  22 41 22 A7 39 35 00 2E  |..A..A$."A".95..|
00000300: 0B 46 00 53 B2 30 3A 5A  B2 32 32 3A 8D 32 30 3A  |.F.S.0:Z.22:.20:|
00000310: 99 22 43 28 41 2C 42 29  3D 22 3B 3A 85 4C 24 3A  |."C(A,B)=";:.L$:|
00000320: 97 37 38 31 2C 32 32 3A  9E 35 39 39 30 33 00 50  |.781,22:.59903.P|
00000330: 0B 4B 00 8D 32 30 3A 99  22 43 3D 22 4C 24 3A 81  |.K..20:."C="L$:.|
00000340: 49 B2 30 A4 35 30 30 3A  82 3A 97 36 34 36 2C 30  |I.0.500:.:.646,0|
00000350: 00 77 0B 50 00 99 C7 28  31 34 37 29 C7 28 31 37  |.w.P...(147).(17|
00000360: 29 3A 99 22 31 30 30 4C  24 3D 22 C7 28 33 34 29  |):."100L$=".(34)|
00000370: 4C 24 C7 28 33 34 29 00  B0 0B 55 00 99 22 31 31  |L$.(34)...U.."11|
00000380: 30 44 45 46 46 4E 4C 28  41 29 3D 22 4C 24 3A 99  |0DEFFNL(A)="L$:.|
00000390: 22 31 32 30 44 45 46 46  4E 4D 28 42 29 3D 22 4C  |"120DEFFNM(B)="L|
000003A0: 24 3A 99 22 52 55 4E 39  35 22 C7 28 31 39 29 3B  |$:."RUN95".(19);|
000003B0: 00 DD 0B 5A 00 97 36 33  31 2C 31 33 3A 97 36 33  |...Z..631,13:.63|
000003C0: 32 2C 31 33 3A 97 36 33  33 2C 31 33 3A 97 36 33  |2,13:.633,13:.63|
000003D0: 34 2C 31 33 3A 97 31 39  38 2C 34 3A 80 00 00 0C  |4,13:.198,4:....|
000003E0: 5E 00 8F 20 2A 2A 2A 2A  20 48 50 2D 32 3A 20 42  |^.. **** HP-2: B|
000003F0: 45 52 45 43 48 4E 55 4E  47 45 4E 20 2A 2A 2A 2A  |ERECHNUNGEN ****|
00000400: 00 13 0C 5F 00 97 36 34  36 2C 35 3A 99 C7 28 31  |..._..646,5:..(1|
00000410: 34 37 29 00 2E 0C 64 00  4C 24 B2 22 4E 4F 54 28  |47)...d.L$."NOT(|
00000420: 41 20 41 4E 44 28 4E 4F  54 20 42 29 29 22 00 45  |A AND(NOT B))".E|
00000430: 0C 6E 00 96 A5 4C 28 41  29 B2 A8 28 41 20 AF 28  |.n...L(A)..(A .(|
00000440: A8 20 42 29 29 00 5C 0C  78 00 96 A5 4D 28 42 29  |. B)).\.x...M(B)|
00000450: B2 A8 28 41 20 AF 28 A8  20 42 29 29 00 67 0C 82  |..(A .(. B)).g..|
00000460: 00 8B 4B B2 31 A7 8E 00  A0 0C 8C 00 53 B2 35 3A  |..K.1.......S.5:|
00000470: 5A B2 35 3A 8D 32 30 3A  97 36 34 36 2C 32 3A 99  |Z.5:.20:.646,2:.|
00000480: 22 48 49 45 52 20 49 53  54 20 44 49 45 20 57 41  |"HIER IST DIE WA|
00000490: 48 52 48 45 49 54 53 54  41 42 45 4C 4C 45 3A 22  |HRHEITSTABELLE:"|
000004A0: 00 CE 0C 91 00 99 3A 99  3A 99 3A 97 36 34 36 2C  |......:.:.:.646,|
000004B0: 31 3A 99 A3 35 29 22 41  22 A3 31 30 29 22 42 22  |1:..5)"A".10)"B"|
000004C0: A3 32 35 29 22 45 52 47  49 42 54 20 43 22 00 02  |.25)"ERGIBT C"..|
000004D0: 0D 96 00 99 A3 34 29 22  2D 2D 2D 2D 2D 2D 2D 2D  |.....4)"--------|
000004E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000004F0: 2D 2D 2D 2D 2D 2D 2D 2D  22 3A 97 36 34 36 2C 35  |--------":.646,5|
00000500: 3A 99 00 2A 0D 9B 00 81  41 B2 AB 31 A4 30 3A 81  |:..*....A..1.0:.|
00000510: 42 B2 AB 31 A4 30 3A 99  A3 35 29 41 A3 31 30 29  |B..1.0:..5)A.10)|
00000520: 42 A3 32 37 29 A5 4D 28  42 29 00 34 0D A0 00 82  |B.27).M(B).4....|
00000530: 42 3A 82 41 00 6F 0D A5  00 99 3A 97 36 34 36 2C  |B:.A.o....:.646,|
00000540: 31 3A 99 A3 34 29 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |1:..4)"---------|
00000550: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000560: 2D 2D 2D 2D 2D 2D 2D 22  3A 97 36 34 36 2C 35 00  |-------":.646,5.|
00000570: 88 0D AA 00 53 B2 30 3A  5A B2 32 30 3A 8D 32 30  |....S.0:Z.20:.20|
00000580: 3A 99 22 43 3D 22 4C 24  00 00 00 28              |:."C="L$...(    |
..).... ********************************
*.Q.... *                               
*.Y.... *      LOGELEIEN FUER ZWEI      
*...... *           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.11:Z.5
:.20:.646,7:."LOGELEIEN FUER ZWEI".&.#.S
.16:Z.6:.20:.646,2:."VARIABLE"._.(.S.6:Z
.10:.20:.646,5:."IM PROGRAMM IST DIE FUN
KTION:"...-.K.1:.100:K.0:S.0:Z.15:.20:."
C="L$...2.S.6:Z.20:.20.S.7..G(18)"A"G(14
6)"LTE ODER "G(18)"N"G(146)"EUE FUNKTION
 ?"...<..A$:.A$.."A".A$.."N".60...A..A$.
"A".95...F.S.0:Z.22:.20:."C(A,B)=";:.L$:
.781,22:.59903.P.K..20:."C="L$:.I.0.500:
.:.646,0.W.P..G(147)G(17):."100L$="G(34)
L$G(34)...U.."110DEFFNL(A)="L$:."120DEFF
NM(B)="L$:."RUN95"G(19);...Z..631,13:.63
2,13:.633,13:.634,13:.198,4:....^.. ****
 HP-2: BERECHNUNGEN ****..._..646,5:.G(1
47)...D.L$."NOT(A AND(NOT B))".E.N...L(A
)..(A .(. B)).\.X...M(B)..(A .(. B)).G..
..K.1... ...S.5:Z.5:.20:.646,2:."HIER IS
T DIE WAHRHEITSTABELLE:".N....:.:.:.646,
1:..5)"A".10)"B".25)"ERGIBT C".......4)"
--------------------------------":.646,5
:..*....A..1.0:.B..1.0:..5)A.10)B.27).M(
B).4. ..B:.A.O....:.646,1:..4)"---------
-----------------------":.646,5.....S.0:
Z.20:.20:."C="L$...(
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL