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

SCHALLPLATTENV.

FILE INFORMATION

FILENAME(S): SCHALLPLATTENV.

FILE TYPE(S): PRG

FILE SIZE: 2.4K

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

APPEARS ON: 2 disk(s)

FILE HASH

ef3e81553ea1ff3e6c15750c735484cebdba2658d6cf37b85f83ec10cf981ff8

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SONDERHEFT 5 86 SCHALLPLATTENV. PRG C64er, DuncanTwain 11 12 DOWNLOAD FILE
SONDERHEFT 5 86 SCHALLPLATTENV. PRG DuncanTwain 11 12 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 27 08 0A 00 8F 20  2D 2D 2D 20 53 43 48 41  |..'.... --- SCHA|
00000010: 4C 4C 50 4C 41 54 54 45  4E 56 45 52 57 41 4C 54  |LLPLATTENVERWALT|
00000020: 55 4E 47 20 2D 2D 2D 00  4D 08 14 00 8F 20 2D 2D  |UNG ---.M.... --|
00000030: 2D 2D 2D 20 28 53 2E 42  41 4C 4F 55 49 2F 46 45  |--- (S.BALOUI/FE|
00000040: 42 20 31 39 38 36 29 20  2D 2D 2D 2D 2D 00 53 08  |B 1986) -----.S.|
00000050: 1E 00 3A 00 71 08 28 00  8F 20 2D 2D 2D 20 44 49  |..:.q.(.. --- DI|
00000060: 4D 45 4E 53 49 4F 4E 49  45 52 55 4E 47 20 2D 2D  |MENSIONIERUNG --|
00000070: 2D 00 96 08 32 00 86 54  24 28 35 30 30 29 2C 49  |-...2..T$(500),I|
00000080: 24 28 35 30 30 29 2C 50  24 28 35 30 30 29 2C 4D  |$(500),P$(500),M|
00000090: 24 28 35 30 30 29 00 9C  08 3C 00 3A 00 B7 08 46  |$(500)...<.:...F|
000000A0: 00 8F 20 2D 2D 2D 20 56  4F 52 42 45 52 45 49 54  |.. --- VORBEREIT|
000000B0: 55 4E 47 20 2D 2D 2D 00  E5 08 50 00 47 24 B2 22  |UNG ---...P.G$."|
000000C0: 44 22 3A 8F 20 42 45 49  20 46 4C 4F 50 50 59 42  |D":. BEI FLOPPYB|
000000D0: 45 54 52 49 45 42 20 49  4E 20 27 46 27 20 41 45  |ETRIEB IN 'F' AE|
000000E0: 4E 44 45 52 4E 00 1B 09  5A 00 99 22 27 45 27 20  |NDERN...Z.."'E' |
000000F0: 44 52 55 45 43 4B 45 4E  2C 20 57 45 4E 4E 20 45  |DRUECKEN, WENN E|
00000100: 52 53 54 42 45 4E 55 54  5A 55 4E 47 20 44 45 53  |RSTBENUTZUNG DES|
00000110: 20 50 52 4F 47 52 41 4D  4D 53 22 00 2E 09 64 00  | PROGRAMMS"...d.|
00000120: A1 41 24 3A 8B 41 24 B2  22 22 A7 31 30 30 00 51  |.A$:.A$."".100.Q|
00000130: 09 6E 00 8B 41 24 B3 B1  22 45 22 A7 8D 37 38 30  |.n..A$.."E"..780|
00000140: 3A 8F 20 44 41 54 45 49  20 45 49 4E 4C 45 53 45  |:. DATEI EINLESE|
00000150: 4E 00 57 09 78 00 3A 00  6B 09 82 00 8F 20 2D 2D  |N.W.x.:.k.... --|
00000160: 2D 20 4D 45 4E 55 45 20  2D 2D 2D 00 89 09 8C 00  |- MENUE ---.....|
00000170: 99 C7 28 31 34 37 29 3A  8F 20 53 43 52 45 45 4E  |..(147):. SCREEN|
00000180: 20 4C 4F 45 53 43 48 45  4E 00 AD 09 96 00 99 22  | LOESCHEN......"|
00000190: 28 45 29 49 4E 54 52 41  47 45 4E 20 56 4F 4E 20  |(E)INTRAGEN VON |
000001A0: 44 41 54 45 4E 53 41 45  54 5A 45 4E 22 00 CE 09  |DATENSAETZEN"...|
000001B0: A0 00 99 22 28 53 29 55  43 48 45 4E 20 56 4F 4E  |..."(S)UCHEN VON|
000001C0: 20 44 41 54 45 4E 53 41  45 54 5A 45 4E 22 00 ED  | DATENSAETZEN"..|
000001D0: 09 AA 00 99 22 28 42 29  45 45 4E 44 45 4E 20 44  |...."(B)EENDEN D|
000001E0: 45 53 20 50 52 4F 47 52  41 4D 4D 53 22 00 01 0A  |ES PROGRAMMS"...|
000001F0: B4 00 99 3A 99 22 4B 4F  4D 4D 41 4E 44 4F 20 3F  |...:."KOMMANDO ?|
00000200: 22 00 14 0A BE 00 A1 41  24 3A 8B 41 24 B2 22 22  |"......A$:.A$.""|
00000210: A7 31 39 30 00 25 0A C8  00 8B 41 24 B2 22 45 22  |.190.%....A$."E"|
00000220: A7 8D 32 36 30 00 36 0A  D2 00 8B 41 24 B2 22 53  |..260.6....A$."S|
00000230: 22 A7 8D 33 34 30 00 49  0A DC 00 8B 41 24 B2 22  |"..340.I....A$."|
00000240: 42 22 A7 8D 36 30 30 3A  80 00 52 0A E6 00 89 31  |B"..600:..R....1|
00000250: 34 30 00 58 0A F0 00 3A  00 70 0A FA 00 8F 20 2D  |40.X...:.p.... -|
00000260: 2D 2D 20 45 49 4E 54 52  41 47 45 4E 20 2D 2D 2D  |-- EINTRAGEN ---|
00000270: 00 A2 0A 04 01 41 44 B2  41 44 AA 31 3A 8F 20 41  |.....AD.AD.1:. A|
00000280: 4E 5A 41 48 4C 20 44 41  54 45 4E 53 41 45 54 5A  |NZAHL DATENSAETZ|
00000290: 45 20 55 4D 20 45 49 4E  53 20 45 52 48 4F 45 48  |E UM EINS ERHOEH|
000002A0: 45 4E 00 B6 0A 0E 01 85  22 54 49 54 45 4C 22 3B  |EN......"TITEL";|
000002B0: 54 24 28 41 44 29 00 CE  0A 18 01 85 22 49 4E 54  |T$(AD)......"INT|
000002C0: 45 52 50 52 45 54 22 3B  49 24 28 41 44 29 00 E3  |ERPRET";I$(AD)..|
000002D0: 0A 22 01 85 22 50 4C 41  54 54 45 22 3B 50 24 28  |.".."PLATTE";P$(|
000002E0: 41 44 29 00 FF 0A 2C 01  85 22 4D 55 53 49 4B 52  |AD)...,.."MUSIKR|
000002F0: 49 43 48 54 55 4E 47 22  3B 4D 24 28 41 44 29 00  |ICHTUNG";M$(AD).|
00000300: 05 0B 36 01 8E 00 0B 0B  40 01 3A 00 20 0B 4A 01  |..6.....@.:. .J.|
00000310: 8F 20 2D 2D 2D 20 53 55  43 48 45 4E 20 2D 2D 2D  |. --- SUCHEN ---|
00000320: 00 38 0B 54 01 85 22 53  55 43 48 4B 52 49 54 45  |.8.T.."SUCHKRITE|
00000330: 52 49 55 4D 22 3B 53 24  00 44 0B 5E 01 81 49 B2  |RIUM";S$.D.^..I.|
00000340: 31 A4 41 44 00 75 0B 68  01 8B 53 24 B3 B1 54 24  |1.AD.u.h..S$..T$|
00000350: 28 49 29 AF 53 24 B3 B1  49 24 28 49 29 AF 53 24  |(I).S$..I$(I).S$|
00000360: B3 B1 50 24 28 49 29 AF  53 24 B3 B1 4D 24 28 49  |..P$(I).S$..M$(I|
00000370: 29 A7 34 36 30 00 95 0B  72 01 99 54 24 28 49 29  |).460...r..T$(I)|
00000380: 3A 99 49 24 28 49 29 3A  99 50 24 28 49 29 3A 99  |:.I$(I):.P$(I):.|
00000390: 4D 24 28 49 29 00 B1 0B  7C 01 99 22 57 45 49 54  |M$(I)...|.."WEIT|
000003A0: 45 52 53 55 43 48 45 4E  20 28 4A 2F 4E 29 20 3F  |ERSUCHEN (J/N) ?|
000003B0: 22 00 C4 0B 86 01 A1 41  24 3A 8B 41 24 B2 22 22  |"......A$:.A$.""|
000003C0: A7 33 39 30 00 D4 0B 90  01 8B 41 24 B2 22 4A 22  |.390......A$."J"|
000003D0: A7 34 36 30 00 F2 0B 9A  01 99 22 28 4C 29 4F 45  |.460......"(L)OE|
000003E0: 53 43 48 45 4E 2F 28 41  29 45 4E 44 45 52 4E 20  |SCHEN/(A)ENDERN |
000003F0: 3F 22 00 05 0C A4 01 A1  41 24 3A 8B 41 24 B2 22  |?"......A$:.A$."|
00000400: 22 A7 34 32 30 00 2C 0C  AE 01 8B 41 24 B2 22 4C  |".420.,....A$."L|
00000410: 22 B0 41 24 B2 22 41 22  A7 4E B2 49 3A 8D 35 30  |".A$."A".N.I:.50|
00000420: 30 3A 8F 20 4C 4F 45 53  43 48 45 4E 00 49 0C B8  |0:. LOESCHEN.I..|
00000430: 01 8B 41 24 B2 22 41 22  A7 8D 32 36 30 3A 8F 20  |..A$."A"..260:. |
00000440: 45 49 4E 54 52 41 47 45  4E 00 59 0C C2 01 89 34  |EINTRAGEN.Y....4|
00000450: 37 30 3A 8F 20 45 4E 44  45 00 5F 0C CC 01 82 00  |70:. ENDE._.....|
00000460: 65 0C D6 01 8E 00 6B 0C  E0 01 3A 00 82 0C EA 01  |e.....k...:.....|
00000470: 8F 20 2D 2D 2D 20 4C 4F  45 53 43 48 45 4E 20 2D  |. --- LOESCHEN -|
00000480: 2D 2D 00 90 0C F4 01 81  49 B2 4E A4 41 44 AB 31  |--......I.N.AD.1|
00000490: 00 A2 0C FE 01 54 24 28  49 29 B2 54 24 28 49 AA  |.....T$(I).T$(I.|
000004A0: 31 29 00 B4 0C 08 02 49  24 28 49 29 B2 49 24 28  |1).....I$(I).I$(|
000004B0: 49 AA 31 29 00 C6 0C 12  02 50 24 28 49 29 B2 50  |I.1).....P$(I).P|
000004C0: 24 28 49 AA 31 29 00 D8  0C 1C 02 4D 24 28 49 29  |$(I.1).....M$(I)|
000004D0: B2 4D 24 28 49 AA 31 29  00 DE 0C 26 02 82 00 13  |.M$(I.1)...&....|
000004E0: 0D 30 02 41 44 B2 41 44  AB 31 3A 8F 20 41 4E 5A  |.0.AD.AD.1:. ANZ|
000004F0: 41 48 4C 20 44 41 54 45  4E 53 41 45 54 5A 45 20  |AHL DATENSAETZE |
00000500: 55 4D 20 45 49 4E 53 20  45 52 4E 49 45 44 52 49  |UM EINS ERNIEDRI|
00000510: 47 45 4E 00 19 0D 3A 02  8E 00 1F 0D 44 02 3A 00  |GEN...:.....D.:.|
00000520: 3D 0D 4E 02 8F 20 2D 2D  2D 20 44 41 54 45 49 20  |=.N.. --- DATEI |
00000530: 53 50 45 49 43 48 45 52  4E 20 2D 2D 2D 00 71 0D  |SPEICHERN ---.q.|
00000540: 58 02 8B 47 24 B2 22 44  22 A7 9F 31 2C 31 2C 31  |X..G$."D"..1,1,1|
00000550: 2C 22 53 43 48 41 4C 4C  50 4C 41 54 54 45 4E 22  |,"SCHALLPLATTEN"|
00000560: 3A 89 36 33 30 3A 8F 20  44 41 54 41 53 45 54 54  |:.630:. DATASETT|
00000570: 45 00 AF 0D 62 02 9F 31  35 2C 38 2C 31 35 2C 22  |E...b..15,8,15,"|
00000580: 53 3A 53 43 48 41 4C 4C  50 4C 41 54 54 45 4E 22  |S:SCHALLPLATTEN"|
00000590: 3A A0 31 35 3A 8F 20 4C  4F 45 53 43 48 45 4E 20  |:.15:. LOESCHEN |
000005A0: 44 45 52 20 41 4C 54 45  4E 20 44 41 54 45 49 00  |DER ALTEN DATEI.|
000005B0: D7 0D 6C 02 9F 31 2C 38  2C 32 2C 22 53 43 48 41  |..l..1,8,2,"SCHA|
000005C0: 4C 4C 50 4C 41 54 54 45  4E 2C 53 2C 57 22 3A 8F  |LLPLATTEN,S,W":.|
000005D0: 20 46 4C 4F 50 50 59 00  00 0E 76 02 98 31 2C 41  | FLOPPY...v..1,A|
000005E0: 44 3A 8F 20 41 4E 5A 41  48 4C 20 44 41 54 45 4E  |D:. ANZAHL DATEN|
000005F0: 53 41 45 54 5A 45 20 53  50 45 49 43 48 45 52 4E  |SAETZE SPEICHERN|
00000600: 00 0C 0E 80 02 81 49 B2  31 A4 41 44 00 35 0E 8A  |......I.1.AD.5..|
00000610: 02 8B 54 24 28 49 29 B2  22 22 A7 54 24 28 49 29  |..T$(I)."".T$(I)|
00000620: B2 22 2A 22 3A 8F 20 4C  45 45 52 45 52 20 53 54  |."*":. LEERER ST|
00000630: 52 49 4E 47 3F 00 5B 0E  94 02 98 31 2C 54 24 28  |RING?.[....1,T$(|
00000640: 49 29 3A 8F 20 54 24 28  31 29 2D 54 24 28 41 44  |I):. T$(1)-T$(AD|
00000650: 29 20 53 50 45 49 43 48  45 52 4E 00 84 0E 9E 02  |) SPEICHERN.....|
00000660: 8B 49 24 28 49 29 B2 22  22 A7 49 24 28 49 29 B2  |.I$(I)."".I$(I).|
00000670: 22 2A 22 3A 8F 20 4C 45  45 52 45 52 20 53 54 52  |"*":. LEERER STR|
00000680: 49 4E 47 3F 00 AA 0E A8  02 98 31 2C 49 24 28 49  |ING?......1,I$(I|
00000690: 29 3A 8F 20 49 24 28 31  29 2D 49 24 28 41 44 29  |):. I$(1)-I$(AD)|
000006A0: 20 53 50 45 49 43 48 45  52 4E 00 D3 0E B2 02 8B  | SPEICHERN......|
000006B0: 50 24 28 49 29 B2 22 22  A7 50 24 28 49 29 B2 22  |P$(I)."".P$(I)."|
000006C0: 2A 22 3A 8F 20 4C 45 45  52 45 52 20 53 54 52 49  |*":. LEERER STRI|
000006D0: 4E 47 3F 00 F9 0E BC 02  98 31 2C 50 24 28 49 29  |NG?......1,P$(I)|
000006E0: 3A 8F 20 50 24 28 31 29  2D 50 24 28 41 44 29 20  |:. P$(1)-P$(AD) |
000006F0: 53 50 45 49 43 48 45 52  4E 00 22 0F C6 02 8B 4D  |SPEICHERN."....M|
00000700: 24 28 49 29 B2 22 22 A7  4D 24 28 49 29 B2 22 2A  |$(I)."".M$(I)."*|
00000710: 22 3A 8F 20 4C 45 45 52  45 52 20 53 54 52 49 4E  |":. LEERER STRIN|
00000720: 47 3F 00 48 0F D0 02 98  31 2C 4D 24 28 49 29 3A  |G?.H....1,M$(I):|
00000730: 8F 20 4D 24 28 31 29 2D  4D 24 28 41 44 29 20 53  |. M$(1)-M$(AD) S|
00000740: 50 45 49 43 48 45 52 4E  00 4E 0F DA 02 82 00 68  |PEICHERN.N.....h|
00000750: 0F E4 02 A0 31 3A 8F 20  44 41 54 45 49 20 53 43  |....1:. DATEI SC|
00000760: 48 4C 49 45 53 53 45 4E  00 6E 0F EE 02 8E 00 74  |HLIESSEN.n.....t|
00000770: 0F F8 02 3A 00 91 0F 02  03 8F 20 2D 2D 2D 20 44  |...:...... --- D|
00000780: 41 54 45 49 20 45 49 4E  4C 45 53 45 4E 20 2D 2D  |ATEI EINLESEN --|
00000790: 2D 00 C5 0F 0C 03 8B 47  24 B2 22 44 22 A7 9F 31  |-......G$."D"..1|
000007A0: 2C 31 2C 30 2C 22 53 43  48 41 4C 4C 50 4C 41 54  |,1,0,"SCHALLPLAT|
000007B0: 54 45 4E 22 3A 89 38 30  30 3A 8F 20 44 41 54 41  |TEN":.800:. DATA|
000007C0: 53 45 54 54 45 00 ED 0F  16 03 9F 31 2C 38 2C 32  |SETTE......1,8,2|
000007D0: 2C 22 53 43 48 41 4C 4C  50 4C 41 54 54 45 4E 2C  |,"SCHALLPLATTEN,|
000007E0: 53 2C 52 22 3A 8F 20 46  4C 4F 50 50 59 00 15 10  |S,R":. FLOPPY...|
000007F0: 20 03 84 31 2C 41 44 3A  8F 20 41 4E 5A 41 48 4C  | ..1,AD:. ANZAHL|
00000800: 20 44 41 54 45 4E 53 41  45 54 5A 45 20 45 49 4E  | DATENSAETZE EIN|
00000810: 4C 45 53 45 4E 00 21 10  2A 03 81 49 B2 31 A4 41  |LESEN.!.*..I.1.A|
00000820: 44 00 3F 10 34 03 84 31  2C 54 24 28 49 29 3A 8F  |D.?.4..1,T$(I):.|
00000830: 20 54 49 54 45 4C 20 45  49 4E 4C 45 53 45 4E 00  | TITEL EINLESEN.|
00000840: 68 10 3E 03 8B 54 24 28  49 29 B2 22 2A 22 A7 54  |h.>..T$(I)."*".T|
00000850: 24 28 49 29 B2 22 22 3A  8F 20 4C 45 45 52 45 52  |$(I)."":. LEERER|
00000860: 20 53 54 52 49 4E 47 3F  00 8A 10 48 03 84 31 2C  | STRING?...H..1,|
00000870: 49 24 28 49 29 3A 8F 20  49 4E 54 45 52 50 52 45  |I$(I):. INTERPRE|
00000880: 54 20 45 49 4E 4C 45 53  45 4E 00 B3 10 52 03 8B  |T EINLESEN...R..|
00000890: 49 24 28 49 29 B2 22 2A  22 A7 49 24 28 49 29 B2  |I$(I)."*".I$(I).|
000008A0: 22 22 3A 8F 20 4C 45 45  52 45 52 20 53 54 52 49  |"":. LEERER STRI|
000008B0: 4E 47 3F 00 D2 10 5C 03  84 31 2C 50 24 28 49 29  |NG?...\..1,P$(I)|
000008C0: 3A 8F 20 50 4C 41 54 54  45 20 45 49 4E 4C 45 53  |:. PLATTE EINLES|
000008D0: 45 4E 00 FB 10 66 03 8B  50 24 28 49 29 B2 22 2A  |EN...f..P$(I)."*|
000008E0: 22 A7 50 24 28 49 29 B2  22 22 3A 8F 20 4C 45 45  |".P$(I)."":. LEE|
000008F0: 52 45 52 20 53 54 52 49  4E 47 3F 00 21 11 70 03  |RER STRING?.!.p.|
00000900: 84 31 2C 4D 24 28 49 29  3A 8F 20 4D 55 53 49 4B  |.1,M$(I):. MUSIK|
00000910: 52 49 43 48 54 55 4E 47  20 45 49 4E 4C 45 53 45  |RICHTUNG EINLESE|
00000920: 4E 00 4A 11 7A 03 8B 4D  24 28 49 29 B2 22 2A 22  |N.J.z..M$(I)."*"|
00000930: A7 4D 24 28 49 29 B2 22  22 3A 8F 20 4C 45 45 52  |.M$(I)."":. LEER|
00000940: 45 52 20 53 54 52 49 4E  47 3F 00 50 11 84 03 82  |ER STRING?.P....|
00000950: 00 6A 11 8E 03 A0 31 3A  8F 20 44 41 54 45 49 20  |.j....1:. DATEI |
00000960: 53 43 48 4C 49 45 53 53  45 4E 00 70 11 98 03 8E  |SCHLIESSEN.p....|
00000970: 00 00 00                                          |...             |
..'.... --- SCHALLPLATTENVERWALTUNG ---.
M.... ----- (S.BALOUI/FEB 1986) -----.S.
..:.Q.(.. --- DIMENSIONIERUNG ---...2..T
$(500),I$(500),P$(500),M$(500)...<.:...F
.. --- VORBEREITUNG ---...P.G$."D":. BEI
 FLOPPYBETRIEB IN 'F' AENDERN...Z.."'E' 
DRUECKEN, WENN ERSTBENUTZUNG DES PROGRAM
MS"...D..A$:.A$."".100.Q.N..A$.."E"..780
:. DATEI EINLESEN.W.X.:.K.... --- MENUE 
---......G(147):. SCREEN LOESCHEN......"
(E)INTRAGEN VON DATENSAETZEN".N. .."(S)U
CHEN VON DATENSAETZEN"......"(B)EENDEN D
ES PROGRAMMS"......:."KOMMANDO ?"......A
$:.A$."".190.%.H..A$."E"..260.6.R..A$."S
"..340.I....A$."B"..600:..R....140.X...:
.P.... --- EINTRAGEN ---.....AD.AD.1:. A
NZAHL DATENSAETZE UM EINS ERHOEHEN......
"TITEL";T$(AD).N...."INTERPRET";I$(AD)..
.".."PLATTE";P$(AD)...,.."MUSIKRICHTUNG"
;M$(AD)...6.....@.:. .J.. --- SUCHEN ---
.8.T.."SUCHKRITERIUM";S$.D.^..I.1.AD.U.H
..S$..T$(I).S$..I$(I).S$..P$(I).S$..M$(I
).460...R..T$(I):.I$(I):.P$(I):.M$(I)...
|.."WEITERSUCHEN (J/N) ?".D....A$:.A$.""
.390.T....A$."J".460......"(L)OESCHEN/(A
)ENDERN ?"......A$:.A$."".420.,....A$."L
".A$."A".N.I:.500:. LOESCHEN.I....A$."A"
..260:. EINTRAGEN.Y.B..470:. ENDE._.L...
E.V...K...:...... --- LOESCHEN ---......
I.N.AD.1.....T$(I).T$(I.1).....I$(I).I$(
I.1).F...P$(I).P$(I.1).X...M$(I).M$(I.1)
...&.....0.AD.AD.1:. ANZAHL DATENSAETZE 
UM EINS ERNIEDRIGEN...:.....D.:.=.N.. --
- DATEI SPEICHERN ---.Q.X..G$."D"..1,1,1
,"SCHALLPLATTEN":.630:. DATASETTE...B..1
5,8,15,"S:SCHALLPLATTEN": 15:. LOESCHEN 
DER ALTEN DATEI.W.L..1,8,2,"SCHALLPLATTE
N,S,W":. FLOPPY...V..1,AD:. ANZAHL DATEN
SAETZE SPEICHERN......I.1.AD.5....T$(I).
"".T$(I)."*":. LEERER STRING?.[....1,T$(
I):. T$(1)-T$(AD) SPEICHERN......I$(I)."
".I$(I)."*":. LEERER STRING?......1,I$(I
):. I$(1)-I$(AD) SPEICHERN.S....P$(I).""
.P$(I)."*":. LEERER STRING?......1,P$(I)
:. P$(1)-P$(AD) SPEICHERN.".F..M$(I)."".
M$(I)."*":. LEERER STRING?.H.P..1,M$(I):
. M$(1)-M$(AD) SPEICHERN.N.Z...H... 1:. 
DATEI SCHLIESSEN.N.....T...:...... --- D
ATEI EINLESEN ---.E....G$."D"..1,1,0,"SC
HALLPLATTEN":.800:. DATASETTE......1,8,2
,"SCHALLPLATTEN,S,R":. FLOPPY... ..1,AD:
. ANZAHL DATENSAETZE EINLESEN.!.*..I.1.A
D.?.4..1,T$(I):. TITEL EINLESEN.H.>..T$(
I)."*".T$(I)."":. LEERER STRING?...H..1,
I$(I):. INTERPRET EINLESEN...R..I$(I)."*
".I$(I)."":. LEERER STRING?.R.\..1,P$(I)
:. PLATTE EINLESEN...F..P$(I)."*".P$(I).
"":. LEERER STRING?.!.P..1,M$(I):. MUSIK
RICHTUNG EINLESEN.J.Z..M$(I)."*".M$(I)."
":. LEERER STRING?.P.....J... 1:. DATEI 
SCHLIESSEN.P.......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL