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

ALPHA-FILER

FILE INFORMATION

FILENAME(S): ALPHA-FILER

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:23:29

APPEARS ON: 1 disk(s)

FILE HASH

1cb5929ee26e76de32396c25957834bb6eb52413c59feab60c71c84b406492b4

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C64 HULP 12 1 ALPHA-FILER PRG DuncanTwain 19 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1E 08 64 00 8F 20  23 23 23 20 53 59 4E 54  |....d.. ### SYNT|
00000010: 41 58 2D 4D 41 47 41 5A  49 4E 20 23 33 31 00 38  |AX-MAGAZIN #31.8|
00000020: 08 6E 00 8F 20 23 23 23  20 20 20 20 4F 4B 54 4F  |.n.. ###    OKTO|
00000030: 42 45 52 20 31 39 38 32  00 42 08 78 00 8F 20 23  |BER 1982.B.x.. #|
00000040: 23 23 00 5F 08 82 00 8F  20 23 23 23 20 43 4F 50  |##._.... ### COP|
00000050: 59 52 49 47 48 54 20 28  43 29 20 31 39 38 32 00  |YRIGHT (C) 1982.|
00000060: 79 08 8C 00 8F 20 23 23  23 20 42 59 20 42 45 52  |y.... ### BY BER|
00000070: 4E 44 20 53 4F 4E 4E 45  54 00 94 08 96 00 8F 20  |ND SONNET...... |
00000080: 23 23 23 20 20 20 20 53  54 41 48 4C 53 42 45 52  |###    STAHLSBER|
00000090: 47 20 37 37 00 B2 08 A0  00 8F 20 23 23 23 20 20  |G 77...... ###  |
000000A0: 20 20 35 36 30 30 20 57  55 50 50 45 52 54 41 4C  |  5600 WUPPERTAL|
000000B0: 20 32 00 BC 08 AA 00 8F  20 23 23 23 00 D8 08 B4  | 2...... ###....|
000000C0: 00 8F 20 23 23 23 20 55  45 42 45 52 41 52 42 45  |.. ### UEBERARBE|
000000D0: 49 54 45 54 20 56 4F 4E  00 F3 08 BE 00 8F 20 23  |ITET VON...... #|
000000E0: 23 23 20 20 20 20 45 4C  4D 41 52 20 43 4F 4D 50  |##    ELMAR COMP|
000000F0: 41 4E 53 00 FD 08 C8 00  8F 20 23 23 23 00 15 09  |ANS...... ###...|
00000100: D2 00 8B C2 28 35 32 36  32 30 29 B2 38 A7 99 C7  |....(52620).8...|
00000110: 28 31 34 32 29 00 2C 09  DC 00 99 22 93 22 2C 22  |(142).,....".","|
00000120: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 22 00 42 09 E6  |...........".B..|
00000130: 00 99 2C 22 12 41 4C 50  48 41 2D 46 49 4C 45 52  |..,".ALPHA-FILER|
00000140: 92 22 00 74 09 F0 00 99  22 11 11 11 44 41 53 20  |.".t...."...DAS |
00000150: 50 52 4F 47 52 41 4D 4D  20 20 27 41 4C 50 48 41  |PROGRAMM  'ALPHA|
00000160: 2D 46 49 4C 45 52 27 20  20 4C 49 45 53 54 20 20  |-FILER'  LIEST  |
00000170: 44 41 53 22 00 A4 09 FA  00 99 22 11 49 4E 48 41  |DAS"......".INHA|
00000180: 4C 54 53 56 45 52 5A 45  49 43 48 4E 49 53 20 28  |LTSVERZEICHNIS (|
00000190: 3D 27 44 49 52 45 43 54  4F 52 59 27 29 20 45 49  |='DIRECTORY') EI|
000001A0: 4E 45 52 22 00 D4 09 04  01 99 22 11 44 49 53 4B  |NER"......".DISK|
000001B0: 45 54 54 45 20 55 4E 44  20 53 4F 52 54 49 45 52  |ETTE UND SORTIER|
000001C0: 54 20 44 49 45 20 50 52  4F 47 52 41 4D 4D 4E 41  |T DIE PROGRAMMNA|
000001D0: 4D 45 4E 22 00 04 0A 0E  01 99 22 11 41 4C 50 48  |MEN"......".ALPH|
000001E0: 41 42 45 54 49 53 43 48  2E 20 20 20 44 41 53 20  |ABETISCH.   DAS |
000001F0: 4F 52 49 47 49 4E 41 4C  56 45 52 5A 45 49 43 48  |ORIGINALVERZEICH|
00000200: 4E 49 53 22 00 34 0A 18  01 99 22 11 53 4F 57 49  |NIS".4....".SOWI|
00000210: 45 20 44 41 53 20 53 4F  52 54 49 45 52 54 45 20  |E DAS SORTIERTE |
00000220: 56 45 52 5A 45 49 43 48  4E 49 53 20 20 57 45 52  |VERZEICHNIS  WER|
00000230: 44 45 4E 22 00 5A 0A 22  01 99 22 11 55 45 42 45  |DEN".Z."..".UEBE|
00000240: 52 20 44 45 4E 20 44 52  55 43 4B 45 52 20 41 55  |R DEN DRUCKER AU|
00000250: 53 47 45 47 45 42 45 4E  2E 22 00 7F 0A 2C 01 99  |SGEGEBEN."...,..|
00000260: 2C 2C 2C 22 11 11 20 A4  A4 A4 A4 A4 A4 22 3A 99  |,,,".. ......":.|
00000270: 2C 2C 2C 22 3C 12 52 45  54 55 52 4E 92 3E 22 00  |,,,"<.RETURN.>".|
00000280: 96 0A 36 01 A1 51 24 3A  8B 51 24 B3 B1 C7 28 31  |..6..Q$:.Q$...(1|
00000290: 33 29 A7 33 31 30 00 D7  0A 40 01 43 52 24 B2 C7  |3).310...@.CR$..|
000002A0: 28 31 33 29 3A 43 53 24  B2 C7 28 33 34 29 3A 4E  |(13):CS$..(34):N|
000002B0: 24 B2 C7 28 30 29 3A 43  30 24 B2 22 22 3A 43 31  |$..(0):C0$."":C1|
000002C0: 24 B2 22 22 3A 46 32 24  B2 22 22 3A 41 24 B2 22  |$."":F2$."":A$."|
000002D0: 22 3A 42 24 B2 22 22 00  17 0B 4A 01 4D 49 24 B2  |":B$.""...J.MI$.|
000002E0: 22 22 3A 43 24 B2 22 22  3A 4B 31 B2 31 3A 46 31  |"":C$."":K1.1:F1|
000002F0: B2 30 3A 46 33 B2 30 3A  46 34 B2 30 3A 4E B2 30  |.0:F3.0:F4.0:N.0|
00000300: 3A 42 4C B2 30 3A 46 4C  B2 30 3A 49 B2 30 3A 4A  |:BL.0:FL.0:I.0:J|
00000310: B2 30 3A 4D 49 B2 30 00  2F 0B 54 01 86 20 43 30  |.0:MI.0./.T.. C0|
00000320: 24 28 31 35 34 29 2C 43  31 24 28 31 35 34 29 00  |$(154),C1$(154).|
00000330: 46 0B 5E 01 99 22 93 22  2C 22 A4 A4 A4 A4 A4 A4  |F.^..".","......|
00000340: A4 A4 A4 A4 A4 22 00 5C  0B 68 01 99 2C 22 12 41  |.....".\.h..,".A|
00000350: 4C 50 48 41 2D 46 49 4C  45 52 92 22 00 87 0B 72  |LPHA-FILER."...r|
00000360: 01 99 22 11 11 11 11 11  44 49 53 4B 45 54 54 45  |..".....DISKETTE|
00000370: 20 4C 49 45 47 54 20 49  4E 20 4C 41 55 46 57 45  | LIEGT IN LAUFWE|
00000380: 52 4B 20 2E 2E 2E 22 00  BD 0B 7C 01 99 22 11 11  |RK ..."...|.."..|
00000390: 11 20 20 20 20 20 20 44  52 49 56 45 20 91 A4 11  |.      DRIVE ...|
000003A0: 9D 12 30 92 20 20 4F 44  45 52 20 20 44 52 49 56  |..0.  ODER  DRIV|
000003B0: 45 20 12 31 92 9D 91 A4  91 91 91 91 22 00 DD 0B  |E .1........"...|
000003C0: 86 01 A1 44 4E 24 3A 8B  44 4E 24 B3 B1 22 30 22  |...DN$:.DN$.."0"|
000003D0: AF 44 4E 24 B3 B1 22 31  22 A7 33 39 30 00 EE 0B  |.DN$.."1".390...|
000003E0: 90 01 99 A3 32 37 29 44  4E 24 22 20 20 22 00 17  |....27)DN$"  "..|
000003F0: 0C 9A 01 99 22 11 11 20  20 20 20 A4 A4 A4 A4 A4  |...."..    .....|
00000400: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
00000410: A4 A4 A4 A4 A4 A4 22 00  43 0C A4 01 99 22 20 20  |......".C...."  |
00000420: 20 20 12 20 20 49 4E 49  54 49 41 4C 49 53 49 45  |  .  INITIALISIE|
00000430: 52 55 4E 47 20 44 52 49  56 45 20 22 44 4E 24 22  |RUNG DRIVE "DN$"|
00000440: 20 20 22 00 5D 0C AE 01  9F 31 35 2C 38 2C 31 35  |  ".]....15,8,15|
00000450: 2C 22 49 22 AA 44 4E 24  3A 8D 35 33 30 00 63 0C  |,"I".DN$:.530.c.|
00000460: B8 01 3A 00 81 0C C2 01  8D 36 33 30 3A 8F 20 44  |..:......630:. D|
00000470: 49 52 45 43 54 4F 52 59  20 45 49 4E 4C 45 53 45  |IRECTORY EINLESE|
00000480: 4E 00 96 0C CC 01 8D 38  30 30 3A 8F 20 41 4C 50  |N......800:. ALP|
00000490: 48 41 53 4F 52 54 00 AC  0C D6 01 8D 39 36 30 3A  |HASORT......960:|
000004A0: 8F 20 41 55 53 44 52 55  43 4B 45 4E 00 D5 0C E0  |. AUSDRUCKEN....|
000004B0: 01 99 22 11 11 11 1D 1D  1D 1D 1D 57 45 49 54 45  |.."........WEITE|
000004C0: 52 45 20 44 49 53 4B 45  54 54 45 4E 20 28 4A 2F  |RE DISKETTEN (J/|
000004D0: 4E 29 20 3F 22 00 F2 0C  EA 01 A1 51 24 3A 8B 51  |N) ?"......Q$:.Q|
000004E0: 24 B3 B1 22 4A 22 AF 51  24 B3 B1 22 4E 22 A7 34  |$.."J".Q$.."N".4|
000004F0: 39 30 00 03 0D F4 01 8B  51 24 B2 22 4A 22 A7 8A  |90......Q$."J"..|
00000500: 33 32 30 00 09 0D FE 01  80 00 0F 0D 08 02 3A 00  |320...........:.|
00000510: 27 0D 12 02 8F 20 44 49  53 4B 2D 46 45 48 4C 45  |'.... DISK-FEHLE|
00000520: 52 2D 43 48 45 43 4B 00  3C 0D 1C 02 84 31 35 2C  |R-CHECK.<....15,|
00000530: 46 31 2C 46 32 24 2C 46  33 2C 46 34 00 4A 0D 26  |F1,F2$,F3,F4.J.&|
00000540: 02 8B 46 31 B2 30 A7 36  31 30 00 60 0D 30 02 99  |..F1.0.610.`.0..|
00000550: 22 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 22  |".............."|
00000560: 00 7B 0D 3A 02 99 22 12  20 44 49 53 4B 2D 46 45  |.{.:..". DISK-FE|
00000570: 48 4C 45 52 3A 20 92 22  46 32 24 00 92 0D 44 02  |HLER: ."F2$...D.|
00000580: 99 22 11 57 45 49 54 45  52 20 28 4A 2F 4E 29 20  |.".WEITER (J/N) |
00000590: 3F 22 00 AF 0D 4E 02 A1  51 24 3A 8B 51 24 B3 B1  |?"...N..Q$:.Q$..|
000005A0: 22 4A 22 AF 51 24 B3 B1  22 4E 22 A7 35 39 30 00  |"J".Q$.."N".590.|
000005B0: BD 0D 58 02 8B 51 24 B2  22 4E 22 A7 80 00 C3 0D  |..X..Q$."N".....|
000005C0: 62 02 8E 00 C9 0D 6C 02  3A 00 E2 0D 76 02 8F 20  |b.....l.:...v.. |
000005D0: 44 49 52 45 43 54 4F 52  59 20 45 49 4E 4C 45 53  |DIRECTORY EINLES|
000005E0: 45 4E 00 FA 0D 80 02 9F  32 2C 38 2C 30 2C 22 24  |EN......2,8,0,"$|
000005F0: 22 AA 44 4E 24 3A 8D 35  33 30 00 27 0E 8A 02 99  |".DN$:.530.'....|
00000600: 22 91 20 20 20 20 12 20  20 20 45 49 4E 4C 45 53  |".    .   EINLES|
00000610: 45 4E 20 44 45 53 20 44  49 52 45 43 54 4F 52 59  |EN DES DIRECTORY|
00000620: 20 20 11 11 11 11 22 00  35 0E 94 02 A1 23 32 2C  |  ....".5....#2,|
00000630: 41 24 2C 42 24 00 4B 0E  9E 02 A1 23 32 2C 41 24  |A$,B$.K....#2,A$|
00000640: 2C 42 24 3A 8B 53 54 A7  37 36 30 00 60 0E A8 02  |,B$:.ST.760.`...|
00000650: 4E B2 4E AA 4B 31 3A A1  23 32 2C 41 24 2C 42 24  |N.N.K1:.#2,A$,B$|
00000660: 00 7D 0E B2 02 42 4C B2  C6 28 41 24 AA 4E 24 29  |.}...BL..(A$.N$)|
00000670: AA 32 35 36 AC C6 28 42  24 AA 4E 24 29 00 96 0E  |.256..(B$.N$)...|
00000680: BC 02 43 30 24 B2 C4 28  42 4C 29 AA 22 20 22 3A  |..C0$..(BL)." ":|
00000690: 43 31 24 B2 22 22 00 AC  0E C6 02 A1 23 32 2C 41  |C1$.""......#2,A|
000006A0: 24 3A 43 30 24 B2 43 30  24 AA 41 24 00 C6 0E D0  |$:C0$.C0$.A$....|
000006B0: 02 8B 41 24 B2 43 53 24  A7 46 4C B2 4B 31 AB 46  |..A$.CS$.FL.K1.F|
000006C0: 4C 3A 89 37 31 30 00 E1  0E DA 02 8B 46 4C B2 4B  |L:.710......FL.K|
000006D0: 31 A7 43 31 24 B2 43 31  24 AA 41 24 3A 89 37 31  |1.C1$.C1$.A$:.71|
000006E0: 30 00 F1 0E E4 02 8B 41  24 B3 B1 22 22 A7 37 31  |0......A$.."".71|
000006F0: 30 00 25 0F EE 02 43 30  24 28 4E 29 B2 C8 28 43  |0.%...C0$(N)..(C|
00000700: 30 24 2C 32 38 29 3A 43  31 24 28 4E 29 B2 43 31  |0$,28):C1$(N).C1|
00000710: 24 3A 99 22 91 20 20 20  22 3B 43 30 24 28 4E 29  |$:.".   ";C0$(N)|
00000720: 3A 89 36 37 30 00 31 0F  F8 02 A0 32 3A 8D 35 33  |:.670.1....2:.53|
00000730: 30 00 50 0F 02 03 99 22  91 20 20 20 20 20 20 20  |0.P....".       |
00000740: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000750: 00 56 0F 0C 03 8E 00 5C  0F 16 03 3A 00 7C 0F 20  |.V.....\...:.|. |
00000760: 03 8F 20 41 4C 50 48 41  53 4F 52 54 20 28 56 4F  |.. ALPHASORT (VO|
00000770: 4E 20 32 20 42 49 53 20  4E 2D 31 29 00 A9 0F 2A  |N 2 BIS N-1)...*|
00000780: 03 99 22 91 91 91 91 91  20 20 20 20 12 20 20 20  |..".....    .   |
00000790: 53 4F 52 54 49 45 52 45  4E 20 44 45 53 20 44 49  |SORTIEREN DES DI|
000007A0: 52 45 43 54 4F 52 59 20  22 00 B1 0F 34 03 49 B2  |RECTORY "...4.I.|
000007B0: 32 00 D5 0F 3E 03 8B C6  28 43 31 24 28 49 29 29  |2...>...(C1$(I))|
000007C0: B3 36 34 A7 43 31 24 28  49 29 B2 22 FF 22 AA 43  |.64.C1$(I).".".C|
000007D0: 31 24 28 49 29 00 E9 0F  48 03 49 B2 49 AA 4B 31  |1$(I)...H.I.I.K1|
000007E0: 3A 8B 49 B3 4E A7 38 33  30 00 F1 0F 52 03 49 B2  |:.I.N.830...R.I.|
000007F0: 32 00 0C 10 5C 03 4A B2  49 AA 4B 31 3A 4D 49 B2  |2...\.J.I.K1:MI.|
00000800: 49 3A 4D 49 24 B2 43 31  24 28 49 29 00 25 10 66  |I:MI$.C1$(I).%.f|
00000810: 03 8B 43 31 24 28 4A 29  B3 43 31 24 28 4D 49 29  |..C1$(J).C1$(MI)|
00000820: A7 4D 49 B2 4A 00 39 10  70 03 4A B2 4A AA 4B 31  |.MI.J.9.p.J.J.K1|
00000830: 3A 8B 4A B3 4E A7 38 37  30 00 67 10 7A 03 8B 4D  |:.J.N.870.g.z..M|
00000840: 49 B1 49 A7 43 24 B2 43  31 24 28 49 29 3A 43 31  |I.I.C$.C1$(I):C1|
00000850: 24 28 49 29 B2 43 31 24  28 4D 49 29 3A 43 31 24  |$(I).C1$(MI):C1$|
00000860: 28 4D 49 29 B2 43 24 00  7E 10 84 03 49 B2 49 AA  |(MI).C$.~...I.I.|
00000870: 4B 31 3A 8B 49 B3 4E AB  4B 31 A7 38 36 30 00 86  |K1:.I.N.K1.860..|
00000880: 10 8E 03 49 B2 32 00 AC  10 98 03 8B C6 28 43 31  |...I.2.......(C1|
00000890: 24 28 49 29 29 B2 32 35  35 A7 43 31 24 28 49 29  |$(I)).255.C1$(I)|
000008A0: B2 CA 28 43 31 24 28 49  29 2C 32 29 00 C0 10 A2  |..(C1$(I),2)....|
000008B0: 03 49 B2 49 AA 4B 31 3A  8B 49 B3 4E A7 39 32 30  |.I.I.K1:.I.N.920|
000008C0: 00 C6 10 AC 03 8E 00 CC  10 B6 03 3A 00 DD 10 C0  |...........:....|
000008D0: 03 8F 20 41 55 53 44 52  55 43 4B 45 4E 00 06 11  |.. AUSDRUCKEN...|
000008E0: CA 03 99 22 91 20 20 20  20 12 20 20 41 55 53 44  |...".    .  AUSD|
000008F0: 52 55 43 4B 45 4E 20 44  45 53 20 44 49 52 45 43  |RUCKEN DES DIREC|
00000900: 54 4F 52 59 20 22 00 14  11 CF 03 97 35 33 32 36  |TORY "......5326|
00000910: 35 2C 31 31 00 26 11 D4  03 9F 34 2C 34 3A 98 34  |5,11.&....4,4:.4|
00000920: 3A 98 34 3A 98 34 00 55  11 DE 03 98 34 2C 22 20  |:.4:.4.U....4," |
00000930: 20 20 20 20 20 12 22 3B  43 30 24 28 31 29 3B 22  |     .";C0$(1);"|
00000940: 92 22 3B A6 31 31 29 3B  22 12 22 3B 43 30 24 28  |.";.11);".";C0$(|
00000950: 31 29 3A 98 34 00 63 11  E8 03 81 4D B2 32 A4 4E  |1):.4.c....M.2.N|
00000960: AB 4B 31 00 7D 11 F2 03  4D 24 B2 C9 28 22 20 20  |.K1.}...M$..("  |
00000970: 20 22 AA C4 28 4D AB 4B  31 29 2C 34 29 00 A7 11  | "..(M.K1),4)...|
00000980: FC 03 98 34 2C 22 20 20  20 20 20 22 3B 43 30 24  |...4,"     ";C0$|
00000990: 28 4D 29 3B A6 31 30 29  3B 4D 24 3B 22 20 20 22  |(M);.10);M$;"  "|
000009A0: 3B 43 31 24 28 4D 29 00  CE 11 06 04 82 3A 98 34  |;C1$(M)......:.4|
000009B0: 3A 98 34 2C 22 20 20 20  20 20 22 3B 43 30 24 28  |:.4,"     ";C0$(|
000009C0: 4E 29 3B A6 31 31 29 3B  43 30 24 28 4E 29 00 E5  |N);.11);C0$(N)..|
000009D0: 11 10 04 98 34 3A 98 34  3A A0 34 3A 97 35 33 32  |....4:.4:.4:.532|
000009E0: 36 35 2C 32 37 00 EB 11  1A 04 8E 00 F1 11 24 04  |65,27.........$.|
000009F0: 3A 00 00 00                                       |:...            |
....D.. ### SYNTAX-MAGAZIN #31.8.N.. ###
    OKTOBER 1982.B.X.. ###._.... ### COP
YRIGHT (C) 1982.Y.... ### BY BERND SONNE
T...... ###    STAHLSBERG 77... .. ###  
  5600 WUPPERTAL 2...... ###.X.... ### U
EBERARBEITET VON...... ###    ELMAR COMP
ANS...H.. ###...R..B(52620).8..G(142).,.
...".","...........".B....,".ALPHA-FILER
.".T...."...DAS PROGRAMM  'ALPHA-FILER' 
 LIEST  DAS"......".INHALTSVERZEICHNIS (
='DIRECTORY') EINER".T....".DISKETTE UND
 SORTIERT DIE PROGRAMMNAMEN"......".ALPH
ABETISCH.   DAS ORIGINALVERZEICHNIS".4..
..".SOWIE DAS SORTIERTE VERZEICHNIS  WER
DEN".Z."..".UEBER DEN DRUCKER AUSGEGEBEN
."..,..,,,".. ......":.,,,"<.RETURN.>".
..6..Q$:.Q$..G(13).310.W.@.CR$.G(13):CS$
.G(34):N$.G(0):C0$."":C1$."":F2$."":A$."
":B$.""...J.MI$."":C$."":K1.1:F1.0:F3.0:
F4.0:N.0:BL.0:FL.0:I.0:J.0:MI.0./.T.. C0
$(154),C1$(154).F.^..".","...........".\
.H..,".ALPHA-FILER."...R..".....DISKETTE
 LIEGT IN LAUFWERK ..."...|.."...      D
RIVE .....0.  ODER  DRIVE .1........"...
...DN$:.DN$.."0".DN$.."1".390.......27)D
N$"  "......"..    .....................
......".C...."    .  INITIALISIERUNG DRI
VE "DN$"  ".]....15,8,15,"I".DN$:.530.C.
..:...B..630:. DIRECTORY EINLESEN...L..8
00:. ALPHASORT...V..960:. AUSDRUCKEN.U..
.."........WEITERE DISKETTEN (J/N) ?"...
...Q$:.Q$.."J".Q$.."N".490......Q$."J"..
320...........:.'.... DISK-FEHLER-CHECK.
<....15,F1,F2$,F3,F4.J.&..F1.0.610.`.0..
"..............".{.:..". DISK-FEHLER: ."
F2$...D..".WEITER (J/N) ?"...N..Q$:.Q$..
"J".Q$.."N".590...X..Q$."N"...C.B...I.L.
:...V.. DIRECTORY EINLESEN......2,8,0,"$
".DN$:.530.'....".    .   EINLESEN DES D
IRECTORY  ....".5....#2,A$,B$.K....#2,A$
,B$:.ST.760.`...N.N.K1:.#2,A$,B$.}...BL.
F(A$.N$).256.F(B$.N$).....C0$.D(BL)." ":
C1$.""...F..#2,A$:C0$.C0$.A$.F.P..A$.CS$
.FL.K1.FL:.710...Z..FL.K1.C1$.C1$.A$:.71
0......A$.."".710.%...C0$(N).H(C0$,28):C
1$(N).C1$:.".   ";C0$(N):.670.1... 2:.53
0.P....".                      ".V.....\
...:.|. .. ALPHASORT (VON 2 BIS N-1)...*
..".....    .   SORTIEREN DES DIRECTORY 
"...4.I.2.U.>..F(C1$(I)).64.C1$(I).".".C
1$(I)...H.I.I.K1:.I.N.830...R.I.2...\.J.
I.K1:MI.I:MI$.C1$(I).%.F..C1$(J).C1$(MI)
.MI.J.9.P.J.J.K1:.J.N.870.G.Z..MI.I.C$.C
1$(I):C1$(I).C1$(MI):C1$(MI).C$.~...I.I.
K1:.I.N.K1.860.....I.2......F(C1$(I)).25
5.C1$(I).J(C1$(I),2).....I.I.K1:.I.N.920
.F.....L...:...... AUSDRUCKEN...J..".   
 .  AUSDRUCKEN DES DIRECTORY "...O..5326
5,11.&.T..4,4:.4:.4:.4.U....4,"      .";
C0$(1);".";.11);".";C0$(1):.4.C....M.2.N
.K1.}...M$.I("   ".D(M.K1),4)......4,"  
   ";C0$(M);.10);M$;"  ";C1$(M).N....:.4
:.4,"     ";C0$(N);.11);C0$(N)......4:.4
: 4:.53265,27.........$.:...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL