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

LISTING 5

FILE INFORMATION

FILENAME(S): LISTING 5

FILE TYPE(S): PRG

FILE SIZE: 701b

FIRST SEEN: 2025-11-02 17:00:01

APPEARS ON: 3 disk(s)

FILE HASH

1d1bff2d4c51bb1be1eb7bb7564a4643a526a23c01d061a7324de2c81e3088bb

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
64 ER SONDERH 52 LISTING 5 PRG Treasure Chest - Sammlung 19 5 DOWNLOAD FILE
ROLLENSPIEL LISTING 5 PRG C64er, DuncanTwain 11 0 DOWNLOAD FILE
64 ER SONDERH 52 LISTING 5 PRG C64er 19 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 23 08 05 00 8D 36  30 30 30 30 3A 8F 20 54  |..#....60000:. T|
00000010: 41 42 45 4C 4C 45 4E 20  44 45 46 46 49 4E 49 45  |ABELLEN DEFFINIE|
00000020: 52 45 4E 00 40 08 0A 00  85 22 57 41 53 20 4E 55  |REN.@...."WAS NU|
00000030: 4E 20 22 3B 42 45 24 3A  8F 20 42 45 46 45 48 4C  |N ";BE$:. BEFEHL|
00000040: 00 60 08 14 00 8D 35 31  30 30 30 20 20 20 20 20  |.`....51000     |
00000050: 20 20 20 20 3A 8F 20 5A  45 52 4C 45 47 55 4E 47  |    :. ZERLEGUNG|
00000060: 00 80 08 1E 00 99 3A 99  22 42 45 24 3D 22 3B C7  |......:."BE$=";.|
00000070: 28 33 34 29 3B 42 45 24  3B C7 28 33 34 29 3A 99  |(34);BE$;.(34):.|
00000080: 00 8C 08 28 00 81 49 B2  31 A4 31 30 00 C3 08 32  |...(..I.1.10...2|
00000090: 00 3A 99 22 42 45 24 28  22 3B C9 28 C4 28 49 29  |.:."BE$(";.(.(I)|
000000A0: 2C C3 28 C4 28 49 29 29  AB 31 29 3B 22 29 3D 22  |,.(.(I)).1);")="|
000000B0: 3B C7 28 33 34 29 3B 42  45 24 28 49 29 3B C7 28  |;.(34);BE$(I);.(|
000000C0: 33 34 29 00 EC 08 3C 00  82 3A 99 22 11 41 4E 5A  |34)...<..:.".ANZ|
000000D0: 41 48 4C 20 44 45 52 20  57 4F 45 52 54 45 52 20  |AHL DER WOERTER |
000000E0: 28 57 5A 29 20 3A 22 3B  57 5A 3A 99 00 F4 08 46  |(WZ) :";WZ:....F|
000000F0: 00 89 31 30 00 18 09 38  C7 8F 42 45 24 20 49 4E  |..10...8..BE$ IN|
00000100: 20 42 45 24 28 31 29 2D  42 45 24 28 31 30 29 20  | BE$(1)-BE$(10) |
00000110: 5A 45 52 4C 45 47 45 4E  00 30 09 42 C7 81 49 B2  |ZERLEGEN.0.B..I.|
00000120: 31 A4 31 30 3A 42 45 24  28 49 29 B2 22 22 3A 82  |1.10:BE$(I)."":.|
00000130: 00 39 09 4C C7 57 5A B2  31 00 49 09 56 C7 81 49  |.9.L.WZ.1.I.V..I|
00000140: B2 31 A4 C3 28 42 45 24  29 00 6C 09 60 C7 3A 8B  |.1..(BE$).l.`.:.|
00000150: CA 28 42 45 24 2C 49 2C  31 29 B2 22 20 22 A7 8D  |.(BE$,I,1)." "..|
00000160: 35 31 31 30 30 3A 89 35  31 30 36 30 00 A3 09 65  |51100:.51060...e|
00000170: C7 3A 8B 57 5A B1 31 30  A7 99 22 45 49 4E 47 41  |.:.WZ.10.."EINGA|
00000180: 42 45 20 49 53 54 20 5A  55 20 4C 41 4E 47 20 21  |BE IST ZU LANG !|
00000190: 22 3A 49 B2 C3 28 42 45  24 29 AA 31 3A 89 35 31  |":I..(BE$).1:.51|
000001A0: 30 36 30 00 C3 09 6A C7  3A 42 45 24 28 57 5A 29  |060...j.:BE$(WZ)|
000001B0: B2 42 45 24 28 57 5A 29  AA CA 28 42 45 24 2C 49  |.BE$(WZ)..(BE$,I|
000001C0: 2C 31 29 00 CA 09 74 C7  82 49 00 D0 09 7E C7 8E  |,1)...t..I...~..|
000001D0: 00 EF 09 9C C7 8F 20 41  55 24 20 57 4F 45 52 54  |...... AU$ WOERT|
000001E0: 45 52 20 41 55 53 53 4F  52 54 49 45 52 45 4E 00  |ER AUSSORTIEREN.|
000001F0: 01 0A A6 C7 49 43 B2 30  3A 81 49 31 B2 31 A4 41  |....IC.0:.I1.1.A|
00000200: 5A 00 1C 0A B0 C7 3A 8B  42 45 24 28 57 5A 29 B2  |Z.....:.BE$(WZ).|
00000210: 41 55 24 28 49 31 29 A7  49 43 B2 31 00 24 0A BA  |AU$(I1).IC.1.$..|
00000220: C7 82 49 31 00 38 0A C4  C7 8B 49 43 B2 30 A7 57  |..I1.8....IC.0.W|
00000230: 5A B2 57 5A AA 31 3A 8E  00 49 0A CE C7 42 45 24  |Z.WZ.1:..I...BE$|
00000240: 28 57 5A 29 B2 22 22 3A  8E 00 6C 0A 60 EA 8F 20  |(WZ)."":..l.`.. |
00000250: 2A 2A 2A 20 54 41 42 45  4C 4C 45 4E 2D 44 45 46  |*** TABELLEN-DEF|
00000260: 46 49 4E 49 45 52 45 4E  20 2A 2A 2A 00 97 0A 65  |FINIEREN ***...e|
00000270: EA 83 20 44 45 52 2C 44  49 45 2C 44 41 53 2C 44  |.. DER,DIE,DAS,D|
00000280: 45 4E 2C 20 2C 55 45 42  45 52 2C 55 4E 54 45 52  |EN, ,UEBER,UNTER|
00000290: 2C 41 55 46 2C 49 4E 00  B2 0A 6A EA 41 5A B2 39  |,AUF,IN...j.AZ.9|
000002A0: 3A 81 49 B2 31 A4 41 5A  3A 87 41 55 24 28 49 29  |:.I.1.AZ:.AU$(I)|
000002B0: 3A 82 00 B8 0A 6F EA 8E  00 00 00 FF FF           |:....o.......   |

..#....60000:. TABELLEN DEFFINIEREN.@...
."WAS NUN ";BE$:. BEFEHL.`....51000     
    :. ZERLEGUNG......:."BE$=";G(34);BE$
;G(34):....(..I.1.10.C.2.:."BE$(";I(D(I)
,C(D(I)).1);")=";G(34);BE$(I);G(34)...<.
.:.".ANZAHL DER WOERTER (WZ) :";WZ:....F
..10...8G.BE$ IN BE$(1)-BE$(10) ZERLEGEN
.0.BG.I.1.10:BE$(I)."":..9.LGWZ.1.I.VG.I
.1.C(BE$).L.`G:.J(BE$,I,1)." "..51100:.5
1060...EG:.WZ.10.."EINGABE IST ZU LANG !
":I.C(BE$).1:.51060.C.JG:BE$(WZ).BE$(WZ)
.J(BE$,I,1).J.TG.I.P.~G.....G. AU$ WOERT
ER AUSSORTIEREN....GIC.0:.I1.1.AZ....G:.
BE$(WZ).AU$(I1).IC.1.$..G.I1.8.DG.IC.0.W
Z.WZ.1:..I.NGBE$(WZ)."":..L.`.. *** TABE
LLEN-DEFFINIEREN ***...E.. DER,DIE,DAS,D
EN, ,UEBER,UNTER,AUF,IN...J.AZ.9:.I.1.AZ
:.AU$(I):....O.......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL