DISCAT.C
FILE INFORMATION
FILENAME(S): DISCAT.C
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-11-30 17:31:30
APPEARS ON: 2 disk(s)
FILE HASH
509e8dc300b5299e5be6eea4e340c2dce06909dac597a22bd701945258dcae46
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARCADIAN | DISCAT.C | PRG | UK CD | 25 | 0 | DOWNLOAD FILE |
| MORE MARCH 3 C | DISCAT.C | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 00 00 8F 20 47 4F 54 4F 20 30 20 54 |..(.... GOTO 0 T|
00000010: 4F 20 52 45 45 4E 54 45 52 20 57 49 54 48 4F 55 |O REENTER WITHOU|
00000020: 54 20 52 45 4C 4F 41 44 00 4F 08 05 00 53 24 B2 |T RELOAD.O...S$.|
00000030: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000040: 20 20 20 20 20 20 20 20 20 20 20 22 AA 22 22 00 | "."".|
00000050: 6A 08 06 00 53 42 B2 35 33 32 38 30 3A 53 43 B2 |j...SB.53280:SC.|
00000060: 35 33 32 38 31 3A 99 22 90 22 00 81 08 0A 00 8B |53281:."."......|
00000070: C2 28 35 30 33 32 36 29 B2 31 39 38 A7 36 30 37 |.(50326).198.607|
00000080: 35 00 8B 08 0F 00 89 36 30 30 30 00 B2 08 14 00 |5......6000.....|
00000090: 8F 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |.###############|
000000A0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000000B0: 23 23 00 D9 08 15 00 8F 23 20 20 20 20 20 20 20 |##......# |
000000C0: 20 20 4A 49 4D 20 53 4D 49 54 48 20 20 20 20 20 | JIM SMITH |
000000D0: 20 20 20 20 20 20 20 20 23 00 00 09 16 00 8F 23 | #......#|
000000E0: 20 20 20 20 20 20 20 20 20 31 31 31 20 45 4D 49 | 111 EMI|
000000F0: 4C 59 20 53 54 52 45 45 54 20 20 20 20 20 20 23 |LY STREET #|
00000100: 00 27 09 17 00 8F 23 20 20 20 20 20 20 20 20 20 |.'....# |
00000110: 4F 52 49 4C 4C 49 41 20 4C 33 56 20 35 56 32 20 |ORILLIA L3V 5V2 |
00000120: 20 20 20 20 20 20 23 00 4E 09 18 00 8F 23 20 20 | #.N....# |
00000130: 20 20 20 20 20 20 20 33 32 35 2D 36 32 32 37 20 | 325-6227 |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 00 75 | #.u|
00000150: 09 19 00 8F 23 47 52 45 41 54 20 57 48 49 54 45 |....#GREAT WHITE|
00000160: 20 4E 4F 52 54 48 20 43 4F 4D 50 55 54 45 52 20 | NORTH COMPUTER |
00000170: 43 4C 55 42 23 00 9C 09 1A 00 8F 23 20 44 49 53 |CLUB#......# DIS|
00000180: 43 41 54 2D 41 20 31 35 34 31 20 44 49 53 4B 20 |CAT-A 1541 DISK |
00000190: 55 54 49 4C 49 54 59 20 54 4F 20 23 00 C3 09 1B |UTILITY TO #....|
000001A0: 00 8F 23 46 4F 52 4D 20 41 20 4C 49 42 52 41 52 |..#FORM A LIBRAR|
000001B0: 59 20 4F 46 20 50 52 4F 47 52 41 4D 20 4E 41 4D |Y OF PROGRAM NAM|
000001C0: 45 53 23 00 EA 09 20 00 8F 23 23 23 23 23 23 23 |ES#... ..#######|
000001D0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000001E0: 23 23 23 23 23 23 23 23 23 23 00 0F 0A 4F 00 8F |##########...O..|
000001F0: 2A 2A 2A 2A 2A 2A 53 43 52 45 45 4E 20 46 4F 52 |******SCREEN FOR|
00000200: 4D 41 54 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |MAT************.|
00000210: 4F 0A 50 00 97 53 42 2C 43 42 3A 97 53 43 2C 43 |O.P..SB,CB:.SC,C|
00000220: 53 3A 99 22 93 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |S:."............|
00000230: C3 C3 C3 C3 C3 44 49 53 43 41 54 C3 C3 C3 C3 C3 |.....DISCAT.....|
00000240: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 3B 00 |.............";.|
00000250: 80 0A 51 00 99 22 C2 20 20 20 20 20 20 20 20 20 |..Q..". |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 22 3B | .";|
00000280: 00 B7 0A 52 00 99 22 CA C3 C3 C3 C3 C3 C3 C3 C3 |...R..".........|
00000290: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000002A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 |..............."|
000002B0: 3B 48 4C 24 3B 3A 8E 00 DD 0A 63 00 8F 2A 2A 2A |;HL$;:....c..***|
000002C0: 4D 41 4B 45 20 41 20 53 43 52 45 45 4E 20 48 45 |MAKE A SCREEN HE|
000002D0: 41 44 45 52 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 0A |ADER*********...|
000002E0: 64 00 43 42 B2 31 35 3A 43 53 B2 31 32 00 2F 0B |d.CB.15:CS.12./.|
000002F0: 69 00 48 4C 24 B2 22 13 11 1D 20 12 43 92 41 54 |i.HL$."... .C.AT|
00000300: 4C 47 20 12 44 92 53 50 4C 41 59 20 12 45 92 58 |LG .D.SPLAY .E.X|
00000310: 49 54 20 12 48 92 45 4C 50 20 12 50 92 52 4E 54 |IT .H.ELP .P.RNT|
00000320: 20 12 24 92 44 49 52 20 12 53 92 52 43 48 22 00 | .$.DIR .S.RCH".|
00000330: 53 0B 78 00 8D 38 30 3A 99 48 4C 24 3A 99 22 11 |S.x..80:.HL$:.".|
00000340: 11 11 20 20 20 20 20 20 43 4F 4D 4D 41 4E 44 3F |.. COMMAND?|
00000350: 22 3A 8E 00 78 0B C7 00 8F 2A 2A 2A 2A 43 41 54 |":..x....****CAT|
00000360: 41 4C 4F 47 20 53 45 4C 45 43 54 45 44 2A 2A 2A |ALOG SELECTED***|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 00 88 0B C8 00 43 42 B2 |********.....CB.|
00000380: 31 35 3A 43 53 B2 31 32 00 C0 0B CD 00 48 4C 24 |15:CS.12.....HL$|
00000390: B2 22 13 11 1D 20 20 20 20 20 20 20 20 20 20 43 |."... C|
000003A0: 41 54 41 4C 4F 47 20 46 55 4E 43 54 49 4F 4E 20 |ATALOG FUNCTION |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 38 30 | ":.80|
000003C0: 00 E7 0B D2 00 99 22 11 11 11 1D 1D 20 20 20 20 |......"..... |
000003D0: 20 20 20 20 20 20 20 20 43 41 54 41 4C 4F 47 3F | CATALOG?|
000003E0: 20 28 59 2F 4E 29 22 00 FA 0B D4 00 A1 59 24 3A | (Y/N)"......Y$:|
000003F0: 8B 59 24 B2 22 22 A7 32 31 32 00 09 0C D5 00 8B |.Y$."".212......|
00000400: 59 24 B3 B1 22 59 22 A7 8E 00 2D 0C DB 00 8F 2A |Y$.."Y"...-....*|
00000410: 2A 20 20 46 4F 52 4D 20 49 44 20 41 4E 44 20 42 |* FORM ID AND B|
00000420: 4C 4F 43 4B 53 20 46 52 45 45 20 2A 2A 00 5D 0C |LOCKS FREE **.].|
00000430: DC 00 99 22 11 20 49 4E 53 45 52 54 20 44 49 53 |...". INSERT DIS|
00000440: 4B 20 46 4F 52 20 43 41 54 41 4C 4F 47 20 41 4E |K FOR CATALOG AN|
00000450: 44 20 48 49 54 20 41 20 4B 45 59 2E 22 00 70 0C |D HIT A KEY.".p.|
00000460: E6 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 33 30 |...A$:.A$."".230|
00000470: 00 A6 0C F0 00 9F 32 2C 38 2C 32 2C 22 23 22 3A |......2,8,2,"#":|
00000480: 8D 33 30 30 3A 98 31 35 2C 22 55 31 22 3B 32 3B |.300:.15,"U1";2;|
00000490: 30 3B 31 38 3B 30 3A 98 31 35 2C 22 42 2D 50 3A |0;18;0:.15,"B-P:|
000004A0: 22 32 3B 31 36 32 00 D3 0C FA 00 A1 23 32 2C 49 |"2;162......#2,I|
000004B0: 24 2C 44 24 3A 49 44 24 B2 49 24 AA 44 24 3A A0 |$,D$:ID$.I$.D$:.|
000004C0: 32 3A 9F 31 2C 38 2C 30 2C 22 24 30 3A 25 25 32 |2:.1,8,0,"$0:%%2|
000004D0: 5E 21 22 00 F9 0C FF 00 43 48 24 B2 22 20 20 20 |^!".....CH$." |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 AA | ".|
000004F0: 22 22 3A 9E 35 30 33 32 33 00 1F 0D 04 01 44 48 |"":.50323.....DH|
00000500: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000510: 20 20 20 20 22 AA 22 22 3A 9E 35 30 33 32 33 00 | "."":.50323.|
00000520: 4C 0D 06 01 48 24 B2 C8 28 43 48 24 2C 31 36 29 |L...H$..(CH$,16)|
00000530: AA 49 44 24 AA C4 28 C2 28 32 35 31 29 AA 32 35 |.ID$..(.(251).25|
00000540: 36 AC C2 28 32 35 32 29 29 3A A0 31 00 92 0D 09 |6..(252)):.1....|
00000550: 01 99 22 11 11 20 43 55 52 52 45 4E 54 20 44 49 |..".. CURRENT DI|
00000560: 53 4B 3A 20 22 48 24 3A 99 22 11 11 20 20 20 53 |SK: "H$:.".. S|
00000570: 45 41 52 43 48 49 4E 47 20 22 3B 4E 48 3B 22 20 |EARCHING ";NH;" |
00000580: 48 45 41 44 45 52 53 20 46 4F 52 20 4D 41 54 43 |HEADERS FOR MATC|
00000590: 48 22 00 AF 0D 0E 01 81 43 54 B2 31 A4 4E 48 3A |H"......CT.1.NH:|
000005A0: 8B 48 24 B2 48 46 24 28 43 54 29 A7 32 39 30 00 |.H$.HF$(CT).290.|
000005B0: BE 0D 12 01 82 3A 81 43 54 B2 31 A4 4E 48 00 F4 |.....:.CT.1.NH..|
000005C0: 0D 13 01 8B 49 44 24 B2 CA 28 48 46 24 28 43 54 |....ID$..(HF$(CT|
000005D0: 29 2C 31 37 2C 32 29 A7 99 22 11 20 20 20 20 20 |),17,2)..". |
000005E0: 49 44 20 4D 41 54 43 48 20 46 4F 55 4E 44 22 3A |ID MATCH FOUND":|
000005F0: 89 32 39 37 00 1A 0E 15 01 8F 2A 2A 2A 2A 2A 2A |.297......******|
00000600: 41 50 50 45 4E 44 20 4E 45 57 20 48 45 41 44 45 |APPEND NEW HEADE|
00000610: 52 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 45 0E 16 01 82 |R*********.E....|
00000620: 3A 4E 48 B2 4E 48 AA 31 3A 48 46 24 28 4E 48 29 |:NH.NH.1:HF$(NH)|
00000630: B2 48 24 3A 48 46 24 28 30 29 B2 C4 28 4E 48 29 |.H$:HF$(0)..(NH)|
00000640: 3A 8D 36 30 30 00 84 0E 1F 01 99 22 11 20 20 20 |:.600......". |
00000650: 20 20 53 4F 52 54 49 4E 47 20 46 49 4C 45 53 22 | SORTING FILES"|
00000660: 3A 9E 34 39 31 35 32 2C 4E 48 2C 48 46 24 28 31 |:.49152,NH,HF$(1|
00000670: 29 3A 9E 34 39 31 35 32 2C 4E 46 2C 4D 46 24 28 |):.49152,NF,MF$(|
00000680: 31 29 3A 8E 00 B3 0E 21 01 8F 2A 2A 20 20 43 55 |1):....!..** CU|
00000690: 52 52 45 4E 54 20 48 45 41 44 45 52 20 49 53 20 |RRENT HEADER IS |
000006A0: 49 44 45 4E 54 49 43 41 4C 20 4D 41 54 43 48 20 |IDENTICAL MATCH |
000006B0: 20 2A 2A 00 E6 0E 22 01 99 22 11 11 20 20 44 49 | **..."..".. DI|
000006C0: 53 4B 20 49 44 20 41 4E 44 20 42 4C 4F 43 4B 53 |SK ID AND BLOCKS|
000006D0: 2D 46 52 45 45 20 43 4F 55 4E 54 20 49 4E 44 49 |-FREE COUNT INDI|
000006E0: 43 41 54 45 22 3B 00 15 0F 23 01 99 22 20 20 54 |CATE";...#.." T|
000006F0: 48 41 54 20 54 48 49 53 20 44 49 53 4B 20 48 41 |HAT THIS DISK HA|
00000700: 53 20 4E 4F 54 20 43 48 41 4E 47 45 44 20 53 49 |S NOT CHANGED SI|
00000710: 4E 43 45 20 22 00 37 0F 24 01 99 22 20 20 20 20 |NCE ".7.$.." |
00000720: 20 20 20 20 20 20 20 20 49 54 20 57 41 53 20 4C | IT WAS L|
00000730: 4F 47 47 45 44 2E 22 00 7D 0F 26 01 99 22 11 20 |OGGED.".}.&..". |
00000740: 20 20 20 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 | DO YOU WANT|
00000750: 20 49 54 20 4C 4F 47 47 45 44 20 41 47 41 49 4E | IT LOGGED AGAIN|
00000760: 3F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |? |
00000770: 20 20 20 20 20 20 20 3C 59 2F 4E 3E 22 00 90 0F | <Y/N>"...|
00000780: 27 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 39 35 |'..A$:.A$."".295|
00000790: 00 9F 0F 28 01 8B 41 24 B3 B1 22 59 22 A7 8E 00 |...(..A$.."Y"...|
000007A0: DB 0F 29 01 48 46 24 28 43 54 29 B2 48 24 3A 8D |..).HF$(CT).H$:.|
000007B0: 35 30 30 3A 8D 36 30 30 3A 99 22 11 20 20 20 20 |500:.600:.". |
000007C0: 53 4F 52 54 49 4E 47 22 3A 9E 34 39 31 35 32 2C |SORTING":.49152,|
000007D0: 4E 46 2C 4D 46 24 28 31 29 3A 8E 00 01 10 2B 01 |NF,MF$(1):....+.|
000007E0: 8F 2A 2A 2A 2A 45 52 52 4F 52 20 54 52 41 50 50 |.****ERROR TRAPP|
000007F0: 49 4E 47 20 52 4F 55 54 49 4E 45 53 2A 2A 2A 2A |ING ROUTINES****|
00000800: 2A 00 1C 10 2C 01 84 31 35 2C 45 2C 47 24 2C 4C |*...,..15,E,G$,L|
00000810: 24 2C 4B 24 3A 8B 45 B3 32 30 A7 8E 00 45 10 36 |$,K$:.E.20...E.6|
00000820: 01 8B 45 B2 37 34 A7 99 22 20 20 20 20 20 20 20 |..E.74.." |
00000830: 44 49 53 4B 20 4E 4F 54 20 50 52 45 53 45 4E 54 |DISK NOT PRESENT|
00000840: 22 3A 90 3A 8E 00 5B 10 40 01 99 45 3B 47 24 3B |":.:..[.@..E;G$;|
00000850: 4C 24 3B 4B 24 3A A0 31 35 3A 80 00 7F 10 8F 01 |L$;K$:.15:......|
00000860: 8F 2A 2A 2A 2A 2A 2A 41 50 50 45 4E 44 20 48 45 |.******APPEND HE|
00000870: 41 44 45 52 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |ADER***********.|
00000880: A5 10 90 01 4E 48 B2 4E 48 AA 31 3A 48 46 24 28 |....NH.NH.1:HF$(|
00000890: 4E 48 29 B2 48 24 3A 48 46 24 28 30 29 B2 C4 28 |NH).H$:HF$(0)..(|
000008A0: 4E 48 29 3A 8E 00 C8 10 F3 01 8F 2A 2A 2A 2A 2A |NH):.......*****|
000008B0: 2A 2A 44 45 4C 45 54 45 20 46 49 4C 45 53 2A 2A |**DELETE FILES**|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 10 F4 01 99 22 11 |********......".|
000008D0: 20 20 20 20 20 44 45 4C 45 54 49 4E 47 20 4F 4C | DELETING OL|
000008E0: 44 20 46 49 4C 45 20 4E 41 4D 45 53 22 00 33 11 |D FILE NAMES".3.|
000008F0: F6 01 54 43 B2 4E 46 3A 81 43 54 B2 31 A4 4E 46 |..TC.NF:.CT.1.NF|
00000900: 3A 8B CA 28 4D 46 24 28 43 54 29 2C 31 39 2C 32 |:..(MF$(CT),19,2|
00000910: 29 B2 49 44 24 A7 4D 46 24 28 43 54 29 B2 22 FF |).ID$.MF$(CT).".|
00000920: FF FF 22 AA 4D 46 24 28 43 54 29 3A 54 43 B2 54 |..".MF$(CT):TC.T|
00000930: 43 AB 31 00 39 11 F9 01 82 00 63 11 FE 01 9E 34 |C.1.9.....c....4|
00000940: 39 31 35 32 2C 4E 46 2C 4D 46 24 28 31 29 3A 4E |9152,NF,MF$(1):N|
00000950: 46 B2 54 43 3A 4D 46 24 28 30 29 B2 C4 28 4E 46 |F.TC:MF$(0)..(NF|
00000960: 29 3A 8E 00 86 11 57 02 8F 2A 2A 2A 2A 2A 2A 2A |):....W..*******|
00000970: 41 50 50 45 4E 44 20 46 49 4C 45 53 2A 2A 2A 2A |APPEND FILES****|
00000980: 2A 2A 2A 2A 2A 2A 00 B0 11 58 02 99 22 11 20 20 |******...X..". |
00000990: 20 20 20 41 44 44 49 4E 47 20 46 49 4C 45 20 4E | ADDING FILE N|
000009A0: 41 4D 45 53 20 54 4F 20 4C 49 42 52 41 52 59 22 |AMES TO LIBRARY"|
000009B0: 00 C5 11 5A 02 9F 31 2C 38 2C 30 2C 22 24 30 22 |...Z..1,8,0,"$0"|
000009C0: 3A 8D 33 30 30 00 F4 11 62 02 44 48 24 B2 22 20 |:.300...b.DH$." |
000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009E0: 22 AA 22 22 3A 9E 35 30 33 32 33 3A 8B 53 54 A7 |"."":.50323:.ST.|
000009F0: A0 31 3A 8E 00 08 12 6C 02 81 43 54 B2 4E 46 AA |.1:....l..CT.NF.|
00000A00: 31 A4 4E 46 AA 31 35 30 00 2D 12 76 02 46 24 B2 |1.NF.150.-.v.F$.|
00000A10: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000A20: 20 20 22 AA 22 22 3A 9E 35 30 33 32 33 00 51 12 | "."":.50323.Q.|
00000A30: 7B 02 8B 53 54 A7 4D 46 24 28 30 29 B2 C4 28 43 |{..ST.MF$(0)..(C|
00000A40: 54 AB 32 29 3A 4E 46 B2 43 54 AB 32 3A A0 31 3A |T.2):NF.CT.2:.1:|
00000A50: 8E 00 92 12 80 02 4D 46 24 28 43 54 29 B2 46 24 |......MF$(CT).F$|
00000A60: AA 22 20 22 AA 49 44 24 AA C4 28 C2 28 32 35 31 |." ".ID$..(.(251|
00000A70: 29 AA 32 35 36 AC C2 28 32 35 32 29 29 3A 82 3A |).256..(252)):.:|
00000A80: 99 22 41 50 50 45 4E 44 20 45 52 52 4F 52 3A 45 |."APPEND ERROR:E|
00000A90: 4E 44 00 B9 12 BB 02 8F 2A 2A 2A 2A 2A 2A 2A 24 |ND......*******$|
00000AA0: 44 49 52 45 43 54 4F 52 59 2A 2A 2A 2A 2A 2A 2A |DIRECTORY*******|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FC 12 BC 02 43 42 |*********.....CB|
00000AC0: B2 31 35 3A 43 53 B2 31 32 3A 48 4C 24 B2 22 13 |.15:CS.12:HL$.".|
00000AD0: 11 1D 49 4E 53 45 52 54 20 44 49 53 4B 20 41 4E |..INSERT DISK AN|
00000AE0: 44 20 48 49 54 20 4B 45 59 2D 53 50 41 43 45 20 |D HIT KEY-SPACE |
00000AF0: 50 41 55 53 45 53 11 22 3A 8D 38 30 00 0F 13 BD |PAUSES.":.80....|
00000B00: 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 30 31 00 |..A$:.A$."".701.|
00000B10: 34 13 BE 02 9E 35 30 31 37 38 3A 99 22 11 11 1D |4....50178:."...|
00000B20: 1D 48 49 54 20 41 20 4B 45 59 20 46 4F 52 20 4D |.HIT A KEY FOR M|
00000B30: 45 4E 55 22 00 47 13 C1 02 A1 41 24 3A 8B 41 24 |ENU".G....A$:.A$|
00000B40: B2 22 22 A7 37 30 35 00 4D 13 C6 02 8E 00 72 13 |."".705.M.....r.|
00000B50: E7 03 8F 2A 2A 2A 2A 2A 2A 44 49 53 50 4C 41 59 |...******DISPLAY|
00000B60: 20 53 45 4C 45 43 54 45 44 2A 2A 2A 2A 2A 2A 2A | SELECTED*******|
00000B70: 2A 2A 00 81 13 E8 03 43 42 B2 33 3A 43 53 B2 31 |**.....CB.3:CS.1|
00000B80: 33 00 B9 13 ED 03 48 4C 24 B2 22 13 11 1D 44 49 |3.....HL$."...DI|
00000B90: 53 50 4C 41 59 2D 53 50 41 43 45 20 42 41 52 20 |SPLAY-SPACE BAR |
00000BA0: 54 4F 20 50 41 55 53 45 2D 46 31 20 54 4F 20 41 |TO PAUSE-F1 TO A|
00000BB0: 42 4F 52 54 22 3A 8D 38 30 00 E7 13 F2 03 99 22 |BORT":.80......"|
00000BC0: 11 11 20 20 20 20 20 20 20 20 20 20 12 46 92 49 |.. .F.I|
00000BD0: 4C 45 20 4F 52 20 12 48 92 45 41 44 45 52 53 3F |LE OR .H.EADERS?|
00000BE0: 22 3A 99 22 11 11 22 00 FB 13 FC 03 A1 41 24 3A |":.".."......A$:|
00000BF0: 8B 41 24 B2 22 22 A7 31 30 32 30 00 0C 14 06 04 |.A$."".1020.....|
00000C00: 8B 41 24 B2 22 46 22 A7 31 30 36 30 00 1D 14 10 |.A$."F".1060....|
00000C10: 04 8B 41 24 B2 22 48 22 A7 31 30 38 30 00 27 14 |..A$."H".1080.'.|
00000C20: 1A 04 89 31 30 31 30 00 4B 14 23 04 8F 2A 2A 2A |...1010.K.#..***|
00000C30: 2A 2A 2A 46 49 4C 45 20 44 49 53 50 4C 41 59 2A |***FILE DISPLAY*|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 65 14 24 04 |***********.e.$.|
00000C50: 81 49 B2 31 A4 4E 46 3A A1 41 24 3A 8B 41 24 B2 |.I.1.NF:.A$:.A$.|
00000C60: 22 85 22 A7 8E 00 7A 14 25 04 8B C2 28 31 39 37 |"."...z.%...(197|
00000C70: 29 B3 B1 36 34 A7 31 30 36 31 00 8B 14 26 04 99 |)..64.1061...&..|
00000C80: A3 36 29 4D 46 24 28 49 29 3A 82 00 B8 14 27 04 |.6)MF$(I):....'.|
00000C90: 99 22 11 20 20 20 20 46 49 4E 49 53 48 45 44 20 |.". FINISHED |
00000CA0: 2D 48 49 54 20 12 46 31 92 20 4B 45 59 20 46 4F |-HIT .F1. KEY FO|
00000CB0: 52 20 4D 45 4E 55 20 22 00 CC 14 29 04 A1 41 24 |R MENU "...)..A$|
00000CC0: 3A 8B 41 24 B2 22 22 A7 31 30 36 35 00 DE 14 2A |:.A$."".1065...*|
00000CD0: 04 8B 41 24 B3 B1 22 85 22 A7 31 30 36 35 00 E4 |..A$..".".1065..|
00000CE0: 14 2C 04 8E 00 09 15 37 04 8F 2A 2A 2A 2A 2A 2A |.,.....7..******|
00000CF0: 2A 48 45 41 44 45 52 20 44 49 53 50 4C 41 59 2A |*HEADER DISPLAY*|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 15 38 04 81 4A |*********...8..J|
00000D10: B2 31 A4 B5 28 4E 48 AB 31 29 AD 31 35 AA 31 00 |.1..(NH.1).15.1.|
00000D20: 59 15 3B 04 48 4C 24 B2 22 13 11 1D 48 45 41 44 |Y.;.HL$."...HEAD|
00000D30: 45 52 53 2D 12 46 31 92 20 46 4F 52 20 4D 45 4E |ERS-.F1. FOR MEN|
00000D40: 55 2F 53 50 41 43 45 20 42 41 52 20 54 4F 20 47 |U/SPACE BAR TO G|
00000D50: 4F 20 4F 4E 22 3A 8D 38 30 00 63 15 3C 04 99 22 |O ON":.80.c.<.."|
00000D60: 11 11 22 00 84 15 3D 04 81 49 B2 4A AC 31 35 AB |.."...=..I.J.15.|
00000D70: 31 34 A4 4A AC 31 35 3A 99 A3 38 29 48 46 24 28 |14.J.15:..8)HF$(|
00000D80: 49 29 3A 82 00 96 15 47 04 A1 41 24 3A 8B 41 24 |I):....G..A$:.A$|
00000D90: B2 22 85 22 A7 8E 00 A7 15 4C 04 8B 41 24 B2 22 |.".".....L..A$."|
00000DA0: 20 22 A7 31 31 32 30 00 B1 15 51 04 89 31 30 39 | ".1120...Q..109|
00000DB0: 35 00 BD 15 60 04 82 3A 89 31 30 38 30 00 E2 15 |5...`..:.1080...|
00000DC0: CF 07 8F 2A 2A 2A 2A 2A 2A 2A 50 52 49 4E 54 20 |...*******PRINT |
00000DD0: 53 45 4C 45 43 54 45 44 2A 2A 2A 2A 2A 2A 2A 2A |SELECTED********|
00000DE0: 2A 2A 00 F2 15 D0 07 43 42 B2 31 31 3A 43 53 B2 |**.....CB.11:CS.|
00000DF0: 31 32 00 22 16 D5 07 48 4C 24 B2 22 13 11 1D 20 |12."...HL$."... |
00000E00: 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 | PRINT |
00000E10: 53 45 4C 45 43 54 45 44 22 3A 8D 38 30 3A 99 48 |SELECTED":.80:.H|
00000E20: 4C 24 00 4C 16 DA 07 99 22 11 11 11 11 1D 1D 1D |L$.L....".......|
00000E30: 1D 20 20 20 20 20 20 50 52 49 4E 54 3F 20 20 20 |. PRINT? |
00000E40: 20 20 3C 59 2F 4E 3E 20 20 20 20 22 00 60 16 DF | <Y/N> ".`..|
00000E50: 07 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 31 35 |..A$:.A$."".2015|
00000E60: 00 6F 16 E4 07 8B 41 24 B3 B1 22 59 22 A7 8E 00 |.o....A$.."Y"...|
00000E70: 9E 16 E9 07 99 22 11 11 11 1D 1D 1D 1D 12 46 92 |....."........F.|
00000E80: 49 4C 45 53 20 4F 52 20 12 48 92 45 41 44 45 52 |ILES OR .H.EADER|
00000E90: 53 20 4F 52 20 12 42 92 4F 54 48 20 3F 22 00 B2 |S OR .B.OTH ?"..|
00000EA0: 16 EE 07 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 |....A$:.A$."".20|
00000EB0: 33 30 00 C3 16 F3 07 8B 41 24 B2 22 46 22 A7 32 |30......A$."F".2|
00000EC0: 30 36 35 00 D4 16 F4 07 8B 41 24 B2 22 42 22 A7 |065......A$."B".|
00000ED0: 32 33 30 30 00 E3 16 F8 07 8B 41 24 B3 B1 22 48 |2300......A$.."H|
00000EE0: 22 A7 8E 00 FC 16 F9 07 9F 34 2C 34 3A 98 34 2C |"........4,4:.4,|
00000EF0: C7 28 32 37 29 3B C7 28 36 34 29 3B 00 32 17 FD |.(27);.(64);.2..|
00000F00: 07 98 34 2C C7 28 31 34 32 29 3B 22 20 20 20 20 |..4,.(142);" |
00000F10: 20 20 20 20 20 20 20 20 20 20 22 3B 4E 48 3B 22 | ";NH;"|
00000F20: 20 20 20 20 48 45 41 44 45 52 53 22 3B C7 28 31 | HEADERS";.(1|
00000F30: 35 29 00 5D 17 00 08 98 34 3A 98 34 3A 98 34 2C |5).]....4:.4:.4,|
00000F40: C7 28 32 37 29 3B C7 28 36 38 29 3B C7 28 33 35 |.(27);.(68);.(35|
00000F50: 29 3B C7 28 37 30 29 3B C7 28 30 29 3B 00 93 17 |);.(70);.(0);...|
00000F60: 02 08 81 43 54 B2 31 A4 4E 48 A9 32 3A 98 34 2C |...CT.1.NH.2:.4,|
00000F70: C7 28 39 29 3B 48 46 24 28 43 54 29 3B C7 28 39 |.(9);HF$(CT);.(9|
00000F80: 29 3B 48 46 24 28 43 54 AA 31 29 3A 82 3A 89 32 |);HF$(CT.1):.:.2|
00000F90: 30 38 30 00 D2 17 11 08 9F 34 2C 34 3A 98 34 2C |080......4,4:.4,|
00000FA0: C7 28 32 37 29 3B C7 28 36 34 29 3B C7 28 31 34 |.(27);.(64);.(14|
00000FB0: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 22 |);" "|
00000FC0: 3B 4E 46 3B 22 20 20 20 20 50 52 4F 47 52 41 4D |;NF;" PROGRAM|
00000FD0: 53 22 00 DC 17 12 08 98 34 3A 98 34 00 0B 18 14 |S"......4:.4....|
00000FE0: 08 98 34 2C C7 28 32 37 29 3B 22 44 22 3B C7 28 |..4,.(27);"D";.(|
00000FF0: 35 29 3B C7 28 34 32 29 3B C7 28 38 30 29 3B C7 |5);.(42);.(80);.|
00001000: 28 31 31 38 29 3B C7 28 30 29 3B 00 30 18 16 08 |(118);.(0);.0...|
00001010: 98 34 2C C7 28 31 34 33 29 3B 3A 81 43 54 B2 31 |.4,.(143);:.CT.1|
00001020: A4 4E 46 A9 34 3A 81 54 B2 43 54 A4 43 54 AA 33 |.NF.4:.T.CT.CT.3|
00001030: 00 52 18 17 08 98 34 2C C7 28 39 29 3B 4D 46 24 |.R....4,.(9);MF$|
00001040: 28 54 29 3B 3A 82 3A 98 34 2C C7 28 31 33 29 3B |(T);:.:.4,.(13);|
00001050: 3A 82 00 5E 18 20 08 98 34 3A A0 34 3A 8E 00 8C |:..^. ..4:.4:...|
00001060: 18 FC 08 8F 20 49 4E 49 54 49 41 4C 49 53 45 20 |.... INITIALISE |
00001070: 50 52 49 4E 54 45 52 20 41 4E 44 20 53 45 54 20 |PRINTER AND SET |
00001080: 34 43 4F 55 4C 4D 4E 20 54 41 42 53 00 A6 18 06 |4COULMN TABS....|
00001090: 09 9F 34 2C 34 3A 98 34 2C 3B C7 28 32 37 29 3B |..4,4:.4,;.(27);|
000010A0: C7 28 36 34 29 3B 00 D8 18 0B 09 98 34 2C 3B C7 |.(64);......4,;.|
000010B0: 28 32 37 29 3B C7 28 36 38 29 3B C7 28 35 29 3B |(27);.(68);.(5);|
000010C0: C7 28 34 32 29 3B C7 28 38 30 29 3B C7 28 31 31 |.(42);.(80);.(11|
000010D0: 38 29 3B C7 28 30 29 3B 00 FC 18 1A 09 81 4A B2 |8);.(0);......J.|
000010E0: 31 A4 4E 48 3A 98 34 2C 48 46 24 28 4A 29 3B C7 |1.NH:.4,HF$(J);.|
000010F0: 28 31 34 33 29 3B C7 28 31 33 29 3B 00 18 19 24 |(143);.(13);...$|
00001100: 09 49 44 24 B2 CA 28 48 46 24 28 4A 29 2C 31 37 |.ID$..(HF$(J),17|
00001110: 2C 32 29 3A 43 54 B2 33 00 3E 19 2E 09 81 49 B2 |,2):CT.3.>....I.|
00001120: 31 A4 4E 46 3A 8B 49 44 24 B3 B1 CA 28 4D 46 24 |1.NF:.ID$...(MF$|
00001130: 28 49 29 2C 31 39 2C 32 29 A7 32 33 38 30 00 5F |(I),19,2).2380._|
00001140: 19 38 09 43 54 B2 43 54 AA 31 3A 8B 43 54 B2 34 |.8.CT.CT.1:.CT.4|
00001150: A7 98 34 2C C7 28 31 33 29 3B 3A 43 54 B2 30 00 |..4,.(13);:CT.0.|
00001160: 74 19 42 09 98 34 2C 3B C7 28 39 29 3B 4D 46 24 |t.B..4,;.(9);MF$|
00001170: 28 49 29 3B 00 92 19 4C 09 82 3A 98 34 2C C7 28 |(I);...L..:.4,.(|
00001180: 31 34 36 29 3B C7 28 31 33 29 3A 82 3A 89 32 30 |146);.(13):.:.20|
00001190: 38 30 00 B7 19 B7 0B 8F 2A 2A 2A 2A 2A 2A 53 45 |80......******SE|
000011A0: 41 52 43 48 20 53 45 4C 45 43 54 45 44 2A 2A 2A |ARCH SELECTED***|
000011B0: 2A 2A 2A 2A 2A 2A 2A 00 C5 19 B8 0B 43 42 B2 38 |*******.....CB.8|
000011C0: 3A 43 53 B2 39 00 F7 19 BA 0B 48 4C 24 B2 22 13 |:CS.9.....HL$.".|
000011D0: 11 1D 20 20 20 20 20 20 53 45 41 52 43 48 20 28 |.. SEARCH (|
000011E0: 41 4E 44 20 53 43 52 41 54 43 48 29 20 46 49 4C |AND SCRATCH) FIL|
000011F0: 45 53 22 3A 8D 38 30 00 20 1A BC 0B 99 22 11 11 |ES":.80. ...."..|
00001200: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001210: 20 20 53 45 41 52 43 48 3F 20 28 59 2F 4E 29 22 | SEARCH? (Y/N)"|
00001220: 00 34 1A BE 0B A1 59 24 3A 8B 59 24 B2 22 22 A7 |.4....Y$:.Y$."".|
00001230: 33 30 30 36 00 43 1A C0 0B 8B 59 24 B3 B1 22 59 |3006.C....Y$.."Y|
00001240: 22 A7 8E 00 64 1A C2 0B 4E 24 B2 22 22 3A 85 22 |"...d...N$."":."|
00001250: 11 11 1D 1D 1D 20 53 45 41 52 43 48 20 46 4F 52 |..... SEARCH FOR|
00001260: 22 3B 4E 24 00 8B 1A C4 0B 48 4C 24 B2 22 13 11 |";N$.....HL$."..|
00001270: 1D 4C 4F 4F 4B 49 4E 47 20 55 50 3A 20 22 AA 4E |.LOOKING UP: ".N|
00001280: 24 3A 8D 38 30 3A 99 22 11 11 22 00 AB 1A C6 0B |$:.80:."..".....|
00001290: 46 4C B2 30 3A 4E 53 B2 30 3A 4C 4E B2 C3 28 4E |FL.0:NS.0:LN..(N|
000012A0: 24 29 3A 81 43 54 B2 31 A4 4E 46 00 DD 1A C8 0B |$):.CT.1.NF.....|
000012B0: 8B 4E 24 B2 C8 28 4D 46 24 28 43 54 29 2C 4C 4E |.N$..(MF$(CT),LN|
000012C0: 29 A7 99 A3 39 29 43 54 3B 4D 46 24 28 43 54 29 |)...9)CT;MF$(CT)|
000012D0: 3A 46 4C B2 31 3A 4E 53 B2 4E 53 AA 31 00 EE 1A |:FL.1:NS.NS.1...|
000012E0: CA 0B 8B 4E 53 B3 B1 31 38 A7 33 30 33 30 00 22 |...NS..18.3030."|
000012F0: 1B CC 0B 4E 53 B2 30 3A 99 22 11 20 20 20 20 12 |...NS.0:.". .|
00001300: 46 31 92 20 54 4F 20 4D 45 4E 55 2D 53 50 41 43 |F1. TO MENU-SPAC|
00001310: 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 |E BAR TO CONTINU|
00001320: 45 22 00 36 1B CE 0B A1 41 24 3A 8B 41 24 B2 22 |E".6....A$:.A$."|
00001330: 22 A7 33 30 32 32 00 44 1B D0 0B 8B 41 24 B2 22 |".3022.D....A$."|
00001340: 85 22 A7 8E 00 56 1B D2 0B 8B 41 24 B3 B1 22 20 |."...V....A$.." |
00001350: 22 A7 33 30 32 32 00 69 1B D4 0B 8D 38 30 3A 99 |".3022.i....80:.|
00001360: 48 4C 24 3A 99 22 11 11 22 00 8F 1B D6 0B 82 3A |HL$:.".."......:|
00001370: 8B 46 4C B2 30 A7 99 22 11 11 20 20 20 20 20 20 |.FL.0..".. |
00001380: 20 20 20 20 20 20 20 4E 4F 20 48 49 54 53 22 00 | NO HITS".|
00001390: A5 1B D7 0B 99 22 11 11 20 20 46 49 4E 49 53 48 |.....".. FINISH|
000013A0: 45 44 2D 22 3B 00 B9 1B D8 0B 99 22 12 46 31 92 |ED-";......".F1.|
000013B0: 20 54 4F 20 4D 45 4E 55 22 00 DB 1B D9 0B 99 22 | TO MENU"......"|
000013C0: 20 20 20 20 20 20 20 20 20 20 20 53 50 41 43 45 | SPACE|
000013D0: 20 54 4F 20 53 45 41 52 43 48 22 00 03 1C DA 0B | TO SEARCH".....|
000013E0: 99 22 20 20 20 20 20 20 20 20 20 20 20 12 46 37 |." .F7|
000013F0: 92 20 54 4F 20 53 43 52 41 54 43 48 20 46 49 4C |. TO SCRATCH FIL|
00001400: 45 53 22 00 17 1C DC 0B A1 41 24 3A 8B 41 24 B2 |ES"......A$:.A$.|
00001410: 22 22 A7 33 30 33 36 00 25 1C DE 0B 8B 41 24 B2 |"".3036.%....A$.|
00001420: 22 85 22 A7 8E 00 3C 1C E0 0B 8B 41 24 B2 22 20 |"."...<....A$." |
00001430: 22 A7 99 22 93 22 3A 89 33 30 31 30 00 4D 1C E2 |"..".":.3010.M..|
00001440: 0B 8B 41 24 B2 22 88 22 A7 33 30 34 34 00 57 1C |..A$.".".3044.W.|
00001450: E3 0B 89 33 30 33 36 00 79 1C E4 0B 48 4C 24 B2 |...3036.y...HL$.|
00001460: 22 13 11 1D 53 43 52 41 54 43 48 20 53 45 4C 45 |"...SCRATCH SELE|
00001470: 43 54 45 44 22 3A 8D 38 30 00 97 1C E6 0B 99 22 |CTED":.80......"|
00001480: 11 11 11 20 20 20 20 20 20 53 43 52 41 54 43 48 |... SCRATCH|
00001490: 3F 20 28 59 2F 4E 29 00 AB 1C E8 0B A1 59 24 3A |? (Y/N)......Y$:|
000014A0: 8B 59 24 B2 22 22 A7 33 30 34 38 00 BA 1C EA 0B |.Y$."".3048.....|
000014B0: 8B 59 24 B3 B1 22 59 22 A7 8E 00 E5 1C EC 0B 85 |.Y$.."Y"........|
000014C0: 22 11 11 20 20 20 20 4E 55 4D 42 45 52 20 4F 46 |".. NUMBER OF|
000014D0: 20 46 49 4C 45 20 54 4F 20 53 43 52 41 54 43 48 | FILE TO SCRATCH|
000014E0: 22 3B 53 4E 24 00 1B 1D EE 0B 53 4E B2 C5 28 53 |";SN$.....SN..(S|
000014F0: 4E 24 29 3A 8B 53 4E B2 30 B0 53 4E B1 4E 46 A7 |N$):.SN.0.SN.NF.|
00001500: 99 22 11 11 1D 20 20 49 4E 56 41 4C 49 44 20 45 |."... INVALID E|
00001510: 4E 54 52 59 22 3A 89 33 30 35 32 00 47 1D F0 0B |NTRY":.3052.G...|
00001520: 48 4C 24 B2 22 13 11 1D 54 41 52 47 45 54 20 46 |HL$."...TARGET F|
00001530: 49 4C 45 3A 20 22 AA 4D 46 24 28 53 4E 29 3A 8D |ILE: ".MF$(SN):.|
00001540: 38 30 3A 99 48 4C 24 00 69 1D F1 0B 99 22 11 11 |80:.HL$.i...."..|
00001550: 20 20 20 53 43 52 41 54 43 48 20 54 48 49 53 3F | SCRATCH THIS?|
00001560: 20 28 59 2F 4E 29 11 11 22 00 7D 1D F2 0B A1 59 | (Y/N)..".}....Y|
00001570: 24 3A 8B 59 24 B2 22 22 A7 33 30 35 38 00 97 1D |$:.Y$."".3058...|
00001580: F4 0B 8B 59 24 B3 B1 22 59 22 A7 99 22 11 11 11 |...Y$.."Y".."...|
00001590: 22 3A 89 33 30 33 32 00 D7 1D F6 0B 99 22 20 20 |":.3032......" |
000015A0: 20 20 49 4E 53 45 52 54 20 44 49 53 4B 20 4F 46 | INSERT DISK OF|
000015B0: 20 49 44 3A 20 22 3B CA 28 4D 46 24 28 53 4E 29 | ID: ";.(MF$(SN)|
000015C0: 2C 31 39 2C 32 29 3B 22 20 41 4E 44 20 48 49 54 |,19,2);" AND HIT|
000015D0: 20 41 20 4B 45 59 22 00 EB 1D F7 0B A1 41 24 3A | A KEY"......A$:|
000015E0: 8B 41 24 B2 22 22 A7 33 30 36 33 00 16 1E F8 0B |.A$."".3063.....|
000015F0: 81 43 54 B2 31 36 A4 31 A9 AB 31 3A 8B CA 28 4D |.CT.16.1..1:..(M|
00001600: 46 24 28 53 4E 29 2C 43 54 2C 31 29 B3 B1 22 20 |F$(SN),CT,1).." |
00001610: 22 A7 33 30 36 36 00 34 1E F9 0B 82 3A 99 22 11 |".3066.4....:.".|
00001620: 11 20 20 20 53 43 52 41 54 43 48 49 4E 47 20 46 |. SCRATCHING F|
00001630: 49 4C 45 22 00 50 1E FA 0B 98 31 35 2C 22 53 30 |ILE".P....15,"S0|
00001640: 3A 22 AA C8 28 4D 46 24 28 53 4E 29 2C 43 54 29 |:"..(MF$(SN),CT)|
00001650: 00 71 1E FC 0B 84 31 35 2C 45 24 2C 44 24 2C 47 |.q....15,E$,D$,G|
00001660: 24 2C 48 24 3A 99 45 24 3B 44 24 3B 47 24 3B 48 |$,H$:.E$;D$;G$;H|
00001670: 24 00 92 1E FE 0B 99 22 20 20 20 20 20 20 20 20 |$......" |
00001680: 20 41 4E 4F 54 48 45 52 3F 20 28 59 2F 4E 29 11 | ANOTHER? (Y/N).|
00001690: 11 22 00 A6 1E 00 0C A1 59 24 3A 8B 59 24 B2 22 |."......Y$:.Y$."|
000016A0: 22 A7 33 30 37 32 00 B5 1E 02 0C 8B 59 24 B3 B1 |".3072......Y$..|
000016B0: 22 59 22 A7 8E 00 BF 1E 04 0C 89 33 30 34 34 00 |"Y"........3044.|
000016C0: E2 1E 9F 0F 8F 2A 2A 2A 2A 2A 53 41 56 45 20 26 |.....*****SAVE &|
000016D0: 2F 4F 52 20 45 4E 44 2A 2A 2A 2A 2A 2A 2A 2A 2A |/OR END*********|
000016E0: 2A 2A 00 F1 1E A0 0F 43 42 B2 31 30 3A 43 53 B2 |**.....CB.10:CS.|
000016F0: 32 00 20 1F A2 0F 48 4C 24 B2 22 13 11 1D 20 20 |2. ...HL$."... |
00001700: 20 20 20 20 20 20 20 20 20 53 41 56 45 20 41 4E | SAVE AN|
00001710: 44 2F 4F 52 20 45 4E 44 20 20 20 22 3A 8D 38 30 |D/OR END ":.80|
00001720: 00 44 1F A3 0F 99 22 11 11 11 1D 1D 1D 1D 1D 1D |.D....".........|
00001730: 1D 1D 1D 1D 1D 1D 1D 53 41 56 45 3F 2D 3C 59 2F |.......SAVE?-<Y/|
00001740: 4E 3E 20 22 00 58 1F A5 0F A1 59 24 3A 8B 59 24 |N> ".X....Y$:.Y$|
00001750: B2 22 22 A7 34 30 30 35 00 69 1F AA 0F 8B 59 24 |."".4005.i....Y$|
00001760: B2 22 59 22 A7 34 30 36 30 00 8B 1F B4 0F 99 22 |."Y".4060......"|
00001770: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001780: 45 4E 44 3F 2D 3C 59 2F 4E 3E 22 00 9F 1F BE 0F |END?-<Y/N>".....|
00001790: A1 59 24 3A 8B 59 24 B2 22 22 A7 34 30 33 30 00 |.Y$:.Y$."".4030.|
000017A0: BD 1F C8 0F 8B 59 24 B2 22 59 22 A7 A0 31 3A A0 |.....Y$."Y"..1:.|
000017B0: 32 3A A0 33 3A A0 34 3A A0 31 35 3A 80 00 C3 1F |2:.3:.4:.15:....|
000017C0: D2 0F 8E 00 F0 1F DC 0F 99 22 11 11 20 49 4E 53 |.........".. INS|
000017D0: 45 52 54 20 12 44 49 53 43 41 54 92 20 44 49 53 |ERT .DISCAT. DIS|
000017E0: 4B 20 41 4E 44 20 48 49 54 20 41 20 4B 45 59 22 |K AND HIT A KEY"|
000017F0: 00 04 20 DE 0F A1 41 24 3A 8B 41 24 B2 22 22 A7 |.. ...A$:.A$."".|
00001800: 34 30 36 32 00 2D 20 E4 0F 99 22 11 11 1D 1D 1D |4062.- ...".....|
00001810: 53 41 56 49 4E 47 20 22 3B 48 46 24 28 30 29 3B |SAVING ";HF$(0);|
00001820: 22 20 48 45 41 44 45 52 53 2E 2E 2E 22 00 50 20 |" HEADERS...".P |
00001830: E6 0F 9F 32 2C 38 2C 32 2C 22 40 30 3A 48 44 52 |...2,8,2,"@0:HDR|
00001840: 4C 49 53 54 2E 44 2C 53 2C 57 22 3A 8D 33 30 30 |LIST.D,S,W":.300|
00001850: 00 74 20 F0 0F 81 43 54 B2 30 A4 4E 48 3A 98 32 |.t ...CT.0.NH:.2|
00001860: 2C 48 46 24 28 43 54 29 3B C7 28 31 33 29 3B 3A |,HF$(CT);.(13);:|
00001870: 82 3A A0 32 00 A3 20 FA 0F 99 22 11 11 1D 1D 1D |.:.2.. ...".....|
00001880: 53 41 56 49 4E 47 20 22 3B 4D 46 24 28 30 29 3B |SAVING ";MF$(0);|
00001890: 22 20 50 52 4F 47 52 41 4D 20 4E 41 4D 45 53 2E |" PROGRAM NAMES.|
000018A0: 2E 2E 22 00 C6 20 FB 0F 9F 33 2C 38 2C 33 2C 22 |..".. ...3,8,3,"|
000018B0: 40 30 3A 50 52 47 4C 49 53 54 2E 44 2C 53 2C 57 |@0:PRGLIST.D,S,W|
000018C0: 22 3A 8D 33 30 30 00 F0 20 FD 0F 81 43 54 B2 30 |":.300.. ...CT.0|
000018D0: A4 4E 46 3A 98 33 2C 4D 46 24 28 43 54 29 3B C7 |.NF:.3,MF$(CT);.|
000018E0: 28 31 33 29 3B 3A 82 3A A0 33 3A 89 34 30 32 30 |(13);:.:.3:.4020|
000018F0: 00 14 21 6F 17 8F 20 2A 2A 2A 2A 2A 2A 49 4E 49 |..!o.. ******INI|
00001900: 54 49 41 4C 49 5A 41 54 49 4F 4E 2A 2A 2A 2A 2A |TIALIZATION*****|
00001910: 2A 2A 2A 2A 00 24 21 70 17 43 42 B2 31 35 3A 43 |****.$!p.CB.15:C|
00001920: 53 B2 31 35 00 54 21 A2 17 48 4C 24 B2 22 13 11 |S.15.T!..HL$."..|
00001930: 1D 20 20 20 20 20 20 20 20 20 12 44 49 53 43 41 |. .DISCA|
00001940: 54 92 20 42 59 20 4A 49 4D 20 53 4D 49 54 48 22 |T. BY JIM SMITH"|
00001950: 3A 8D 38 30 00 81 21 AC 17 99 22 20 20 20 20 20 |:.80..!..." |
00001960: 20 20 20 20 20 20 11 11 1D 1D 1D 57 41 49 54 11 | .....WAIT.|
00001970: 11 2E 2E 2E 4C 4F 41 44 49 4E 47 20 43 4F 44 45 |....LOADING CODE|
00001980: 22 00 96 21 B6 17 93 22 44 43 41 54 4D 4C 50 2E |"..!..."DCATMLP.|
00001990: 44 22 2C 38 2C 31 00 A6 21 BB 17 8B 4E 46 B3 B1 |D",8,1..!...NF..|
000019A0: 30 A7 36 31 37 35 00 BE 21 C0 17 86 4D 46 24 28 |0.6175..!...MF$(|
000019B0: 31 30 30 30 29 3A 86 48 46 24 28 36 30 29 00 E7 |1000):.HF$(60)..|
000019C0: 21 C1 17 9F 31 35 2C 38 2C 31 35 3A 9F 31 2C 38 |!...15,8,15:.1,8|
000019D0: 2C 32 2C 22 48 44 52 4C 49 53 54 2E 44 2C 53 2C |,2,"HDRLIST.D,S,|
000019E0: 52 22 3A 8D 33 30 30 00 17 22 C3 17 9E 35 30 34 |R":.300.."...504|
000019F0: 37 30 3A 4C B2 C2 28 31 34 32 29 3A 48 46 24 28 |70:L..(142):HF$(|
00001A00: 30 29 B2 C8 28 53 24 2C 4C 29 3A 4E 48 B2 C5 28 |0)..(S$,L):NH..(|
00001A10: 48 46 24 28 30 29 29 00 31 22 C5 17 8B 4E 48 B2 |HF$(0)).1"...NH.|
00001A20: 30 A7 A0 31 3A 43 24 B2 22 43 22 3A 89 36 32 31 |0..1:C$."C":.621|
00001A30: 30 00 60 22 CA 17 99 22 11 11 1D 1D 1D 2E 2E 2E |0.`"..."........|
00001A40: 4C 4F 41 44 49 4E 47 20 22 3B 48 46 24 28 30 29 |LOADING ";HF$(0)|
00001A50: 3B 22 20 48 45 41 44 45 52 20 4E 41 4D 45 53 22 |;" HEADER NAMES"|
00001A60: 00 8F 22 E8 17 81 43 54 B2 31 A4 4E 48 3A 9E 35 |.."...CT.1.NH:.5|
00001A70: 30 34 37 30 3A 4C B2 C2 28 31 34 32 29 3A 48 46 |0470:L..(142):HF|
00001A80: 24 28 43 54 29 B2 C8 28 53 24 2C 4C 29 3A 82 00 |$(CT)..(S$,L):..|
00001A90: B2 22 F2 17 A0 31 3A 9F 31 2C 38 2C 33 2C 22 50 |."...1:.1,8,3,"P|
00001AA0: 52 47 4C 49 53 54 2E 44 2C 53 2C 52 22 3A 8D 33 |RGLIST.D,S,R":.3|
00001AB0: 30 30 00 E2 22 F5 17 9E 35 30 34 37 30 3A 4C B2 |00.."...50470:L.|
00001AC0: C2 28 31 34 32 29 3A 4D 46 24 28 30 29 B2 C8 28 |.(142):MF$(0)..(|
00001AD0: 53 24 2C 4C 29 3A 4E 46 B2 C5 28 4D 46 24 28 30 |S$,L):NF..(MF$(0|
00001AE0: 29 29 00 12 23 FC 17 99 22 11 11 1D 1D 1D 2E 2E |))..#...".......|
00001AF0: 2E 4C 4F 41 44 49 4E 47 20 22 3B 4D 46 24 28 30 |.LOADING ";MF$(0|
00001B00: 29 3B 22 20 50 52 4F 47 52 41 4D 20 4E 41 4D 45 |);" PROGRAM NAME|
00001B10: 53 22 00 1F 23 06 18 81 43 54 B2 31 A4 4E 46 00 |S"..#...CT.1.NF.|
00001B20: 4E 23 10 18 81 43 54 B2 31 A4 4E 46 3A 9E 35 30 |N#...CT.1.NF:.50|
00001B30: 34 37 30 3A 4C B2 C2 28 31 34 32 29 3A 4D 46 24 |470:L..(142):MF$|
00001B40: 28 43 54 29 B2 C8 28 53 24 2C 4C 29 3A 82 00 55 |(CT)..(S$,L):..U|
00001B50: 23 1A 18 A0 31 00 65 23 1F 18 43 42 B2 31 35 3A |#...1.e#..CB.15:|
00001B60: 43 53 B2 31 32 00 A8 23 24 18 48 4C 24 B2 22 13 |CS.12..#$.HL$.".|
00001B70: 11 1D 20 12 43 92 41 54 41 4C 4F 47 20 12 44 92 |.. .C.ATALOG .D.|
00001B80: 49 53 50 4C 41 59 20 12 45 92 58 49 54 20 12 48 |ISPLAY .E.XIT .H|
00001B90: 92 45 4C 50 20 12 50 92 52 49 4E 54 20 12 24 92 |.ELP .P.RINT .$.|
00001BA0: 44 49 52 22 3A 8D 38 30 00 C2 23 2E 18 99 22 11 |DIR":.80..#...".|
00001BB0: 11 11 90 20 20 20 20 20 20 43 4F 4D 4D 41 4E 44 |... COMMAND|
00001BC0: 3F 22 00 D6 23 38 18 A1 43 24 3A 8B 43 24 B2 22 |?"..#8..C$:.C$."|
00001BD0: 22 A7 36 32 30 30 00 EC 23 42 18 8B 43 24 B2 22 |".6200..#B..C$."|
00001BE0: 43 22 A7 8D 32 30 30 3A 8D 31 30 30 00 03 24 4C |C"..200:.100..$L|
00001BF0: 18 8B 43 24 B2 22 48 22 A7 8D 37 30 30 30 3A 8D |..C$."H"..7000:.|
00001C00: 31 30 30 00 1A 24 56 18 8B 43 24 B2 22 44 22 A7 |100..$V..C$."D".|
00001C10: 8D 31 30 30 30 3A 8D 31 30 30 00 31 24 60 18 8B |.1000:.100.1$`..|
00001C20: 43 24 B2 22 50 22 A7 8D 32 30 30 30 3A 8D 31 30 |C$."P"..2000:.10|
00001C30: 30 00 4C 24 6A 18 8B 43 24 B2 22 24 22 A7 99 22 |0.L$j..C$."$".."|
00001C40: 93 22 3A 8D 37 30 30 3A 8D 31 30 30 00 63 24 6F |.":.700:.100.c$o|
00001C50: 18 8B 43 24 B2 22 53 22 A7 8D 33 30 30 30 3A 8D |..C$."S"..3000:.|
00001C60: 31 30 30 00 7A 24 74 18 8B 43 24 B2 22 45 22 A7 |100.z$t..C$."E".|
00001C70: 8D 34 30 30 30 3A 8D 31 30 30 00 84 24 7E 18 89 |.4000:.100..$~..|
00001C80: 36 32 30 30 00 A2 24 57 1B 8F 2A 2A 20 20 20 48 |6200..$W..** H|
00001C90: 45 4C 50 20 53 45 4C 45 43 54 45 44 20 20 20 20 |ELP SELECTED |
00001CA0: 2A 2A 00 B3 24 58 1B 97 53 42 2C 33 3A 97 53 43 |**..$X..SB,3:.SC|
00001CB0: 2C 31 33 00 E6 24 5A 1B 99 22 93 11 11 11 1D 1D |,13..$Z.."......|
00001CC0: 1D 12 43 92 41 54 41 4C 4F 47 2D 41 44 44 53 2C |..C.ATALOG-ADDS,|
00001CD0: 52 45 4D 4F 56 45 53 2C 53 4F 52 54 53 20 50 52 |REMOVES,SORTS PR|
00001CE0: 47 20 41 4E 44 22 00 10 25 5D 1B 99 22 20 20 20 |G AND"..%].." |
00001CF0: 20 20 20 20 20 20 20 20 44 49 53 4B 20 4E 41 4D | DISK NAM|
00001D00: 45 53 20 54 4F 20 4C 49 42 52 41 52 59 2E 11 22 |ES TO LIBRARY.."|
00001D10: 00 41 25 62 1B 99 22 1D 1D 1D 12 44 92 49 53 50 |.A%b.."....D.ISP|
00001D20: 4C 41 59 2D 56 49 45 57 20 44 49 53 4B 4E 41 4D |LAY-VIEW DISKNAM|
00001D30: 45 53 20 4F 52 20 46 49 4C 45 20 4E 41 4D 45 53 |ES OR FILE NAMES|
00001D40: 22 00 60 25 67 1B 99 22 20 20 20 20 20 20 20 20 |".`%g.." |
00001D50: 20 20 20 49 4E 20 4C 49 42 52 41 52 59 2E 11 22 | IN LIBRARY.."|
00001D60: 00 90 25 76 1B 99 22 1D 1D 1D 12 53 92 45 41 52 |..%v.."....S.EAR|
00001D70: 43 48 2D 4C 4F 4F 4B 20 55 50 20 41 20 46 49 4C |CH-LOOK UP A FIL|
00001D80: 45 2D 44 49 53 50 4C 41 59 53 20 46 55 4C 4C 22 |E-DISPLAYS FULL"|
00001D90: 00 BC 25 7B 1B 99 22 20 20 20 20 20 20 20 20 20 |..%{.." |
00001DA0: 20 4F 52 20 50 41 52 54 49 41 4C 20 4D 41 54 43 | OR PARTIAL MATC|
00001DB0: 48 2E 20 59 4F 55 20 4D 41 59 22 3B 00 EE 25 7E |H. YOU MAY";..%~|
00001DC0: 1B 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00001DD0: 20 20 53 43 52 41 54 43 48 20 42 59 20 4C 49 42 | SCRATCH BY LIB|
00001DE0: 52 41 52 59 20 4E 55 4D 42 45 52 2E 11 22 00 21 |RARY NUMBER..".!|
00001DF0: 26 80 1B 99 22 1D 1D 1D 12 24 92 44 49 52 2D 43 |&..."....$.DIR-C|
00001E00: 55 52 52 45 4E 54 20 44 49 53 4B 20 44 49 52 45 |URRENT DISK DIRE|
00001E10: 43 54 4F 52 59 20 44 49 53 50 4C 41 59 45 44 22 |CTORY DISPLAYED"|
00001E20: 3B 00 45 26 85 1B 99 22 20 20 20 20 20 20 20 20 |;.E&..." |
00001E30: 53 50 41 43 45 20 42 41 52 20 54 4F 20 50 41 55 |SPACE BAR TO PAU|
00001E40: 53 45 2E 11 22 00 8A 26 88 1B 99 22 1D 1D 1D 12 |SE.."..&..."....|
00001E50: 50 92 52 49 4E 54 2D 53 45 54 20 46 4F 52 20 4D |P.RINT-SET FOR M|
00001E60: 2F 54 20 53 50 49 52 49 54 20 26 20 45 50 53 4F |/T SPIRIT & EPSO|
00001E70: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N |
00001E80: 50 52 49 4E 54 45 52 53 22 3B 00 C2 26 8A 1B 99 |PRINTERS";..&...|
00001E90: 22 20 20 46 4F 52 4D 41 54 20 4C 49 4E 45 53 20 |" FORMAT LINES |
00001EA0: 41 52 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |ARE |
00001EB0: 20 20 20 20 20 20 20 32 30 30 30 2D 32 39 39 39 | 2000-2999|
00001EC0: 11 22 00 E7 26 97 1B 99 22 11 20 20 20 20 20 20 |."..&...". |
00001ED0: 20 20 20 48 49 54 20 41 20 4B 45 59 20 46 4F 52 | HIT A KEY FOR|
00001EE0: 20 4D 45 4E 55 20 22 00 FB 26 99 1B A1 41 24 3A | MENU "..&...A$:|
00001EF0: 8B 41 24 B2 22 22 A7 37 30 36 35 00 01 27 A8 1B |.A$."".7065..'..|
00001F00: 8E 00 47 27 40 1F 8F 20 4C 4F 41 44 20 41 4E 44 |..G'@.. LOAD AND|
00001F10: 20 52 55 4E 20 5A 45 52 4F 44 45 4D 46 49 4C 45 | RUN ZERODEMFILE|
00001F20: 53 20 54 4F 20 53 45 54 20 55 50 20 53 45 51 20 |S TO SET UP SEQ |
00001F30: 46 49 4C 45 53 20 42 45 46 4F 52 45 20 55 53 49 |FILES BEFORE USI|
00001F40: 4E 47 20 54 48 49 53 00 68 27 45 1F 8F 20 50 52 |NG THIS.h'E.. PR|
00001F50: 4F 47 52 41 4D 20 46 4F 52 20 54 48 45 20 46 49 |OGRAM FOR THE FI|
00001F60: 52 53 54 20 54 49 4D 45 00 00 00 |RST TIME... |
..(.... GOTO 0 TO REENTER WITHOUT RELOAD
.O...S$." "."".
J...SB.53280:SC.53281:."."......B(50326)
.198.6075......6000......###############
##################.Y....# JIM SM
ITH #......# 111 EMI
LY STREET #.'....# ORILLIA
L3V 5V2 #.N....# 325-6227
#.U....#GREAT WHITE NORTH C
OMPUTER CLUB#......# DISCAT-A 1541 DISK
UTILITY TO #.C....#FORM A LIBRARY OF PRO
GRAM NAMES#... ..#######################
##########...O..******SCREEN FORMAT*****
*******.O.P..SB,CB:.SC,CS:.".UCCCCCCCCCC
CCCCCDISCATCCCCCCCCCCCCCCCCCI";...Q.."B
B";
...R.."JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCK";HL$;:....C..***MAKE A SCREEN HE
ADER*********...D.CB.15:CS.12./.I.HL$.".
.. .C.ATLG .D.SPLAY .E.XIT .H.ELP .P.RNT
.$.DIR .S.RCH".S.X..80:.HL$:."...
COMMAND?":..X.G..****CATALOG SELECTED***
********...H.CB.15:CS.12...M.HL$."...
CATALOG FUNCTION ":.80
...R.."..... CATALOG? (Y/N)".
..T..Y$:.Y$."".212...U..Y$.."Y"...-....*
* FORM ID AND BLOCKS FREE **.]....". IN
SERT DISK FOR CATALOG AND HIT A KEY.".P.
...A$:.A$."".230......2,8,2,"#":.300:.15
,"U1";2;0;18;0:.15,"B-P:"2;162.S....#2,I
$,D$:ID$.I$.D$: 2:.1,8,0,"$0:%%2^!".....
CH$." "."":.50323.....DH
$." "."":.50323.L...H$.H
(CH$,16).ID$.D(B(251).256.B(252)): 1....
..".. CURRENT DISK: "H$:.".. SEARCHING
";NH;" HEADERS FOR MATCH"......CT.1.NH:
.H$.HF$(CT).290......:.CT.1.NH......ID$.
J(HF$(CT),17,2)..". ID MATCH FOUND":
.297......******APPEND NEW HEADER*******
**.E....:NH.NH.1:HF$(NH).H$:HF$(0).D(NH)
:.600......". SORTING FILES":.49152,
NH,HF$(1):.49152,NF,MF$(1):....!..** CU
RRENT HEADER IS IDENTICAL MATCH **...".
.".. DISK ID AND BLOCKS-FREE COUNT INDI
CATE";...#.." THAT THIS DISK HAS NOT CH
ANGED SINCE ".7.$.." IT WAS L
OGGED.".}.&..". DO YOU WANT IT LOGG
ED AGAIN? <Y/N>"...
'..A$:.A$."".295...(..A$.."Y".....).HF$(
CT).H$:.500:.600:.". SORTING":.49152,
NF,MF$(1):....+..****ERROR TRAPPING ROUT
INES*****...,..15,E,G$,L$,K$:.E.20...E.6
..E.74.." DISK NOT PRESENT":.:..[.
@..E;G$;L$;K$: 15:......******APPEND HE
ADER***********.....NH.NH.1:HF$(NH).H$:H
F$(0).D(NH):..H....*******DELETE FILES**
********......". DELETING OLD FILE N
AMES".3...TC.NF:.CT.1.NF:.J(MF$(CT),19,2
).ID$.MF$(CT)."...".MF$(CT):TC.TC.1.9...
..C....49152,NF,MF$(1):NF.TC:MF$(0).D(NF
):....W..*******APPEND FILES**********..
.X..". ADDING FILE NAMES TO LIBRARY"
.E.Z..1,8,0,"$0":.300...B.DH$."
"."":.50323:.ST. 1:....L..CT.NF.
1.NF.150.-.V.F$." "."":.
50323.Q.{..ST.MF$(0).D(CT.2):NF.CT.2: 1:
......MF$(CT).F$." ".ID$.D(B(251).256.B(
252)):.:."APPEND ERROR:END......*******$
DIRECTORY****************.....CB.15:CS.1
2:HL$."...INSERT DISK AND HIT KEY-SPACE
PAUSES.":.80......A$:.A$."".701.4....501
78:."....HIT A KEY FOR MENU".G.A..A$:.A$
."".705.M.F...R....******DISPLAY SELECTE
D*********.....CB.3:CS.13.....HL$."...DI
SPLAY-SPACE BAR TO PAUSE-F1 TO ABORT":.8
0......".. .F.ILE OR .H.EADERS?
":.".."......A$:.A$."".1020......A$."F".
1060......A$."H".1080.'....1010.K.#..***
***FILE DISPLAY************.E.$..I.1.NF:
.A$:.A$."."...Z.%..B(197)..64.1061...&..
.6)MF$(I):....'..". FINISHED -HIT .F1
. KEY FOR MENU ".L.)..A$:.A$."".1065...*
..A$..".".1065...,.....7..*******HEADER
DISPLAY**********...8..J.1..(NH.1).15.1.
Y.;.HL$."...HEADERS-.F1. FOR MENU/SPACE
BAR TO GO ON":.80.C.<..".."...=..I.J.15.
14.J.15:..8)HF$(I):....G..A$:.A$."."....
.L..A$." ".1120...Q..1095...`..:.1080...
O..*******PRINT SELECTED**********...P.C
B.11:CS.12.".U.HL$."... PRINT
SELECTED":.80:.HL$.L.Z.."........ P
RINT? <Y/N> ".`....A$:.A$."".2015
.O....A$.."Y"........"........F.ILES OR
.H.EADERS OR .B.OTH ?"......A$:.A$."".20
30.C....A$."F".2065.T....A$."B".2300....
..A$.."H"........4,4:.4,G(27);G(64);.2..
..4,G(142);" ";NH;" HEAD
ERS";G(15).]....4:.4:.4,G(27);G(68);G(35
);G(70);G(0);......CT.1.NH.2:.4,G(9);HF$
(CT);G(9);HF$(CT.1):.:.2080.R....4,4:.4,
G(27);G(64);G(14);" ";NF;"
PROGRAMS"......4:.4......4,G(27);"D";G(
5);G(42);G(80);G(118);G(0);.0....4,G(143
);:.CT.1.NF.4:.T.CT.CT.3.R....4,G(9);MF$
(T);:.:.4,G(13);:..^. ..4: 4:....... INI
TIALISE PRINTER AND SET 4COULMN TABS....
..4,4:.4,;G(27);G(64);.X....4,;G(27);G(6
8);G(5);G(42);G(80);G(118);G(0);......J.
1.NH:.4,HF$(J);G(143);G(13);...$.ID$.J(H
F$(J),17,2):CT.3.>....I.1.NF:.ID$..J(MF$
(I),19,2).2380._.8.CT.CT.1:.CT.4..4,G(13
);:CT.0.T.B..4,;G(9);MF$(I);...L..:.4,G(
146);G(13):.:.2080......******SEARCH SEL
ECTED**********.E...CB.8:CS.9.....HL$.".
.. SEARCH (AND SCRATCH) FILES":.80.
...."... SEARCH? (Y/N)"
.4....Y$:.Y$."".3006.C....Y$.."Y"...D.B.
N$."":."..... SEARCH FOR";N$...D.HL$."..
.LOOKING UP: ".N$:.80:.".."...F.FL.0:NS.
0:LN.C(N$):.CT.1.NF...H..N$.H(MF$(CT),LN
)...9)CT;MF$(CT):FL.1:NS.NS.1...J..NS..1
8.3030.".L.NS.0:.". .F1. TO MENU-SPAC
E BAR TO CONTINUE".6.N..A$:.A$."".3022.D
.P..A$."."...V.R..A$.." ".3022.I.T..80:.
HL$:.".."...V..:.FL.0..".. N
O HITS"...W..".. FINISHED-";...X..".F1.
TO MENU"...Y.." SPACE TO SEAR
CH"...Z.." .F7. TO SCRATCH FIL
ES"......A$:.A$."".3036.%....A$."."...<.
...A$." "..".":.3010.M....A$.".".3044.W.
...3036.Y...HL$."...SCRATCH SELECTED":.8
0......"... SCRATCH? (Y/N)......Y$:
.Y$."".3048......Y$.."Y"........".. N
UMBER OF FILE TO SCRATCH";SN$.....SN.E(S
N$):.SN.0.SN.NF.."... INVALID ENTRY":.3
052.G...HL$."...TARGET FILE: ".MF$(SN):.
80:.HL$.I....".. SCRATCH THIS? (Y/N)..
".}....Y$:.Y$."".3058......Y$.."Y".."...
":.3032.W...." INSERT DISK OF ID: ";J
(MF$(SN),19,2);" AND HIT A KEY"......A$:
.A$."".3063......CT.16.1..1:.J(MF$(SN),C
T,1).." ".3066.4....:.".. SCRATCHING F
ILE".P....15,"S0:".H(MF$(SN),CT).Q....15
,E$,D$,G$,H$:.E$;D$;G$;H$......"
ANOTHER? (Y/N).."......Y$:.Y$."".3072..
....Y$.."Y"........3044......*****SAVE &
/OR END***********... .CB.10:CS.2. ...HL
$."... SAVE AND/OR END ":.80
.D...."................SAVE?-<Y/N> ".X..
..Y$:.Y$."".4005.I....Y$."Y".4060......"
................END?-<Y/N>"......Y$:.Y$.
"".4030...H..Y$."Y". 1: 2: 3: 4: 15:..C.
R........".. INSERT .DISCAT. DISK AND HI
T A KEY".. ...A$:.A$."".4062.- ...".....
SAVING ";HF$(0);" HEADERS...".P ...2,8,2
,"@0:HDRLIST.D,S,W":.300.T ...CT.0.NH:.2
,HF$(CT);G(13);:.: 2.. ...".....SAVING "
;MF$(0);" PROGRAM NAMES...".F ...3,8,3,"
@0:PRGLIST.D,S,W":.300.. ...CT.0.NF:.3,M
F$(CT);G(13);:.: 3:.4020..!O.. ******INI
TIALIZATION*********.$!P.CB.15:CS.15.T!.
.HL$."... .DISCAT. BY JIM SMITH"
:.80..!..." .....WAIT.....LOAD
ING CODE"..!..."DCATMLP.D",8,1..!...NF..
0.6175..!...MF$(1000):.HF$(60)..!A..15,8
,15:.1,8,2,"HDRLIST.D,S,R":.300.."C..504
70:L.B(142):HF$(0).H(S$,L):NH.E(HF$(0)).
1"E..NH.0. 1:C$."C":.6210.`"J.."........
LOADING ";HF$(0);" HEADER NAMES".."...CT
.1.NH:.50470:L.B(142):HF$(CT).H(S$,L):..
.".. 1:.1,8,3,"PRGLIST.D,S,R":.300.."...
50470:L.B(142):MF$(0).H(S$,L):NF.E(MF$(0
))..#..."........LOADING ";MF$(0);" PROG
RAM NAMES"..#...CT.1.NF.N#...CT.1.NF:.50
470:L.B(142):MF$(CT).H(S$,L):..U#.. 1.E#
..CB.15:CS.12..#$.HL$."... .C.ATALOG .D.
ISPLAY .E.XIT .H.ELP .P.RINT .$.DIR":.80
.B#...".... COMMAND?".V#8..C$:.C$."
".6200..#B..C$."C"..200:.100..$L..C$."H"
..7000:.100..$V..C$."D"..1000:.100.1$`..
C$."P"..2000:.100.L$J..C$."$"..".":.700:
.100.C$O..C$."S"..3000:.100.Z$T..C$."E".
.4000:.100..$~..6200..$W..** HELP SELE
CTED **..$X..SB,3:.SC,13..$Z.."......
..C.ATALOG-ADDS,REMOVES,SORTS PRG AND"..
%].." DISK NAMES TO LIBRARY.."
.A%B.."....D.ISPLAY-VIEW DISKNAMES OR FI
LE NAMES".`%G.." IN LIBRARY.."
..%V.."....S.EARCH-LOOK UP A FILE-DISPLA
YS FULL"..%{.." OR PARTIAL MATC
H. YOU MAY";..%~.." SCRATC
H BY LIBRARY NUMBER..".!&..."....$.DIR-C
URRENT DISK DIRECTORY DISPLAYED";.E&..."
SPACE BAR TO PAUSE.."..&..."....
P.RINT-SET FOR M/T SPIRIT & EPSON
PRINTERS";.B&..." FORMAT LINES
ARE 2000-2999."..&...
". HIT A KEY FOR MENU "..&...A$:
.A$."".7065..'....G'@.. LOAD AND RUN ZER
ODEMFILES TO SET UP SEQ FILES BEFORE USI
NG THIS.H'E.. PROGRAM FOR THE FIRST TIME
...
> CLICK IMAGE PREVIEW FOR FULL MODAL