DISK-LOGGER
FILE INFORMATION
FILENAME(S): DISK-LOGGER
FILE TYPE(S): PRG
FILE SIZE: 7.8K
FIRST SEEN: 2025-11-30 19:47:18
APPEARS ON: 1 disk(s)
FILE HASH
5903dcb212e78a5a51fb47ca652f1a2aa68e4c2514a79c9f94f8fd3b84e7dc18
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| H JJPEDISK B1 1 | DISK-LOGGER | PRG | Curtcool, Frank | 8 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 00 00 8F 20 44 49 53 4B 20 4C 4F 47 |..*.... DISK LOG|
00000010: 47 45 52 20 42 59 20 42 2E 44 2E 4E 49 45 4C 53 |GER BY B.D.NIELS|
00000020: 45 4E 20 28 43 29 31 39 38 35 00 41 08 0A 00 96 |EN (C)1985.A....|
00000030: 20 A5 41 28 58 29 B2 C6 28 49 24 AA C7 28 30 29 | .A(X)..(I$..(0)|
00000040: 29 00 76 08 14 00 86 20 49 24 2C 49 4E 24 2C 49 |).v.... I$,IN$,I|
00000050: 44 24 2C 44 4E 24 2C 46 49 24 2C 56 24 2C 4B 24 |D$,DN$,FI$,V$,K$|
00000060: 2C 53 24 2C 4D 24 2C 4E 4D 24 2C 43 4F 24 2C 43 |,S$,M$,NM$,CO$,C|
00000070: 4F 24 28 31 33 29 00 8F 08 1E 00 56 24 B2 22 9D |O$(13).....V$.".|
00000080: 9D 05 2A 90 20 22 3A 43 24 B2 C7 28 31 33 29 00 |..*. ":C$..(13).|
00000090: 95 08 28 00 3A 00 AB 08 32 00 81 49 B2 30 A4 31 |..(.:...2..I.0.1|
000000A0: 33 3A 87 43 4F 24 28 49 29 3A 82 00 C1 08 3C 00 |3:.CO$(I):....<.|
000000B0: 9F 31 35 2C 38 2C 31 35 2C 22 55 3B 22 3A A0 31 |.15,8,15,"U;":.1|
000000C0: 35 00 C7 08 46 00 3A 00 EF 08 50 00 97 35 33 32 |5...F.:...P..532|
000000D0: 38 30 2C 31 32 3A 97 35 33 32 38 31 2C 31 32 3A |80,12:.53281,12:|
000000E0: 99 22 93 90 22 C7 28 31 34 32 29 C7 28 38 29 00 |."..".(142).(8).|
000000F0: 1D 09 5A 00 99 22 20 20 44 49 53 4B 2D 4C 4F 47 |..Z.." DISK-LOG|
00000100: 47 45 52 20 42 59 20 42 2E 44 2E 4E 49 45 4C 53 |GER BY B.D.NIELS|
00000110: 45 4E 20 20 28 43 29 20 31 39 38 35 22 00 4E 09 |EN (C) 1985".N.|
00000120: 64 00 99 22 20 05 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |d.." ...........|
00000130: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000140: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 90 22 00 63 |.............".c|
00000150: 09 6E 00 99 22 11 22 A6 31 30 29 3B 3A 49 4E 24 |.n..".".10);:IN$|
00000160: B2 22 22 00 7F 09 78 00 8B 46 49 B2 30 B0 41 50 |.""...x..FI.0.AP|
00000170: B2 31 A7 99 56 24 3B 3A 49 4E 24 B2 22 31 22 00 |.1..V$;:IN$."1".|
00000180: 9B 09 82 00 99 22 31 2E 20 4D 41 4B 45 20 20 44 |....."1. MAKE D|
00000190: 49 52 2D 4C 49 53 54 49 4E 47 22 00 C1 09 8C 00 |IR-LISTING".....|
000001A0: 8B 41 50 B2 31 A7 99 22 91 22 A6 31 33 29 22 41 |.AP.1..".".13)"A|
000001B0: 50 50 45 4E 44 20 54 4F 20 4C 49 53 54 49 4E 47 |PPEND TO LISTING|
000001C0: 22 00 CF 09 96 00 99 22 11 22 A6 31 30 29 3B 00 |"......".".10);.|
000001D0: EA 09 A0 00 8B 46 54 B1 30 A7 99 56 24 3B 3A 49 |.....FT.0..V$;:I|
000001E0: 4E 24 B2 49 4E 24 AA 22 32 22 00 06 0A AA 00 99 |N$.IN$."2"......|
000001F0: 22 32 2E 20 53 4F 52 54 20 20 44 49 52 2D 4C 49 |"2. SORT DIR-LI|
00000200: 53 54 49 4E 47 22 00 14 0A B4 00 99 22 11 22 A6 |STING"......".".|
00000210: 31 30 29 3B 00 2F 0A BE 00 8B 46 54 B1 30 A7 99 |10);./....FT.0..|
00000220: 56 24 3B 3A 49 4E 24 B2 49 4E 24 AA 22 33 22 00 |V$;:IN$.IN$."3".|
00000230: 4B 0A C8 00 99 22 33 2E 20 50 52 49 4E 54 20 44 |K...."3. PRINT D|
00000240: 49 52 2D 4C 49 53 54 49 4E 47 22 00 59 0A D2 00 |IR-LISTING".Y...|
00000250: 99 22 11 22 A6 31 30 29 3B 00 74 0A DC 00 8B 46 |.".".10);.t....F|
00000260: 54 B1 30 A7 99 56 24 3B 3A 49 4E 24 B2 49 4E 24 |T.0..V$;:IN$.IN$|
00000270: AA 22 34 22 00 90 0A E6 00 99 22 34 2E 20 53 41 |."4"......"4. SA|
00000280: 56 45 20 20 44 49 52 2D 4C 49 53 54 49 4E 47 22 |VE DIR-LISTING"|
00000290: 00 9E 0A F0 00 99 22 11 22 A6 31 30 29 3B 00 B9 |......".".10);..|
000002A0: 0A FA 00 8B 46 49 B2 30 A7 99 56 24 3B 3A 49 4E |....FI.0..V$;:IN|
000002B0: 24 B2 49 4E 24 AA 22 35 22 00 D5 0A 04 01 99 22 |$.IN$."5"......"|
000002C0: 35 2E 20 4C 4F 41 44 20 20 44 49 52 2D 4C 49 53 |5. LOAD DIR-LIS|
000002D0: 54 49 4E 47 22 00 E3 0A 0E 01 99 22 11 22 A6 31 |TING"......".".1|
000002E0: 30 29 3B 00 FE 0A 18 01 8B 46 49 B2 30 A7 99 56 |0);......FI.0..V|
000002F0: 24 3B 3A 49 4E 24 B2 49 4E 24 AA 22 36 22 00 15 |$;:IN$.IN$."6"..|
00000300: 0B 22 01 99 22 36 2E 20 4C 4F 41 44 2B 20 41 50 |.".."6. LOAD+ AP|
00000310: 50 45 4E 44 22 00 23 0B 2C 01 99 22 11 22 A6 31 |PEND".#.,..".".1|
00000320: 30 29 3B 00 3E 0B 36 01 8B 46 54 B1 30 A7 99 56 |0);.>.6..FT.0..V|
00000330: 24 3B 3A 49 4E 24 B2 49 4E 24 AA 22 37 22 00 5A |$;:IN$.IN$."7".Z|
00000340: 0B 40 01 99 22 37 2E 20 56 49 45 57 20 20 44 49 |.@.."7. VIEW DI|
00000350: 52 2D 4C 49 53 54 49 4E 47 22 00 78 0B 4A 01 99 |R-LISTING".x.J..|
00000360: 22 11 22 A6 38 29 22 05 2A 90 20 38 2E 20 44 49 |".".8)".*. 8. DI|
00000370: 52 45 43 54 4F 52 59 22 00 9F 0B 54 01 99 22 11 |RECTORY"...T..".|
00000380: 22 A6 38 29 22 05 2A 90 20 39 2E 20 52 45 2D 52 |".8)".*. 9. RE-R|
00000390: 55 4E 20 44 49 53 4B 2D 4C 4F 47 47 45 52 22 00 |UN DISK-LOGGER".|
000003A0: B8 0B 5E 01 99 22 11 22 A6 38 29 22 05 2A 90 20 |..^..".".8)".*. |
000003B0: 30 2E 20 51 55 49 54 22 00 CA 0B 68 01 49 4E 24 |0. QUIT"...h.IN$|
000003C0: B2 49 4E 24 AA 22 38 39 30 22 00 E6 0B 72 01 8D |.IN$."890"...r..|
000003D0: 33 37 31 30 3A 49 B2 C5 28 49 24 29 3A 8B 49 B2 |3710:I..(I$):.I.|
000003E0: 30 A7 49 B2 31 30 00 F1 0B 7C 01 97 31 39 38 2C |0.I.10...|..198,|
000003F0: 30 00 29 0C 86 01 91 49 89 20 32 36 34 30 2C 31 |0.)....I. 2640,1|
00000400: 33 37 30 2C 31 31 33 30 2C 35 36 30 2C 31 36 36 |370,1130,560,166|
00000410: 30 2C 31 39 37 30 2C 32 33 32 30 2C 34 33 30 2C |0,1970,2320,430,|
00000420: 32 32 32 30 2C 33 38 30 30 00 2F 0C 90 01 3A 00 |2220,3800./...:.|
00000430: 47 0C 9A 01 8F 20 2A 2A 2A 20 44 49 52 45 43 54 |G.... *** DIRECT|
00000440: 4F 52 59 20 2A 2A 2A 00 4D 0C A4 01 3A 00 72 0C |ORY ***.M...:.r.|
00000450: AE 01 99 22 93 55 53 45 20 12 20 53 50 41 43 45 |...".USE . SPACE|
00000460: 20 92 20 46 4F 52 20 50 41 55 53 45 11 11 11 11 | . FOR PAUSE....|
00000470: 11 22 00 7C 0C B8 01 8D 33 31 32 30 00 8A 0C C2 |.".|....3120....|
00000480: 01 8B 45 52 B1 31 39 A7 38 30 00 A0 0C CC 01 99 |..ER.19.80......|
00000490: 22 12 20 20 20 20 22 C9 28 44 4E 24 2C 32 34 29 |". ".(DN$,24)|
000004A0: 00 AA 0C D6 01 8D 33 32 35 30 00 D3 0C E0 01 8B |......3250......|
000004B0: 4E 46 B2 31 A7 99 22 11 4E 4F 20 46 49 4C 45 53 |NF.1..".NO FILES|
000004C0: 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 22 3A 89 | ON THIS DISK":.|
000004D0: 35 32 30 00 F4 0C EA 01 99 C9 28 22 20 20 22 AA |520.......(" ".|
000004E0: C4 28 42 4C 29 2C 33 29 22 20 22 C8 28 46 49 24 |.(BL),3)" ".(FI$|
000004F0: 2C 32 33 29 00 08 0D F4 01 92 31 39 38 2C 31 2C |,23)......198,1,|
00000500: 31 3A 97 31 39 38 2C 30 00 16 0D FE 01 8B 5A 30 |1:.198,0......Z0|
00000510: B2 30 A7 34 37 30 00 29 0D 08 02 99 22 11 22 3A |.0.470.)....".":|
00000520: 8D 33 36 36 30 3A 89 38 30 00 2F 0D 12 02 3A 00 |.3660:.80./...:.|
00000530: 4E 0D 1C 02 8F 20 2A 2A 2A 20 53 41 56 45 20 44 |N.... *** SAVE D|
00000540: 49 52 2D 4C 49 53 54 49 4E 47 20 2A 2A 2A 00 54 |IR-LISTING ***.T|
00000550: 0D 26 02 3A 00 70 0D 30 02 99 22 93 11 11 11 53 |.&.:.p.0.."....S|
00000560: 41 56 45 20 44 49 52 2D 4C 49 53 54 49 4E 47 22 |AVE DIR-LISTING"|
00000570: 00 81 0D 3A 02 99 22 11 11 22 3A 4E 4D 24 B2 22 |...:.."..":NM$."|
00000580: 22 00 97 0D 44 02 85 22 46 49 4C 45 20 4E 41 4D |"...D.."FILE NAM|
00000590: 45 20 22 3B 4E 4D 24 00 B3 0D 4E 02 8B C3 28 4E |E ";NM$...N...(N|
000005A0: 4D 24 29 B2 30 B0 C3 28 4E 4D 24 29 B1 31 36 A7 |M$).0..(NM$).16.|
000005B0: 35 36 30 00 D3 0D 58 02 99 22 11 49 4E 53 45 52 |560...X..".INSER|
000005C0: 54 20 44 49 53 4B 20 41 4E 44 20 22 3B 3A 8D 33 |T DISK AND ";:.3|
000005D0: 36 36 30 00 E5 0D 62 02 9F 31 35 2C 38 2C 31 35 |660...b..15,8,15|
000005E0: 2C 22 49 30 22 00 FB 0D 6C 02 9F 38 2C 38 2C 38 |,"I0"...l..8,8,8|
000005F0: 2C 4E 4D 24 AA 22 2C 53 2C 57 22 00 10 0E 76 02 |,NM$.",S,W"...v.|
00000600: 8D 33 34 32 30 3A 8B 45 52 B3 31 39 A7 37 30 30 |.3420:.ER.19.700|
00000610: 00 25 0E 80 02 8D 33 34 34 30 3A 8B 45 52 B3 B1 |.%....3440:.ER..|
00000620: 36 33 A7 38 30 00 51 0E 8A 02 99 22 11 46 49 4C |63.80.Q....".FIL|
00000630: 45 20 41 4C 52 45 41 44 59 20 45 58 49 53 54 2C |E ALREADY EXIST,|
00000640: 20 53 43 52 41 54 43 48 20 4F 4C 44 20 3F 20 22 | SCRATCH OLD ? "|
00000650: 3B 00 74 0E 94 02 49 4E 24 B2 22 59 4A 4E 22 3A |;.t...IN$."YJN":|
00000660: 8D 33 37 31 30 3A 99 49 24 3A 8B 49 24 B2 22 4E |.3710:.I$:.I$."N|
00000670: 22 A7 38 30 00 89 0E 9E 02 99 22 11 53 43 52 41 |".80......".SCRA|
00000680: 54 43 48 49 4E 47 20 21 22 00 A5 0E A8 02 9F 31 |TCHING !"......1|
00000690: 35 2C 38 2C 31 35 2C 22 53 30 3A 22 AA 4E 4D 24 |5,8,15,"S0:".NM$|
000006A0: AA 22 2C 53 22 00 BB 0E B2 02 9F 38 2C 38 2C 38 |.",S"......8,8,8|
000006B0: 2C 4E 4D 24 AA 22 2C 53 2C 57 22 00 CA 0E BC 02 |,NM$.",S,W".....|
000006C0: 99 22 11 53 41 56 49 4E 47 22 00 DA 0E C6 02 98 |.".SAVING"......|
000006D0: 38 2C 46 54 3A 98 38 2C 44 54 00 E6 0E D0 02 81 |8,FT:.8,DT......|
000006E0: 49 B2 31 A4 46 54 00 00 0F DA 02 98 38 2C C7 28 |I.1.FT......8,.(|
000006F0: 33 34 29 46 49 24 28 49 2C 30 29 C7 28 33 34 29 |34)FI$(I,0).(34)|
00000700: 00 15 0F E4 02 4B 24 B2 46 49 24 28 49 2C 31 29 |.....K$.FI$(I,1)|
00000710: 3A 8D 38 33 30 00 2F 0F EE 02 98 38 2C C7 28 33 |:.830./....8,.(3|
00000720: 34 29 46 49 24 28 49 2C 32 29 C7 28 33 34 29 00 |4)FI$(I,2).(34).|
00000730: 35 0F F8 02 82 00 41 0F 02 03 81 49 B2 31 A4 44 |5.....A....I.1.D|
00000740: 54 00 54 0F 0C 03 4B 24 B2 44 4E 24 28 49 29 3A |T.T...K$.DN$(I):|
00000750: 8D 38 33 30 00 5A 0F 16 03 82 00 64 0F 20 03 8D |.830.Z.....d. ..|
00000760: 33 34 32 30 00 7A 0F 2A 03 8B 45 52 B1 31 39 A7 |3420.z.*..ER.19.|
00000770: 8D 33 34 34 30 3A 89 35 36 30 00 89 0F 34 03 A0 |.3440:.560...4..|
00000780: 38 3A A0 31 35 3A 89 38 30 00 93 0F 3E 03 53 24 |8:.15:.80...>.S$|
00000790: B2 22 22 00 A2 0F 48 03 81 53 B2 31 A4 C3 28 4B |.""...H..S.1..(K|
000007A0: 24 29 00 C6 0F 52 03 4D 24 B2 CA 28 4B 24 2C 53 |$)...R.M$..(K$,S|
000007B0: 2C 31 29 3A 8B 4D 24 B2 C7 28 33 34 29 A7 4D 24 |,1):.M$..(34).M$|
000007C0: B2 C7 28 31 30 29 00 E7 0F 5C 03 53 24 B2 53 24 |..(10)...\.S$.S$|
000007D0: AA 4D 24 3A 82 3A 53 24 B2 C7 28 33 34 29 AA 53 |.M$:.:S$..(34).S|
000007E0: 24 AA C7 28 33 34 29 00 F3 0F 66 03 98 38 2C 53 |$..(34)...f..8,S|
000007F0: 24 3A 8E 00 F9 0F 70 03 3A 00 18 10 7A 03 8F 20 |$:....p.:...z.. |
00000800: 2A 2A 2A 20 4E 4F 20 46 49 4C 45 53 20 4F 4E 20 |*** NO FILES ON |
00000810: 44 49 53 4B 20 2A 2A 2A 00 1E 10 84 03 3A 00 38 |DISK ***.....:.8|
00000820: 10 8E 03 99 22 93 54 48 45 52 45 20 49 53 20 4E |....".THERE IS N|
00000830: 4F 20 46 49 4C 45 53 22 00 51 10 98 03 99 22 11 |O FILES".Q....".|
00000840: 4F 4E 20 54 48 49 53 20 44 49 53 4B 3A 20 12 22 |ON THIS DISK: ."|
00000850: 3B 00 5F 10 A2 03 99 CA 28 44 4E 24 2C 35 29 00 |;._.....(DN$,5).|
00000860: 76 10 AC 03 44 54 B2 44 54 AB 31 3A 4E 57 B2 30 |v...DT.DT.1:NW.0|
00000870: 3A 89 32 37 30 30 00 7C 10 B6 03 3A 00 A2 10 C0 |:.2700.|...:....|
00000880: 03 8F 20 2A 2A 2A 20 4E 4F 20 52 4F 4F 4D 20 46 |.. *** NO ROOM F|
00000890: 4F 52 20 44 49 53 4B 20 4E 41 4D 45 27 53 20 2A |OR DISK NAME'S *|
000008A0: 2A 2A 00 A8 10 CA 03 3A 00 B2 10 D4 03 44 54 B2 |**.....:.....DT.|
000008B0: 44 4E 00 D2 10 DE 03 99 22 93 53 4F 52 52 59 2C |DN......".SORRY,|
000008C0: 20 54 48 45 52 45 20 49 53 20 4E 4F 20 52 4F 4F | THERE IS NO ROO|
000008D0: 4D 22 00 F0 10 E8 03 99 22 11 46 4F 52 20 4D 4F |M"......".FOR MO|
000008E0: 52 45 20 44 49 53 4B 20 4E 41 4D 45 53 20 21 22 |RE DISK NAMES !"|
000008F0: 00 06 11 F2 03 99 22 11 11 11 22 3B 3A 8D 33 36 |......"...";:.36|
00000900: 36 30 3A 89 38 30 00 0C 11 FC 03 3A 00 32 11 06 |60:.80.....:.2..|
00000910: 04 8F 20 2A 2A 2A 20 4E 4F 20 52 4F 4F 4D 20 46 |.. *** NO ROOM F|
00000920: 4F 52 20 46 49 4C 45 20 4E 41 4D 45 27 53 20 2A |OR FILE NAME'S *|
00000930: 2A 2A 00 38 11 10 04 3A 00 55 11 1A 04 46 54 B2 |**.8...:.U...FT.|
00000940: 46 49 3A 8B 52 44 B2 30 A7 44 54 B2 44 54 AB 31 |FI:.RD.0.DT.DT.1|
00000950: 3A 4E 57 B2 30 00 66 11 24 04 81 49 B2 31 A4 31 |:NW.0.f.$..I.1.1|
00000960: 35 3A A0 49 3A 82 00 86 11 2E 04 99 22 93 53 4F |5:.I:.......".SO|
00000970: 52 52 59 2C 20 54 48 45 52 45 20 49 53 20 4E 4F |RRY, THERE IS NO|
00000980: 20 52 4F 4F 4D 22 00 A4 11 38 04 99 22 11 46 4F | ROOM"...8..".FO|
00000990: 52 20 4D 4F 52 45 20 46 49 4C 45 20 4E 41 4D 45 |R MORE FILE NAME|
000009A0: 53 20 21 22 00 BA 11 42 04 99 22 11 11 11 22 3B |S !"...B.."...";|
000009B0: 3A 8D 33 36 36 30 3A 89 38 30 00 C0 11 4C 04 3A |:.3660:.80...L.:|
000009C0: 00 E0 11 56 04 8F 20 2A 2A 2A 20 50 52 49 4E 54 |...V.. *** PRINT|
000009D0: 20 44 49 52 2D 4C 49 53 54 49 4E 47 20 2A 2A 2A | DIR-LISTING ***|
000009E0: 00 E6 11 60 04 3A 00 EE 11 6A 04 44 B2 34 00 08 |...`.:...j.D.4..|
000009F0: 12 74 04 99 22 93 50 52 49 4E 54 20 44 49 52 2D |.t..".PRINT DIR-|
00000A00: 4C 49 53 54 49 4E 47 22 00 2D 12 7E 04 99 22 11 |LISTING".-.~..".|
00000A10: 11 11 4D 41 4B 45 20 54 48 45 20 50 52 49 4E 54 |..MAKE THE PRINT|
00000A20: 45 52 20 52 45 41 44 59 20 41 4E 44 22 00 37 12 |ER READY AND".7.|
00000A30: 88 04 8D 33 36 36 30 00 42 12 92 04 9F 44 2C 44 |...3660.B....D,D|
00000A40: 2C 30 00 49 12 9C 04 98 44 00 7B 12 A6 04 98 44 |,0.I....D.{....D|
00000A50: 2C 22 22 3B A6 31 33 29 22 53 49 5A 45 20 20 4E |,"";.13)"SIZE N|
00000A60: 41 4D 45 22 A6 31 35 29 22 54 59 50 45 20 49 44 |AME".15)"TYPE ID|
00000A70: 20 20 43 4F 4D 4D 45 4E 54 53 22 00 AD 12 B0 04 | COMMENTS".....|
00000A80: 98 44 2C 22 22 3B A6 31 33 29 22 C5 C5 C5 C5 20 |.D,"";.13)".... |
00000A90: 20 C5 C5 C5 C5 22 A6 31 35 29 22 C5 C5 C5 C5 20 | ....".15)".... |
00000AA0: C5 C5 20 20 C5 C5 C5 C5 C5 C5 C5 C5 22 00 B4 12 |.. ........"...|
00000AB0: BA 04 98 44 00 C0 12 C4 04 81 49 B2 31 A4 46 54 |...D......I.1.FT|
00000AC0: 00 EF 12 CE 04 98 44 2C 22 22 3B A6 31 34 29 46 |......D,"";.14)F|
00000AD0: 49 24 28 49 2C 30 29 22 20 20 22 46 49 24 28 49 |I$(I,0)" "FI$(I|
00000AE0: 2C 31 29 22 20 20 22 46 49 24 28 49 2C 32 29 00 |,1)" "FI$(I,2).|
00000AF0: F5 12 D8 04 82 00 02 13 E2 04 98 44 3A 98 44 3A |...........D:.D:|
00000B00: 98 44 00 0E 13 EC 04 81 49 B2 31 A4 44 54 00 1D |.D......I.1.DT..|
00000B10: 13 F6 04 98 44 2C 22 22 3B A6 37 29 3B 00 2C 13 |....D,"";.7);.,.|
00000B20: 00 05 98 44 2C 44 4E 24 28 49 29 3B 00 42 13 0A |...D,DN$(I);.B..|
00000B30: 05 8B 49 AD 32 B2 B5 28 49 AD 32 29 A7 98 44 3A |..I.2..(I.2)..D:|
00000B40: 98 44 00 48 13 14 05 82 00 52 13 1E 05 98 44 3A |.D.H.....R....D:|
00000B50: 98 44 00 59 13 28 05 A0 44 00 61 13 32 05 89 38 |.D.Y.(..D.a.2..8|
00000B60: 30 00 67 13 3C 05 3A 00 86 13 46 05 8F 20 2A 2A |0.g.<.:...F.. **|
00000B70: 2A 20 53 4F 52 54 20 44 49 52 2D 4C 49 53 54 49 |* SORT DIR-LISTI|
00000B80: 4E 47 20 2A 2A 2A 00 8C 13 50 05 3A 00 AB 13 5A |NG ***...P.:...Z|
00000B90: 05 99 22 93 53 4F 52 54 49 4E 47 20 44 49 52 2D |..".SORTING DIR-|
00000BA0: 4C 49 53 54 22 3A 99 22 11 11 22 00 C5 13 64 05 |LIST":.".."...d.|
00000BB0: 99 A3 35 29 22 53 4F 52 54 49 4E 47 20 41 46 54 |..5)"SORTING AFT|
00000BC0: 45 52 20 3F 22 00 E4 13 6E 05 99 22 11 11 22 3B |ER ?"...n.."..";|
00000BD0: A3 36 29 22 31 2E 20 46 49 4C 45 2D 4E 41 4D 45 |.6)"1. FILE-NAME|
00000BE0: 20 4F 52 22 00 FF 13 78 05 99 22 11 22 3B A3 36 | OR"...x..".";.6|
00000BF0: 29 22 32 2E 20 43 4F 4D 4D 45 4E 54 27 53 22 00 |)"2. COMMENT'S".|
00000C00: 12 14 82 05 49 4E 24 B2 22 31 32 22 3A 8D 33 37 |....IN$."12":.37|
00000C10: 31 30 00 2B 14 8C 05 53 4F B2 C5 28 49 24 29 3A |10.+...SO..(I$):|
00000C20: 53 4E B2 32 AA 28 53 4F B2 32 29 00 44 14 96 05 |SN.2.(SO.2).D...|
00000C30: 99 22 13 11 11 11 11 11 11 11 22 3B A3 31 39 29 |."........";.19)|
00000C40: 22 20 20 22 00 59 14 A0 05 99 22 13 11 11 11 11 |" ".Y....".....|
00000C50: 22 3B A3 31 39 29 22 20 22 00 71 14 AA 05 81 49 |";.19)" ".q....I|
00000C60: B2 32 A4 53 4F A9 AB 31 3A 99 22 11 11 22 3B 3A |.2.SO..1:."..";:|
00000C70: 82 00 88 14 B4 05 99 A3 36 29 22 20 20 20 20 20 |........6)" |
00000C80: 20 20 20 20 20 20 20 22 00 A8 14 BE 05 99 22 11 | "......".|
00000C90: 11 11 54 41 4B 45 20 41 20 43 4F 46 46 45 20 42 |..TAKE A COFFE B|
00000CA0: 52 45 41 4B 45 20 21 22 00 AE 14 C8 05 3A 00 CE |REAKE !".....:..|
00000CB0: 14 D2 05 4D B2 B5 28 28 BC 28 46 54 AB 31 29 AD |...M..((.(FT.1).|
00000CC0: BC 28 32 29 29 AA 31 29 3A 49 B2 32 AE 4D 00 D9 |.(2)).1):I.2.M..|
00000CD0: 14 DC 05 81 53 B2 31 A4 4D 00 E3 14 E6 05 49 B2 |....S.1.M.....I.|
00000CE0: 49 AD 32 00 EB 14 F0 05 5A B2 30 00 F9 14 FA 05 |I.2.....Z.0.....|
00000CF0: 81 54 B2 31 A4 46 54 AB 49 00 19 15 04 06 8B 46 |.T.1.FT.I......F|
00000D00: 49 24 28 54 2C 53 4F 29 B3 46 49 24 28 54 AA 49 |I$(T,SO).FI$(T.I|
00000D10: 2C 53 4F 29 A7 31 35 39 30 00 39 15 06 06 8B 46 |,SO).1590.9....F|
00000D20: 49 24 28 54 2C 53 4F 29 B1 46 49 24 28 54 AA 49 |I$(T,SO).FI$(T.I|
00000D30: 2C 53 4F 29 A7 31 35 35 30 00 5A 15 09 06 8B 46 |,SO).1550.Z....F|
00000D40: 49 24 28 54 2C 53 4E 29 B3 B2 46 49 24 28 54 AA |I$(T,SN)..FI$(T.|
00000D50: 49 2C 53 4E 29 A7 31 35 39 30 00 8C 15 0E 06 46 |I,SN).1590.....F|
00000D60: 24 B2 46 49 24 28 54 2C 31 29 3A 46 49 24 28 54 |$.FI$(T,1):FI$(T|
00000D70: 2C 31 29 B2 46 49 24 28 54 AA 49 2C 31 29 3A 46 |,1).FI$(T.I,1):F|
00000D80: 49 24 28 54 AA 49 2C 31 29 B2 46 24 00 BE 15 18 |I$(T.I,1).F$....|
00000D90: 06 46 24 B2 46 49 24 28 54 2C 30 29 3A 46 49 24 |.F$.FI$(T,0):FI$|
00000DA0: 28 54 2C 30 29 B2 46 49 24 28 54 AA 49 2C 30 29 |(T,0).FI$(T.I,0)|
00000DB0: 3A 46 49 24 28 54 AA 49 2C 30 29 B2 46 24 00 F0 |:FI$(T.I,0).F$..|
00000DC0: 15 22 06 46 24 B2 46 49 24 28 54 2C 32 29 3A 46 |.".F$.FI$(T,2):F|
00000DD0: 49 24 28 54 2C 32 29 B2 46 49 24 28 54 AA 49 2C |I$(T,2).FI$(T.I,|
00000DE0: 32 29 3A 46 49 24 28 54 AA 49 2C 32 29 B2 46 24 |2):FI$(T.I,2).F$|
00000DF0: 00 F8 15 2C 06 5A B2 31 00 FF 15 36 06 82 54 00 |...,.Z.1...6..T.|
00000E00: 0D 16 40 06 8B 5A B2 31 A7 31 35 32 30 00 14 16 |..@..Z.1.1520...|
00000E10: 4A 06 82 53 00 1C 16 54 06 89 38 30 00 22 16 5E |J..S...T..80.".^|
00000E20: 06 3A 00 41 16 68 06 8F 20 2A 2A 2A 20 4C 4F 41 |.:.A.h.. *** LOA|
00000E30: 44 20 44 49 52 2D 4C 49 53 54 49 4E 47 20 2A 2A |D DIR-LISTING **|
00000E40: 2A 00 47 16 72 06 3A 00 63 16 7C 06 99 22 93 11 |*.G.r.:.c.|.."..|
00000E50: 11 11 4C 4F 41 44 20 44 49 52 2D 4C 49 53 54 49 |..LOAD DIR-LISTI|
00000E60: 4E 47 22 00 74 16 86 06 99 22 11 11 22 3A 4E 4D |NG".t...."..":NM|
00000E70: 24 B2 22 22 00 8A 16 90 06 85 22 46 49 4C 45 20 |$.""......"FILE |
00000E80: 4E 41 4D 45 20 22 3B 4E 4D 24 00 A7 16 9A 06 8B |NAME ";NM$......|
00000E90: C3 28 4E 4D 24 29 B2 30 B0 C3 28 4E 4D 24 29 B1 |.(NM$).0..(NM$).|
00000EA0: 31 36 A7 31 36 36 30 00 C7 16 A4 06 99 22 11 49 |16.1660......".I|
00000EB0: 4E 53 45 52 54 20 44 49 53 4B 20 41 4E 44 20 22 |NSERT DISK AND "|
00000EC0: 3B 3A 8D 33 36 36 30 00 D9 16 AE 06 9F 31 35 2C |;:.3660......15,|
00000ED0: 38 2C 31 35 2C 22 49 30 22 00 EF 16 B8 06 9F 38 |8,15,"I0"......8|
00000EE0: 2C 38 2C 38 2C 4E 4D 24 AA 22 2C 53 2C 52 22 00 |,8,8,NM$.",S,R".|
00000EF0: 05 17 C2 06 8D 33 34 32 30 3A 8B 45 52 B3 31 39 |.....3420:.ER.19|
00000F00: A7 31 37 36 30 00 1A 17 CC 06 8D 33 34 34 30 3A |.1760......3440:|
00000F10: 8B 45 52 B3 B1 36 32 A7 38 30 00 23 17 D6 06 89 |.ER..62.80.#....|
00000F20: 34 33 30 00 30 17 E0 06 84 38 2C 46 54 2C 44 54 |430.0....8,FT,DT|
00000F30: 00 54 17 EA 06 46 49 B2 46 54 3A 44 4E B2 44 54 |.T...FI.FT:DN.DT|
00000F40: 3A 86 20 46 49 24 28 46 49 2C 32 29 2C 44 4E 24 |:. FI$(FI,2),DN$|
00000F50: 28 44 4E 29 00 64 17 F4 06 99 22 11 4C 4F 41 44 |(DN).d....".LOAD|
00000F60: 49 4E 47 22 00 70 17 FE 06 81 49 B2 31 A4 46 54 |ING".p....I.1.FT|
00000F70: 00 80 17 08 07 84 38 2C 46 49 24 28 49 2C 30 29 |......8,FI$(I,0)|
00000F80: 00 96 17 12 07 8D 31 38 39 30 3A 46 49 24 28 49 |......1890:FI$(I|
00000F90: 2C 31 29 B2 4B 24 00 A6 17 1C 07 84 38 2C 46 49 |,1).K$......8,FI|
00000FA0: 24 28 49 2C 32 29 00 AC 17 26 07 82 00 B8 17 30 |$(I,2)...&.....0|
00000FB0: 07 81 49 B2 31 A4 44 54 00 CC 17 3A 07 8D 31 38 |..I.1.DT...:..18|
00000FC0: 39 30 3A 44 4E 24 28 49 29 B2 4B 24 00 D2 17 44 |90:DN$(I).K$...D|
00000FD0: 07 82 00 ED 17 4E 07 8D 33 34 32 30 3A 8B 45 52 |.....N..3420:.ER|
00000FE0: B1 31 39 A7 8D 33 34 34 30 3A 89 38 30 00 FC 17 |.19..3440:.80...|
00000FF0: 58 07 A0 38 3A A0 31 35 3A 89 38 30 00 0C 18 62 |X..8:.15:.80...b|
00001000: 07 4B 24 B2 22 22 3A 84 38 2C 53 24 00 1B 18 6C |.K$."":.8,S$...l|
00001010: 07 81 53 B2 31 A4 C3 28 53 24 29 00 3F 18 76 07 |..S.1..(S$).?.v.|
00001020: 4D 24 B2 CA 28 53 24 2C 53 2C 31 29 3A 8B 4D 24 |M$..(S$,S,1):.M$|
00001030: B2 C7 28 31 30 29 A7 4D 24 B2 C7 28 33 34 29 00 |..(10).M$..(34).|
00001040: 4E 18 80 07 4B 24 B2 4B 24 AA 4D 24 3A 82 00 54 |N...K$.K$.M$:..T|
00001050: 18 8A 07 8E 00 5A 18 94 07 3A 00 7E 18 9E 07 8F |.....Z...:.~....|
00001060: 20 2A 2A 2A 20 4C 4F 41 44 20 2B 20 41 50 50 45 | *** LOAD + APPE|
00001070: 4E 44 20 4C 49 53 54 49 4E 47 20 2A 2A 2A 00 84 |ND LISTING ***..|
00001080: 18 A8 07 3A 00 A2 18 B2 07 99 22 93 4C 4F 41 44 |...:......".LOAD|
00001090: 20 2B 20 41 50 50 45 4E 44 20 4C 49 53 54 49 4E | + APPEND LISTIN|
000010A0: 47 22 00 B2 18 BC 07 99 22 11 22 3A 4E 4D 24 B2 |G"......".":NM$.|
000010B0: 22 22 00 C8 18 C6 07 85 22 46 49 4C 45 20 4E 41 |""......"FILE NA|
000010C0: 4D 45 20 22 3B 4E 4D 24 00 E5 18 D0 07 8B C3 28 |ME ";NM$.......(|
000010D0: 4E 4D 24 29 B2 30 B0 C3 28 4E 4D 24 29 B1 31 36 |NM$).0..(NM$).16|
000010E0: A7 31 39 37 30 00 05 19 DA 07 99 22 11 49 4E 53 |.1970......".INS|
000010F0: 45 52 54 20 44 49 53 4B 20 41 4E 44 20 22 3B 3A |ERT DISK AND ";:|
00001100: 8D 33 36 36 30 00 17 19 E4 07 9F 31 35 2C 38 2C |.3660......15,8,|
00001110: 31 35 2C 22 49 30 22 00 2D 19 EE 07 9F 38 2C 38 |15,"I0".-....8,8|
00001120: 2C 38 2C 4E 4D 24 AA 22 2C 53 2C 52 22 00 43 19 |,8,NM$.",S,R".C.|
00001130: F8 07 8D 33 34 32 30 3A 8B 45 52 B3 31 39 A7 32 |...3420:.ER.19.2|
00001140: 30 37 30 00 58 19 02 08 8D 33 34 34 30 3A 8B 45 |070.X....3440:.E|
00001150: 52 B3 B1 36 32 A7 38 30 00 61 19 0C 08 89 34 33 |R..62.80.a....43|
00001160: 30 00 6E 19 16 08 84 38 2C 46 54 2C 44 54 00 86 |0.n....8,FT,DT..|
00001170: 19 20 08 99 22 93 46 49 4C 45 2D 4E 41 4D 45 3A |. ..".FILE-NAME:|
00001180: 20 22 3B 4E 4D 24 00 AC 19 2A 08 99 22 11 54 48 | ";NM$...*..".TH|
00001190: 45 20 4C 49 53 54 20 43 4F 4E 53 49 53 54 20 4F |E LIST CONSIST O|
000011A0: 46 22 3B 46 54 22 46 49 4C 45 53 22 00 C3 19 34 |F";FT"FILES"...4|
000011B0: 08 99 22 11 4F 4E 22 3B 44 54 22 44 49 53 4B 27 |..".ON";DT"DISK'|
000011C0: 53 2E 22 00 D9 19 3E 08 99 22 11 54 4F 20 41 50 |S."...>..".TO AP|
000011D0: 50 45 4E 44 3A 20 3F 11 22 00 E3 19 48 08 8D 32 |PEND: ?."...H..2|
000011E0: 35 31 30 00 F7 19 52 08 46 49 B2 46 54 AA 46 3A |510...R.FI.FT.F:|
000011F0: 44 4E B2 44 54 AA 44 00 0F 1A 5C 08 86 20 44 4E |DN.DT.D...\.. DN|
00001200: 24 28 44 4E 29 2C 46 49 24 28 46 49 2C 32 29 00 |$(DN),FI$(FI,2).|
00001210: 3B 1A 66 08 99 22 91 54 48 41 54 20 4D 41 4B 45 |;.f..".THAT MAKE|
00001220: 53 20 54 48 45 20 4C 49 53 54 20 55 50 20 54 4F |S THE LIST UP TO|
00001230: 22 3B 46 49 22 46 49 4C 45 53 22 00 52 1A 70 08 |";FI"FILES".R.p.|
00001240: 99 22 11 4F 4E 22 3B 44 4E 22 44 49 53 4B 27 53 |.".ON";DN"DISK'S|
00001250: 2E 22 00 5B 1A 7A 08 41 50 B2 31 00 65 1A 84 08 |.".[.z.AP.1.e...|
00001260: 89 31 37 38 30 00 6B 1A 8E 08 3A 00 80 1A 98 08 |.1780.k...:.....|
00001270: 8F 20 2A 2A 2A 20 52 45 2D 52 55 4E 20 2A 2A 2A |. *** RE-RUN ***|
00001280: 00 86 1A A2 08 3A 00 A1 1A AC 08 99 22 93 52 45 |.....:......".RE|
00001290: 2D 52 55 4E 20 44 49 53 4B 2D 4C 4F 47 47 45 52 |-RUN DISK-LOGGER|
000012A0: 22 00 CE 1A B6 08 99 22 11 11 59 4F 55 20 57 49 |"......"..YOU WI|
000012B0: 4C 4C 20 4C 4F 4F 53 45 20 41 4C 4C 20 44 41 54 |LL LOOSE ALL DAT|
000012C0: 41 20 49 4E 20 4D 45 4D 4F 52 59 20 21 22 00 F0 |A IN MEMORY !"..|
000012D0: 1A C0 08 99 22 11 44 4F 20 59 4F 55 20 57 41 4E |....".DO YOU WAN|
000012E0: 54 20 54 4F 20 52 45 2D 52 55 4E 20 3F 20 22 3B |T TO RE-RUN ? ";|
000012F0: 00 04 1B CA 08 49 4E 24 B2 22 59 4A 4E 22 3A 8D |.....IN$."YJN":.|
00001300: 33 37 31 30 00 0C 1B D4 08 99 49 24 00 1B 1B DE |3710......I$....|
00001310: 08 8B 49 24 B2 22 4E 22 A7 38 30 00 2E 1B E8 08 |..I$."N".80.....|
00001320: 81 49 B2 31 A4 31 35 3A A0 49 3A 82 3A 8A 00 34 |.I.1.15:.I:.:..4|
00001330: 1B F2 08 3A 00 53 1B FC 08 8F 20 2A 2A 2A 20 56 |...:.S.... *** V|
00001340: 49 45 57 20 44 49 52 2D 4C 49 53 54 49 4E 47 20 |IEW DIR-LISTING |
00001350: 2A 2A 2A 00 59 1B 06 09 3A 00 72 1B 10 09 99 22 |***.Y...:.r...."|
00001360: 93 56 49 45 57 20 44 49 52 2D 4C 49 53 54 49 4E |.VIEW DIR-LISTIN|
00001370: 47 22 00 99 1B 1A 09 99 22 11 55 53 45 20 12 20 |G"......".USE . |
00001380: 53 50 41 43 45 20 92 20 46 4F 52 20 50 41 55 53 |SPACE . FOR PAUS|
00001390: 45 11 22 3A 8D 33 36 36 30 00 B5 1B 24 09 99 22 |E.":.3660...$.."|
000013A0: 11 11 11 11 11 11 11 11 11 12 20 46 49 4C 45 53 |.......... FILES|
000013B0: 3A 20 92 11 22 00 C1 1B 2E 09 81 49 B2 31 A4 46 |: .."......I.1.F|
000013C0: 54 00 ED 1B 38 09 99 46 49 24 28 49 2C 30 29 22 |T...8..FI$(I,0)"|
000013D0: 20 22 46 49 24 28 49 2C 31 29 3A 99 22 20 20 20 | "FI$(I,1):." |
000013E0: 20 20 22 46 49 24 28 49 2C 32 29 3A 99 00 01 1C | "FI$(I,2):....|
000013F0: 42 09 92 31 39 38 2C 31 2C 31 3A 97 31 39 38 2C |B..198,1,1:.198,|
00001400: 30 00 07 1C 4C 09 82 00 11 1C 56 09 8D 33 36 36 |0...L.....V..366|
00001410: 30 00 2B 1C 60 09 99 22 11 11 12 20 44 49 53 4B |0.+.`.."... DISK|
00001420: 20 4E 41 4D 45 53 3A 20 92 11 22 00 37 1C 6A 09 | NAMES: ..".7.j.|
00001430: 81 49 B2 31 A4 44 54 00 43 1C 74 09 99 44 4E 24 |.I.1.DT.C.t..DN$|
00001440: 28 49 29 00 57 1C 7E 09 92 31 39 38 2C 31 2C 31 |(I).W.~..198,1,1|
00001450: 3A 97 31 39 38 2C 30 00 5D 1C 88 09 82 00 6D 1C |:.198,0.].....m.|
00001460: 92 09 99 22 11 22 3B 3A 8D 33 36 36 30 00 75 1C |...".";:.3660.u.|
00001470: 9C 09 89 38 30 00 7B 1C A6 09 3A 00 9A 1C B0 09 |...80.{...:.....|
00001480: 8F 20 2A 2A 2A 20 4D 41 4B 45 20 44 49 52 2D 4C |. *** MAKE DIR-L|
00001490: 49 53 54 49 4E 47 20 2A 2A 2A 00 A0 1C BA 09 3A |ISTING ***.....:|
000014A0: 00 AA 1C C4 09 99 22 11 11 22 00 CF 1C CE 09 85 |......".."......|
000014B0: 22 48 4F 57 20 4D 41 4E 59 20 44 49 53 4B 27 53 |"HOW MANY DISK'S|
000014C0: 20 28 41 50 50 52 4F 58 2E 29 20 22 3B 49 24 00 | (APPROX.) ";I$.|
000014D0: EB 1C D8 09 44 B2 C5 28 49 24 29 3A 8B 44 B3 31 |....D..(I$):.D.1|
000014E0: A7 99 22 93 22 3A 89 32 35 30 30 00 F5 1C E2 09 |..".":.2500.....|
000014F0: 99 22 11 11 22 00 21 1D EC 09 85 22 48 4F 57 20 |."..".!...."HOW |
00001500: 4D 41 4E 59 20 46 49 4C 45 53 20 4F 4E 20 45 41 |MANY FILES ON EA|
00001510: 43 48 20 28 41 50 50 52 4F 58 2E 29 20 22 3B 49 |CH (APPROX.) ";I|
00001520: 24 00 3D 1D F6 09 46 B2 C5 28 49 24 29 3A 8B 46 |$.=...F..(I$):.F|
00001530: B3 31 A7 99 22 93 22 3A 89 32 35 30 30 00 58 1D |.1..".":.2500.X.|
00001540: 00 0A 44 B2 B5 28 31 2E 35 AC 44 AA 2E 35 29 3A |..D..(1.5.D..5):|
00001550: 46 B2 B5 28 44 AC 46 29 00 83 1D 0A 0A 99 22 11 |F..(D.F)......".|
00001560: 11 54 4F 20 42 45 20 53 55 52 45 2C 20 4C 45 54 |.TO BE SURE, LET|
00001570: 27 53 20 53 41 59 22 3B 44 22 20 44 49 53 4B 27 |'S SAY";D" DISK'|
00001580: 53 2C 22 00 A6 1D 14 0A 99 22 11 41 4E 44 20 54 |S,"......".AND T|
00001590: 4F 54 41 4C 20 55 50 20 54 4F 22 3B 46 22 20 46 |OTAL UP TO";F" F|
000015A0: 49 4C 45 53 2E 22 00 BE 1D 1E 0A 99 22 11 11 49 |ILES."......"..I|
000015B0: 53 20 54 48 41 54 20 4F 4B 20 3F 20 22 3B 00 D6 |S THAT OK ? ";..|
000015C0: 1D 28 0A 49 4E 24 B2 22 59 4A 4E 22 3A 8D 33 37 |.(.IN$."YJN":.37|
000015D0: 31 30 3A 99 49 24 00 ED 1D 32 0A 8B 49 24 B2 22 |10:.I$...2..I$."|
000015E0: 4E 22 A7 99 22 93 22 3A 89 32 35 30 30 00 F3 1D |N"..".":.2500...|
000015F0: 3C 0A 8E 00 F9 1D 46 0A 3A 00 0E 1E 50 0A 8B 41 |<.....F.:...P..A|
00001600: 50 B2 31 A7 99 22 93 22 3A 89 32 37 30 30 00 1D |P.1..".":.2700..|
00001610: 1E 5A 0A 99 22 93 22 3A 8D 32 35 30 30 00 30 1E |.Z..".":.2500.0.|
00001620: 64 0A 44 4E B2 44 3A 46 49 B2 46 3A 41 50 B2 31 |d.DN.D:FI.F:AP.1|
00001630: 00 48 1E 6E 0A 86 20 44 4E 24 28 44 4E 29 2C 46 |.H.n.. DN$(DN),F|
00001640: 49 24 28 46 49 2C 32 29 00 4E 1E 78 0A 3A 00 54 |I$(FI,2).N.x.:.T|
00001650: 1E 82 0A 3A 00 75 1E 8C 0A 99 22 11 11 49 4E 53 |...:.u...."..INS|
00001660: 45 52 54 20 44 49 53 4B 20 54 4F 20 52 45 41 44 |ERT DISK TO READ|
00001670: 20 41 4E 44 22 00 93 1E 96 0A 99 22 11 50 52 45 | AND"......".PRE|
00001680: 53 53 20 12 20 52 45 54 55 52 4E 20 92 20 3B 20 |SS . RETURN . ; |
00001690: 4F 52 22 00 B9 1E A0 0A 99 22 11 50 52 45 53 53 |OR"......".PRESS|
000016A0: 20 5E 20 46 4F 52 20 42 41 43 4B 20 54 4F 20 4D | ^ FOR BACK TO M|
000016B0: 41 49 4E 20 4D 45 4E 55 22 00 CB 1E AA 0A 8B 4E |AIN MENU"......N|
000016C0: 57 B2 31 A7 44 54 B2 44 54 AB 31 00 E0 1E B4 0A |W.1.DT.DT.1.....|
000016D0: 49 4E 24 B2 43 24 AA 22 5E 22 3A 8D 33 37 31 30 |IN$.C$."^":.3710|
000016E0: 00 EF 1E BE 0A 8B 49 24 B2 22 5E 22 A7 38 30 00 |......I$."^".80.|
000016F0: F5 1E C8 0A 3A 00 0C 1F D2 0A 44 54 B2 44 54 AA |....:.....DT.DT.|
00001700: 31 3A 8B 44 54 B1 44 4E A7 39 38 30 00 15 1F DC |1:.DT.DN.980....|
00001710: 0A 4E 57 B2 31 00 1F 1F E6 0A 8D 33 31 32 30 00 |.NW.1......3120.|
00001720: 2D 1F F0 0A 8B 45 52 B1 31 39 A7 38 30 00 3D 1F |-....ER.19.80.=.|
00001730: FA 0A 44 4E 24 28 44 54 29 B2 44 4E 24 00 43 1F |..DN$(DT).DN$.C.|
00001740: 04 0B 3A 00 5B 1F 0E 0B 46 54 B2 46 54 AA 31 3A |..:.[...FT.FT.1:|
00001750: 8B 46 54 B1 46 49 A7 31 30 35 30 00 65 1F 18 0B |.FT.FI.1050.e...|
00001760: 8D 33 32 35 30 00 7C 1F 22 0B 8B 4E 46 B2 31 A7 |.3250.|."..NF.1.|
00001770: 46 54 B2 46 54 AB 31 3A 89 39 31 30 00 99 1F 2C |FT.FT.1:.910...,|
00001780: 0B 8B 5A 30 B2 31 A7 99 22 93 22 3A 46 54 B2 46 |..Z0.1..".":FT.F|
00001790: 54 AB 31 3A 89 32 37 30 30 00 B1 1F 36 0B 99 22 |T.1:.2700...6.."|
000017A0: 93 46 49 4C 45 20 4E 41 4D 45 3A 20 22 3B 46 49 |.FILE NAME: ";FI|
000017B0: 24 00 D4 1F 40 0B 99 22 11 11 44 4F 20 59 4F 55 |$...@.."..DO YOU|
000017C0: 20 57 41 4E 54 20 54 48 49 53 20 46 49 4C 45 20 | WANT THIS FILE |
000017D0: 3F 20 22 3B 00 EC 1F 4A 0B 49 4E 24 B2 22 59 4A |? ";...J.IN$."YJ|
000017E0: 4E 22 3A 8D 33 37 31 30 3A 99 49 24 00 06 20 54 |N":.3710:.I$.. T|
000017F0: 0B 8B 49 24 B2 22 4E 22 A7 46 54 B2 46 54 AB 31 |..I$."N".FT.FT.1|
00001800: 3A 89 32 38 33 30 00 14 20 5E 0B 4E 57 B2 30 3A |:.2830.. ^.NW.0:|
00001810: 41 50 B2 31 00 32 20 68 0B 46 49 24 28 46 54 2C |AP.1.2 h.FI$(FT,|
00001820: 30 29 B2 C9 28 22 20 20 22 AA C4 28 42 4C 29 2C |0)..(" "..(BL),|
00001830: 33 29 00 44 20 72 0B 46 49 24 28 46 54 2C 31 29 |3).D r.FI$(FT,1)|
00001840: B2 46 49 24 00 58 20 7C 0B 99 22 11 11 43 4F 4D |.FI$.X |.."..COM|
00001850: 4D 45 4E 54 53 3A 20 22 00 68 20 86 0B 99 22 11 |MENTS: ".h ...".|
00001860: 30 3A 20 4E 4F 4E 45 22 00 91 20 90 0B 81 49 B2 |0: NONE".. ...I.|
00001870: 30 A4 31 33 3A 99 C7 28 49 AA 34 39 AB 37 AC 28 |0.13:..(I.49.7.(|
00001880: 49 B1 38 29 29 22 3A 20 22 43 4F 24 28 49 29 3A |I.8))": "CO$(I):|
00001890: 82 00 A9 20 9A 0B 99 22 46 3A 20 46 52 4F 4D 20 |... ..."F: FROM |
000018A0: 4B 45 59 42 4F 41 52 44 22 00 E5 20 A4 0B 49 4E |KEYBOARD".. ..IN|
000018B0: 24 B2 22 30 31 32 33 34 35 36 37 38 39 41 42 43 |$."0123456789ABC|
000018C0: 44 45 46 22 3A 8D 33 37 31 30 3A 99 22 13 11 11 |DEF":.3710:."...|
000018D0: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..............";|
000018E0: 49 24 22 91 22 00 FF 20 AE 0B 43 B2 C6 28 49 24 |I$".".. ..C..(I$|
000018F0: 29 AB 34 38 AA 37 AC 28 49 24 B1 22 40 22 29 00 |).48.7.(I$."@").|
00001900: 1D 21 B8 0B 8B 43 B2 30 A7 46 49 24 28 46 54 2C |.!...C.0.FI$(FT,|
00001910: 32 29 B2 C7 28 30 29 3A 89 32 38 33 30 00 41 21 |2)..(0):.2830.A!|
00001920: C2 0B 8B 43 B3 B1 31 35 A7 46 49 24 28 46 54 2C |...C..15.FI$(FT,|
00001930: 32 29 B2 43 4F 24 28 43 AB 31 29 3A 89 32 38 33 |2).CO$(C.1):.283|
00001940: 30 00 4C 21 CC 0B 43 4F 24 B2 22 22 00 81 21 D6 |0.L!..CO$.""..!.|
00001950: 0B 97 36 33 31 2C 31 35 32 3A 97 36 33 32 2C 33 |..631,152:.632,3|
00001960: 34 3A 97 36 33 33 2C 33 34 3A 97 36 33 34 2C 32 |4:.633,34:.634,2|
00001970: 30 3A 97 36 33 35 2C 31 34 34 3A 97 31 39 38 2C |0:.635,144:.198,|
00001980: 35 00 9C 21 E0 0B 85 22 43 4F 4D 4D 45 4E 54 3A |5..!..."COMMENT:|
00001990: 20 20 20 20 9D 9D 9D 22 3B 43 4F 24 00 B6 21 EA | ...";CO$..!.|
000019A0: 0B 8B C3 28 43 4F 24 29 B2 30 A7 99 22 91 91 22 |...(CO$).0..".."|
000019B0: 3A 89 33 30 32 30 00 D3 21 F4 0B 8B C3 28 43 4F |:.3020..!....(CO|
000019C0: 24 29 B1 32 30 A7 43 4F 24 B2 C8 28 43 4F 24 2C |$).20.CO$..(CO$,|
000019D0: 32 30 29 00 E5 21 FE 0B 46 49 24 28 46 54 2C 32 |20)..!..FI$(FT,2|
000019E0: 29 B2 43 4F 24 00 EF 21 08 0C 89 32 38 33 30 00 |).CO$..!...2830.|
000019F0: F5 21 12 0C 3A 00 12 22 1C 0C 8F 20 2A 2A 2A 20 |.!..:.."... *** |
00001A00: 52 45 41 44 20 44 49 53 4B 20 4E 41 4D 45 20 2A |READ DISK NAME *|
00001A10: 2A 2A 00 18 22 26 0C 3A 00 41 22 30 0C 52 44 B2 |**.."&.:.A"0.RD.|
00001A20: 30 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A |0:.15,8,15,"I0":|
00001A30: 8D 33 34 32 30 3A 8B 45 52 B1 31 39 A7 33 34 34 |.3420:.ER.19.344|
00001A40: 30 00 68 22 3A 0C 49 44 24 B2 22 22 3A 81 49 B2 |0.h":.ID$."":.I.|
00001A50: 31 A4 32 3A 98 31 35 2C 22 4D 2D 52 22 C7 28 31 |1.2:.15,"M-R".(1|
00001A60: 37 AA 49 29 C7 28 30 29 00 81 22 44 0C A1 23 31 |7.I).(0).."D..#1|
00001A70: 35 2C 49 24 3A 49 44 24 B2 49 44 24 AA 49 24 3A |5,I$:ID$.ID$.I$:|
00001A80: 82 00 89 22 4E 0C A0 31 35 00 AA 22 58 0C 9F 38 |..."N..15.."X..8|
00001A90: 2C 38 2C 30 2C 22 24 30 22 3A 5A 30 B2 30 3A 4E |,8,0,"$0":Z0.0:N|
00001AA0: 46 B2 30 3A 44 4E 24 B2 22 22 00 C7 22 62 0C A1 |F.0:DN$."".."b..|
00001AB0: 23 38 2C 49 24 2C 49 24 2C 49 24 2C 49 24 2C 49 |#8,I$,I$,I$,I$,I|
00001AC0: 24 2C 49 24 2C 49 24 00 E7 22 6C 0C 81 49 B2 31 |$,I$,I$.."l..I.1|
00001AD0: A4 32 34 3A A1 23 38 2C 49 24 3A 44 4E 24 B2 44 |.24:.#8,I$:DN$.D|
00001AE0: 4E 24 AA 49 24 3A 82 00 FD 22 76 0C 44 4E 24 B2 |N$.I$:..."v.DN$.|
00001AF0: 49 44 24 AA 22 20 3D 20 22 AA 44 4E 24 00 0E 23 |ID$." = ".DN$..#|
00001B00: 80 0C A1 23 38 2C 49 24 2C 49 24 2C 49 24 00 14 |...#8,I$,I$,I$..|
00001B10: 23 8A 0C 8E 00 1A 23 94 0C 3A 00 37 23 9E 0C 8F |#.....#..:.7#...|
00001B20: 20 2A 2A 2A 20 52 45 41 44 20 46 49 4C 45 20 4E | *** READ FILE N|
00001B30: 41 4D 45 20 2A 2A 2A 00 3D 23 A8 0C 3A 00 48 23 |AME ***.=#..:.H#|
00001B40: B2 0C 46 49 24 B2 22 22 00 5C 23 BC 0C A1 23 38 |..FI$."".\#...#8|
00001B50: 2C 49 24 3A 4C 42 B2 A5 41 28 58 29 00 7D 23 C6 |,I$:LB..A(X).}#.|
00001B60: 0C A1 23 38 2C 49 24 3A 48 42 B2 A5 41 28 58 29 |..#8,I$:HB..A(X)|
00001B70: 3A 42 4C B2 4C 42 AA 32 35 36 AC 48 42 00 97 23 |:BL.LB.256.HB..#|
00001B80: D0 0C A1 23 38 2C 49 24 3A 8B A5 41 28 58 29 B2 |...#8,I$:..A(X).|
00001B90: 33 32 A7 33 32 38 30 00 BE 23 DA 0C 46 49 24 B2 |32.3280..#..FI$.|
00001BA0: 49 24 3A 81 49 B2 31 A4 32 32 3A A1 23 38 2C 49 |I$:.I.1.22:.#8,I|
00001BB0: 24 3A 46 49 24 B2 46 49 24 AA 49 24 3A 82 00 D2 |$:FI$.FI$.I$:...|
00001BC0: 23 E4 0C 46 49 24 B2 46 49 24 AA 22 20 22 AA 49 |#..FI$.FI$." ".I|
00001BD0: 44 24 00 EC 23 EE 0C A1 23 38 2C 49 24 3A 8B A5 |D$..#...#8,I$:..|
00001BE0: 41 28 58 29 B3 B1 30 A7 33 33 31 30 00 02 24 F8 |A(X)..0.3310..$.|
00001BF0: 0C A1 23 38 2C 49 24 2C 49 24 3A 52 44 B2 52 44 |..#8,I$,I$:RD.RD|
00001C00: AA 31 00 14 24 02 0D 8B A5 41 28 58 29 B2 30 A7 |.1..$....A(X).0.|
00001C10: 33 33 37 30 00 1A 24 0C 0D 8E 00 20 24 16 0D 3A |3370..$.... $..:|
00001C20: 00 38 24 20 0D 8F 20 2A 20 4E 4F 20 4D 4F 52 45 |.8$ .. * NO MORE|
00001C30: 20 46 49 4C 45 53 20 2A 00 4F 24 2A 0D 5A 30 B2 | FILES *.O$*.Z0.|
00001C40: 31 3A A0 38 3A 8B 52 44 B2 31 A7 4E 46 B2 31 00 |1:.8:.RD.1.NF.1.|
00001C50: 59 24 34 0D 89 33 33 34 30 00 5F 24 3E 0D 3A 00 |Y$4..3340._$>.:.|
00001C60: 78 24 48 0D 8F 20 2A 2A 2A 20 44 49 53 4B 20 45 |x$H.. *** DISK E|
00001C70: 52 52 4F 52 20 2A 2A 2A 00 7E 24 52 0D 3A 00 95 |RROR ***.~$R.:..|
00001C80: 24 5C 0D 84 31 35 2C 45 52 2C 45 52 24 2C 54 4B |$\..15,ER,ER$,TK|
00001C90: 2C 53 43 3A 8E 00 9B 24 66 0D 3A 00 B6 24 70 0D |,SC:...$f.:..$p.|
00001CA0: 99 22 93 11 11 11 11 11 12 44 49 53 4B 20 45 52 |.".......DISK ER|
00001CB0: 52 4F 52 3A 92 22 00 C0 24 7A 0D 99 22 11 11 22 |ROR:."..$z..".."|
00001CC0: 00 CF 24 84 0D 99 45 52 22 3A 20 22 45 52 24 00 |..$...ER": "ER$.|
00001CD0: EB 24 8E 0D 99 22 20 54 52 41 43 4B 22 3B 54 4B |.$..." TRACK";TK|
00001CE0: 3B 22 53 45 43 54 4F 52 22 53 43 00 FC 24 98 0D |;"SECTOR"SC..$..|
00001CF0: 81 49 B2 31 A4 31 35 3A A0 49 3A 82 00 0E 25 A2 |.I.1.15:.I:...%.|
00001D00: 0D 99 22 11 11 11 22 3B 3A 89 33 36 36 30 00 14 |.."...";:.3660..|
00001D10: 25 AC 0D 3A 00 1A 25 B6 0D 3A 00 2D 25 C0 0D 8F |%..:..%..:.-%...|
00001D20: 20 2A 2A 2A 20 44 41 54 41 20 2A 2A 2A 00 33 25 | *** DATA ***.3%|
00001D30: CA 0D 3A 00 54 25 D4 0D 83 20 41 44 56 45 4E 54 |..:.T%... ADVENT|
00001D40: 55 52 45 20 47 41 4D 45 2C 41 52 43 41 44 45 20 |URE GAME,ARCADE |
00001D50: 47 41 4D 45 00 73 25 DE 0D 83 20 53 50 4F 52 54 |GAME.s%... SPORT|
00001D60: 20 47 41 4D 45 2C 53 54 52 41 54 45 47 59 20 47 | GAME,STRATEGY G|
00001D70: 41 4D 45 00 8C 25 E8 0D 83 20 42 41 53 49 43 20 |AME..%... BASIC |
00001D80: 41 49 44 2C 44 49 53 4B 20 41 49 44 00 A7 25 F2 |AID,DISK AID..%.|
00001D90: 0D 83 20 43 4F 50 59 20 41 49 44 2C 50 52 49 4E |.. COPY AID,PRIN|
00001DA0: 54 45 52 20 41 49 44 00 C7 25 FC 0D 83 20 53 50 |TER AID..%... SP|
00001DB0: 52 45 41 44 53 48 45 45 54 2C 57 4F 52 44 50 52 |READSHEET,WORDPR|
00001DC0: 4F 43 45 53 53 4F 52 00 E2 25 06 0E 83 20 4D 2F |OCESSOR..%... M/|
00001DD0: 43 20 4D 4F 4E 49 54 4F 52 2C 4C 41 4E 47 55 41 |C MONITOR,LANGUA|
00001DE0: 47 45 00 F8 25 10 0E 83 20 47 52 41 50 48 49 43 |GE..%... GRAPHIC|
00001DF0: 2C 53 50 45 43 49 41 4C 00 FE 25 1A 0E 3A 00 04 |,SPECIAL..%..:..|
00001E00: 26 24 0E 3A 00 0A 26 2E 0E 3A 00 27 26 38 0E 8F |&$.:..&..:.'&8..|
00001E10: 20 2A 2A 2A 20 47 45 54 20 52 45 54 55 52 4E 20 | *** GET RETURN |
00001E20: 4B 45 59 20 2A 2A 2A 00 2D 26 42 0E 3A 00 45 26 |KEY ***.-&B.:.E&|
00001E30: 4C 0E 99 22 50 52 45 53 53 20 12 20 52 45 54 55 |L.."PRESS . RETU|
00001E40: 52 4E 20 92 22 00 50 26 56 0E 49 4E 24 B2 43 24 |RN .".P&V.IN$.C$|
00001E50: 00 56 26 60 0E 3A 00 76 26 6A 0E 8F 20 2A 2A 2A |.V&`.:.v&j.. ***|
00001E60: 20 47 45 54 20 54 48 45 20 52 49 47 48 54 20 4B | GET THE RIGHT K|
00001E70: 45 59 20 2A 2A 2A 00 7C 26 74 0E 3A 00 96 26 7E |EY ***.|&t.:..&~|
00001E80: 0E 58 B2 30 3A 97 31 39 38 2C 30 3A 92 31 39 38 |.X.0:.198,0:.198|
00001E90: 2C 31 3A A1 49 24 00 A6 26 88 0E 81 49 B2 31 A4 |,1:.I$..&...I.1.|
00001EA0: C3 28 49 4E 24 29 00 BD 26 92 0E 8B 49 24 B2 CA |.(IN$)..&...I$..|
00001EB0: 28 49 4E 24 2C 49 2C 31 29 A7 58 B2 31 00 C3 26 |(IN$,I,1).X.1..&|
00001EC0: 9C 0E 82 00 D1 26 A6 0E 8B 58 B2 30 A7 33 37 31 |.....&...X.0.371|
00001ED0: 30 00 D7 26 B0 0E 8E 00 DD 26 BA 0E 3A 00 F0 26 |0..&.....&..:..&|
00001EE0: C4 0E 8F 20 2A 2A 2A 20 51 55 49 54 20 2A 2A 2A |... *** QUIT ***|
00001EF0: 00 F6 26 CE 0E 3A 00 07 27 D8 0E 81 49 B2 31 A4 |..&..:..'...I.1.|
00001F00: 31 35 3A A0 49 3A 82 00 24 27 E2 0E 99 C7 28 39 |15:.I:..$'....(9|
00001F10: 29 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |):.53281,6:.5328|
00001F20: 30 2C 31 34 00 38 27 EC 0E 99 22 93 11 11 11 9A |0,14.8'...".....|
00001F30: 42 59 45 20 2E 2E 2E 22 00 3E 27 F6 0E 80 00 00 |BYE ...".>'.....|
00001F40: 00 |. |
..*.... DISK LOGGER BY B.D.NIELSEN (C)19
85.A.... .A(X).F(I$.G(0)).V.... I$,IN$,I
D$,DN$,FI$,V$,K$,S$,M$,NM$,CO$,CO$(13)..
...V$."...*. ":C$.G(13)...(.:...2..I.0.1
3:.CO$(I):..A.<..15,8,15,"U;": 15.G.F.:.
..P..53280,12:.53281,12:.".."G(142)G(8).
..Z.." DISK-LOGGER BY B.D.NIELSEN (C)
1985".N.D.." ...........................
.............".C.N..".".10);:IN$.""..X.
.FI.0.AP.1..V$;:IN$."1"......"1. MAKE D
IR-LISTING".A....AP.1..".".13)"APPEND TO
LISTING".O....".".10);... ..FT.0..V$;:I
N$.IN$."2"......"2. SORT DIR-LISTING"..
....".".10);./....FT.0..V$;:IN$.IN$."3".
K.H.."3. PRINT DIR-LISTING".Y.R..".".10)
;.T....FT.0..V$;:IN$.IN$."4"......"4. SA
VE DIR-LISTING"......".".10);......FI.0
..V$;:IN$.IN$."5".U...."5. LOAD DIR-LIS
TING"......".".10);......FI.0..V$;:IN$.I
N$."6"...".."6. LOAD+ APPEND".#.,..".".1
0);.>.6..FT.0..V$;:IN$.IN$."7".Z.@.."7.
VIEW DIR-LISTING".X.J..".".8)".*. 8. DI
RECTORY"...T..".".8)".*. 9. RE-RUN DISK-
LOGGER"...^..".".8)".*. 0. QUIT".J.H.IN$
.IN$."890"...R..3710:I.E(I$):.I.0.I.10..
.|..198,0.)....I. 2640,1370,1130,560,166
0,1970,2320,430,2220,3800./...:.G.... **
* DIRECTORY ***.M...:.R....".USE . SPACE
. FOR PAUSE.....".|....3120...B..ER.19.
80. .L..". "I(DN$,24)...V..3250.S....
NF.1..".NO FILES ON THIS DISK":.520.....
.I(" ".D(BL),3)" "H(FI$,23)......198,1,
1:.198,0......Z0.0.470.)....".":.3660:.8
0./...:.N.... *** SAVE DIR-LISTING ***.T
.&.:.P.0.."....SAVE DIR-LISTING"...:..".
.":NM$.""...D.."FILE NAME ";NM$...N..C(N
M$).0.C(NM$).16.560.S.X..".INSERT DISK A
ND ";:.3660...B..15,8,15,"I0"...L..8,8,8
,NM$.",S,W"...V..3420:.ER.19.700.%....34
40:.ER..63.80.Q....".FILE ALREADY EXIST,
SCRATCH OLD ? ";.T...IN$."YJN":.3710:.I
$:.I$."N".80......".SCRATCHING !"......1
5,8,15,"S0:".NM$.",S"......8,8,8,NM$.",S
,W".J....".SAVING".Z.F..8,FT:.8,DT...P..
I.1.FT...Z..8,G(34)FI$(I,0)G(34).....K$.
FI$(I,1):.830./....8,G(34)FI$(I,2)G(34).
5.....A....I.1.DT.T...K$.DN$(I):.830.Z..
...D. ..3420.Z.*..ER.19..3440:.560...4.
8: 15:.80...>.S$.""...H..S.1.C(K$).F.R.M
$.J(K$,S,1):.M$.G(34).M$.G(10)...\.S$.S$
.M$:.:S$.G(34).S$.G(34)...F..8,S$:....P.
:...Z.. *** NO FILES ON DISK ***.....:.8
....".THERE IS NO FILES".Q....".ON THIS
DISK: .";._....J(DN$,5).V...DT.DT.1:NW.0
:.2700.|...:...... *** NO ROOM FOR DISK
NAME'S ***...J.:...T.DT.DN.R....".SORRY,
THERE IS NO ROOM"......".FOR MORE DISK
NAMES !"......"...";:.3660:.80.....:.2..
.. *** NO ROOM FOR FILE NAME'S ***.8...:
.U...FT.FI:.RD.0.DT.DT.1:NW.0.F.$..I.1.1
5: I:.......".SORRY, THERE IS NO ROOM"..
.8..".FOR MORE FILE NAMES !"...B.."...";
:.3660:.80...L.:...V.. *** PRINT DIR-LIS
TING ***...`.:...J.D.4...T..".PRINT DIR-
LISTING".-.~.."...MAKE THE PRINTER READY
AND".7....3660.B....D,D,0.I....D.{....D
,"";.13)"SIZE NAME".15)"TYPE ID COMMEN
TS"......D,"";.13)"EEEE EEEE".15)"EEEE
EE EEEEEEEE"......D...D..I.1.FT...N..D,
"";.14)FI$(I,0)" "FI$(I,1)" "FI$(I,2).
..X........D:.D:.D......I.1.DT......D,""
;.7);.,....D,DN$(I);.B....I.2..(I.2)..D:
.D.H.....R....D:.D.Y.(. D.A.2..80.G.<.:.
..F.. *** SORT DIR-LISTING ***...P.:...Z
..".SORTING DIR-LIST":."..".E.D...5)"SOR
TING AFTER ?"...N.."..";.6)"1. FILE-NAME
OR"...X..".";.6)"2. COMMENT'S".....IN$.
"12":.3710.+...SO.E(I$):SN.2.(SO.2).D...
."........";.19)" ".Y. ..".....";.19)"
".Q....I.2.SO..1:."..";:........6)"
"......"...TAKE A COFFE BREAKE !"
...H.:.N.R.M..((.(FT.1)..(2)).1):I.2.M.Y
....S.1.M.....I.I.2.....Z.0......T.1.FT.
I......FI$(T,SO).FI$(T.I,SO).1590.9....F
I$(T,SO).FI$(T.I,SO).1550.Z....FI$(T,SN)
..FI$(T.I,SN).1590.....F$.FI$(T,1):FI$(T
,1).FI$(T.I,1):FI$(T.I,1).F$.....F$.FI$(
T,0):FI$(T,0).FI$(T.I,0):FI$(T.I,0).F$..
.".F$.FI$(T,2):FI$(T,2).FI$(T.I,2):FI$(T
.I,2).F$...,.Z.1...6..T...@..Z.1.1520...
J..S...T..80.".^.:.A.H.. *** LOAD DIR-LI
STING ***.G.R.:.C.|.."....LOAD DIR-LISTI
NG".T...."..":NM$.""......"FILE NAME ";N
M$......C(NM$).0.C(NM$).16.1660.G....".I
NSERT DISK AND ";:.3660.Y....15,8,15,"I0
"......8,8,8,NM$.",S,R"...B..3420:.ER.19
.1760...L..3440:.ER..62.80.#.V..430.0...
.8,FT,DT.T...FI.FT:DN.DT:. FI$(FI,2),DN$
(DN).D....".LOADING".P....I.1.FT......8,
FI$(I,0)......1890:FI$(I,1).K$......8,FI
$(I,2)...&.....0..I.1.DT.L.:..1890:DN$(I
).K$.R.D.....N..3420:.ER.19..3440:.80...
X. 8: 15:.80...B.K$."":.8,S$...L..S.1.C(
S$).?.V.M$.J(S$,S,1):.M$.G(10).M$.G(34).
N...K$.K$.M$:..T.....Z...:.~.... *** LOA
D + APPEND LISTING ***.....:......".LOAD
+ APPEND LISTING"......".":NM$."".H.F..
"FILE NAME ";NM$...P..C(NM$).0.C(NM$).16
.1970...Z..".INSERT DISK AND ";:.3660...
...15,8,15,"I0".-....8,8,8,NM$.",S,R".C.
...3420:.ER.19.2070.X....3440:.ER..62.80
.A....430.N....8,FT,DT... ..".FILE-NAME:
";NM$...*..".THE LIST CONSIST OF";FT"FI
LES".C.4..".ON";DT"DISK'S.".Y.>..".TO AP
PEND: ?."...H..2510...R.FI.FT.F:DN.DT.D.
..\.. DN$(DN),FI$(FI,2).;.F..".THAT MAKE
S THE LIST UP TO";FI"FILES".R.P..".ON";D
N"DISK'S.".[.Z.AP.1.E....1780.K...:.....
. *** RE-RUN ***.....:......".RE-RUN DIS
K-LOGGER".N...."..YOU WILL LOOSE ALL DAT
A IN MEMORY !"......".DO YOU WANT TO RE-
RUN ? ";...J.IN$."YJN":.3710...T..I$....
..I$."N".80......I.1.15: I:.:..4...:.S..
.. *** VIEW DIR-LISTING ***.Y...:.R...."
.VIEW DIR-LISTING"......".USE . SPACE .
FOR PAUSE.":.3660...$..".......... FILES
: ..".A....I.1.FT...8..FI$(I,0)" "FI$(I,
1):." "FI$(I,2):....B..198,1,1:.198,
0...L.....V..3660.+.`.."... DISK NAMES:
..".7.J..I.1.DT.C.T..DN$(I).W.~..198,1,1
:.198,0.].....M....".";:.3660.U....80.{.
..:...... *** MAKE DIR-LISTING ***. ...:
...D.."..".O.N.."HOW MANY DISK'S (APPROX
.) ";I$...X.D.E(I$):.D.1..".":.2500.....
."..".!...."HOW MANY FILES ON EACH (APPR
OX.) ";I$.=...F.E(I$):.F.1..".":.2500.X.
..D..(1.5.D..5):F..(D.F)......"..TO BE S
URE, LET'S SAY";D" DISK'S,"......".AND T
OTAL UP TO";F" FILES."......"..IS THAT O
K ? ";.V.(.IN$."YJN":.3710:.I$...2..I$."
N"..".":.2500...<.....F.:...P..AP.1.."."
:.2700...Z..".":.2500.0.D.DN.D:FI.F:AP.1
.H.N.. DN$(DN),FI$(FI,2).N.X.:.T...:.U..
.."..INSERT DISK TO READ AND"......".PRE
SS . RETURN . ; OR"... ..".PRESS ^ FOR B
ACK TO MAIN MENU".K....NW.1.DT.DT.1.....
IN$.C$."^":.3710......I$."^".80...H.:...
R.DT.DT.1:.DT.DN.980.....NW.1......3120.
-....ER.19.80.=...DN$(DT).DN$.C...:.[...
FT.FT.1:.FT.FI.1050.E....3250.|."..NF.1.
FT.FT.1:.910...,..Z0.1..".":FT.FT.1:.270
0...6..".FILE NAME: ";FI$.T.@.."..DO YOU
WANT THIS FILE ? ";...J.IN$."YJN":.3710
:.I$.. T..I$."N".FT.FT.1:.2830.. ^.NW.0:
AP.1.2 H.FI$(FT,0).I(" ".D(BL),3).D R.F
I$(FT,1).FI$.X |.."..COMMENTS: ".H ...".
0: NONE".. ...I.0.13:.G(I.49.7.(I.8))":
"CO$(I):... ..."F: FROM KEYBOARD".. ..IN
$."0123456789ABCDEF":.3710:."...........
......";I$".".. ..C.F(I$).48.7.(I$."@").
.!...C.0.FI$(FT,2).G(0):.2830.A!B..C..15
.FI$(FT,2).CO$(C.1):.2830.L!L.CO$.""..!V
..631,152:.632,34:.633,34:.634,20:.635,1
44:.198,5..!..."COMMENT: ...";CO$..!.
..C(CO$).0.."..":.3020.S!...C(CO$).20.CO
$.H(CO$,20)..!..FI$(FT,2).CO$..!...2830.
.!..:.."... *** READ DISK NAME ***.."&.:
.A"0.RD.0:.15,8,15,"I0":.3420:.ER.19.344
0.H":.ID$."":.I.1.2:.15,"M-R"G(17.I)G(0)
.."D..#15,I$:ID$.ID$.I$:..."N. 15.."X..8
,8,0,"$0":Z0.0:NF.0:DN$."".G"B..#8,I$,I$
,I$,I$,I$,I$,I$.."L..I.1.24:.#8,I$:DN$.D
N$.I$:..."V.DN$.ID$." = ".DN$..#...#8,I$
,I$,I$..#.....#..:.7#... *** READ FILE N
AME ***.=#..:.H#..FI$."".\#...#8,I$:LB..
A(X).}#F..#8,I$:HB..A(X):BL.LB.256.HB..#
P..#8,I$:..A(X).32.3280..#Z.FI$.I$:.I.1.
22:.#8,I$:FI$.FI$.I$:..R#..FI$.FI$." ".I
D$..#...#8,I$:..A(X)..0.3310..$...#8,I$,
I$:RD.RD.1..$....A(X).0.3370..$.... $..:
.8$ .. * NO MORE FILES *.O$*.Z0.1: 8:.RD
.1.NF.1.Y$4..3340._$>.:.X$H.. *** DISK E
RROR ***.~$R.:..$\..15,ER,ER$,TK,SC:...$
F.:..$P..".......DISK ERROR:."..$Z..".."
.O$...ER": "ER$..$..." TRACK";TK;"SECTOR
"SC..$...I.1.15: I:...%..."...";:.3660..
%..:..%..:.-%... *** DATA ***.3%J.:.T%T.
. ADVENTURE GAME,ARCADE GAME.S%... SPORT
GAME,STRATEGY GAME..%... BASIC AID,DISK
AID..%... COPY AID,PRINTER AID.G%... SP
READSHEET,WORDPROCESSOR..%... M/C MONITO
R,LANGUAGE..%... GRAPHIC,SPECIAL..%..:..
&$.:..&..:.'&8.. *** GET RETURN KEY ***.
-&B.:.E&L.."PRESS . RETURN .".P&V.IN$.C$
.V&`.:.V&J.. *** GET THE RIGHT KEY ***.|
&T.:..&~.X.0:.198,0:.198,1:.I$..&...I.1.
C(IN$)..&...I$.J(IN$,I,1).X.1.C&....Q&..
.X.0.3710.W&.....&..:..&D.. *** QUIT ***
..&N.:..'X..I.1.15: I:..$'...G(9):.53281
,6:.53280,14.8'...".....BYE ...".>'.....
.
> CLICK IMAGE PREVIEW FOR FULL MODAL