DIRECTORY+
FILE INFORMATION
FILENAME(S): DIRECTORY+
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-10-20 14:32:11
APPEARS ON: 2 disk(s)
FILE HASH
789f61b3b0623381001513ce9de04e7eff192e1e4d1aa99147b573781b6ebf6c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C018 | DIRECTORY+ | PRG | Treasure Chest - Klaus Der Suhler | 24 | 5 | DOWNLOAD FILE |
| 17 | DIRECTORY+ | PRG | Treasure Chest - Plattfuss | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 3F 1C 01 00 8F 20 43 4F 4D 50 55 54 45 20 |..?.... COMPUTE |
00000010: 4D 41 47 41 5A 49 4E 45 20 41 55 47 20 31 39 38 |MAGAZINE AUG 198|
00000020: 36 3A 20 4D 4F 44 49 46 49 2D 20 20 45 44 20 42 |6: MODIFI- ED B|
00000030: 59 20 41 42 46 20 41 55 47 20 32 30 2F 38 36 00 |Y ABF AUG 20/86.|
00000040: 86 1C 03 00 8F 20 43 4D 3D 43 4F 4D 50 55 54 45 |..... CM=COMPUTE|
00000050: 52 20 54 59 50 45 20 43 36 34 2F 43 31 32 38 3A |R TYPE C64/C128:|
00000060: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 43 4D | IF CM|
00000070: 3D 31 37 31 36 35 2C 20 20 20 54 59 50 45 20 49 |=17165, TYPE I|
00000080: 53 20 43 31 32 38 00 9F 1C 05 00 43 4D B2 C2 28 |S C128.....CM..(|
00000090: 37 37 32 29 AA 32 35 36 AC C2 28 37 37 33 29 00 |772).256..(773).|
000000A0: A8 1C 06 00 43 4F B2 30 00 BF 1C 07 00 8B 20 43 |....CO.0...... C|
000000B0: 4D B2 31 37 31 36 35 20 A7 20 8D 32 30 30 30 00 |M.17165 . .2000.|
000000C0: CA 1C 0A 00 4E 44 24 B2 22 22 00 19 1D 14 00 8F |....ND$.""......|
000000D0: 20 4E 44 24 3D 43 48 52 24 28 38 29 3A 52 45 4D | ND$=CHR$(8):REM|
000000E0: 20 52 45 4D 4F 56 45 20 46 4F 52 20 31 35 32 35 | REMOVE FOR 1525|
000000F0: 20 20 20 20 4F 52 20 4D 50 53 20 38 30 31 20 50 | OR MPS 801 P|
00000100: 52 49 4E 54 45 52 53 3A 53 45 45 20 4C 49 4E 45 |RINTERS:SEE LINE|
00000110: 53 20 31 31 30 2D 31 30 37 00 3E 1D 1E 00 86 20 |S 110-107.>.... |
00000120: 46 54 24 28 35 29 3A 81 20 49 B2 30 A4 35 3A 87 |FT$(5):. I.0.5:.|
00000130: 41 24 3A 46 54 24 28 49 29 B2 41 24 3A 82 00 5C |A$:FT$(I).A$:..\|
00000140: 1D 28 00 83 20 44 45 4C 2C 53 45 51 2C 50 52 47 |.(.. DEL,SEQ,PRG|
00000150: 2C 55 53 52 2C 52 45 4C 2C 44 45 4C 00 6C 1D 32 |,USR,REL,DEL.l.2|
00000160: 00 86 20 46 24 28 31 34 34 2C 35 29 00 77 1D 3C |.. F$(144,5).w.<|
00000170: 00 46 45 B2 36 36 34 00 89 1D 41 00 8B 20 43 4F |.FE.664...A.. CO|
00000180: B2 30 20 A7 20 99 22 93 22 00 C7 1D 46 00 99 C7 |.0 . ."."...F...|
00000190: 28 31 34 35 29 3B C7 28 33 30 29 3B C7 28 31 37 |(145);.(30);.(17|
000001A0: 29 3B 22 4F 55 54 50 55 54 20 54 4F 20 53 43 52 |);"OUTPUT TO SCR|
000001B0: 45 45 4E 20 4F 52 20 50 52 49 4E 54 45 52 20 28 |EEN OR PRINTER (|
000001C0: 53 2F 50 29 20 3F 22 00 DB 1D 50 00 A1 41 24 3A |S/P) ?"...P..A$:|
000001D0: 8B 41 24 B2 22 22 20 A7 20 38 30 00 F3 1D 5A 00 |.A$."" . 80...Z.|
000001E0: 44 56 B2 33 3A 8B 20 41 24 B2 22 50 22 A7 20 44 |DV.3:. A$."P". D|
000001F0: 56 B2 34 00 09 1E 64 00 8B 20 41 24 B2 22 53 22 |V.4...d.. A$."S"|
00000200: A7 20 CB 20 A4 20 31 34 30 00 20 1E 65 00 99 22 |. . . 140. .e.."|
00000210: 31 29 20 31 35 32 36 20 50 52 49 4E 54 45 52 22 |1) 1526 PRINTER"|
00000220: 00 37 1E 66 00 99 22 32 29 20 31 35 32 35 20 50 |.7.f.."2) 1525 P|
00000230: 52 49 4E 54 45 52 22 00 53 1E 67 00 99 22 43 48 |RINTER".S.g.."CH|
00000240: 4F 4F 53 45 20 50 52 49 4E 54 45 52 20 41 42 4F |OOSE PRINTER ABO|
00000250: 56 45 22 00 66 1E 68 00 A1 41 24 3A 8B 41 24 B2 |VE".f.h..A$:.A$.|
00000260: 22 22 A7 31 30 34 00 79 1E 69 00 8B 20 C5 28 41 |"".104.y.i.. .(A|
00000270: 24 29 B3 30 20 A7 31 30 34 00 8C 1E 6A 00 8B 20 |$).0 .104...j.. |
00000280: C5 28 41 24 29 B1 32 20 A7 31 30 34 00 A4 1E 6B |.(A$).2 .104...k|
00000290: 00 8B 20 41 24 B2 22 32 22 20 A7 20 4E 44 24 B2 |.. A$."2" . ND$.|
000002A0: C7 28 38 29 00 CF 1E 6E 00 99 C7 28 31 37 29 22 |.(8)...n...(17)"|
000002B0: 53 49 4E 47 4C 45 20 4F 52 20 44 4F 55 42 4C 45 |SINGLE OR DOUBLE|
000002C0: 20 57 49 44 54 48 20 28 53 2F 44 29 20 3F 22 00 | WIDTH (S/D) ?".|
000002D0: E4 1E 78 00 A1 41 24 3A 8B 41 24 B2 22 22 20 A7 |..x..A$:.A$."" .|
000002E0: 20 31 32 30 00 05 1F 82 00 42 47 24 B2 C7 28 31 | 120.....BG$..(1|
000002F0: 35 29 3A 8B 41 24 B2 22 44 22 A7 20 42 47 24 B2 |5):.A$."D". BG$.|
00000300: C7 28 31 34 29 00 2F 1F 8C 00 99 C7 28 31 37 29 |.(14)./.....(17)|
00000310: 22 49 4E 53 45 52 54 20 44 49 53 4B 20 41 4E 44 |"INSERT DISK AND|
00000320: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 00 | PRESS ANY KEY".|
00000330: 44 1F 96 00 A1 41 24 3A 8B 41 24 B2 22 22 20 A7 |D....A$:.A$."" .|
00000340: 20 31 35 30 00 6F 1F A0 00 99 C7 28 31 34 35 29 | 150.o.....(145)|
00000350: 22 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 20 |"PLEASE WAIT... |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000370: 8B 1F AA 00 9F 31 35 2C 38 2C 31 35 3A 98 31 35 |.....15,8,15:.15|
00000380: 2C 22 49 30 22 3A 8D 31 30 32 30 00 9F 1F B4 00 |,"I0":.1020.....|
00000390: 9F 38 2C 38 2C 38 2C 22 24 30 2C 53 2C 52 22 00 |.8,8,8,"$0,S,R".|
000003A0: AA 1F BE 00 8D 20 31 30 32 30 00 C0 1F C8 00 81 |..... 1020......|
000003B0: 49 B2 31 A4 31 34 32 3A A1 23 38 2C 41 24 3A 82 |I.1.142:.#8,A$:.|
000003C0: 00 E1 1F D2 00 81 49 B2 31 34 33 A4 31 36 30 3A |......I.143.160:|
000003D0: A1 23 38 2C 41 24 3A 4E 24 B2 4E 24 AA 41 24 3A |.#8,A$:N$.N$.A$:|
000003E0: 82 00 04 20 DC 00 81 49 B2 31 36 31 A4 31 36 32 |... ...I.161.162|
000003F0: 3A A1 23 38 2C 41 24 3A 49 44 24 B2 49 44 24 AA |:.#8,A$:ID$.ID$.|
00000400: 41 24 3A 82 00 2E 20 E6 00 A1 23 38 2C 41 24 3A |A$:... ...#8,A$:|
00000410: 81 49 B2 31 36 34 A4 31 36 35 3A A1 23 38 2C 41 |.I.164.165:.#8,A|
00000420: 24 3A 4F 53 24 B2 4F 53 24 AA 41 24 3A 82 00 46 |$:OS$.OS$.A$:..F|
00000430: 20 F0 00 81 49 B2 31 36 36 A4 32 35 34 3A A1 23 | ...I.166.254:.#|
00000440: 38 2C 41 24 3A 82 00 4F 20 FA 00 43 54 B2 38 00 |8,A$:..O ..CT.8.|
00000450: 5B 20 04 01 4E 4D B2 4E 4D AA 31 00 6F 20 0E 01 |[ ..NM.NM.1.o ..|
00000460: 8B 43 54 B2 38 A7 43 54 B2 31 3A 89 33 30 30 00 |.CT.8.CT.1:.300.|
00000470: 8B 20 18 01 43 54 B2 43 54 AA 31 3A A1 23 38 2C |. ..CT.CT.1:.#8,|
00000480: 41 24 2C 41 24 3A 46 4C B2 53 54 00 9C 20 22 01 |A$,A$:FL.ST.. ".|
00000490: 8B 46 4C B3 B1 30 20 A7 20 34 38 30 00 B8 20 2C |.FL..0 . 480.. ,|
000004A0: 01 A1 23 38 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 |..#8,A$:.A$."".A|
000004B0: 24 B2 C7 28 31 33 33 29 00 CE 20 36 01 46 4C B2 |$..(133).. 6.FL.|
000004C0: 53 54 3A 8B 4C B3 B1 30 20 89 20 34 38 30 00 EB |ST:.L..0 . 480..|
000004D0: 20 40 01 54 59 24 B2 46 54 24 28 28 C6 28 41 24 | @.TY$.FT$((.(A$|
000004E0: 29 AF 31 39 31 29 AB 31 32 38 29 00 05 21 4A 01 |).191).128)..!J.|
000004F0: A1 23 38 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 |.#8,A$:.A$."".A$|
00000500: B2 C7 28 30 29 00 20 21 54 01 54 52 24 B2 C9 28 |..(0). !T.TR$..(|
00000510: 22 20 20 22 AA C4 28 C6 28 41 24 29 29 2C 32 29 |" "..(.(A$)),2)|
00000520: 00 3A 21 5E 01 A1 23 38 2C 41 24 3A 8B 41 24 B2 |.:!^..#8,A$:.A$.|
00000530: 22 22 A7 41 24 B2 C7 28 30 29 00 55 21 68 01 53 |"".A$..(0).U!h.S|
00000540: 43 24 B2 C9 28 22 20 20 22 AA C4 28 C6 28 41 24 |C$..(" "..(.(A$|
00000550: 29 29 2C 32 29 00 7C 21 72 01 46 4C 24 B2 22 22 |)),2).|!r.FL$.""|
00000560: 3A 81 49 B2 33 A4 31 38 3A A1 23 38 2C 41 24 3A |:.I.3.18:.#8,A$:|
00000570: 46 4C 24 B2 46 4C 24 AA 41 24 3A 82 00 92 21 7C |FL$.FL$.A$:...!||
00000580: 01 81 49 B2 31 39 A4 32 37 3A A1 23 38 2C 41 24 |..I.19.27:.#8,A$|
00000590: 3A 82 00 A2 21 86 01 A1 23 38 2C 4C 42 24 2C 48 |:...!...#8,LB$,H|
000005A0: 42 24 00 C5 21 90 01 42 4C B2 C6 28 4C 42 24 AA |B$..!..BL..(LB$.|
000005B0: C7 28 30 29 29 AA 32 35 36 AC C6 28 48 42 24 AA |.(0)).256..(HB$.|
000005C0: C7 28 30 29 29 00 DE 21 9A 01 8B 54 59 24 B3 B1 |.(0))..!...TY$..|
000005D0: 22 44 45 4C 22 A7 46 45 B2 46 45 AB 42 4C 00 F9 |"DEL".FE.FE.BL..|
000005E0: 21 A4 01 42 4C 24 B2 C9 28 22 20 20 20 20 20 22 |!..BL$..(" "|
000005F0: AA C4 28 42 4C 29 2C 33 29 00 0C 22 AE 01 8B 54 |..(BL),3).."...T|
00000600: 52 24 B2 22 20 30 22 A7 89 34 38 30 00 51 22 B8 |R$." 0"..480.Q".|
00000610: 01 46 24 28 4E 4D 2C 30 29 B2 46 4C 24 3A 46 24 |.F$(NM,0).FL$:F$|
00000620: 28 4E 4D 2C 31 29 B2 54 59 24 3A 46 24 28 4E 4D |(NM,1).TY$:F$(NM|
00000630: 2C 32 29 B2 54 52 24 3A 46 24 28 4E 4D 2C 33 29 |,2).TR$:F$(NM,3)|
00000640: B2 53 43 24 3A 46 24 28 4E 4D 2C 34 29 B2 42 4C |.SC$:F$(NM,4).BL|
00000650: 24 00 66 22 C2 01 46 24 28 4E 4D 2C 35 29 B2 22 |$.f"..F$(NM,5)."|
00000660: 20 20 20 20 20 22 00 88 22 CC 01 8B 20 54 59 24 | ".."... TY$|
00000670: B2 22 50 52 47 22 A7 20 46 24 28 4E 4D 2C 35 29 |."PRG". F$(NM,5)|
00000680: B2 22 2D 2D 2D 2D 2D 22 00 91 22 D6 01 89 32 36 |."-----".."...26|
00000690: 30 00 98 22 E0 01 A0 38 00 A3 22 EA 01 8D 20 31 |0.."...8.."... 1|
000006A0: 30 32 30 00 C3 22 F4 01 8B 20 46 24 28 4E 4D 2C |020.."... F$(NM,|
000006B0: 30 29 B2 22 22 A7 20 4E 4D B2 4E 4D AB 31 3A 89 |0)."". NM.NM.1:.|
000006C0: 35 30 30 00 DD 22 FE 01 46 45 24 B2 C9 28 22 20 |500.."..FE$..(" |
000006D0: 20 20 20 22 AA C4 28 46 45 29 2C 33 29 00 0C 23 | "..(FE),3)..#|
000006E0: 08 02 99 C7 28 31 34 35 29 3B 22 53 54 41 52 54 |....(145);"START|
000006F0: 20 41 44 44 52 45 53 53 20 3A 22 3A 99 C7 28 31 | ADDRESS :":..(1|
00000700: 37 29 3B 22 20 31 29 20 41 4C 4C 22 00 28 23 12 |7);" 1) ALL".(#.|
00000710: 02 99 22 20 32 29 20 53 4F 4D 45 22 3A 99 22 20 |.." 2) SOME":." |
00000720: 33 29 20 4E 4F 4E 45 22 00 3F 23 1C 02 A1 41 24 |3) NONE".?#...A$|
00000730: 3A 8B C5 28 41 24 29 B2 30 20 A7 20 35 34 30 00 |:..(A$).0 . 540.|
00000740: 51 23 26 02 8B 20 C5 28 41 24 29 B1 32 89 37 37 |Q#&.. .(A$).2.77|
00000750: 30 00 77 23 30 02 99 22 93 22 3A 8B 41 24 B2 22 |0.w#0..".":.A$."|
00000760: 31 22 A7 20 99 22 4A 55 53 54 20 41 20 4D 4F 4D |1". ."JUST A MOM|
00000770: 45 4E 54 2E 2E 2E 22 00 83 23 3A 02 81 49 B2 31 |ENT..."..#:..I.1|
00000780: A4 4E 4D 00 9C 23 44 02 8B 46 24 28 49 2C 31 29 |.NM..#D..F$(I,1)|
00000790: B3 B1 22 50 52 47 22 A7 20 37 30 30 00 AD 23 4E |.."PRG". 700..#N|
000007A0: 02 8B 41 24 B2 22 31 22 A7 20 36 33 30 00 C3 23 |..A$."1". 630..#|
000007B0: 58 02 99 46 24 28 49 2C 30 29 3B 22 20 28 59 2F |X..F$(I,0);" (Y/|
000007C0: 4E 29 22 00 D6 23 62 02 A1 41 24 3A 8B 41 24 B2 |N)"..#b..A$:.A$.|
000007D0: 22 22 89 36 31 30 00 EE 23 6C 02 8B 41 24 B3 B1 |"".610..#l..A$..|
000007E0: 22 59 22 A7 99 22 91 22 3B 3A 89 37 30 30 00 FE |"Y"..".";:.700..|
000007F0: 23 76 02 53 41 24 B2 46 24 28 49 2C 30 29 00 19 |#v.SA$.F$(I,0)..|
00000800: 24 80 02 9F 38 2C 38 2C 38 2C 22 30 3A 22 AA 53 |$...8,8,8,"0:".S|
00000810: 41 24 AA 22 2C 50 2C 52 22 00 23 24 8A 02 8D 31 |A$.",P,R".#$...1|
00000820: 30 32 30 00 33 24 94 02 A1 23 38 2C 4C 42 24 2C |020.3$...#8,LB$,|
00000830: 48 42 24 00 56 24 9E 02 53 41 B2 C6 28 4C 42 24 |HB$.V$..SA..(LB$|
00000840: AA C7 28 30 29 29 AA 32 35 36 AC C6 28 48 42 24 |..(0)).256..(HB$|
00000850: AA C7 28 30 29 29 00 5D 24 A8 02 A0 38 00 7C 24 |..(0)).]$...8.|$|
00000860: B2 02 46 24 28 49 2C 35 29 B2 C9 28 22 20 20 20 |..F$(I,5)..(" |
00000870: 20 20 22 AA C4 28 53 41 29 2C 35 29 00 82 24 BC | "..(SA),5)..$.|
00000880: 02 82 00 B0 24 C6 02 99 22 11 11 11 57 41 49 54 |....$..."...WAIT|
00000890: 20 55 4E 54 49 4C 20 54 48 45 20 44 52 49 56 45 | UNTIL THE DRIVE|
000008A0: 20 4C 49 47 48 54 20 47 4F 45 53 20 4F 46 46 22 | LIGHT GOES OFF"|
000008B0: 00 E0 24 D0 02 99 20 C7 28 32 38 29 3B A6 32 31 |..$... .(28);.21|
000008C0: 29 3B 3A 81 51 51 B2 31 A4 31 34 3A 99 20 C7 28 |);:.QQ.1.14:. .(|
000008D0: 31 36 33 29 3B 3A 82 3A 99 20 C7 28 33 30 29 3B |163);:.:. .(30);|
000008E0: 00 F0 24 DA 02 99 3A 99 22 54 48 45 4E 20 22 3B |..$...:."THEN ";|
000008F0: 00 0E 25 E4 02 8B 20 44 56 B2 34 A7 99 22 53 45 |..%... DV.4.."SE|
00000900: 54 20 50 52 49 4E 54 45 52 20 26 20 22 3B 00 23 |T PRINTER & ";.#|
00000910: 25 EE 02 99 22 50 52 45 53 53 20 41 4E 59 20 4B |%..."PRESS ANY K|
00000920: 45 59 22 00 38 25 F8 02 A1 41 24 3A 8B 41 24 B2 |EY".8%...A$:.A$.|
00000930: 22 22 20 A7 20 37 36 30 00 4F 25 02 03 8B 20 44 |"" . 760.O%... D|
00000940: 56 B3 B1 34 20 A7 20 99 20 C7 28 31 34 37 29 00 |V..4 . . .(147).|
00000950: 7B 25 0C 03 8B 20 44 56 B2 34 20 A7 20 8B 20 4E |{%... DV.4 . . N|
00000960: 44 24 B2 22 22 20 A7 20 9F 20 36 2C 34 2C 36 3A |D$."" . . 6,4,6:|
00000970: 98 36 2C C7 28 32 31 29 3A A0 36 00 85 25 16 03 |.6,.(21):.6..%..|
00000980: 9F 34 2C 44 56 00 BD 25 20 03 98 34 2C 42 47 24 |.4,DV..% ..4,BG$|
00000990: 3B 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |;"..............|
000009A0: C0 C0 C0 C0 C0 B2 C0 C0 B2 C0 C0 B2 C0 C0 C0 C0 |................|
000009B0: C0 C0 C0 C0 C0 C0 C0 AE 22 3B 4E 44 24 00 F7 25 |........";ND$..%|
000009C0: 2A 03 98 34 2C 42 47 24 3B 22 DD 22 3B 4E 24 3B |*..4,BG$;".";N$;|
000009D0: 22 DD 22 3B 49 44 24 3B 22 DD 22 3B 4F 53 24 3B |".";ID$;".";OS$;|
000009E0: 22 DD 46 52 20 53 45 43 3A 20 22 3B 46 45 24 3B |".FR SEC: ";FE$;|
000009F0: 22 DD 22 3B 4E 44 24 00 2F 26 34 03 98 34 2C 42 |".";ND$./&4..4,B|
00000A00: 47 24 3B 22 AB C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |G$;"............|
00000A10: C0 C0 C0 C0 C0 B2 C0 B1 C0 B2 B1 C0 B2 B1 C0 B2 |................|
00000A20: C0 C0 C0 B2 C0 C0 C0 C0 C0 B3 22 3B 4E 44 24 00 |..........";ND$.|
00000A30: 67 26 3E 03 98 34 2C 42 47 24 3B 22 DD 46 49 4C |g&>..4,BG$;".FIL|
00000A40: 45 4E 41 4D 45 3A 20 20 20 20 20 20 20 DD 54 59 |ENAME: .TY|
00000A50: 50 DD 54 52 DD 53 43 DD 42 4C 4B DD 53 54 41 52 |P.TR.SC.BLK.STAR|
00000A60: 54 DD 22 3B 4E 44 24 00 9F 26 48 03 98 34 2C 42 |T.";ND$..&H..4,B|
00000A70: 47 24 3B 22 AB C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |G$;"............|
00000A80: C0 C0 C0 C0 C0 DB C0 C0 C0 DB C0 C0 DB C0 C0 DB |................|
00000A90: C0 C0 C0 DB C0 C0 C0 C0 C0 B3 22 2C 4E 44 24 00 |..........",ND$.|
00000AA0: AB 26 52 03 81 49 B2 31 A4 4E 4D 00 EB 26 5C 03 |.&R..I.1.NM..&\.|
00000AB0: 46 4C 24 B2 46 24 28 49 2C 30 29 3A 54 59 24 B2 |FL$.F$(I,0):TY$.|
00000AC0: 46 24 28 49 2C 31 29 3A 54 52 24 B2 46 24 28 49 |F$(I,1):TR$.F$(I|
00000AD0: 2C 32 29 3A 53 43 24 B2 46 24 28 49 2C 33 29 3A |,2):SC$.F$(I,3):|
00000AE0: 42 4C 24 B2 46 24 28 49 2C 34 29 00 FE 26 66 03 |BL$.F$(I,4)..&f.|
00000AF0: 8B 54 59 24 B2 22 44 45 4C 22 89 39 30 30 00 44 |.TY$."DEL".900.D|
00000B00: 27 70 03 98 34 2C 42 47 24 3B 22 DD 22 3B 46 4C |'p..4,BG$;".";FL|
00000B10: 24 3B 22 DD 22 3B 54 59 24 3B 22 DD 22 3B 54 52 |$;".";TY$;".";TR|
00000B20: 24 3B 22 DD 22 3B 53 43 24 3B 22 DD 22 3B 42 4C |$;".";SC$;".";BL|
00000B30: 24 3B 22 DD 22 46 24 28 49 2C 35 29 3B 22 DD 22 |$;"."F$(I,5);"."|
00000B40: 3B 4E 44 24 00 7C 27 7A 03 98 34 2C 42 47 24 3B |;ND$.|'z..4,BG$;|
00000B50: 22 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000B60: 20 20 DD 20 20 20 DD 20 20 DD 20 20 DD 20 20 20 | . . . . |
00000B70: DD 20 20 20 20 20 DD 22 3B 4E 44 24 00 82 27 84 |. .";ND$..'.|
00000B80: 03 82 00 BA 27 8E 03 98 34 2C 42 47 24 3B 22 AD |....'...4,BG$;".|
00000B90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000BA0: B1 C0 C0 C0 B1 C0 C0 B1 C0 C0 B1 C0 C0 C0 B1 C0 |................|
00000BB0: C0 C0 C0 C0 BD 22 2C 4E 44 24 00 C4 27 98 03 98 |.....",ND$..'...|
00000BC0: 34 3A A0 34 00 CC 27 A2 03 A0 31 35 00 F0 27 AC |4:.4..'...15..'.|
00000BD0: 03 8B 20 44 56 B2 34 20 A7 99 22 93 50 52 49 4E |.. DV.4 ..".PRIN|
00000BE0: 54 20 41 47 41 49 4E 20 28 59 2F 4E 29 20 3F 22 |T AGAIN (Y/N) ?"|
00000BF0: 00 10 28 B6 03 8B 44 56 B2 33 A7 99 22 56 49 45 |..(...DV.3.."VIE|
00000C00: 57 20 41 47 41 49 4E 20 28 59 2F 4E 29 20 3F 22 |W AGAIN (Y/N) ?"|
00000C10: 00 26 28 C0 03 A1 41 24 3A 8B 41 24 B2 22 59 22 |.&(...A$:.A$."Y"|
00000C20: 20 A7 20 37 37 30 00 38 28 CA 03 8B 20 41 24 B3 | . 770.8(... A$.|
00000C30: B1 22 4E 22 A7 39 36 30 00 65 28 D4 03 99 C7 28 |."N".960.e(....(|
00000C40: 31 34 35 29 22 41 4E 4F 54 48 45 52 20 44 49 52 |145)"ANOTHER DIR|
00000C50: 45 43 54 4F 52 59 20 28 59 2F 4E 29 20 3F 20 20 |ECTORY (Y/N) ? |
00000C60: 20 20 20 20 22 00 79 28 DE 03 A1 41 24 3A 8B 20 | ".y(...A$:. |
00000C70: 41 24 B2 22 59 22 A7 20 8A 00 8D 28 E8 03 8B 41 |A$."Y". ...(...A|
00000C80: 24 B2 22 4E 22 A7 20 99 22 93 22 3A 80 00 97 28 |$."N". .".":...(|
00000C90: F2 03 89 20 39 39 30 00 B9 28 FC 03 84 31 35 2C |... 990..(...15,|
00000CA0: 45 5A 2C 45 5A 24 2C 54 52 2C 54 52 24 2C 53 45 |EZ,EZ$,TR,TR$,SE|
00000CB0: 3A 8B 53 45 B2 30 A7 20 8E 00 CD 28 06 04 54 24 |:.SE.0. ...(..T$|
00000CC0: B2 C7 28 31 35 37 29 AA C7 28 33 32 29 00 EC 28 |..(157)..(32)..(|
00000CD0: 10 04 99 20 C7 28 31 38 29 20 45 5A 3B 54 24 3B |... .(18) EZ;T$;|
00000CE0: 45 5A 24 3B 54 52 3B 54 24 3B 53 45 00 F7 28 1A |EZ$;TR;T$;SE..(.|
00000CF0: 04 A0 38 3A A0 31 35 00 12 29 D0 07 8F 20 43 31 |..8:.15..)... C1|
00000D00: 32 38 20 43 4F 44 45 53 20 46 4F 4C 4C 4F 57 49 |28 CODES FOLLOWI|
00000D10: 4E 47 00 28 29 D1 07 E7 36 2C 31 33 3A E7 30 2C |NG.()...6,13:.0,|
00000D20: 30 32 3A E7 34 2C 31 32 00 4B 29 D2 07 8B 20 CC |02:.4,12.K)... .|
00000D30: 28 58 29 B2 35 20 A7 20 43 4F B2 38 30 3A FE 25 |(X).5 . CO.80:.%|
00000D40: 3A D5 20 FE 26 3A 43 4F B2 34 30 00 83 29 D4 07 |:. .&:CO.40..)..|
00000D50: 99 22 93 22 3A 99 3A 99 22 20 44 49 52 45 43 54 |.".":.:." DIRECT|
00000D60: 4F 52 59 20 50 4C 55 53 20 43 31 32 38 20 4D 4F |ORY PLUS C128 MO|
00000D70: 44 45 3A 20 22 3B 43 4F 3B 22 20 43 4F 4C 55 4D |DE: ";CO;" COLUM|
00000D80: 4E 53 22 00 B4 29 D5 07 99 22 20 B7 B7 B7 B7 B7 |NS"..)..." .....|
00000D90: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000DA0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000DB0: B7 22 3A 99 00 BA 29 D6 07 8E 00 00 00 3A A0 |.":...)......:. |
..?.... COMPUTE MAGAZINE AUG 1986: MODIF
I- ED BY ABF AUG 20/86...... CM=COMPUTE
R TYPE C64/C128: IF CM=17165,
TYPE IS C128.....CM.B(772).256.B(773).
....CO.0...... CM.17165 . .2000.J...ND$.
""...... ND$=CHR$(8):REM REMOVE FOR 1525
OR MPS 801 PRINTERS:SEE LINES 110-10
7.>.... FT$(5):. I.0.5:.A$:FT$(I).A$:..\
.(.. DEL,SEQ,PRG,USR,REL,DEL.L.2.. F$(14
4,5).W.<.FE.664...A.. CO.0 . .".".G.F..G
(145);G(30);G(17);"OUTPUT TO SCREEN OR P
RINTER (S/P) ?"...P..A$:.A$."" . 80...Z.
DV.3:. A$."P". DV.4...D.. A$."S". K . 14
0. .E.."1) 1526 PRINTER".7.F.."2) 1525 P
RINTER".S.G.."CHOOSE PRINTER ABOVE".F.H.
.A$:.A$."".104.Y.I.. E(A$).0 .104...J..
E(A$).2 .104...K.. A$."2" . ND$.G(8).O.N
..G(17)"SINGLE OR DOUBLE WIDTH (S/D) ?".
..X..A$:.A$."" . 120.....BG$.G(15):.A$."
D". BG$.G(14)./....G(17)"INSERT DISK AND
PRESS ANY KEY".D....A$:.A$."" . 150.O.
..G(145)"PLEASE WAIT... ".
.....15,8,15:.15,"I0":.1020......8,8,8,"
$0,S,R"...... 1020...H..I.1.142:.#8,A$:.
...R..I.143.160:.#8,A$:N$.N$.A$:... ...I
.161.162:.#8,A$:ID$.ID$.A$:... ...#8,A$:
.I.164.165:.#8,A$:OS$.OS$.A$:..F ...I.16
6.254:.#8,A$:..O ..CT.8.[ ..NM.NM.1.O ..
.CT.8.CT.1:.300.. ..CT.CT.1:.#8,A$,A$:FL
.ST.. "..FL..0 . 480.. ,..#8,A$:.A$."".A
$.G(133).N 6.FL.ST:.L..0 . 480.. @.TY$.F
T$((F(A$).191).128)..!J..#8,A$:.A$."".A$
.G(0). !T.TR$.I(" ".D(F(A$)),2).:!^..#8
,A$:.A$."".A$.G(0).U!H.SC$.I(" ".D(F(A$
)),2).|!R.FL$."":.I.3.18:.#8,A$:FL$.FL$.
A$:...!|..I.19.27:.#8,A$:...!...#8,LB$,H
B$.E!..BL.F(LB$.G(0)).256.F(HB$.G(0))..!
...TY$.."DEL".FE.FE.BL..!..BL$.I(" "
.D(BL),3).."...TR$." 0"..480.Q"..F$(NM,0
).FL$:F$(NM,1).TY$:F$(NM,2).TR$:F$(NM,3)
.SC$:F$(NM,4).BL$.F"B.F$(NM,5)." "..
"L.. TY$."PRG". F$(NM,5)."-----".."V..26
0..".. 8.."... 1020.C"... F$(NM,0)."". N
M.NM.1:.500.."..FE$.I(" ".D(FE),3)..#
...G(145);"START ADDRESS :":.G(17);" 1)
ALL".(#..." 2) SOME":." 3) NONE".?#...A$
:.E(A$).0 . 540.Q#&.. E(A$).2.770.W#0.."
.":.A$."1". ."JUST A MOMENT..."..#:..I.1
.NM..#D..F$(I,1).."PRG". 700..#N..A$."1"
. 630.C#X..F$(I,0);" (Y/N)".V#B..A$:.A$.
"".610..#L..A$.."Y"..".";:.700..#V.SA$.F
$(I,0)..$...8,8,8,"0:".SA$.",P,R".#$...1
020.3$...#8,LB$,HB$.V$..SA.F(LB$.G(0)).2
56.F(HB$.G(0)).]$.. 8.|$..F$(I,5).I("
".D(SA),5)..$.....$F.."...WAIT UNTIL T
HE DRIVE LIGHT GOES OFF"..$P.. G(28);.21
);:.QQ.1.14:. G(163);:.:. G(30);..$Z..:.
"THEN ";..%... DV.4.."SET PRINTER & ";.#
%..."PRESS ANY KEY".8%...A$:.A$."" . 760
.O%... DV..4 . . G(147).{%... DV.4 . . N
D$."" . . 6,4,6:.6,G(21): 6..%...4,DV..%
..4,BG$;"..............................
........";ND$..%*..4,BG$;".";N$;".";ID$;
".";OS$;".FR SEC: ";FE$;".";ND$./&4..4,B
G$;"....................................
..";ND$.G&>..4,BG$;".FILENAME: .TY
P.TR.SC.BLK.START.";ND$..&H..4,BG$;"....
..................................",ND$.
.&R..I.1.NM..&\.FL$.F$(I,0):TY$.F$(I,1):
TR$.F$(I,2):SC$.F$(I,3):BL$.F$(I,4)..&F.
.TY$."DEL".900.D'P..4,BG$;".";FL$;".";TY
$;".";TR$;".";SC$;".";BL$;"."F$(I,5);"."
;ND$.|'Z..4,BG$;". . .
. . . .";ND$..'.....'...4,BG$;".
.....................................",N
D$.D'...4: 4.L'.. 15..'... DV.4 ..".PRIN
T AGAIN (Y/N) ?"..(...DV.3.."VIEW AGAIN
(Y/N) ?".&(...A$:.A$."Y" . 770.8(J.. A$.
."N".960.E(T..G(145)"ANOTHER DIRECTORY (
Y/N) ? ".Y(...A$:. A$."Y". ...(...A
$."N". .".":...(... 990..(...15,EZ,EZ$,T
R,TR$,SE:.SE.0. ..M(..T$.G(157).G(32)..(
... G(18) EZ;T$;EZ$;TR;T$;SE..(.. 8: 15.
.)P.. C128 CODES FOLLOWING.()Q..6,13:.0,
02:.4,12.K)R.. L(X).5 . CO.80:.%:U .&:CO
.40..)T..".":.:." DIRECTORY PLUS C128 MO
DE: ";CO;" COLUMNS"..)U.." .............
.........................":...)V.....:
> CLICK IMAGE PREVIEW FOR FULL MODAL