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

MODI-HP

FILE INFORMATION

FILENAME(S): MODI-HP

FILE TYPE(S): PRG

FILE SIZE: 5K

FIRST SEEN: 2025-11-02 22:11:31

APPEARS ON: 1 disk(s)

FILE HASH

1558af7b4d24e1b5c982c5191d9cebe62c68f573f04c0025df686ca6a161dc6b

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
DISK 32 A MODI-HP PRG Treasure Chest - ToGuMi 7 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 24 08 01 00 9E 37  31 34 39 3A 8F 3C 43 3E  |..$....7149:.<C>|
00000010: 31 39 38 34 20 42 59 20  2A 48 50 2A 53 4F 46 54  |1984 BY *HP*SOFT|
00000020: 2A 20 20 20 00 00 00 02  00 99 22 93 22 3A 86 46  |*   ......".":.F|
00000030: 24 28 31 34 34 29 3A 81  49 B2 31 32 38 A4 31 37  |$(144):.I.128.17|
00000040: 31 3A 87 44 45 3A 97 49  2C 44 45 3A 82 3A 46 55  |1:.DE:.I,DE:.:FU|
00000050: 24 28 35 29 B2 22 55 4D  47 4C 49 45 44 45 52 4E  |$(5)."UMGLIEDERN|
00000060: 22 3A 46 55 24 28 32 29  B2 22 46 49 4C 45 2D 52  |":FU$(2)."FILE-R|
00000070: 45 4E 41 4D 22 3A 46 55  24 28 36 29 B2 22 53 43  |ENAM":FU$(6)."SC|
00000080: 52 41 54 43 48 20 20 20  22 3A 46 55 24 28 38 29  |RATCH   ":FU$(8)|
00000090: B2 22 46 49 4C 45 2D 53  4F 52 54 20 22 3A 46 55  |."FILE-SORT ":FU|
000000A0: 24 28 34 29 B2 22 44 49  53 4B 2D 52 45 4E 41 4D  |$(4)."DISK-RENAM|
000000B0: 22 3A 81 49 B2 30 A4 32  39 3A 58 4C 24 B2 58 4C  |":.I.0.29:XL$.XL|
000000C0: 24 AA C7 28 30 29 3A 82  3A 81 49 B2 30 A4 31 35  |$..(0):.:.I.0.15|
000000D0: 3A 41 30 24 B2 41 30 24  AA C7 28 31 36 30 29 3A  |:A0$.A0$..(160):|
000000E0: 82 3A 97 35 33 32 38 30  2C 36 00 62 09 08 00 59  |.:.53280,6.b...Y|
000000F0: 59 24 B2 22 30 31 32 33  34 35 36 37 38 39 30 31  |Y$."012345678901|
00000100: 32 33 34 35 36 37 38 39  30 31 32 33 34 35 36 37  |2345678901234567|
00000110: 38 39 22 3A 46 46 24 B2  59 59 24 AA 22 22 3A 9E  |89":FF$.YY$."":.|
00000120: 32 34 39 28 46 46 24 29  3A 97 35 33 32 38 30 2C  |249(FF$):.53280,|
00000130: 36 3A 5A 45 24 B2 22 2A  2A 2A 2A 2A 2A 44 41 54  |6:ZE$."******DAT|
00000140: 45 49 2D 45 4E 44 45 2A  2A 2A 20 20 20 20 20 20  |EI-ENDE***      |
00000150: 20 20 20 22 AA C7 28 30  29 AA C7 28 30 29 3A 8D  |   "..(0)..(0):.|
00000160: 39 34 00 0A 0A 0B 00 81  49 B2 30 A4 31 34 34 3A  |94......I.0.144:|
00000170: 46 24 28 49 29 B2 58 4C  24 3A 82 3A 46 46 24 B2  |F$(I).XL$:.:FF$.|
00000180: 59 59 24 AA 22 22 3A 9E  33 34 39 28 46 46 24 29  |YY$."":.349(FF$)|
00000190: 3A 46 55 B2 35 3A 9F 31  35 2C 38 2C 31 35 2C 22  |:FU.5:.15,8,15,"|
000001A0: 49 30 22 3A 9F 32 2C 38  2C 32 2C 22 23 22 3A 98  |I0":.2,8,2,"#":.|
000001B0: 31 35 2C 22 55 31 20 32  20 30 22 3B 31 38 3B 30  |15,"U1 2 0";18;0|
000001C0: 3A 98 31 35 2C 22 42 2D  50 22 3B 32 3B 31 34 34  |:.15,"B-P";2;144|
000001D0: 3A 9E 38 32 38 3A 4E 41  24 B2 C8 28 46 46 24 2C  |:.828:NA$..(FF$,|
000001E0: 31 36 29 3A 49 44 24 B2  CA 28 46 46 24 2C 31 39  |16):ID$..(FF$,19|
000001F0: 2C 32 29 3A 54 B2 31 38  3A 53 B2 31 3A 49 B2 30  |,2):T.18:S.1:I.0|
00000200: 3A 53 59 B2 30 3A 44 45  B2 30 00 43 0A 13 00 98  |:SY.0:DE.0.C....|
00000210: 31 35 2C 22 55 31 20 32  20 30 22 3B 54 3B 53 3A  |15,"U1 2 0";T;S:|
00000220: 98 31 35 2C 22 42 2D 50  22 3B 32 3B 30 3A A1 23  |.15,"B-P";2;0:.#|
00000230: 32 2C 58 24 3A 8B 58 24  B2 22 22 A7 58 24 B2 C7  |2,X$:.X$."".X$..|
00000240: 28 30 29 00 65 0A 16 00  54 B2 C6 28 58 24 29 3A  |(0).e...T..(X$):|
00000250: A1 23 32 2C 58 24 3A 8B  58 24 B2 22 22 A7 58 24  |.#2,X$:.X$."".X$|
00000260: B2 C7 28 30 29 00 A4 0A  18 00 53 B2 C6 28 58 24  |..(0).....S..(X$|
00000270: 29 3A 81 58 B2 30 A4 37  3A 98 31 35 2C 22 42 2D  |):.X.0.7:.15,"B-|
00000280: 50 22 3B 32 3B 58 AC 33  32 AA 32 3A 9E 38 32 38  |P";2;X.32.2:.828|
00000290: 3A 8B CA 28 46 46 24 2C  34 2C 31 29 B2 C7 28 30  |:..(FF$,4,1)..(0|
000002A0: 29 A7 33 35 00 D4 0A 1D  00 46 24 28 49 29 B2 46  |).35.....F$(I).F|
000002B0: 46 24 AA 22 22 3A 8B C8  28 46 24 28 49 29 2C 31  |F$."":..(F$(I),1|
000002C0: 29 B3 C7 28 31 32 39 29  A7 44 45 B2 44 45 AA 31  |)..(129).DE.DE.1|
000002D0: 3A 89 33 32 00 DE 0A 1F  00 49 B2 49 AA 31 00 ED  |:.32.....I.I.1..|
000002E0: 0A 20 00 82 58 3A 8B 54  B2 30 A7 33 35 00 F5 0A  |. ..X:.T.0.35...|
000002F0: 22 00 89 31 39 00 11 0B  23 00 46 24 28 49 29 B2  |"..19...#.F$(I).|
00000300: 58 4C 24 3A 48 49 B2 49  AB 31 3A A0 32 3A A0 31  |XL$:HI.I.1:.2:.1|
00000310: 35 00 24 0B 24 00 53 45  B2 30 3A 53 5A B2 30 3A  |5.$.$.SE.0:SZ.0:|
00000320: 4C 49 B2 30 00 8F 0B 25  00 8D 31 30 35 3A 81 49  |LI.0...%..105:.I|
00000330: B2 4C 49 A4 48 49 3A 8D  31 30 39 3A 99 22 9E 22  |.LI.HI:.109:."."|
00000340: 3B C7 28 36 35 AA 53 45  29 3B 22 9A 20 22 3B CA  |;.(65.SE);". ";.|
00000350: 28 46 24 28 49 29 2C 34  2C 31 36 29 3B 3A 99 A3  |(F$(I),4,16);:..|
00000360: 31 38 29 54 59 24 3B 3A  99 A3 32 31 29 C6 28 CA  |18)TY$;:..21).(.|
00000370: 28 46 24 28 49 29 2C 32  39 2C 31 29 29 3A 53 45  |(F$(I),29,1)):SE|
00000380: B2 53 45 AA 31 3A 8B 53  45 B3 31 35 A7 34 39 00  |.SE.1:.SE.15.49.|
00000390: AA 0B 2B 00 8D 31 31 36  3A 91 41 89 34 37 2C 34  |..+..116:.A.47,4|
000003A0: 34 2C 34 36 2C 33 36 2C  35 32 00 B7 0B 2C 00 8B  |4,46,36,52...,..|
000003B0: 53 5A B2 30 A7 33 36 00  D3 0B 2D 00 53 5A B2 53  |SZ.0.36...-.SZ.S|
000003C0: 5A AB 31 35 3A 53 45 B2  30 3A 4C 49 B2 53 5A 3A  |Z.15:SE.0:LI.SZ:|
000003D0: 89 33 37 00 E6 0B 2E 00  4C 49 B2 53 5A 3A 53 45  |.37.....LI.SZ:SE|
000003E0: B2 30 3A 89 33 37 00 F3  0B 2F 00 8B 49 B1 48 49  |.0:.37.../..I.HI|
000003F0: A7 33 36 00 0A 0C 30 00  53 5A B2 53 5A AA 31 35  |.36...0.SZ.SZ.15|
00000400: 3A 53 45 B2 30 3A 8D 31  30 35 00 2E 0C 31 00 82  |:SE.0:.105...1..|
00000410: 49 3A 99 A3 32 29 22 9C  2A 2A 2A 44 41 54 45 49  |I:..2)".***DATEI|
00000420: 2D 45 4E 44 45 2A 2A 2A  9A 22 3A 89 34 33 00 09  |-ENDE***.":.43..|
00000430: 0D 34 00 8D 31 30 38 3A  99 A3 32 29 22 11 9C 41  |.4..108:..2)"..A|
00000440: 43 48 54 55 4E 47 21 20  49 53 54 20 4E 4F 43 48  |CHTUNG! IST NOCH|
00000450: 20 44 49 45 53 45 4C 42  45 22 3A 99 A3 32 29 22  | DIESELBE":..2)"|
00000460: 11 9C 44 49 53 4B 20 49  4E 20 44 45 52 20 46 4C  |..DISK IN DER FL|
00000470: 4F 50 50 59 3F 9A 22 3A  99 22 11 11 47 52 55 4E  |OPPY?.":."..GRUN|
00000480: 44 4D 41 53 4B 45 20 46  2E 20 57 45 49 54 45 52  |DMASKE F. WEITER|
00000490: 45 20 41 45 4E 44 45 52  55 4E 47 45 4E 20 20 20  |E AENDERUNGEN   |
000004A0: 3D 9C 46 33 9A 22 3A 99  22 11 44 49 52 45 43 54  |=.F3.":.".DIRECT|
000004B0: 4F 52 59 20 55 4E 56 45  52 41 45 4E 44 45 52 54  |ORY UNVERAENDERT|
000004C0: 20 2D 20 4E 45 55 45 20  44 49 53 4B 20 20 3D 9C  | - NEUE DISK  =.|
000004D0: 46 35 9A 22 3A 99 22 11  44 49 52 45 43 54 4F 52  |F5.":.".DIRECTOR|
000004E0: 59 20 53 4F 20 4F 4B 20  2D 20 41 55 46 20 44 49  |Y SO OK - AUF DI|
000004F0: 53 4B 20 53 43 48 52 45  49 42 45 4E 3D 9C 46 37  |SK SCHREIBEN=.F7|
00000500: 9A 22 3A 97 31 39 38 2C  30 00 21 0D 3A 00 A1 41  |.":.198,0.!.:..A|
00000510: 57 24 3A 8B 41 57 24 B2  C7 28 31 33 34 29 A7 33  |W$:.AW$..(134).3|
00000520: 36 00 34 0D 3C 00 8B 41  57 24 B2 C7 28 31 33 35  |6.4.<..AW$..(135|
00000530: 29 A7 38 38 00 47 0D 3D  00 8B 41 57 24 B2 C7 28  |).88.G.=..AW$..(|
00000540: 31 33 36 29 A7 36 33 00  4F 0D 3E 00 89 35 38 00  |136).63.O.>..58.|
00000550: C3 0D 3F 00 9F 31 2C 38  2C 31 35 2C 22 49 30 22  |..?..1,8,15,"I0"|
00000560: 3A 9F 32 2C 38 2C 32 2C  22 23 22 3A 98 31 2C 22  |:.2,8,2,"#":.1,"|
00000570: 55 31 20 32 20 30 22 3B  31 38 3B 30 3A 98 31 2C  |U1 2 0";18;0:.1,|
00000580: 22 42 2D 50 22 3B 32 3B  31 34 34 3A 98 32 2C 4E  |"B-P";2;144:.2,N|
00000590: 41 24 AA C7 28 31 36 30  29 AA C7 28 31 36 30 29  |A$..(160)..(160)|
000005A0: AA 49 44 24 3B 3A 98 31  2C 22 55 32 20 32 20 30  |.ID$;:.1,"U2 2 0|
000005B0: 22 3B 31 38 3B 30 3A 49  B2 30 3A 54 B2 31 38 3A  |";18;0:I.0:T.18:|
000005C0: 53 B2 31 00 FB 0D 45 00  98 31 2C 22 55 31 20 32  |S.1...E..1,"U1 2|
000005D0: 20 30 22 3B 54 3B 53 3A  98 31 2C 22 42 2D 50 3A  | 0";T;S:.1,"B-P:|
000005E0: 22 3B 32 3B 30 3A A1 23  32 2C 58 24 3A 8B 58 24  |";2;0:.#2,X$:.X$|
000005F0: B2 22 22 A7 58 24 B2 C7  28 30 29 00 1E 0E 48 00  |."".X$..(0)...H.|
00000600: 54 31 B2 C6 28 58 24 29  3A A1 23 32 2C 58 24 3A  |T1..(X$):.#2,X$:|
00000610: 8B 58 24 B2 22 22 A7 58  24 B2 C7 28 30 29 00 39  |.X$."".X$..(0).9|
00000620: 0E 4A 00 53 31 B2 C6 28  58 24 29 3A 49 4D B2 49  |.J.S1..(X$):IM.I|
00000630: 3A 8B 54 31 B2 30 A7 37  36 00 6F 0E 4B 00 8B C8  |:.T1.0.76.o.K...|
00000640: 28 46 24 28 49 4D AA 38  29 2C 31 29 B2 C7 28 30  |(F$(IM.8),1)..(0|
00000650: 29 A7 98 31 2C 22 42 2D  50 3A 22 3B 32 3B 30 3A  |)..1,"B-P:";2;0:|
00000660: 98 32 2C C7 28 30 29 AA  C7 28 32 35 35 29 3B 00  |.2,.(0)..(255);.|
00000670: A9 0E 4C 00 81 58 B2 30  A4 37 3A 98 31 2C 22 42  |..L..X.0.7:.1,"B|
00000680: 2D 50 3A 22 3B 32 3B 58  AC 33 32 AA 32 3A 98 32  |-P:";2;X.32.2:.2|
00000690: 2C 46 24 28 49 29 3B 3A  49 B2 49 AA 31 3A 8B 49  |,F$(I);:I.I.1:.I|
000006A0: B1 48 49 AA 44 45 A7 38  31 00 B0 0E 50 00 82 58  |.HI.DE.81...P..X|
000006B0: 00 F1 0E 51 00 98 31 2C  22 42 2D 50 3A 22 3B 32  |...Q..1,"B-P:";2|
000006C0: 3B 30 3A 8B C8 28 46 24  28 49 4D 29 2C 31 29 B2  |;0:..(F$(IM),1).|
000006D0: C7 28 30 29 A7 98 32 2C  C7 28 30 29 AA C7 28 30  |.(0)..2,.(0)..(0|
000006E0: 29 3B 3A 98 31 2C 22 42  2D 46 20 30 22 3B 54 3B  |);:.1,"B-F 0";T;|
000006F0: 53 00 17 0F 53 00 98 31  2C 22 55 32 20 32 20 30  |S...S..1,"U2 2 0|
00000700: 22 3B 54 3B 53 3A 54 B2  54 31 3A 53 B2 53 31 3A  |";T;S:T.T1:S.S1:|
00000710: 8B 54 B2 30 A7 38 37 00  1F 0F 56 00 89 36 39 00  |.T.0.87...V..69.|
00000720: 3F 0F 57 00 A0 32 3A A0  31 3A 4E 44 24 B2 22 57  |?.W..2:.1:ND$."W|
00000730: 45 49 54 45 52 45 22 3A  8D 38 39 3A 89 31 31 00  |EITERE":.89:.11.|
00000740: 59 0F 58 00 4E 44 24 B2  22 57 45 49 54 45 52 45  |Y.X.ND$."WEITERE|
00000750: 22 3A 8D 38 39 3A 89 31  31 00 A9 0F 59 00 99 22  |":.89:.11...Y.."|
00000760: 9C 11 11 12 42 49 54 54  45 20 22 3B 4E 44 24 3B  |....BITTE ";ND$;|
00000770: 22 20 44 49 53 4B 20 45  49 4E 4C 45 47 45 4E 22  |" DISK EINLEGEN"|
00000780: 3A 99 A3 31 37 29 22 11  55 4E 44 20 12 3C 52 45  |:..17)".UND .<RE|
00000790: 54 55 52 4E 3E 92 20 2D  20 46 37 3D 45 4E 44 45  |TURN>. - F7=ENDE|
000007A0: 9A 22 3A 97 31 39 38 2C  30 00 BF 0F 5B 00 A1 41  |.":.198,0...[..A|
000007B0: 57 24 3A 8B 41 57 24 B2  C7 28 31 33 29 A7 8E 00  |W$:.AW$..(13)...|
000007C0: D1 0F 5C 00 8B 41 57 24  B2 C7 28 31 33 36 29 A7  |..\..AW$..(136).|
000007D0: 80 00 D9 0F 5D 00 89 39  31 00 8F 10 5E 00 99 22  |....]..91...^.."|
000007E0: 93 9F 12 20 20 20 20 20  20 20 20 20 20 20 2A 2A  |...           **|
000007F0: 2A 20 4D 20 4F 20 44 20  49 20 2A 2A 2A 20 20 20  |* M O D I ***   |
00000800: 20 20 20 20 20 20 20 20  20 22 3A 99 22 12 20 3C  |         ":.". <|
00000810: 43 3E 20 31 39 38 34 20  42 59 20 48 45 52 42 45  |C> 1984 BY HERBE|
00000820: 52 54 20 50 45 55 53 54  45 52 2C 48 41 4D 42 55  |RT PEUSTER,HAMBU|
00000830: 52 47 20 20 92 11 22 3A  99 22 4D 49 54 20 44 49  |RG  ..":."MIT DI|
00000840: 45 53 45 4D 20 50 52 4F  47 52 41 4D 4D 20 4B 4F  |ESEM PROGRAMM KO|
00000850: 45 4E 4E 45 4E 20 46 4F  4C 47 45 4E 44 45 22 3A  |ENNEN FOLGENDE":|
00000860: 99 22 44 41 54 45 4E 20  45 49 4E 45 53 20 44 49  |."DATEN EINES DI|
00000870: 52 45 43 54 4F 52 59 20  4D 4F 44 49 46 49 5A 49  |RECTORY MODIFIZI|
00000880: 45 52 54 22 3A 99 22 57  45 52 44 45 4E 3A 22 00  |ERT":."WERDEN:".|
00000890: 5B 11 62 00 99 A3 32 38  29 22 11 46 55 4E 4B 54  |[.b...28)".FUNKT|
000008A0: 49 4F 4E 20 3D 22 3A 99  22 11 31 2E 20 50 52 4F  |ION =":.".1. PRO|
000008B0: 47 52 41 4D 4D 2D 4E 41  4D 45 22 3B A3 32 38 29  |GRAMM-NAME";.28)|
000008C0: 46 55 24 28 32 29 3A 99  22 11 32 2E 20 44 49 53  |FU$(2):.".2. DIS|
000008D0: 4B 2D 4E 41 4D 45 2F 49  44 22 3B A3 32 38 29 46  |K-NAME/ID";.28)F|
000008E0: 55 24 28 34 29 3A 99 22  11 33 2E 20 52 45 49 48  |U$(4):.".3. REIH|
000008F0: 45 4E 46 4F 4C 47 45 20  44 45 52 20 46 49 4C 45  |ENFOLGE DER FILE|
00000900: 53 22 3B A3 32 38 29 46  55 24 28 35 29 3A 99 22  |S";.28)FU$(5):."|
00000910: 11 34 2E 20 4C 4F 45 53  43 48 45 4E 20 45 49 4E  |.4. LOESCHEN EIN|
00000920: 45 53 20 46 49 4C 45 53  22 3B A3 32 38 29 46 55  |ES FILES";.28)FU|
00000930: 24 28 36 29 3A 99 22 11  35 2E 20 41 4C 50 48 41  |$(6):.".5. ALPHA|
00000940: 2D 53 4F 52 54 20 44 45  52 20 46 49 4C 45 53 22  |-SORT DER FILES"|
00000950: 3B A3 32 38 29 46 55 24  28 38 29 00 65 11 68 00  |;.28)FU$(8).e.h.|
00000960: 8D 38 39 3A 8E 00 A1 11  69 00 8D 31 30 38 3A 99  |.89:....i..108:.|
00000970: 22 20 20 46 49 4C 45 2D  4E 41 4D 45 20 20 20 20  |"  FILE-NAME    |
00000980: 20 20 20 41 52 54 20 42  4C 4B 20 46 55 4E 4B 54  |   ART BLK FUNKT|
00000990: 49 4F 4E 11 22 3A 53 45  B2 30 3A 8D 32 30 32 3A  |ION.":SE.0:.202:|
000009A0: 8E 00 E1 11 6C 00 99 22  93 22 A3 32 29 22 9E 12  |....l..".".2)"..|
000009B0: 44 49 53 4B 2D 4E 41 4D  45 3A 22 3B 4E 41 24 3B  |DISK-NAME:";NA$;|
000009C0: 22 20 49 44 3A 22 3B 49  44 24 3B 22 92 9C 20 2A  |" ID:";ID$;".. *|
000009D0: 48 50 2A 22 3A 99 A3 33  35 29 22 53 4F 46 54 9A  |HP*":..35)"SOFT.|
000009E0: 22 00 0D 12 6D 00 54 59  B2 C6 28 C8 28 46 24 28  |"...m.TY..(.(F$(|
000009F0: 49 29 2C 31 29 29 AF 31  35 3A 91 54 59 89 31 31  |I),1)).15:.TY.11|
00000A00: 32 2C 31 31 33 2C 31 31  34 2C 31 31 35 00 1D 12  |2,113,114,115...|
00000A10: 6F 00 54 59 24 B2 22 44  45 4C 22 3A 8E 00 2D 12  |o.TY$."DEL":..-.|
00000A20: 70 00 54 59 24 B2 22 53  45 51 22 3A 8E 00 3D 12  |p.TY$."SEQ":..=.|
00000A30: 71 00 54 59 24 B2 22 50  52 47 22 3A 8E 00 4D 12  |q.TY$."PRG":..M.|
00000A40: 72 00 54 59 24 B2 22 55  53 52 22 3A 8E 00 5D 12  |r.TY$."USR":..].|
00000A50: 73 00 54 59 24 B2 22 52  45 4C 22 3A 8E 00 84 12  |s.TY$."REL":....|
00000A60: 74 00 8D 32 30 32 3A 97  32 31 34 2C 32 31 3A 97  |t..202:.214,21:.|
00000A70: 32 31 31 2C 30 3A 9E 35  38 37 33 32 3A 8B 53 59  |211,0:.58732:.SY|
00000A80: A7 31 32 30 00 C6 12 77  00 99 22 9E 5E 22 3B 22  |.120...w..".^";"|
00000A90: 20 41 55 53 57 41 48 4C  28 41 2D 22 3B C7 28 36  | AUSWAHL(A-";.(6|
00000AA0: 34 AA 53 45 29 3B 22 29  20 4F 44 45 52 20 4E 45  |4.SE);") ODER NE|
00000AB0: 55 45 20 46 55 4E 4B 54  49 4F 4E 20 5F 9D 9A 22  |UE FUNKTION _.."|
00000AC0: 3B 3A 89 31 32 31 00 04  13 78 00 99 22 9E 5E 20  |;:.121...x..".^ |
00000AD0: 05 22 3B CA 28 5A 57 24  2C 34 2C 31 36 29 3B 22  |.";.(ZW$,4,16);"|
00000AE0: 9E 45 49 4E 46 55 45 47  45 4E 20 56 4F 52 28 41  |.EINFUEGEN VOR(A|
00000AF0: 2D 22 3B C7 28 36 34 AA  53 45 29 3B 22 29 20 5F  |-";.(64.SE);") _|
00000B00: 9D 9A 22 3B 00 16 13 79  00 97 32 30 34 2C 30 3A  |..";...y..204,0:|
00000B10: 97 31 39 38 2C 30 00 2B  13 7A 00 A1 41 57 24 3A  |.198,0.+.z..AW$:|
00000B20: 8B 41 57 24 B2 22 22 A7  31 32 32 00 3B 13 7B 00  |.AW$."".122.;.{.|
00000B30: 8B C2 28 32 30 37 29 A7  31 32 33 00 6E 13 7C 00  |..(207).123.n.|.|
00000B40: 97 32 30 34 2C 31 3A 41  57 B2 C6 28 41 57 24 29  |.204,1:AW..(AW$)|
00000B50: 3A 8B 41 57 B1 31 33 32  AF 41 57 B3 31 34 31 A7  |:.AW.132.AW.141.|
00000B60: 41 57 B2 41 57 AB 31 33  32 3A 89 31 34 33 00 8E  |AW.AW.132:.143..|
00000B70: 13 7F 00 41 57 B2 41 57  AB 36 35 AA 53 5A 3A 8B  |...AW.AW.65.SZ:.|
00000B80: 41 57 B1 49 B0 41 57 B3  53 5A A7 31 32 31 00 B6  |AW.I.AW.SZ.121..|
00000B90: 13 81 00 91 46 55 89 31  32 31 2C 31 33 33 2C 31  |....FU.121,133,1|
00000BA0: 32 31 2C 31 32 31 2C 31  33 30 2C 31 33 34 2C 31  |21,121,130,134,1|
00000BB0: 32 31 2C 31 32 31 00 C2  13 82 00 8B 53 59 A7 31  |21,121......SY.1|
00000BC0: 33 32 00 D6 13 83 00 8D  31 39 37 3A 53 59 B2 31  |32......197:SY.1|
00000BD0: 3A 41 B2 33 3A 8E 00 EA  13 84 00 8D 32 30 30 3A  |:A.3:.......200:|
00000BE0: 53 59 B2 30 3A 41 B2 33  3A 8E 00 F9 13 85 00 8D  |SY.0:A.3:.......|
00000BF0: 31 36 39 3A 41 B2 33 3A  8E 00 08 14 86 00 8D 31  |169:A.3:.......1|
00000C00: 37 34 3A 41 B2 33 3A 8E  00 0E 14 87 00 3A 00 16  |74:A.3:......:..|
00000C10: 14 88 00 4D B2 30 00 47  14 89 00 81 49 B2 30 A4  |...M.0.G....I.0.|
00000C20: 48 49 AB 31 3A 8B CA 28  46 24 28 49 29 2C 34 2C  |HI.1:..(F$(I),4,|
00000C30: 31 36 29 B1 CA 28 46 24  28 49 AA 31 29 2C 34 2C  |16)..(F$(I.1),4,|
00000C40: 31 36 29 A7 31 34 32 00  55 14 8B 00 82 49 3A 8B  |16).142.U....I:.|
00000C50: 4D A7 31 33 36 00 5B 14  8D 00 8E 00 8C 14 8E 00  |M.136.[.........|
00000C60: 5A 57 24 B2 46 24 28 49  AA 31 29 3A 4D B2 31 3A  |ZW$.F$(I.1):M.1:|
00000C70: 46 24 28 49 AA 31 29 B2  46 24 28 49 29 3A 46 24  |F$(I.1).F$(I):F$|
00000C80: 28 49 29 B2 5A 57 24 3A  89 31 33 37 00 9F 14 8F  |(I).ZW$:.137....|
00000C90: 00 8B 53 59 B2 31 AF 41  57 B1 32 A7 31 32 31 00  |..SY.1.AW.2.121.|
00000CA0: C7 14 90 00 91 41 57 89  31 34 35 2C 31 34 36 2C  |.....AW.145,146,|
00000CB0: 31 34 37 2C 31 34 38 2C  31 34 39 2C 31 35 30 2C  |147,148,149,150,|
00000CC0: 31 35 31 2C 31 35 32 00  D1 14 91 00 41 B2 31 3A  |151,152.....A.1:|
00000CD0: 8E 00 DB 14 92 00 41 B2  32 3A 8E 00 EE 14 93 00  |......A.2:......|
00000CE0: 46 55 B2 35 3A 8D 31 35  33 3A 89 31 32 31 00 F8  |FU.5:.153:.121..|
00000CF0: 14 94 00 41 B2 35 3A 8E  00 0B 15 95 00 46 55 B2  |...A.5:......FU.|
00000D00: 32 3A 8D 31 35 33 3A 89  31 32 31 00 29 15 96 00  |2:.153:.121.)...|
00000D10: 46 55 B2 34 3A 8D 31 35  33 3A 8D 31 35 37 3A 46  |FU.4:.153:.157:F|
00000D20: 55 B2 35 3A 41 B2 33 3A  8E 00 3C 15 97 00 46 55  |U.5:A.3:..<...FU|
00000D30: B2 36 3A 8D 31 35 33 3A  89 31 32 31 00 62 15 98  |.6:.153:.121.b..|
00000D40: 00 46 55 B2 38 3A 8D 31  35 33 3A 9E 38 36 32 2C  |.FU.8:.153:.862,|
00000D50: 32 31 3A 8D 31 33 35 3A  46 55 B2 35 3A 41 B2 34  |21:.135:FU.5:A.4|
00000D60: 3A 8E 00 C0 15 99 00 4D  5A B2 C2 28 32 31 34 29  |:......MZ..(214)|
00000D70: 3A 4D 53 B2 C2 28 32 31  31 29 3A 97 32 31 34 2C  |:MS..(211):.214,|
00000D80: 31 34 3A 97 32 31 31 2C  32 36 3A 9E 35 38 37 33  |14:.211,26:.5873|
00000D90: 32 3A 99 22 9F 46 55 3D  12 22 3B 46 55 24 28 46  |2:.".FU=.";FU$(F|
00000DA0: 55 29 3B 22 92 9A 22 3A  97 32 31 34 2C 4D 5A 3A  |U);"..":.214,MZ:|
00000DB0: 97 32 31 31 2C 4D 53 3A  9E 35 38 37 33 32 3A 8E  |.211,MS:.58732:.|
00000DC0: 00 28 16 9D 00 9E 38 36  32 2C 32 31 3A 97 32 31  |.(....862,21:.21|
00000DD0: 34 2C 32 31 3A 97 32 31  31 2C 30 3A 9E 35 38 37  |4,21:.211,0:.587|
00000DE0: 33 32 3A 99 22 9E 12 44  49 53 4B 2D 4E 41 4D 45  |32:."..DISK-NAME|
00000DF0: 92 05 20 20 20 22 3B 4E  41 24 3A 8D 31 38 34 3A  |..   ";NA$:.184:|
00000E00: 97 32 31 34 2C 32 31 3A  97 32 31 31 2C 31 30 3A  |.214,21:.211,10:|
00000E10: 9E 35 38 37 33 32 3A 85  5A 57 24 3A 8D 31 38 36  |.58732:.ZW$:.186|
00000E20: 3A 8B 53 58 A7 31 35 37  00 34 16 A3 00 4E 41 24  |:.SX.157.4...NA$|
00000E30: B2 5A 57 24 00 99 16 A4  00 9E 38 36 32 2C 32 31  |.ZW$......862,21|
00000E40: 3A 9E 38 36 32 2C 32 32  3A 97 32 31 34 2C 32 31  |:.862,22:.214,21|
00000E50: 3A 97 32 31 31 2C 30 3A  9E 35 38 37 33 32 3A 99  |:.211,0:.58732:.|
00000E60: 22 9E 12 49 44 92 05 20  20 20 22 3B 49 44 24 3A  |"..ID..   ";ID$:|
00000E70: 97 32 31 34 2C 32 31 3A  97 32 31 31 2C 33 3A 9E  |.214,21:.211,3:.|
00000E80: 35 38 37 33 32 3A 85 49  45 24 3A 8B C3 28 49 45  |58732:.IE$:..(IE|
00000E90: 24 29 B3 B1 32 A7 31 36  34 00 AC 16 A8 00 49 44  |$)..2.164.....ID|
00000EA0: 24 B2 49 45 24 3A 99 22  9A 22 3A 8E 00 24 17 A9  |$.IE$:.".":..$..|
00000EB0: 00 9E 38 36 32 2C 32 31  3A 97 32 31 34 2C 32 31  |..862,21:.214,21|
00000EC0: 3A 97 32 31 31 2C 30 3A  9E 35 38 37 33 32 3A 99  |:.211,0:.58732:.|
00000ED0: 22 9E 12 52 45 4E 41 4D  45 20 20 20 92 05 20 20  |"..RENAME   ..  |
00000EE0: 20 22 3B CA 28 46 24 28  41 57 29 2C 34 2C 31 36  | ";.(F$(AW),4,16|
00000EF0: 29 3A 8D 31 38 34 3A 97  32 31 34 2C 32 31 3A 97  |):.184:.214,21:.|
00000F00: 32 31 31 2C 31 30 3A 9E  35 38 37 33 32 3A 85 5A  |211,10:.58732:.Z|
00000F10: 57 24 3A 99 22 9A 22 3A  8D 31 38 36 3A 8B 53 58  |W$:.".":.186:.SX|
00000F20: A7 31 36 39 00 4E 17 AD  00 46 24 28 41 57 29 B2  |.169.N...F$(AW).|
00000F30: C8 28 46 24 28 41 57 29  2C 33 29 AA 5A 57 24 AA  |.(F$(AW),3).ZW$.|
00000F40: C9 28 46 24 28 41 57 29  2C 31 31 29 3A 8E 00 A9  |.(F$(AW),11):...|
00000F50: 17 AE 00 9E 38 36 32 2C  32 31 3A 97 32 31 34 2C  |....862,21:.214,|
00000F60: 32 31 3A 97 32 31 31 2C  32 3A 9E 35 38 37 33 32  |21:.211,2:.58732|
00000F70: 3A 99 22 05 22 3B CA 28  46 24 28 41 57 29 2C 34  |:.".";.(F$(AW),4|
00000F80: 2C 31 36 29 3B 22 9E 44  45 4C 45 54 45 20 4F 4B  |,16);".DELETE OK|
00000F90: 20 3D 20 46 37 20 5F 9D  9A 22 3B 3A 97 32 30 34  | = F7 _..";:.204|
00000FA0: 2C 30 3A 97 31 39 38 2C  30 00 BE 17 B1 00 A1 41  |,0:.198,0......A|
00000FB0: 57 24 3A 8B 41 57 24 B2  22 22 A7 31 37 37 00 CE  |W$:.AW$."".177..|
00000FC0: 17 B2 00 8B C2 28 32 30  37 29 A7 31 37 38 00 E8  |.....(207).178..|
00000FD0: 17 B3 00 97 32 30 34 2C  31 3A 8B 41 57 24 B3 B1  |....204,1:.AW$..|
00000FE0: C7 28 31 33 36 29 A7 8E  00 12 18 B4 00 81 58 B2  |.(136)........X.|
00000FF0: 31 39 A4 34 A9 AB 31 3A  8B CA 28 46 24 28 41 57  |19.4..1:..(F$(AW|
00001000: 29 2C 58 2C 31 29 B3 B1  C7 28 31 36 30 29 A7 31  |),X,1)...(160).1|
00001010: 38 32 00 19 18 B5 00 82  58 00 48 18 B6 00 58 B2  |82......X.H...X.|
00001020: 58 AB 33 3A 9F 31 2C 38  2C 31 35 2C 22 53 3A 22  |X.3:.1,8,15,"S:"|
00001030: AA CA 28 46 24 28 41 57  29 2C 34 2C 58 29 3A A0  |..(F$(AW),4,X):.|
00001040: 31 3A 8D 31 39 35 3A 8E  00 7B 18 B8 00 97 32 31  |1:.195:..{....21|
00001050: 34 2C 32 32 3A 97 32 31  31 2C 31 32 3A 9E 35 38  |4,22:.211,12:.58|
00001060: 37 33 32 3A 99 22 05 B1  B1 B1 B1 B1 B1 B1 B1 B1  |732:."..........|
00001070: B1 B1 B1 B1 B1 B1 B1 22  3B 3A 8E 00 A3 18 BA 00  |.......";:......|
00001080: 5A 57 24 B2 5A 57 24 AA  41 30 24 3A 8B C8 28 5A  |ZW$.ZW$.A0$:..(Z|
00001090: 57 24 2C 31 29 B2 C7 28  31 36 30 29 A7 53 58 B2  |W$,1)..(160).SX.|
000010A0: 31 3A 8E 00 F6 18 BB 00  5A 57 24 B2 C8 28 5A 57  |1:......ZW$..(ZW|
000010B0: 24 2C 31 36 29 3A 9E 38  34 39 28 5A 57 24 29 3A  |$,16):.849(ZW$):|
000010C0: 4D B2 32 35 36 AC C2 28  32 35 31 29 AA C2 28 32  |M.256..(251)..(2|
000010D0: 35 30 29 3A 53 58 B2 31  3A 81 58 B2 31 35 A4 30  |50):SX.1:.X.15.0|
000010E0: A9 AB 31 3A 41 B2 C2 28  4D AA 58 29 3A 8B 53 58  |..1:A..(M.X):.SX|
000010F0: B2 30 A7 31 39 33 00 05  19 BE 00 8B 41 B2 31 36  |.0.193......A.16|
00001100: 30 A7 31 39 34 00 1D 19  BF 00 8B 41 B2 33 32 A7  |0.194......A.32.|
00001110: 97 4D AA 58 2C 31 36 30  3A 89 31 39 34 00 2B 19  |.M.X,160:.194.+.|
00001120: C0 00 53 58 B2 30 3A 89  31 39 34 00 3E 19 C1 00  |..SX.0:.194.>...|
00001130: 8B 41 B2 31 36 30 A7 97  4D AA 58 2C 33 32 00 47  |.A.160..M.X,32.G|
00001140: 19 C2 00 82 58 3A 8E 00  84 19 C3 00 81 49 B2 41  |....X:.......I.A|
00001150: 57 A4 48 49 AB 31 3A 46  24 28 49 29 B2 46 24 28  |W.HI.1:F$(I).F$(|
00001160: 49 AA 31 29 3A 82 49 3A  46 24 28 48 49 29 B2 58  |I.1):.I:F$(HI).X|
00001170: 4C 24 3A 48 49 B2 48 49  AB 31 3A 44 45 B2 44 45  |L$:HI.HI.1:DE.DE|
00001180: AA 31 3A 8E 00 BC 19 C5  00 5A 57 24 B2 46 24 28  |.1:......ZW$.F$(|
00001190: 41 57 29 3A 81 49 B2 41  57 A4 48 49 AB 31 3A 46  |AW):.I.AW.HI.1:F|
000011A0: 24 28 49 29 B2 46 24 28  49 AA 31 29 3A 82 49 3A  |$(I).F$(I.1):.I:|
000011B0: 46 24 28 48 49 29 B2 5A  45 24 3A 8E 00 EC 19 C8  |F$(HI).ZE$:.....|
000011C0: 00 81 49 B2 48 49 A4 41  57 AA 31 A9 AB 31 3A 46  |..I.HI.AW.1..1:F|
000011D0: 24 28 49 29 B2 46 24 28  49 AB 31 29 3A 82 49 3A  |$(I).F$(I.1):.I:|
000011E0: 46 24 28 41 57 29 B2 5A  57 24 3A 8E 00 9C 1A CA  |F$(AW).ZW$:.....|
000011F0: 00 4D 5A B2 C2 28 32 31  34 29 3A 4D 53 B2 C2 28  |.MZ..(214):MS..(|
00001200: 32 31 31 29 3A 97 32 31  34 2C 35 3A 97 32 31 31  |211):.214,5:.211|
00001210: 2C 32 36 3A 9E 35 38 37  33 32 3A 99 22 9F 46 31  |,26:.58732:.".F1|
00001220: 3D 57 45 49 54 45 52 22  3A 97 32 31 34 2C 36 3A  |=WEITER":.214,6:|
00001230: 97 32 31 31 2C 32 36 3A  99 22 46 33 3D 5A 55 52  |.211,26:."F3=ZUR|
00001240: 55 45 43 4B 22 3A 97 32  31 34 2C 37 3A 97 32 31  |UECK":.214,7:.21|
00001250: 31 2C 32 36 3A 99 22 46  32 3D 22 3B 46 55 24 28  |1,26:."F2=";FU$(|
00001260: 32 29 3A 97 32 31 34 2C  38 3A 97 32 31 31 2C 32  |2):.214,8:.211,2|
00001270: 36 3A 99 22 46 34 3D 22  3B 46 55 24 28 34 29 3A  |6:."F4=";FU$(4):|
00001280: 97 32 31 34 2C 39 3A 97  32 31 31 2C 32 36 3A 99  |.214,9:.211,26:.|
00001290: 22 46 35 3D 22 3B 46 55  24 28 35 29 00 85 1B D0  |"F5=";FU$(5)....|
000012A0: 00 97 32 31 34 2C 31 30  3A 97 32 31 31 2C 32 36  |..214,10:.211,26|
000012B0: 3A 99 22 46 36 3D 22 3B  46 55 24 28 36 29 3A 97  |:."F6=";FU$(6):.|
000012C0: 32 31 34 2C 31 31 3A 97  32 31 31 2C 32 36 3A 99  |214,11:.211,26:.|
000012D0: 22 46 37 3D 45 4E 44 45  22 3A 97 32 31 34 2C 31  |"F7=ENDE":.214,1|
000012E0: 32 3A 97 32 31 31 2C 32  36 3A 99 22 46 38 3D 22  |2:.211,26:."F8="|
000012F0: 3B 46 55 24 28 38 29 3B  22 9A 22 3A 97 32 31 34  |;FU$(8);".":.214|
00001300: 2C 31 33 3A 97 32 31 31  2C 32 36 3A 99 22 11 9F  |,13:.211,26:."..|
00001310: 46 55 3D 12 22 3B 46 55  24 28 46 55 29 3B 22 92  |FU=.";FU$(FU);".|
00001320: 9A 22 3A 97 32 31 34 2C  4D 5A 3A 97 32 31 31 2C  |.":.214,MZ:.211,|
00001330: 4D 53 3A 9E 35 38 37 33  32 3A 8E 3A 83 31 36 32  |MS:.58732:.:.162|
00001340: 2C 32 2C 33 32 2C 31 39  38 2C 32 35 35 2C 31 36  |,2,32,198,255,16|
00001350: 30 2C 30 2C 33 32 2C 32  30 37 2C 32 35 35 2C 31  |0,0,32,207,255,1|
00001360: 34 35 2C 32 35 30 2C 32  30 30 2C 31 39 36 2C 32  |45,250,200,196,2|
00001370: 35 32 2C 32 30 38 2C 32  34 36 2C 33 32 2C 32 30  |52,208,246,32,20|
00001380: 34 2C 32 35 35 00 D0 1B  D7 00 83 39 36 2C 33 32  |4,255......96,32|
00001390: 2C 31 35 38 2C 31 37 33  2C 33 32 2C 31 36 33 2C  |,158,173,32,163,|
000013A0: 31 38 32 2C 31 33 32 2C  32 35 31 2C 31 33 34 2C  |182,132,251,134,|
000013B0: 32 35 30 2C 31 33 33 2C  32 35 32 2C 39 36 2C 33  |250,133,252,96,3|
000013C0: 32 2C 32 35 33 2C 31 37  34 2C 33 32 2C 31 35 38  |2,253,174,32,158|
000013D0: 00 E7 1B D8 00 83 31 38  33 2C 33 32 2C 32 35 35  |......183,32,255|
000013E0: 2C 32 33 33 2C 39 36 00  17 1C D9 00 99 22 A9 FF  |,233,96......"..|
000013F0: 8D 06 03 A9 34 8D 14 03  A9 C1 8D 18 03 A9 EA 8D  |....4...........|
00001400: 24 08 A9 08 8D 25 08 A9  38 8D 39 08 8D 3D 08 8D  |$....%..8.9..=..|
00001410: 1F 09 8D 87 09 60 22 00  00 00 00 00 FF 49 00 1F  |.....`"......I..|
00001420: E0 FF 00                                          |...             |
..$....7149:.<C>1984 BY *HP*SOFT*   ....
..".":.F$(144):.I.128.171:.DE:.I,DE:.:FU
$(5)."UMGLIEDERN":FU$(2)."FILE-RENAM":FU
$(6)."SCRATCH   ":FU$(8)."FILE-SORT ":FU
$(4)."DISK-RENAM":.I.0.29:XL$.XL$.G(0):.
:.I.0.15:A0$.A0$.G(160):.:.53280,6.B...Y
Y$."012345678901234567890123456789":FF$.
YY$."":.249(FF$):.53280,6:ZE$."******DAT
EI-ENDE***         ".G(0).G(0):.94......
I.0.144:F$(I).XL$:.:FF$.YY$."":.349(FF$)
:FU.5:.15,8,15,"I0":.2,8,2,"#":.15,"U1 2
 0";18;0:.15,"B-P";2;144:.828:NA$.H(FF$,
16):ID$.J(FF$,19,2):T.18:S.1:I.0:SY.0:DE
.0.C....15,"U1 2 0";T;S:.15,"B-P";2;0:.#
2,X$:.X$."".X$.G(0).E...T.F(X$):.#2,X$:.
X$."".X$.G(0).....S.F(X$):.X.0.7:.15,"B-
P";2;X.32.2:.828:.J(FF$,4,1).G(0).35.T..
.F$(I).FF$."":.H(F$(I),1).G(129).DE.DE.1
:.32.....I.I.1... ..X:.T.0.35..."..19...
#.F$(I).XL$:HI.I.1: 2: 15.$.$.SE.0:SZ.0:
LI.0...%..105:.I.LI.HI:.109:.".";G(65.SE
);". ";J(F$(I),4,16);:..18)TY$;:..21)F(J
(F$(I),29,1)):SE.SE.1:.SE.15.49...+..116
:.A.47,44,46,36,52...,..SZ.0.36.S.-.SZ.S
Z.15:SE.0:LI.SZ:.37.....LI.SZ:SE.0:.37..
./..I.HI.36...0.SZ.SZ.15:SE.0:.105...1..
I:..2)".***DATEI-ENDE***.":.43...4..108:
..2)"..ACHTUNG! IST NOCH DIESELBE":..2)"
..DISK IN DER FLOPPY?.":."..GRUNDMASKE F
. WEITERE AENDERUNGEN   =.F3.":.".DIRECT
ORY UNVERAENDERT - NEUE DISK  =.F5.":.".
DIRECTORY SO OK - AUF DISK SCHREIBEN=.F7
.":.198,0.!.:..AW$:.AW$.G(134).36.4.<..A
W$.G(135).88.G.=..AW$.G(136).63.O.>..58.
C.?..1,8,15,"I0":.2,8,2,"#":.1,"U1 2 0";
18;0:.1,"B-P";2;144:.2,NA$.G(160).G(160)
.ID$;:.1,"U2 2 0";18;0:I.0:T.18:S.1...E.
.1,"U1 2 0";T;S:.1,"B-P:";2;0:.#2,X$:.X$
."".X$.G(0)...H.T1.F(X$):.#2,X$:.X$."".X
$.G(0).9.J.S1.F(X$):IM.I:.T1.0.76.O.K..H
(F$(IM.8),1).G(0)..1,"B-P:";2;0:.2,G(0).
G(255);...L..X.0.7:.1,"B-P:";2;X.32.2:.2
,F$(I);:I.I.1:.I.HI.DE.81...P..X...Q..1,
"B-P:";2;0:.H(F$(IM),1).G(0)..2,G(0).G(0
);:.1,"B-F 0";T;S...S..1,"U2 2 0";T;S:T.
T1:S.S1:.T.0.87...V..69.?.W. 2: 1:ND$."W
EITERE":.89:.11.Y.X.ND$."WEITERE":.89:.1
1...Y.."....BITTE ";ND$;" DISK EINLEGEN"
:..17)".UND .<RETURN>. - F7=ENDE.":.198,
0...[..AW$:.AW$.G(13)...Q.\..AW$.G(136).
..Y.]..91...^.."...           *** M O D 
I ***            ":.". <C> 1984 BY HERBE
RT PEUSTER,HAMBURG  ..":."MIT DIESEM PRO
GRAMM KOENNEN FOLGENDE":."DATEN EINES DI
RECTORY MODIFIZIERT":."WERDEN:".[.B...28
)".FUNKTION =":.".1. PROGRAMM-NAME";.28)
FU$(2):.".2. DISK-NAME/ID";.28)FU$(4):."
.3. REIHENFOLGE DER FILES";.28)FU$(5):."
.4. LOESCHEN EINES FILES";.28)FU$(6):.".
5. ALPHA-SORT DER FILES";.28)FU$(8).E.H.
.89:....I..108:."  FILE-NAME       ART B
LK FUNKTION.":SE.0:.202:....L..".".2)"..
DISK-NAME:";NA$;" ID:";ID$;".. *HP*":..3
5)"SOFT."...M.TY.F(H(F$(I),1)).15:.TY.11
2,113,114,115...O.TY$."DEL":..-.P.TY$."S
EQ":..=.Q.TY$."PRG":..M.R.TY$."USR":..].
S.TY$."REL":....T..202:.214,21:.211,0:.5
8732:.SY.120.F.W..".^";" AUSWAHL(A-";G(6
4.SE);") ODER NEUE FUNKTION _..";:.121..
.X..".^ .";J(ZW$,4,16);".EINFUEGEN VOR(A
-";G(64.SE);") _..";...Y..204,0:.198,0.+
.Z..AW$:.AW$."".122.;.{..B(207).123.N.|.
.204,1:AW.F(AW$):.AW.132.AW.141.AW.AW.13
2:.143....AW.AW.65.SZ:.AW.I.AW.SZ.121..
....FU.121,133,121,121,130,134,121,121.B
....SY.132.V....197:SY.1:A.3:.......200:
SY.0:A.3:.......169:A.3:.......174:A.3:.
.....:.....M.0.G....I.0.HI.1:.J(F$(I),4,
16).J(F$(I.1),4,16).142.U....I:.M.136.[.
........ZW$.F$(I.1):M.1:F$(I.1).F$(I):F$
(I).ZW$:.137......SY.1.AW.2.121.G....AW.
145,146,147,148,149,150,151,152.Q...A.1:
......A.2:......FU.5:.153:.121.....A.5:.
.....FU.2:.153:.121.)...FU.4:.153:.157:F
U.5:A.3:..<...FU.6:.153:.121.B...FU.8:.1
53:.862,21:.135:FU.5:A.4:......MZ.B(214)
:MS.B(211):.214,14:.211,26:.58732:.".FU=
.";FU$(FU);"..":.214,MZ:.211,MS:.58732:.
.(....862,21:.214,21:.211,0:.58732:."..D
ISK-NAME..   ";NA$:.184:.214,21:.211,10:
.58732:.ZW$:.186:.SX.157.4...NA$.ZW$....
..862,21:.862,22:.214,21:.211,0:.58732:.
"..ID..   ";ID$:.214,21:.211,3:.58732:.I
E$:.C(IE$)..2.164.....ID$.IE$:.".":..$..
..862,21:.214,21:.211,0:.58732:."..RENAM
E   ..   ";J(F$(AW),4,16):.184:.214,21:.
211,10:.58732:.ZW$:.".":.186:.SX.169.N..
.F$(AW).H(F$(AW),3).ZW$.I(F$(AW),11):...
....862,21:.214,21:.211,2:.58732:.".";J(
F$(AW),4,16);".DELETE OK = F7 _..";:.204
,0:.198,0......AW$:.AW$."".177.N....B(20
7).178......204,1:.AW$..G(136)........X.
19.4..1:.J(F$(AW),X,1)..G(160).182......
X.H...X.X.3:.1,8,15,"S:".J(F$(AW),4,X): 
1:.195:..{....214,22:.211,12:.58732:."..
...............";:......ZW$.ZW$.A0$:.H(Z
W$,1).G(160).SX.1:......ZW$.H(ZW$,16):.8
49(ZW$):M.256.B(251).B(250):SX.1:.X.15.0
..1:A.B(M.X):.SX.0.193......A.160.194...
...A.32..M.X,160:.194.+...SX.0:.194.>.A.
.A.160..M.X,32.G.B..X:....C..I.AW.HI.1:F
$(I).F$(I.1):.I:F$(HI).XL$:HI.HI.1:DE.DE
.1:....E.ZW$.F$(AW):.I.AW.HI.1:F$(I).F$(
I.1):.I:F$(HI).ZE$:....H..I.HI.AW.1..1:F
$(I).F$(I.1):.I:F$(AW).ZW$:....J.MZ.B(21
4):MS.B(211):.214,5:.211,26:.58732:.".F1
=WEITER":.214,6:.211,26:."F3=ZURUECK":.2
14,7:.211,26:."F2=";FU$(2):.214,8:.211,2
6:."F4=";FU$(4):.214,9:.211,26:."F5=";FU
$(5)...P..214,10:.211,26:."F6=";FU$(6):.
214,11:.211,26:."F7=ENDE":.214,12:.211,2
6:."F8=";FU$(8);".":.214,13:.211,26:."..
FU=.";FU$(FU);"..":.214,MZ:.211,MS:.5873
2:.:.162,2,32,198,255,160,0,32,207,255,1
45,250,200,196,252,208,246,32,204,255.P.
W..96,32,158,173,32,163,182,132,251,134,
250,133,252,96,32,253,174,32,158...X..18
3,32,255,233,96...Y.."......4....A......
$....%..8.9..=.......`"......I.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL