L
FILE INFORMATION
FILENAME(S): L
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-10-20 14:29:58
APPEARS ON: 4 disk(s)
FILE HASH
7f0a2b8bb462e46b2724b79aefff6b18c08ce5dd1411fade22ffb0b62efc791b
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| G PD 87 | L | PRG | Treasure Chest - Klaus Der Suhler | 10 | 2 | DOWNLOAD FILE |
| S 1284 | L | PRG | Treasure Chest - Klaus Der Suhler | 10 | 2 | DOWNLOAD FILE |
| S 1284 | L | PRG | Treasure Chest - Klaus Der Suhler | 10 | 2 | DOWNLOAD FILE |
| PD 17 | L | PRG | DuncanTwain | 4 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 E8 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..&....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 4B 08 FC 03 8F 2A 2A 20 20 |******.K....** |
00000030: 20 20 20 20 20 47 45 4F 4C 49 53 54 20 56 32 2E | GEOLIST V2.|
00000040: 32 20 20 20 20 20 20 20 2A 2A 2A 00 70 08 10 04 |2 ***.p...|
00000050: 8F 2A 2A 20 4D 4F 44 49 46 49 45 44 20 56 45 52 |.** MODIFIED VER|
00000060: 53 49 4F 4E 20 4F 46 20 20 20 20 20 20 2A 2A 2A |SION OF ***|
00000070: 00 95 08 24 04 8F 2A 2A 20 47 45 4F 4C 49 53 54 |...$..** GEOLIST|
00000080: 20 56 30 2E 39 20 46 52 4F 4D 20 4D 49 4B 45 20 | V0.9 FROM MIKE |
00000090: 20 20 2A 2A 2A 00 BA 08 38 04 8F 2A 2A 20 53 45 | ***...8..** SE|
000000A0: 4C 4C 45 52 53 20 28 4D 49 4B 35 35 29 2E 2E 2E |LLERS (MIK55)...|
000000B0: 20 20 20 20 20 20 20 2A 2A 2A 00 DF 08 4C 04 8F | ***...L..|
000000C0: 2A 2A 20 4D 4F 44 49 46 49 45 44 20 42 59 20 48 |** MODIFIED BY H|
000000D0: 2E 20 44 45 57 41 59 4E 45 20 20 20 2A 2A 2A 00 |. DEWAYNE ***.|
000000E0: 04 09 60 04 8F 2A 2A 20 20 20 28 22 C8 41 52 4F |..`..** (".ARO|
000000F0: 4C 44 C4 22 29 20 20 31 32 2F 32 38 2F 38 37 20 |LD.") 12/28/87 |
00000100: 20 2A 2A 2A 00 29 09 74 04 8F 2A 2A 2A 2A 2A 2A | ***.).t..******|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 09 88 04 97 20 |*********.B.... |
00000130: 36 34 34 2C 31 32 38 3A 97 20 35 36 2C 31 32 36 |644,128:. 56,126|
00000140: 3A 9C 00 6C 09 9C 04 86 20 47 31 24 28 31 36 29 |:..l.... G1$(16)|
00000150: 2C 47 32 24 28 33 29 2C 58 31 28 35 29 2C 58 31 |,G2$(3),X1(5),X1|
00000160: 24 28 35 29 2C 4E 55 24 28 39 39 29 00 7E 09 B0 |$(5),NU$(99).~..|
00000170: 04 99 20 C7 28 31 34 29 C7 28 31 34 37 29 00 A3 |.. .(14).(147)..|
00000180: 09 C4 04 8F 20 47 45 54 20 47 45 4F 53 20 44 41 |.... GET GEOS DA|
00000190: 54 45 20 26 20 54 49 4D 45 2D 2D 2D 2D 2D 2D 2D |TE & TIME-------|
000001A0: 2D 2D 2D 00 B0 09 D8 04 50 4B B2 33 34 30 36 39 |---.....PK.34069|
000001B0: 00 CA 09 EC 04 81 20 49 B2 31 A4 35 3A 58 31 28 |...... I.1.5:X1(|
000001C0: 49 29 B2 C2 28 50 4B AA 49 29 00 F1 09 00 05 58 |I)..(PK.I).....X|
000001D0: 31 24 28 49 29 B2 C4 28 58 31 28 49 29 29 3A 58 |1$(I)..(X1(I)):X|
000001E0: 31 24 28 49 29 B2 C9 28 58 31 24 28 49 29 2C 32 |1$(I)..(X1$(I),2|
000001F0: 29 00 F8 09 14 05 82 49 00 1D 0A 28 05 58 32 24 |)......I...(.X2$|
00000200: B2 C8 28 58 31 24 28 33 29 2C 31 29 20 3A 58 33 |..(X1$(3),1) :X3|
00000210: 24 B2 C9 28 58 31 24 28 33 29 2C 31 29 00 3A 0A |$..(X1$(3),1).:.|
00000220: 3C 05 8B 20 58 32 24 B2 22 20 22 A7 58 31 24 28 |<.. X2$." ".X1$(|
00000230: 33 29 B2 22 30 22 AA 58 33 24 00 5F 0A 50 05 58 |3)."0".X3$._.P.X|
00000240: 34 24 B2 58 31 24 28 32 29 AA 22 2F 22 AA 58 31 |4$.X1$(2)."/".X1|
00000250: 24 28 33 29 AA 22 2F 22 AA 58 31 24 28 31 29 00 |$(3)."/".X1$(1).|
00000260: 84 0A 64 05 58 32 24 B2 C8 28 58 31 24 28 35 29 |..d.X2$..(X1$(5)|
00000270: 2C 31 29 20 3A 58 33 24 B2 C9 28 58 31 24 28 35 |,1) :X3$..(X1$(5|
00000280: 29 2C 31 29 00 A1 0A 78 05 8B 20 58 32 24 B2 22 |),1)...x.. X2$."|
00000290: 20 22 A7 58 31 24 28 35 29 B2 22 30 22 AA 58 33 | ".X1$(5)."0".X3|
000002A0: 24 00 BB 0A 8C 05 58 35 24 B2 58 31 24 28 34 29 |$.....X5$.X1$(4)|
000002B0: AA 22 3A 22 AA 58 31 24 28 35 29 00 DA 0A A0 05 |.":".X1$(5).....|
000002C0: 58 30 24 B2 C8 28 58 36 24 2C 31 29 20 3A 58 41 |X0$..(X6$,1) :XA|
000002D0: 24 B2 C9 28 58 36 24 2C 31 29 00 0C 0B B4 05 8B |$..(X6$,1)......|
000002E0: 20 58 31 28 32 29 B3 31 B0 58 31 28 32 29 B1 31 | X1(2).1.X1(2).1|
000002F0: 32 A7 58 34 24 B2 22 20 20 20 20 20 20 20 20 22 |2.X4$." "|
00000300: 3A 58 35 24 B2 22 20 20 20 20 20 22 00 31 0B C8 |:X5$." ".1..|
00000310: 05 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 2D 2D |.. INITIALIZE --|
00000320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000330: 2D 00 56 0B DC 05 50 4C B2 36 36 3A 4F 46 B2 36 |-.V...PL.66:OF.6|
00000340: 30 3A 4C 4E B2 30 3A 50 47 B2 30 20 3A 8F 20 50 |0:LN.0:PG.0 :. P|
00000350: 41 47 49 4E 47 2D 00 7E 0B F0 05 81 49 B2 30 A4 |AGING-.~....I.0.|
00000360: 35 3A 87 46 54 24 28 49 29 3A 82 49 3A 81 49 B2 |5:.FT$(I):.I:.I.|
00000370: 30 A4 32 3A 87 47 32 24 28 49 29 3A 82 49 00 95 |0.2:.G2$(I):.I..|
00000380: 0B 04 06 81 49 B2 30 A4 31 35 3A 87 47 31 24 28 |....I.0.15:.G1$(|
00000390: 49 29 3A 82 49 00 B0 0B 18 06 81 49 B2 30 A4 37 |I):.I......I.0.7|
000003A0: 39 3A 4C 4E 24 B2 4C 4E 24 AA 22 2D 22 3A 82 49 |9:LN$.LN$."-":.I|
000003B0: 00 BE 0B 2C 06 81 20 49 B2 31 30 A4 39 39 00 D3 |...,.. I.10.99..|
000003C0: 0B 40 06 4E 55 24 28 49 29 B2 C9 28 C4 28 49 29 |.@.NU$(I)..(.(I)|
000003D0: 2C 32 29 00 DA 0B 54 06 82 49 00 E6 0B 68 06 81 |,2)...T..I...h..|
000003E0: 20 49 B2 30 A4 39 00 FB 0B 7C 06 42 4C 24 28 49 | I.0.9...|.BL$(I|
000003F0: 29 B2 C9 28 C4 28 49 29 2C 31 29 00 23 0C 90 06 |)..(.(I),1).#...|
00000400: 4E 55 24 28 49 29 B2 22 30 22 AA 42 4C 24 28 49 |NU$(I)."0".BL$(I|
00000410: 29 3A 42 4C 24 28 49 29 B2 22 20 22 AA 42 4C 24 |):BL$(I)." ".BL$|
00000420: 28 49 29 00 2A 0C A4 06 82 49 00 79 0C B8 06 48 |(I).*....I.y...H|
00000430: 31 24 B2 22 D3 49 5A 45 20 C6 49 4C 45 20 CE 41 |1$.".IZE .ILE .A|
00000440: 4D 45 20 20 20 20 20 20 20 20 D6 45 52 53 20 D4 |ME .ERS .|
00000450: 59 50 20 20 C7 45 4F 53 20 D4 59 50 45 20 20 20 |YP .EOS .YPE |
00000460: 20 20 20 20 20 C4 41 54 45 20 20 20 20 D4 49 4D | .ATE .IM|
00000470: 45 20 20 20 D3 54 52 20 22 00 90 0C CC 06 48 32 |E .TR ".....H2|
00000480: 24 B2 22 20 20 D4 52 20 D3 43 20 C2 4C 4B 53 22 |$." .R .C .LKS"|
00000490: 00 A0 0C E0 06 48 44 24 B2 48 31 24 AA 48 32 24 |.....HD$.H1$.H2$|
000004A0: 00 C5 0C F4 06 8F 20 20 52 45 53 54 41 52 54 20 |...... RESTART |
000004B0: 50 4F 49 4E 54 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |POINT ----------|
000004C0: 2D 2D 2D 2D 2D 00 0B 0D 08 07 44 4E 24 B2 22 22 |-----.....DN$.""|
000004D0: 3A 49 44 24 B2 22 22 3A 46 54 24 B2 22 22 3A 54 |:ID$."":FT$."":T|
000004E0: 46 B2 30 3A 54 4B B2 30 3A 54 36 B2 30 3A 46 B2 |F.0:TK.0:T6.0:F.|
000004F0: 30 3A 50 47 B2 30 3A 4C 4E B2 30 3A 45 4F 49 B2 |0:PG.0:LN.0:EOI.|
00000500: 30 3A 46 4C B2 30 3A 43 54 B2 30 00 1D 0D 1C 07 |0:FL.0:CT.0.....|
00000510: 99 20 C7 28 31 34 29 C7 28 31 34 37 29 00 3C 0D |. .(14).(147).<.|
00000520: 30 07 99 A6 31 30 29 22 C7 45 4F 4C 49 53 54 20 |0...10)".EOLIST |
00000530: D6 32 2E 31 20 2D 20 31 35 34 31 22 00 60 0D 44 |.2.1 - 1541".`.D|
00000540: 07 99 A6 38 29 22 C9 4E 53 45 52 54 20 C7 C5 CF |...8)".NSERT ...|
00000550: D3 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 22 |. DISK IN DRIVE"|
00000560: 00 93 0D 58 07 99 A6 38 29 22 50 52 45 53 53 20 |...X...8)"PRESS |
00000570: 22 C7 28 31 38 29 22 52 45 54 55 52 4E 22 C7 28 |".(18)"RETURN".(|
00000580: 31 34 36 29 22 20 54 4F 20 43 4F 4E 54 49 4E 55 |146)" TO CONTINU|
00000590: 45 2C 22 00 C2 0D 6C 07 99 A6 31 30 29 22 20 20 |E,"...l...10)" |
000005A0: 4F 52 20 20 22 C7 28 31 38 29 22 46 37 22 C7 28 |OR ".(18)"F7".(|
000005B0: 31 34 36 29 22 20 54 4F 20 43 41 4E 43 45 4C 20 |146)" TO CANCEL |
000005C0: 20 22 00 D6 0D 80 07 A1 43 24 3A 8B 43 24 B2 22 | "......C$:.C$."|
000005D0: 22 A7 31 39 32 30 00 F4 0D 94 07 8B 43 24 B2 C7 |".1920......C$..|
000005E0: 28 31 33 36 29 89 34 36 32 30 20 3A 8F 20 43 41 |(136).4620 :. CA|
000005F0: 4E 43 45 4C 00 08 0E A8 07 8B 43 24 B3 B1 C7 28 |NCEL......C$...(|
00000600: 31 33 29 89 31 39 32 30 00 26 0E BC 07 9F 37 2C |13).1920.&....7,|
00000610: 34 2C 37 3A A0 37 3A 8B 20 53 54 41 54 55 53 B2 |4,7:.7:. STATUS.|
00000620: 30 A7 32 30 34 30 00 58 0E D0 07 99 3A 99 3A 99 |0.2040.X....:.:.|
00000630: A6 31 31 29 C7 28 32 38 29 C7 28 31 38 29 22 D0 |.11).(28).(18)".|
00000640: D2 C9 CE D4 C5 D2 A0 CE CF D4 A0 D2 C5 C1 C4 D9 |................|
00000650: 21 22 C7 28 31 34 36 29 00 6F 0E E4 07 81 49 B2 |!".(146).o....I.|
00000660: 30 A4 35 30 30 30 3A 82 49 3A 89 34 36 32 30 00 |0.5000:.I:.4620.|
00000670: 9D 0E F8 07 81 49 B2 30 A4 33 3A 99 C7 28 31 37 |.....I.0.3:..(17|
00000680: 29 3A 82 49 3A 99 A6 31 33 29 C7 28 35 29 22 50 |):.I:..13).(5)"P|
00000690: 52 4F 43 45 53 53 49 4E 47 2E 2E 2E 22 00 D6 0E |ROCESSING..."...|
000006A0: 0C 08 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 |...15,8,15:.15,"|
000006B0: 49 30 22 3A 84 31 35 2C 45 4E 24 2C 45 4D 24 2C |I0":.15,EN$,EM$,|
000006C0: 45 54 24 2C 45 53 24 3A 8B 45 4E 24 B2 22 30 30 |ET$,ES$:.EN$."00|
000006D0: 22 A7 32 31 34 30 00 05 0F 20 08 81 49 B2 30 A4 |".2140... ..I.0.|
000006E0: 32 3A 99 C7 28 31 37 29 3A 82 49 3A 99 45 4E 24 |2:..(17):.I:.EN$|
000006F0: 22 2C 20 22 45 4D 24 22 2C 20 22 45 54 24 22 2C |", "EM$", "ET$",|
00000700: 20 22 45 53 24 00 0F 0F 34 08 A0 31 35 3A 80 00 | "ES$...4..15:..|
00000710: 34 0F 48 08 8F 20 2A 2A 2A 20 42 4C 4F 43 4B 53 |4.H.. *** BLOCKS|
00000720: 20 46 52 45 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | FREE ----------|
00000730: 2D 2D 2D 2D 00 65 0F 5C 08 98 31 35 2C 22 4D 2D |----.e.\..15,"M-|
00000740: 52 22 C7 28 32 35 30 29 C7 28 32 29 C7 28 33 29 |R".(250).(2).(3)|
00000750: 3A A1 23 31 35 2C 42 24 3A 4C B2 C6 28 42 24 AA |:.#15,B$:L..(B$.|
00000760: C7 28 30 29 29 00 93 0F 70 08 A1 23 31 35 2C 42 |.(0))...p..#15,B|
00000770: 24 3A A1 23 31 35 2C 42 24 3A 48 B2 C6 28 42 24 |$:.#15,B$:H..(B$|
00000780: AA C7 28 30 29 29 3A 42 46 B2 4C AA 28 48 AC 32 |..(0)):BF.L.(H.2|
00000790: 35 36 29 00 A7 0F 84 08 9F 33 2C 38 2C 33 2C 22 |56)......3,8,3,"|
000007A0: 24 30 2C 50 2C 52 22 00 BA 0F 98 08 97 20 37 38 |$0,P,R"...... 78|
000007B0: 31 2C 33 3A 9E 36 35 34 37 38 00 D1 0F AC 08 A1 |1,3:.65478......|
000007C0: 42 24 3A 44 4F 53 B2 C6 28 42 24 AA C7 28 30 29 |B$:DOS..(B$..(0)|
000007D0: 29 00 E5 0F C0 08 81 49 B2 33 A4 31 34 33 3A A1 |)......I.3.143:.|
000007E0: 42 24 3A 82 49 00 F4 0F D4 08 81 49 B2 31 34 34 |B$:.I......I.144|
000007F0: A4 31 35 39 00 0B 10 E8 08 8D 35 31 34 30 3A 44 |.159......5140:D|
00000800: 4E 24 B2 44 4E 24 AA C7 28 41 29 00 12 10 FC 08 |N$.DN$..(A).....|
00000810: 82 49 00 1E 10 10 09 A1 42 24 3A A1 42 24 00 2D |.I......B$:.B$.-|
00000820: 10 24 09 81 49 B2 31 36 32 A4 31 36 33 00 44 10 |.$..I.162.163.D.|
00000830: 38 09 8D 35 31 34 30 3A 49 44 24 B2 49 44 24 AA |8..5140:ID$.ID$.|
00000840: C7 28 41 29 00 4B 10 4C 09 82 49 00 61 10 60 09 |.(A).K.L..I.a.`.|
00000850: 81 49 B2 31 36 34 A4 31 37 30 3A A1 42 24 3A 82 |.I.164.170:.B$:.|
00000860: 49 00 77 10 74 09 A1 42 24 3A 4F 54 B2 C6 28 42 |I.w.t..B$:OT..(B|
00000870: 24 AA C7 28 30 29 29 00 87 10 88 09 4F 54 24 B2 |$..(0)).....OT$.|
00000880: 4E 55 24 28 4F 54 29 00 9D 10 9C 09 A1 42 24 3A |NU$(OT)......B$:|
00000890: 4F 53 B2 C6 28 42 24 AA C7 28 30 29 29 00 AD 10 |OS..(B$..(0))...|
000008A0: B0 09 4F 53 24 B2 4E 55 24 28 4F 53 29 00 C4 10 |..OS$.NU$(OS)...|
000008B0: C4 09 47 46 24 B2 22 22 3A 81 20 49 B2 31 37 33 |..GF$."":. I.173|
000008C0: A4 31 38 38 00 DC 10 D8 09 8D 35 31 34 30 20 3A |.188......5140 :|
000008D0: 47 46 24 B2 47 46 24 AA C7 28 41 29 00 E4 10 EC |GF$.GF$..(A)....|
000008E0: 09 82 20 49 00 FA 10 00 0A A1 42 24 3A 42 31 B2 |.. I......B$:B1.|
000008F0: C6 28 42 24 AA C7 28 30 29 29 00 10 11 14 0A 81 |.(B$..(0))......|
00000900: 49 B2 31 39 30 A4 32 35 35 3A A1 42 24 3A 82 49 |I.190.255:.B$:.I|
00000910: 00 2D 11 28 0A 42 32 24 B2 22 C7 C5 CF D3 A0 D7 |.-.(.B2$."......|
00000920: 4F 52 4B 20 C4 49 53 4B 20 20 20 20 22 00 51 11 |ORK .ISK ".Q.|
00000930: 3C 0A 8B 42 31 B2 36 36 A7 42 32 24 B2 22 C7 C5 |<..B1.66.B2$."..|
00000940: CF D3 A0 C2 4F 4F 54 20 C4 49 53 4B 20 20 20 20 |....OOT .ISK |
00000950: 22 00 75 11 50 0A 8B 42 31 B2 38 30 A7 42 32 24 |".u.P..B1.80.B2$|
00000960: B2 22 C7 C5 CF D3 A0 C1 50 50 4C 49 43 41 54 49 |."......PPLICATI|
00000970: 4F 4E 20 20 22 00 AF 11 64 0A 8B 4F 54 B2 30 A7 |ON "...d..OT.0.|
00000980: 42 32 24 B2 22 CE 4F 54 20 C7 C5 CF D3 A0 D4 59 |B2$.".OT ......Y|
00000990: 50 45 20 C4 49 53 4B 22 3A 47 46 24 B2 22 20 20 |PE .ISK":GF$." |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000009B0: D0 11 78 0A 44 50 24 B2 22 CF 46 46 22 3A 8B 44 |..x.DP$.".FF":.D|
000009C0: 4F 53 B3 B1 36 35 A7 44 50 24 B2 22 CF 4E 20 22 |OS..65.DP$.".N "|
000009D0: 00 DB 11 8C 0A 9E 36 35 34 38 34 00 F5 11 A0 0A |......65484.....|
000009E0: 9F 37 2C 34 2C 37 3A 8D 32 37 36 30 3A A0 37 3A |.7,4,7:.2760:.7:|
000009F0: 89 32 39 30 30 00 1A 12 B4 0A 8F 20 50 52 49 4E |.2900...... PRIN|
00000A00: 54 20 48 45 41 44 49 4E 47 53 20 2D 2D 2D 2D 2D |T HEADINGS -----|
00000A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 2C 12 C8 0A 50 |----------.,...P|
00000A20: 47 B2 50 47 AA 31 20 3A 4C 4E B2 37 00 67 12 DC |G.PG.1 :LN.7.g..|
00000A30: 0A 98 37 2C 22 20 20 20 20 20 20 20 20 20 20 20 |..7," |
00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A50: 20 20 20 20 20 20 20 C7 45 4F CC 49 53 54 20 D6 | .EO.IST .|
00000A60: 32 2E 32 22 3A 98 37 00 AC 12 F0 0A 98 37 2C 22 |2.2":.7......7,"|
00000A70: C4 C9 D3 CB A0 CE C1 CD C5 3A 20 22 44 4E 24 22 |.........: "DN$"|
00000A80: 20 20 20 C9 C4 3A 20 22 49 44 24 22 20 20 20 20 | ..: "ID$" |
00000A90: 20 20 20 22 58 34 24 22 20 20 20 22 58 35 24 22 | "X4$" "X5$"|
00000AA0: 20 20 20 D0 41 47 45 3A 20 22 50 47 00 ED 12 04 | .AGE: "PG....|
00000AB0: 0B 98 37 2C 42 32 24 22 20 22 47 46 24 22 20 20 |..7,B2$" "GF$" |
00000AC0: 20 C4 CF D3 A0 D7 52 49 54 45 20 D0 52 4F 54 45 | .....RITE .ROTE|
00000AD0: 43 54 20 22 44 50 24 22 20 20 20 C2 4C 4F 43 4B |CT "DP$" .LOCK|
00000AE0: 53 20 C6 52 45 45 3A 22 42 46 3A 98 37 00 F8 12 |S .REE:"BF:.7...|
00000AF0: 18 0B 98 37 2C 48 44 24 00 06 13 2C 0B 98 37 2C |...7,HD$...,..7,|
00000B00: 4C 4E 24 20 3A 8E 00 2B 13 40 0B 8F 20 47 45 54 |LN$ :..+.@.. GET|
00000B10: 20 44 4F 53 20 46 49 4C 45 20 54 59 50 45 20 2D | DOS FILE TYPE -|
00000B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3E 13 54 0B |-----------.>.T.|
00000B30: 97 20 37 38 31 2C 33 3A 9E 36 35 34 37 38 00 62 |. 781,3:.65478.b|
00000B40: 13 68 0B A1 42 24 3A 46 54 B2 C6 28 42 24 AA C7 |.h..B$:FT..(B$..|
00000B50: 28 30 29 29 3A 46 54 24 B2 46 54 24 28 37 AF 46 |(0)):FT$.FT$(7.F|
00000B60: 54 29 00 80 13 7C 0B 57 50 B2 28 36 34 AF 46 54 |T)...|.WP.(64.FT|
00000B70: 29 3A 8B 57 50 B2 36 34 A7 57 50 24 B2 22 3C 22 |):.WP.64.WP$."<"|
00000B80: 00 93 13 90 0B 8B 20 57 50 B2 30 A7 57 50 24 B2 |...... WP.0.WP$.|
00000B90: 22 A0 22 00 A3 13 A4 0B 46 54 24 B2 46 54 24 AA |".".....FT$.FT$.|
00000BA0: 57 50 24 00 AF 13 B8 0B A1 42 24 3A A1 42 24 00 |WP$......B$:.B$.|
00000BB0: D4 13 CC 0B 8F 20 47 45 54 20 46 49 4C 45 20 4E |..... GET FILE N|
00000BC0: 41 4D 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |AME ------------|
00000BD0: 2D 2D 2D 2D 00 DE 13 E0 0B 46 24 B2 22 22 00 EA |----.....F$.""..|
00000BE0: 13 F4 0B 81 49 B2 35 A4 32 30 00 F5 13 08 0C 8D |....I.5.20......|
00000BF0: 35 31 34 30 20 00 07 14 1C 0C 46 24 B2 46 24 AA |5140 .....F$.F$.|
00000C00: C7 28 41 29 3A 82 49 00 2C 14 30 0C 8F 20 47 45 |.(A):.I.,.0.. GE|
00000C10: 54 20 54 52 41 43 4B 20 26 20 53 45 43 54 4F 52 |T TRACK & SECTOR|
00000C20: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 41 14 44 | -----------.A.D|
00000C30: 0C A1 42 24 3A 54 B2 C6 28 42 24 AA C7 28 30 29 |..B$:T..(B$..(0)|
00000C40: 29 00 56 14 58 0C A1 42 24 3A 53 B2 C6 28 42 24 |).V.X..B$:S..(B$|
00000C50: AA C7 28 30 29 29 00 7B 14 6C 0C 8F 20 47 45 54 |..(0)).{.l.. GET|
00000C60: 20 47 45 4F 53 20 46 49 4C 45 20 53 54 52 55 43 | GEOS FILE STRUC|
00000C70: 54 55 52 45 20 2D 2D 2D 2D 2D 2D 00 91 14 80 0C |TURE ------.....|
00000C80: A1 42 24 3A 47 32 B2 C6 28 42 24 AA C7 28 30 29 |.B$:G2..(B$..(0)|
00000C90: 29 00 A0 14 94 0C 8B 47 32 B1 32 A7 47 32 B2 32 |)......G2.2.G2.2|
00000CA0: 00 B0 14 A8 0C 47 32 24 B2 47 32 24 28 47 32 29 |.....G2$.G2$(G2)|
00000CB0: 00 D5 14 BC 0C 8F 20 47 45 54 20 47 45 4F 53 20 |...... GET GEOS |
00000CC0: 46 49 4C 45 20 54 59 50 45 20 2D 2D 2D 2D 2D 2D |FILE TYPE ------|
00000CD0: 2D 2D 2D 2D 2D 00 EB 14 D0 0C A1 42 24 3A 47 31 |-----......B$:G1|
00000CE0: B2 C6 28 42 24 AA C7 28 30 29 29 00 FB 14 E4 0C |..(B$..(0)).....|
00000CF0: 8B 47 31 B1 31 35 A7 47 31 B2 30 00 0B 15 F8 0C |.G1.15.G1.0.....|
00000D00: 47 31 24 B2 47 31 24 28 47 31 29 00 2A 15 0C 0D |G1$.G1$(G1).*...|
00000D10: 8B 47 31 B2 30 A7 81 49 B2 31 A4 35 3A A1 42 24 |.G1.0..I.1.5:.B$|
00000D20: 3A 82 49 3A 20 89 33 35 32 30 00 4F 15 20 0D 8F |:.I: .3520.O. ..|
00000D30: 20 47 45 54 20 59 45 41 52 2F 4D 4F 4E 54 48 2F | GET YEAR/MONTH/|
00000D40: 44 41 59 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |DAY -----------.|
00000D50: 6A 15 34 0D A1 42 24 3A 44 31 B2 C6 28 42 24 AA |j.4..B$:D1..(B$.|
00000D60: C7 28 30 29 29 3A 8F 20 59 52 00 85 15 48 0D A1 |.(0)):. YR...H..|
00000D70: 42 24 3A 44 32 B2 C6 28 42 24 AA C7 28 30 29 29 |B$:D2..(B$..(0))|
00000D80: 3A 8F 20 4D 4F 00 A0 15 5C 0D A1 42 24 3A 44 33 |:. MO...\..B$:D3|
00000D90: B2 C6 28 42 24 AA C7 28 30 29 29 3A 8F 20 44 41 |..(B$..(0)):. DA|
00000DA0: 00 C5 15 70 0D 8F 20 47 45 54 20 48 4F 55 52 2F |...p.. GET HOUR/|
00000DB0: 4D 49 4E 55 54 45 53 20 2D 2D 2D 2D 2D 2D 2D 2D |MINUTES --------|
00000DC0: 2D 2D 2D 2D 2D 00 E0 15 84 0D A1 42 24 3A 44 34 |-----......B$:D4|
00000DD0: B2 C6 28 42 24 AA C7 28 30 29 29 3A 8F 20 48 52 |..(B$..(0)):. HR|
00000DE0: 00 FB 15 98 0D A1 42 24 3A 44 35 B2 C6 28 42 24 |......B$:D5..(B$|
00000DF0: AA C7 28 30 29 29 3A 8F 20 4D 4D 00 1A 16 A2 0D |..(0)):. MM.....|
00000E00: 8B 20 44 31 B1 31 30 30 A7 44 31 B2 B5 28 44 31 |. D1.100.D1..(D1|
00000E10: AD 31 30 29 3A 89 33 34 39 30 00 39 16 A3 0D 8B |.10):.3490.9....|
00000E20: 20 44 32 B1 31 30 30 A7 44 32 B2 B5 28 44 32 AD | D2.100.D2..(D2.|
00000E30: 31 30 29 3A 89 33 34 39 31 00 58 16 A4 0D 8B 20 |10):.3491.X.... |
00000E40: 44 33 B1 31 30 30 A7 44 33 B2 B5 28 44 33 AD 31 |D3.100.D3..(D3.1|
00000E50: 30 29 3A 89 33 34 39 32 00 77 16 A5 0D 8B 20 44 |0):.3492.w.... D|
00000E60: 34 B1 31 30 30 A7 44 34 B2 B5 28 44 34 AD 31 30 |4.100.D4..(D4.10|
00000E70: 29 3A 89 33 34 39 33 00 96 16 A6 0D 8B 20 44 35 |):.3493...... D5|
00000E80: B1 31 30 30 A7 44 35 B2 B5 28 44 35 AD 31 30 29 |.100.D5..(D5.10)|
00000E90: 3A 89 33 34 39 34 00 BB 16 AC 0D 8F 20 50 52 4F |:.3494...... PRO|
00000EA0: 47 52 41 4D 20 53 49 5A 45 20 2D 2D 2D 2D 2D 2D |GRAM SIZE ------|
00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D6 16 C0 0D |-----------.....|
00000EC0: A1 42 24 3A 44 36 B2 C6 28 42 24 AA C7 28 30 29 |.B$:D6..(B$..(0)|
00000ED0: 29 3A 8F 20 53 5A 00 DE 16 D4 0D A1 42 24 00 F0 |):. SZ......B$..|
00000EE0: 16 E8 0D 8B 53 54 B2 36 34 20 A7 45 4F 49 B2 31 |....ST.64 .EOI.1|
00000EF0: 00 FB 16 FC 0D 9E 36 35 34 38 34 00 0C 17 10 0E |......65484.....|
00000F00: 8B 46 54 B3 31 32 38 A7 34 32 36 30 00 2B 17 24 |.FT.128.4260.+.$|
00000F10: 0E 8B 20 46 4C B2 31 A7 43 54 B2 43 54 AA 31 3A |.. FL.1.CT.CT.1:|
00000F20: 8B 43 54 B2 31 A7 8D 35 32 34 30 00 4F 17 38 0E |.CT.1..5240.O.8.|
00000F30: 8F 20 43 4F 4E 56 45 52 54 20 54 49 4D 45 20 54 |. CONVERT TIME T|
00000F40: 4F 20 31 32 20 48 4F 55 52 20 41 4D 2F 50 4D 00 |O 12 HOUR AM/PM.|
00000F50: 5C 17 4C 0E 41 50 24 B2 22 C1 CD 22 00 7A 17 60 |\.L.AP$."..".z.`|
00000F60: 0E 8B 20 44 34 B1 31 32 A7 44 34 B2 44 34 AB 31 |.. D4.12.D4.D4.1|
00000F70: 32 3A 41 50 24 B2 22 D0 CD 22 00 91 17 74 0E 8B |2:AP$.".."...t..|
00000F80: 20 44 34 B2 31 32 20 A7 20 41 50 24 B2 22 D0 CD | D4.12 . AP$."..|
00000F90: 22 00 B6 17 88 0E 8F 20 50 52 4F 47 52 41 4D 20 |"...... PROGRAM |
00000FA0: 53 49 5A 45 20 49 4E 20 4B 20 42 59 54 45 53 20 |SIZE IN K BYTES |
00000FB0: 2D 2D 2D 2D 2D 2D 00 E6 17 9C 0E 42 4B 24 B2 C4 |------.....BK$..|
00000FC0: 28 44 36 29 20 3A 42 4B 24 B2 C9 28 42 4B 24 2C |(D6) :BK$..(BK$,|
00000FD0: 33 29 20 3A 8B 44 36 B3 31 30 A7 42 4B 24 B2 22 |3) :.D6.10.BK$."|
00000FE0: 20 22 AA 42 4B 24 00 03 18 B0 0E 54 36 B2 54 36 | ".BK$.....T6.T6|
00000FF0: AA 44 36 20 3A 8F 20 54 4F 54 41 4C 20 42 4C 4F |.D6 :. TOTAL BLO|
00001000: 43 4B 53 00 1D 18 C4 0E 44 36 B2 B5 28 44 36 AD |CKS.....D6..(D6.|
00001010: 34 29 3A 8B 44 36 B2 30 A7 44 36 B2 31 00 3C 18 |4):.D6.0.D6.1.<.|
00001020: D8 0E 44 36 24 B2 C4 28 44 36 29 AA 22 CB 22 3A |..D6$..(D6).".":|
00001030: 44 36 24 B2 C9 28 44 36 24 2C 33 29 00 58 18 EC |D6$..(D6$,3).X..|
00001040: 0E 8B 20 C3 28 44 36 24 29 B2 32 A7 20 44 36 24 |.. .(D6$).2. D6$|
00001050: B2 22 20 22 AA 44 36 24 00 7D 18 00 0F 54 46 B2 |." ".D6$.}...TF.|
00001060: 54 46 AA 31 20 3A 8F 20 4E 55 4D 42 45 52 20 4F |TF.1 :. NUMBER O|
00001070: 46 20 46 49 4C 45 53 20 2D 2D 2D 2D 2D 00 A5 18 |F FILES -----...|
00001080: 14 0F 8B 20 47 31 24 B2 22 CE 4F 54 20 C7 45 4F |... G1$.".OT .EO|
00001090: 53 20 20 20 20 20 20 22 A7 9F 37 2C 34 2C 37 3A |S "..7,4,7:|
000010A0: 89 34 32 32 30 00 F1 18 28 0F 4D 30 24 B2 4E 55 |.4220...(.M0$.NU|
000010B0: 24 28 44 32 29 AA 22 2F 22 AA 4E 55 24 28 44 33 |$(D2)."/".NU$(D3|
000010C0: 29 AA 22 2F 22 AA 4E 55 24 28 44 31 29 AA 22 20 |)."/".NU$(D1)." |
000010D0: 22 AA 4E 55 24 28 44 34 29 AA 22 3A 22 AA 4E 55 |".NU$(D4).":".NU|
000010E0: 24 28 44 35 29 AA 41 50 24 3A 8F 20 44 54 2F 54 |$(D5).AP$:. DT/T|
000010F0: 4D 00 15 19 3C 0F 54 24 B2 4E 55 24 28 54 29 3A |M...<.T$.NU$(T):|
00001100: 53 24 B2 4E 55 24 28 53 29 3A 8F 20 54 52 41 43 |S$.NU$(S):. TRAC|
00001110: 4B 2F 53 45 43 00 3A 19 50 0F 8F 20 47 45 54 20 |K/SEC.:.P.. GET |
00001120: 47 45 4F 53 20 56 45 52 53 49 4F 4E 20 4E 55 4D |GEOS VERSION NUM|
00001130: 42 45 52 20 2D 2D 2D 2D 2D 2D 00 45 19 64 0F 47 |BER ------.E.d.G|
00001140: 33 24 B2 22 22 00 75 19 78 0F 9F 20 36 2C 38 2C |3$."".u.x.. 6,8,|
00001150: 36 2C 22 23 22 3A 98 31 35 2C 22 55 31 22 3B 36 |6,"#":.15,"U1";6|
00001160: 3B 30 3B 54 3B 53 3A 98 31 35 2C 22 42 2D 50 22 |;0;T;S:.15,"B-P"|
00001170: 3B 36 3B 38 39 00 88 19 8C 0F 97 20 37 38 31 2C |;6;89...... 781,|
00001180: 36 3A 9E 36 35 34 37 38 00 99 19 A0 0F 81 49 B2 |6:.65478......I.|
00001190: 38 39 A4 39 32 3A A1 42 24 00 A4 19 B4 0F 8D 35 |89.92:.B$......5|
000011A0: 31 36 30 20 00 C4 19 C8 0F 8B 20 41 B2 30 20 A7 |160 ...... A.0 .|
000011B0: 20 47 33 24 B2 47 33 24 AA 22 20 22 20 3A 89 34 | G3$.G3$." " :.4|
000011C0: 30 38 30 20 00 D5 19 DC 0F 47 33 24 B2 47 33 24 |080 .....G3$.G3$|
000011D0: AA C7 28 41 29 00 DC 19 F0 0F 82 49 00 F6 19 04 |..(A)......I....|
000011E0: 10 56 24 B2 C9 28 47 33 24 2C 34 29 3A A0 36 3A |.V$..(G3$,4):.6:|
000011F0: 9E 36 35 34 38 34 00 1A 1A 18 10 56 31 24 B2 C8 |.65484.....V1$..|
00001200: 28 56 24 2C 31 29 3A 8B 56 31 24 B3 B1 22 56 22 |(V$,1):.V1$.."V"|
00001210: A7 56 24 B2 22 20 20 20 20 22 00 25 1A 2C 10 9F |.V$." ".%.,..|
00001220: 37 2C 34 2C 37 00 4A 1A 40 10 8F 20 47 45 4F 53 |7,4,7.J.@.. GEOS|
00001230: 20 46 49 4C 45 53 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | FILES ---------|
00001240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 8F 1A 54 10 98 |----------...T..|
00001250: 37 2C 44 36 24 22 20 20 22 46 24 22 20 22 56 24 |7,D6$" "F$" "V$|
00001260: 22 20 22 46 54 24 22 20 22 47 31 24 22 20 22 4D |" "FT$" "G1$" "M|
00001270: 30 24 22 20 22 47 32 24 22 20 20 22 54 24 22 20 |0$" "G2$" "T$" |
00001280: 22 53 24 22 20 22 42 4B 24 3A 89 34 32 34 30 00 |"S$" "BK$:.4240.|
00001290: B4 1A 68 10 8F 20 4E 4F 4E 2D 47 45 4F 53 20 46 |..h.. NON-GEOS F|
000012A0: 49 4C 45 53 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ILES -----------|
000012B0: 2D 2D 2D 2D 00 F9 1A 7C 10 98 37 2C 44 36 24 22 |----...|..7,D6$"|
000012C0: 20 20 22 46 24 22 20 20 20 20 20 20 22 46 54 24 | "F$" "FT$|
000012D0: 22 20 22 47 31 24 22 20 20 20 20 20 20 20 20 20 |" "G1$" |
000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012F0: 20 20 20 20 20 22 42 4B 24 00 1E 1B 90 10 4C 4E | "BK$.....LN|
00001300: B2 4C 4E AA 31 20 3A 8B 20 4C 4E B1 4F 46 20 A7 |.LN.1 :. LN.OF .|
00001310: 20 8D 35 36 32 30 20 20 3A 8D 32 37 36 30 00 2C | .5620 :.2760.,|
00001320: 1B A4 10 46 B2 46 AA 31 20 3A A0 37 00 3F 1B B8 |...F.F.1 :.7.?..|
00001330: 10 97 20 37 38 31 2C 33 3A 9E 36 35 34 37 38 00 |.. 781,3:.65478.|
00001340: 58 1B CC 10 8B 46 AD 38 B3 B1 B5 28 46 AD 38 29 |X....F.8...(F.8)|
00001350: A7 A1 42 24 3A A1 42 24 00 69 1B E0 10 8B 45 4F |..B$:.B$.i....EO|
00001360: 49 B3 B1 31 A7 32 39 30 30 00 70 1B F4 10 A0 33 |I..1.2900.p....3|
00001370: 00 8D 1B 08 11 45 4F 49 B2 30 3A 8B 46 4C B3 B1 |.....EOI.0:.FL..|
00001380: 31 A7 8D 35 33 34 30 3A 89 32 39 30 30 00 A3 1B |1..5340:.2900...|
00001390: 1C 11 46 4C B2 30 3A 8B 43 54 B2 30 20 A7 8D 35 |..FL.0:.CT.0 ..5|
000013A0: 35 30 30 00 BF 1B 30 11 84 31 35 2C 45 4E 24 2C |500...0..15,EN$,|
000013B0: 45 4D 24 2C 45 54 24 2C 45 53 24 3A A0 31 35 00 |EM$,ET$,ES$:.15.|
000013C0: D1 1B 44 11 9E 36 35 34 38 34 3A 9F 37 2C 34 2C |..D..65484:.7,4,|
000013D0: 37 00 F6 1B 58 11 8F 20 55 53 45 44 20 26 20 46 |7...X.. USED & F|
000013E0: 52 45 45 20 42 59 54 45 53 20 2D 2D 2D 2D 2D 2D |REE BYTES ------|
000013F0: 2D 2D 2D 2D 2D 2D 00 0E 1C 6C 11 54 4B B2 B5 28 |------...l.TK..(|
00001400: 54 36 AD 34 29 3A 20 4B 54 B2 54 36 AD 34 00 21 |T6.4): KT.T6.4.!|
00001410: 1C 80 11 8B 20 54 4B B2 4B 54 20 A7 34 35 32 30 |.... TK.KT .4520|
00001420: 20 00 41 1C 94 11 4B 54 B2 4B 54 AB 54 4B 3A 20 | .A...KT.KT.TK: |
00001430: 8B 20 4B 54 B1 2E 34 39 A7 20 54 4B B2 54 4B AA |. KT..49. TK.TK.|
00001440: 31 00 73 1C A8 11 55 4B B2 54 4B 3A 54 4B B2 31 |1.s...UK.TK:TK.1|
00001450: 36 35 AB 54 4B 3A 54 4B 24 B2 C4 28 54 4B 29 3A |65.TK:TK$..(TK):|
00001460: 54 46 24 B2 C4 28 54 46 29 3A 55 4B 24 B2 C4 28 |TF$..(TF):UK$..(|
00001470: 55 4B 29 00 B8 1C BC 11 98 37 3A 98 37 2C 55 4B |UK)......7:.7,UK|
00001480: 24 22 20 CB 20 C2 59 54 45 53 20 D5 53 45 44 20 |$" . .YTES .SED |
00001490: 20 22 54 4B 24 22 20 CB 20 C2 59 54 45 53 20 C6 | "TK$" . .YTES .|
000014A0: 52 45 45 20 20 20 31 36 35 20 CB 20 C2 59 54 45 |REE 165 . .YTE|
000014B0: 53 20 D4 4F 54 41 4C 22 00 F6 1C D0 11 98 37 2C |S .OTAL"......7,|
000014C0: 22 D4 4F 54 41 4C 20 CE 55 4D 42 45 52 20 4F 46 |".OTAL .UMBER OF|
000014D0: 20 C6 49 4C 45 53 3A 22 54 46 24 22 20 20 20 20 | .ILES:"TF$" |
000014E0: D4 4F 54 41 4C 20 C2 4C 4F 43 4B 53 20 D5 53 45 |.OTAL .LOCKS .SE|
000014F0: 44 3A 20 22 54 36 00 0A 1D E4 11 4C 4E B2 4C 4E |D: "T6.....LN.LN|
00001500: AA 33 20 3A 8D 35 36 32 30 20 00 22 1D F8 11 A0 |.3 :.5620 ."....|
00001510: 37 20 3A 8F 20 43 4C 4F 53 45 20 50 52 49 4E 54 |7 :. CLOSE PRINT|
00001520: 45 52 00 46 1D 0C 12 99 A6 31 30 29 C7 28 35 29 |ER.F.....10).(5)|
00001530: 22 11 C1 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 |"..NOTHER DISK? |
00001540: 28 59 2F 4E 29 22 00 5C 1D 20 12 97 31 39 38 2C |(Y/N)".\. ..198,|
00001550: 30 3A 92 31 39 38 2C 31 3A A1 43 24 00 76 1D 34 |0:.198,1:.C$.v.4|
00001560: 12 8B 43 24 B3 B1 22 59 22 A7 35 36 38 30 20 3A |..C$.."Y".5680 :|
00001570: 8F 20 51 55 49 54 00 80 1D 48 12 89 31 37 38 30 |. QUIT...H..1780|
00001580: 00 A5 1D 5C 12 8F 20 2A 2A 2A 20 46 49 4C 45 20 |...\.. *** FILE |
00001590: 54 59 50 45 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TYPES **********|
000015A0: 2A 2A 2A 2A 2A 00 C3 1D 70 12 83 20 44 45 4C 2C |*****...p.. DEL,|
000015B0: 53 45 51 2C 50 52 47 2C 55 53 52 2C 52 45 4C 2C |SEQ,PRG,USR,REL,|
000015C0: 3F 3F 3F 00 E8 1D 84 12 8F 20 2A 2A 2A 20 47 45 |???...... *** GE|
000015D0: 4F 53 20 46 49 4C 45 20 53 54 52 55 43 54 55 52 |OS FILE STRUCTUR|
000015E0: 45 53 20 2A 2A 2A 2A 2A 00 03 1E 98 12 83 20 22 |ES *****...... "|
000015F0: D3 C5 D1 20 22 2C 22 D6 CC C9 D2 22 2C 22 55 4E |... ","....","UN|
00001600: 4B 4E 22 00 28 1E AC 12 8F 20 2A 2A 2A 20 47 45 |KN".(.... *** GE|
00001610: 4F 53 20 46 49 4C 45 20 54 59 50 45 53 20 2A 2A |OS FILE TYPES **|
00001620: 2A 2A 2A 2A 2A 2A 2A 2A 00 3F 1E C0 12 83 20 22 |********.?.... "|
00001630: CE 4F 54 20 C7 45 4F 53 20 20 20 20 20 20 22 00 |.OT .EOS ".|
00001640: 56 1E D4 12 83 20 22 C2 41 53 49 43 20 D0 52 4F |V.... ".ASIC .RO|
00001650: 47 52 41 4D 20 22 00 6D 1E E8 12 83 20 22 C1 53 |GRAM ".m.... ".S|
00001660: 53 45 4D 42 4C 59 20 D0 52 4F 47 20 22 00 84 1E |SEMBLY .ROG "...|
00001670: FC 12 83 20 22 C4 41 54 41 20 C6 49 4C 45 20 20 |... ".ATA .ILE |
00001680: 20 20 20 22 00 9B 1E 10 13 83 20 22 D3 59 53 54 | "...... ".YST|
00001690: 45 4D 20 C6 49 4C 45 20 20 20 22 00 B2 1E 24 13 |EM .ILE "...$.|
000016A0: 83 20 22 C4 45 53 4B 20 C1 43 43 45 53 53 4F 52 |. ".ESK .CCESSOR|
000016B0: 59 22 00 C9 1E 38 13 83 20 22 C1 50 50 4C 49 43 |Y"...8.. ".PPLIC|
000016C0: 41 54 49 4F 4E 20 20 20 22 00 E0 1E 4C 13 83 20 |ATION "...L.. |
000016D0: 22 C1 50 50 4C 2E 20 C4 41 54 41 20 20 20 20 22 |".PPL. .ATA "|
000016E0: 00 F7 1E 60 13 83 20 22 C6 4F 4E 54 20 C6 49 4C |...`.. ".ONT .IL|
000016F0: 45 20 20 20 20 20 22 00 0E 1F 74 13 83 20 22 D0 |E "...t.. ".|
00001700: 52 49 4E 54 45 52 20 C4 52 49 56 45 52 22 00 25 |RINTER .RIVER".%|
00001710: 1F 88 13 83 20 22 C9 4E 50 55 54 20 C4 52 49 56 |.... ".NPUT .RIV|
00001720: 45 52 20 20 22 00 3C 1F 9C 13 83 20 22 C4 49 53 |ER ".<.... ".IS|
00001730: 4B 20 C4 52 49 56 45 52 20 20 20 22 00 53 1F B0 |K .RIVER ".S..|
00001740: 13 83 20 22 D3 59 53 54 45 4D 20 C2 4F 4F 54 20 |.. ".YSTEM .OOT |
00001750: 20 20 22 00 6A 1F C4 13 83 20 22 D4 45 4D 50 4F | ".j.... ".EMPO|
00001760: 52 41 52 59 20 20 20 20 20 22 00 81 1F D8 13 83 |RARY "......|
00001770: 20 22 C1 55 54 4F 2D C5 58 45 43 55 54 45 20 20 | ".UTO-.XECUTE |
00001780: 22 00 98 1F EC 13 83 20 22 55 4E 4B 4E 4F 57 4E |"...... "UNKNOWN|
00001790: 20 20 20 20 20 20 20 22 00 BD 1F 00 14 8F 20 2A | "...... *|
000017A0: 2A 2A 20 47 45 54 20 41 20 42 59 54 45 20 2A 2A |** GET A BYTE **|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C5 1F |*************...|
000017C0: 14 14 A1 42 24 00 D8 1F 28 14 8B 42 24 B2 22 22 |...B$...(..B$.""|
000017D0: A7 42 24 B2 C7 28 30 29 00 E8 1F 3C 14 41 B2 C6 |.B$..(0)...<.A..|
000017E0: 28 42 24 29 AF 31 32 37 00 EE 1F 50 14 8E 00 13 |(B$).127...P....|
000017F0: 20 64 14 8F 20 46 49 4C 45 53 20 4F 4E 20 44 45 | d.. FILES ON DE|
00001800: 53 4B 54 4F 50 20 42 4F 52 44 45 52 20 2D 2D 2D |SKTOP BORDER ---|
00001810: 2D 2D 2D 00 25 20 78 14 9E 36 35 34 38 34 3A 9F |---.% x..65484:.|
00001820: 37 2C 34 2C 37 00 64 20 8C 14 98 37 2C C7 28 31 |7,4,7.d ...7,.(1|
00001830: 33 29 22 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 C6 |3)". . . . . . .|
00001840: 49 4C 45 53 20 4F 4E 20 C4 45 53 4B 54 4F 50 20 |ILES ON .ESKTOP |
00001850: C2 4F 52 44 45 52 20 2E 20 2E 20 2E 20 2E 20 2E |.ORDER . . . . .|
00001860: 20 2E 22 3B 00 94 20 A0 14 98 37 2C 22 20 2E 20 | .";.. ...7," . |
00001870: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 |. . . . . . . . |
00001880: 2E 20 2E 20 22 4F 54 24 22 20 22 4F 53 24 3B C7 |. . "OT$" "OS$;.|
00001890: 28 31 33 29 00 A5 20 B4 14 4C 4E B2 4C 4E AA 33 |(13).. ..LN.LN.3|
000018A0: 3A A0 37 3A 8E 00 CA 20 C8 14 8F 20 49 53 20 54 |:.7:... ... IS T|
000018B0: 48 45 52 45 20 41 20 42 4F 52 44 45 52 3F 20 2D |HERE A BORDER? -|
000018C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E4 20 DC 14 8B |----------.. ...|
000018D0: 20 4F 54 B1 33 35 20 B0 20 4F 54 B3 31 20 A7 34 | OT.35 . OT.1 .4|
000018E0: 34 30 30 20 00 EE 20 F0 14 53 4D B2 32 30 00 19 |400 .. ..SM.20..|
000018F0: 21 04 15 8B 4F 54 B1 31 37 A7 53 4D B2 31 38 3A |!...OT.17.SM.18:|
00001900: 8B 4F 54 B1 32 34 A7 53 4D B2 31 37 3A 8B 4F 54 |.OT.24.SM.17:.OT|
00001910: B1 33 30 A7 53 4D B2 31 36 00 33 21 18 15 8B 20 |.30.SM.16.3!... |
00001920: 4F 53 B1 53 4D 20 B0 20 4F 53 B3 30 20 A7 34 34 |OS.SM . OS.0 .44|
00001930: 30 30 20 00 42 21 2C 15 9F 33 2C 38 2C 33 2C 22 |00 .B!,..3,8,3,"|
00001940: 23 22 00 67 21 40 15 98 31 35 2C 22 55 31 3A 22 |#".g!@..15,"U1:"|
00001950: 33 3B 30 3B 4F 54 3B 4F 53 3A 98 31 35 2C 22 42 |3;0;OT;OS:.15,"B|
00001960: 2D 50 3A 33 2C 32 22 00 77 21 54 15 46 4C B2 31 |-P:3,2".w!T.FL.1|
00001970: 3A 43 54 B2 30 3A 8E 00 9C 21 68 15 8F 20 2D 2D |:CT.0:...!h.. --|
00001980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 AE 21 7C |------------..!||
000019A0: 15 9E 36 35 34 38 34 3A 9F 37 2C 34 2C 37 00 ED |..65484:.7,4,7..|
000019B0: 21 90 15 98 37 2C C7 28 31 33 29 22 2E 20 2E 20 |!...7,.(13)". . |
000019C0: 2E 20 2E 20 2E 20 2E 20 CE 4F 20 C6 49 4C 45 53 |. . . . .O .ILES|
000019D0: 20 4F 4E 20 54 48 45 20 C2 4F 52 44 45 52 2E 20 | ON THE .ORDER. |
000019E0: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 22 3B 00 1D 22 |. . . . . .";.."|
000019F0: A4 15 98 37 2C 22 20 2E 20 2E 20 2E 20 2E 20 2E |...7," . . . . .|
00001A00: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 22 4F 54 | . . . . . . "OT|
00001A10: 24 22 20 22 4F 53 24 3B C7 28 31 33 29 00 2E 22 |$" "OS$;.(13).."|
00001A20: B8 15 4C 4E B2 4C 4E AA 33 3A A0 37 3A 8E 00 34 |..LN.LN.3:.7:..4|
00001A30: 22 CC 15 8E 00 59 22 E0 15 8F 20 4E 4F 54 20 47 |"....Y"... NOT G|
00001A40: 45 4F 53 20 44 49 53 4B 20 4E 4F 20 42 4F 52 44 |EOS DISK NO BORD|
00001A50: 45 52 2D 2D 2D 2D 2D 2D 2D 00 7E 22 F4 15 8F 20 |ER-------.~"... |
00001A60: 46 49 4E 49 53 48 20 50 41 47 45 20 2D 2D 2D 2D |FINISH PAGE ----|
00001A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 99 |--------------..|
00001A80: 22 08 16 4F 56 B2 50 4C AB 4C 4E AA 31 20 3A 81 |"..OV.PL.LN.1 :.|
00001A90: 20 49 B2 31 20 A4 20 4F 56 00 A8 22 1C 16 98 37 | I.1 . OV.."...7|
00001AA0: 20 3A 82 20 49 20 3A 8E 00 CD 22 30 16 8F 20 45 | :. I :..."0.. E|
00001AB0: 4E 44 20 50 52 4F 47 52 41 4D 20 26 20 52 45 54 |ND PROGRAM & RET|
00001AC0: 55 52 4E 20 54 4F 20 47 45 4F 53 20 2A 00 03 23 |URN TO GEOS *..#|
00001AD0: 44 16 99 22 11 11 D0 52 45 53 53 20 22 C7 28 31 |D.."...RESS ".(1|
00001AE0: 38 29 22 C2 22 C7 28 31 34 36 29 22 20 54 4F 20 |8)".".(146)" TO |
00001AF0: 52 45 54 55 52 4E 20 54 4F 20 C2 41 53 49 43 20 |RETURN TO .ASIC |
00001B00: 4F 52 22 00 2C 23 58 16 99 22 11 C9 4E 53 45 52 |OR".,#X.."..NSER|
00001B10: 54 20 C7 C5 CF D3 A0 C2 4F 4F 54 20 C4 49 53 4B |T ......OOT .ISK|
00001B20: 20 49 4E 20 44 52 49 56 45 20 38 22 00 65 23 6C | IN DRIVE 8".e#l|
00001B30: 16 99 22 41 4E 44 20 50 52 45 53 53 20 22 C7 28 |.."AND PRESS ".(|
00001B40: 31 38 29 22 D2 45 54 55 52 4E 22 C7 28 31 34 36 |18)".ETURN".(146|
00001B50: 29 22 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |)" TO RETURN TO |
00001B60: C7 C5 CF D3 22 00 79 23 80 16 A1 43 24 3A 8B 43 |....".y#...C$:.C|
00001B70: 24 B2 22 22 A7 35 37 36 30 00 8F 23 94 16 8B 43 |$."".5760..#...C|
00001B80: 24 B2 22 42 22 A7 20 99 22 93 22 3A 80 3A 90 00 |$."B". .".":.:..|
00001B90: A3 23 A8 16 8B 43 24 B3 B1 C7 28 31 33 29 A7 35 |.#...C$...(13).5|
00001BA0: 37 36 30 00 B0 23 BC 16 9E 34 39 31 35 32 3A A2 |760..#...49152:.|
00001BB0: 00 00 00 |... |
..&....*******************************.K
....** GEOLIST V2.2 ***.P...
.** MODIFIED VERSION OF ***...$..**
GEOLIST V0.9 FROM MIKE ***...8..** SE
LLERS (MIK55)... ***...L..** MODIF
IED BY H. DEWAYNE ***...`..** ("HARO
LDD") 12/28/87 ***.).T..**************
*****************.B.... 644,128:. 56,126
:..L.... G1$(16),G2$(3),X1(5),X1$(5),NU$
(99).~.... G(14)G(147)...D.. GET GEOS DA
TE & TIME----------...X.PK.34069.J.... I
.1.5:X1(I).B(PK.I).....X1$(I).D(X1(I)):X
1$(I).I(X1$(I),2)......I...(.X2$.H(X1$(3
),1) :X3$.I(X1$(3),1).:.<.. X2$." ".X1$(
3)."0".X3$._.P.X4$.X1$(2)."/".X1$(3)."/"
.X1$(1)...D.X2$.H(X1$(5),1) :X3$.I(X1$(5
),1)...X.. X2$." ".X1$(5)."0".X3$.....X5
$.X1$(4).":".X1$(5).Z. .X0$.H(X6$,1) :XA
$.I(X6$,1)...... X1(2).1.X1(2).12.X4$."
":X5$." ".1.H.. INITIALIZE --
-----------------.V...PL.66:OF.60:LN.0:P
G.0 :. PAGING-.~....I.0.5:.FT$(I):.I:.I.
0.2:.G2$(I):.I......I.0.15:.G1$(I):.I...
...I.0.79:LN$.LN$."-":.I...,.. I.10.99.S
.@.NU$(I).I(D(I),2).Z.T..I...H.. I.0.9..
.|.BL$(I).I(D(I),1).#...NU$(I)."0".BL$(I
):BL$(I)." ".BL$(I).*....I.Y...H1$."SIZE
FILE NAME VERS TYP GEOS TYPE
DATE TIME STR "...L.H2$." TR
SC BLKS". ...HD$.H1$.H2$.E.... RESTART
POINT ---------------.....DN$."":ID$."":
FT$."":TF.0:TK.0:T6.0:F.0:PG.0:LN.0:EOI.
0:FL.0:CT.0...... G(14)G(147).<.0...10)"
GEOLIST V2.1 - 1541".`.D...8)"INSERT GEO
S DISK IN DRIVE"...X...8)"PRESS "G(18)"R
ETURN"G(146)" TO CONTINUE,".B.L...10)"
OR "G(18)"F7"G(146)" TO CANCEL ".V....
C$:.C$."".1920......C$.G(136).4620 :. CA
NCEL......C$..G(13).1920.&....7,4,7: 7:.
STATUS.0.2040.X.P..:.:..11)G(28)G(18)"P
RINTER NOT READY!"G(146).O....I.0.5000:.
I:.4620......I.0.3:.G(17):.I:..13)G(5)"P
ROCESSING...".V....15,8,15:.15,"I0":.15,
EN$,EM$,ET$,ES$:.EN$."00".2140... ..I.0.
2:.G(17):.I:.EN$", "EM$", "ET$", "ES$...
4. 15:..4.H.. *** BLOCKS FREE ----------
----.E.\..15,"M-R"G(250)G(2)G(3):.#15,B$
:L.F(B$.G(0))...P..#15,B$:.#15,B$:H.F(B$
.G(0)):BF.L.(H.256)......3,8,3,"$0,P,R".
..... 781,3:.65478.Q....B$:DOS.F(B$.G(0)
)......I.3.143:.B$:.I...T..I.144.159....
..5140:DN$.DN$.G(A)......I......B$:.B$.-
.$..I.162.163.D.8..5140:ID$.ID$.G(A).K.L
..I.A.`..I.164.170:.B$:.I.W.T..B$:OT.F(B
$.G(0)).....OT$.NU$(OT)......B$:OS.F(B$.
G(0)).....OS$.NU$(OS).D.D.GF$."":. I.173
.188...X..5140 :GF$.GF$.G(A)...... I....
..B$:B1.F(B$.G(0))......I.190.255:.B$:.I
.-.(.B2$."GEOS WORK DISK ".Q.<..B1.66
.B2$."GEOS BOOT DISK ".U.P..B1.80.B2$
."GEOS APPLICATION "...D..OT.0.B2$."NOT
GEOS TYPE DISK":GF$." ".
P.X.DP$."OFF":.DOS..65.DP$."ON "......65
484... ..7,4,7:.2760: 7:.2900...... PRIN
T HEADINGS ---------------.,.H.PG.PG.1 :
LN.7.G....7,"
GEOLIST V2.2":.7......7,"DISK NAM
E: "DN$" ID: "ID$" "X4$" "X5$"
PAGE: "PG......7,B2$" "GF$" DOS WRI
TE PROTECT "DP$" BLOCKS FREE:"BF:.7...
...7,HD$...,..7,LN$ :..+.@.. GET DOS FIL
E TYPE ------------.>.T.. 781,3:.65478.B
.H..B$:FT.F(B$.G(0)):FT$.FT$(7.FT)...|.W
P.(64.FT):.WP.64.WP$."<"...... WP.0.WP$.
" ".....FT$.FT$.WP$......B$:.B$.T.L.. GE
T FILE NAME ----------------.....F$.""..
....I.5.20......5140 .....F$.F$.G(A):.I.
,.0.. GET TRACK & SECTOR -----------.A.D
..B$:T.F(B$.G(0)).V.X..B$:S.F(B$.G(0)).{
.L.. GET GEOS FILE STRUCTURE ------.....
.B$:G2.F(B$.G(0)). ....G2.2.G2.2.....G2$
.G2$(G2).U.... GET GEOS FILE TYPE ------
-----...P..B$:G1.F(B$.G(0))......G1.15.G
1.0.....G1$.G1$(G1).*....G1.0..I.1.5:.B$
:.I: .3520.O. .. GET YEAR/MONTH/DAY ----
-------.J.4..B$:D1.F(B$.G(0)):. YR...H..
B$:D2.F(B$.G(0)):. MO. .\..B$:D3.F(B$.G(
0)):. DA.E.P.. GET HOUR/MINUTES --------
-----......B$:D4.F(B$.G(0)):. HR......B$
:D5.F(B$.G(0)):. MM...... D1.100.D1..(D1
.10):.3490.9.... D2.100.D2..(D2.10):.349
1.X.... D3.100.D3..(D3.10):.3492.W.... D
4.100.D4..(D4.10):.3493...... D5.100.D5.
.(D5.10):.3494...... PROGRAM SIZE ------
-----------.V....B$:D6.F(B$.G(0)):. SZ..
.T..B$......ST.64 .EOI.1......65484.....
.FT.128.4260.+.$.. FL.1.CT.CT.1:.CT.1..5
240.O.8.. CONVERT TIME TO 12 HOUR AM/PM.
\.L.AP$."AM".Z.`.. D4.12.D4.D4.12:AP$."P
M"...T.. D4.12 . AP$."PM"...... PROGRAM
SIZE IN K BYTES ------.....BK$.D(D6) :BK
$.I(BK$,3) :.D6.10.BK$." ".BK$.....T6.T6
.D6 :. TOTAL BLOCKS...D.D6..(D6.4):.D6.0
.D6.1.<.X.D6$.D(D6)."K":D6$.I(D6$,3).X..
.. C(D6$).2. D6$." ".D6$.}...TF.TF.1 :.
NUMBER OF FILES -----...... G1$."NOT GEO
S "..7,4,7:.4220...(.M0$.NU$(D2)."/
".NU$(D3)."/".NU$(D1)." ".NU$(D4).":".NU
$(D5).AP$:. DT/TM...<.T$.NU$(T):S$.NU$(S
):. TRACK/SEC.:.P.. GET GEOS VERSION NUM
BER ------.E.D.G3$."".U.X.. 6,8,6,"#":.1
5,"U1";6;0;T;S:.15,"B-P";6;89...... 781,
6:.65478... ..I.89.92:.B$......5160 .D.H
.. A.0 . G3$.G3$." " :.4080 .U...G3$.G3$
.G(A)......I.....V$.I(G3$,4): 6:.65484..
...V1$.H(V$,1):.V1$.."V".V$." ".%.,..
7,4,7.J.@.. GEOS FILES -----------------
--...T..7,D6$" "F$" "V$" "FT$" "G1$" "M
0$" "G2$" "T$" "S$" "BK$:.4240...H.. NO
N-GEOS FILES ---------------...|..7,D6$"
"F$" "FT$" "G1$"
"BK$.....LN.LN.1 :. LN.OF .
.5620 :.2760.,...F.F.1 : 7.?.... 781,3
:.65478.X.L..F.8...(F.8)..B$:.B$.I....EO
I..1.2900.P... 3.....EOI.0:.FL..1..5340:
.2900.....FL.0:.CT.0 ..5500...0..15,EN$,
EM$,ET$,ES$: 15.Q.D..65484:.7,4,7...X..
USED & FREE BYTES ------------...L.TK..(
T6.4): KT.T6.4.!.... TK.KT .4520 .A...KT
.KT.TK: . KT..49. TK.TK.1.S...UK.TK:TK.1
65.TK:TK$.D(TK):TF$.D(TF):UK$.D(UK).....
.7:.7,UK$" K BYTES USED "TK$" K BYTES F
REE 165 K BYTES TOTAL"...P..7,"TOTAL N
UMBER OF FILES:"TF$" TOTAL BLOCKS USE
D: "T6.....LN.LN.3 :.5620 ."... 7 :. CLO
SE PRINTER.F.....10)G(5)".ANOTHER DISK?
(Y/N)".\. ..198,0:.198,1:.C$.V.4..C$.."Y
".5680 :. QUIT...H..1780...\.. *** FILE
TYPES ***************.C.P.. DEL,SEQ,PRG,
USR,REL,???...... *** GEOS FILE STRUCTUR
ES *****...... "SEQ ","VLIR","UNKN".(...
. *** GEOS FILE TYPES **********.?.... "
NOT GEOS ".V.T.. "BASIC PROGRAM ".M
.... "ASSEMBLY PROG "...... "DATA FILE
"...... "SYSTEM FILE "...$.. "DESK
ACCESSORY".I.8.. "APPLICATION "...L..
"APPL. DATA "...`.. "FONT FILE ".
..T.. "PRINTER DRIVER".%.... "INPUT DRIV
ER ".<.... "DISK DRIVER ".S.... "SYST
EM BOOT ".J.D.. "TEMPORARY "...X..
"AUTO-EXECUTE "...... "UNKNOWN "
...... *** GET A BYTE ***************.E.
...B$.X.(..B$."".B$.G(0)...<.A.F(B$).127
...P.... D.. FILES ON DESKTOP BORDER ---
---.% X..65484:.7,4,7.D ...7,G(13)". . .
. . . FILES ON DESKTOP BORDER . . . . .
.";.. ..7," . . . . . . . . . . . "OT$
" "OS$;G(13).. ..LN.LN.3: 7:..J H.. IS T
HERE A BORDER? -----------.. ... OT.35 .
OT.1 .4400 .. ..SM.20..!...OT.17.SM.18:
.OT.24.SM.17:.OT.30.SM.16.3!... OS.SM .
OS.0 .4400 .B!,..3,8,3,"#".G!@..15,"U1:"
3;0;OT;OS:.15,"B-P:3,2".W!T.FL.1:CT.0:..
.!H.. ------------------------------..!|
..65484:.7,4,7..!...7,G(13)". . . . . .
NO FILES ON THE BORDER. . . . . . .";.."
...7," . . . . . . . . . . . "OT$" "OS$;
G(13).."..LN.LN.3: 7:..4"L...Y"... NOT G
EOS DISK NO BORDER-------.~"... FINISH P
AGE ------------------.."..OV.PL.LN.1 :.
I.1 . OV.."...7 :. I :..M"0.. END PROGR
AM & RETURN TO GEOS *..#D.."..PRESS "G(1
8)"B"G(146)" TO RETURN TO BASIC OR".,#X.
.".INSERT GEOS BOOT DISK IN DRIVE 8".E#L
.."AND PRESS "G(18)"RETURN"G(146)" TO RE
TURN TO GEOS".Y#...C$:.C$."".5760..#...C
$."B". .".":.:...#...C$..G(13).5760..#..
.49152:....
> CLICK IMAGE PREVIEW FOR FULL MODAL