DIR LIST SORT.C
FILE INFORMATION
FILENAME(S): DIR LIST SORT.C
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-11-30 01:08:03
APPEARS ON: 2 disk(s)
FILE HASH
76e9ce1227e3f642ae758eaae1d4a036bf1701ad915ed1a2d5b35b839d6a4e1f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | DIR LIST SORT.C | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 2 | DOWNLOAD FILE |
| D IVERSE | DIR LIST SORT.C | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 97 35 33 32 38 30 2C 36 3A 97 |....d..53280,6:.|
00000010: 35 33 32 38 31 2C 36 00 59 08 96 00 99 22 93 05 |53281,6.Y...."..|
00000020: 11 11 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 |..DISK DIRECTORY|
00000030: 20 53 4F 52 54 2F 4C 49 53 54 22 3A 99 22 11 11 | SORT/LIST":."..|
00000040: 11 42 59 20 12 44 4F 55 47 4C 41 53 53 20 45 20 |.BY .DOUGLASS E |
00000050: 47 4F 55 4C 45 59 2E 22 3B 00 73 08 C8 00 99 22 |GOULEY.";.s...."|
00000060: 20 20 20 20 20 20 4D 41 52 43 48 20 31 39 38 34 | MARCH 1984|
00000070: 2E 92 22 00 8B 08 FA 00 99 22 11 20 20 20 20 54 |.."......". T|
00000080: 50 55 47 20 23 20 34 33 30 30 22 00 B6 08 2C 01 |PUG # 4300"...,.|
00000090: 99 22 11 11 48 45 4C 4C 4F 2C 20 50 4C 45 41 53 |."..HELLO, PLEAS|
000000A0: 45 20 45 4E 54 45 52 20 54 4F 2D 44 41 59 27 53 |E ENTER TO-DAY'S|
000000B0: 20 44 41 54 45 22 00 D4 08 5E 01 99 22 11 28 41 | DATE"...^..".(A|
000000C0: 4E 59 20 46 4F 52 4D 41 54 20 57 49 4C 4C 20 44 |NY FORMAT WILL D|
000000D0: 4F 29 11 22 00 02 09 90 01 85 22 20 20 20 31 35 |O)."......" 15|
000000E0: 20 4D 41 52 43 48 20 31 39 38 34 2E 9D 9D 9D 9D | MARCH 1984.....|
000000F0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 44 |.............";D|
00000100: 41 24 00 17 09 C2 01 99 22 11 11 12 54 48 41 4E |A$......"...THAN|
00000110: 4B 20 59 4F 55 92 22 00 3A 09 F4 01 99 22 93 11 |K YOU.".:...."..|
00000120: 11 54 48 45 20 50 52 49 4E 54 45 52 20 52 4F 55 |.THE PRINTER ROU|
00000130: 54 49 4E 45 20 55 53 45 53 22 00 5E 09 26 02 99 |TINE USES".^.&..|
00000140: 22 50 52 49 4E 54 23 34 2C 34 20 20 20 20 46 4F |"PRINT#4,4 FO|
00000150: 52 20 43 42 4D 20 4F 50 54 49 4F 4E 2E 22 00 84 |R CBM OPTION."..|
00000160: 09 58 02 99 22 50 52 49 4E 54 23 31 32 38 2C 34 |.X.."PRINT#128,4|
00000170: 20 20 46 4F 52 20 4F 54 48 45 52 20 4F 50 54 49 | FOR OTHER OPTI|
00000180: 4F 4E 2E 22 00 A6 09 8A 02 99 22 11 43 48 4F 53 |ON."......".CHOS|
00000190: 45 20 41 20 50 52 49 4E 54 45 52 20 4F 50 54 49 |E A PRINTER OPTI|
000001A0: 4F 4E 20 3A 2D 22 00 B6 09 BC 02 99 22 43 20 3D |ON :-"......"C =|
000001B0: 20 43 42 4D 2E 22 00 C8 09 EE 02 99 22 4F 20 3D | CBM."......"O =|
000001C0: 20 4F 54 48 45 52 2E 22 00 DE 09 20 03 85 22 11 | OTHER."... ..".|
000001D0: 11 20 20 20 20 4F 9D 9D 9D 22 3B 54 50 24 00 F3 |. O...";TP$..|
000001E0: 09 52 03 99 22 11 11 12 54 48 41 4E 4B 20 59 4F |.R.."...THANK YO|
000001F0: 55 92 22 00 19 0A 84 03 85 22 11 11 20 49 4E 53 |U."......".. INS|
00000200: 54 52 55 43 54 49 4F 4E 53 20 28 59 2F 4E 29 20 |TRUCTIONS (Y/N) |
00000210: 20 4E 9D 9D 9D 22 3B 51 24 00 2F 0A B6 03 8B 20 | N...";Q$./.... |
00000220: 51 24 20 B2 20 22 4E 22 20 A7 20 32 33 30 30 00 |Q$ . "N" . 2300.|
00000230: 5F 0A E8 03 99 22 93 11 54 48 49 53 20 50 52 4F |_...."..THIS PRO|
00000240: 47 52 41 4D 4D 45 20 57 49 4C 4C 20 41 53 4B 20 |GRAMME WILL ASK |
00000250: 59 4F 55 20 54 4F 20 46 45 45 44 20 49 4E 22 00 |YOU TO FEED IN".|
00000260: 8B 0A 1A 04 99 22 45 41 43 48 20 4F 46 20 59 4F |....."EACH OF YO|
00000270: 55 52 20 31 35 34 31 20 44 49 53 4B 45 54 54 45 |UR 1541 DISKETTE|
00000280: 53 20 4F 4E 45 20 41 54 20 41 22 00 B4 0A 4C 04 |S ONE AT A"...L.|
00000290: 99 22 54 49 4D 45 2E 20 20 54 48 45 20 43 4F 4D |."TIME. THE COM|
000002A0: 50 55 54 45 52 20 57 49 4C 4C 20 52 45 41 44 20 |PUTER WILL READ |
000002B0: 54 48 45 22 00 D3 0A 7E 04 99 22 44 49 52 45 43 |THE"...~.."DIREC|
000002C0: 54 4F 52 59 20 49 4E 54 4F 20 41 20 54 41 42 4C |TORY INTO A TABL|
000002D0: 45 2E 22 00 02 0B B0 04 99 22 41 54 20 54 48 45 |E."......"AT THE|
000002E0: 20 45 4E 44 20 4F 46 20 45 41 43 48 20 44 49 53 | END OF EACH DIS|
000002F0: 4B 45 54 54 45 20 59 4F 55 20 57 49 4C 4C 20 42 |KETTE YOU WILL B|
00000300: 45 22 00 2F 0B E2 04 99 22 41 53 4B 45 44 20 49 |E"./...."ASKED I|
00000310: 46 20 54 48 45 52 45 20 41 52 45 20 41 4E 59 20 |F THERE ARE ANY |
00000320: 4D 4F 52 45 20 44 49 53 4B 45 54 54 45 53 22 00 |MORE DISKETTES".|
00000330: 50 0B 14 05 99 22 54 4F 20 42 45 20 52 45 41 44 |P...."TO BE READ|
00000340: 2E 20 20 52 45 53 50 4F 4E 44 20 59 2F 4E 2E 22 |. RESPOND Y/N."|
00000350: 00 7F 0B 46 05 99 22 41 46 54 45 52 20 41 4C 4C |...F.."AFTER ALL|
00000360: 20 44 49 53 4B 45 54 54 45 53 20 48 41 56 45 20 | DISKETTES HAVE |
00000370: 42 45 45 4E 20 52 45 41 44 2C 20 59 4F 55 22 00 |BEEN READ, YOU".|
00000380: AD 0B 78 05 99 22 57 49 4C 4C 20 42 45 20 47 49 |..x.."WILL BE GI|
00000390: 56 45 4E 20 54 48 45 20 4F 50 54 49 4F 4E 53 20 |VEN THE OPTIONS |
000003A0: 3A 2D 20 20 20 20 20 20 20 20 20 20 22 00 DC 0B |:- "...|
000003B0: AA 05 99 22 2D 3E 20 50 52 49 4E 54 45 52 20 4C |..."-> PRINTER L|
000003C0: 49 53 54 49 4E 47 20 41 53 20 45 4E 54 45 52 45 |ISTING AS ENTERE|
000003D0: 44 2C 4F 52 20 53 4F 52 54 45 44 22 00 0B 0C DC |D,OR SORTED"....|
000003E0: 05 99 22 2D 3E 20 53 4F 52 54 20 42 59 20 44 49 |.."-> SORT BY DI|
000003F0: 53 4B 2D 49 44 20 54 48 45 4E 20 50 52 49 4E 54 |SK-ID THEN PRINT|
00000400: 20 48 41 52 44 2D 43 4F 50 59 22 00 48 0C 0E 06 | HARD-COPY".H...|
00000410: 99 22 2D 3E 20 53 4F 52 54 20 42 59 20 50 52 4F |."-> SORT BY PRO|
00000420: 47 52 41 4D 4D 45 20 4E 41 4D 45 20 54 48 45 4E |GRAMME NAME THEN|
00000430: 20 50 52 49 4E 54 20 20 20 20 20 20 20 48 41 52 | PRINT HAR|
00000440: 44 2D 43 4F 50 59 2E 22 00 6B 0C 10 06 99 22 2D |D-COPY.".k...."-|
00000450: 3E 20 46 49 4E 44 20 41 4E 59 20 50 52 4F 47 52 |> FIND ANY PROGR|
00000460: 41 4D 4D 45 2F 46 49 4C 45 2E 22 00 A6 0C 12 06 |AMME/FILE.".....|
00000470: 99 22 2D 3E 20 53 41 56 45 20 54 48 45 20 41 43 |."-> SAVE THE AC|
00000480: 43 55 4D 55 4C 41 54 45 44 20 50 52 4F 47 2F 46 |CUMULATED PROG/F|
00000490: 49 4C 45 20 4E 41 4D 45 53 20 20 20 20 54 4F 20 |ILE NAMES TO |
000004A0: 44 49 53 4B 2E 22 00 E3 0C 14 06 99 22 2D 3E 20 |DISK."......"-> |
000004B0: 52 45 41 44 20 54 48 45 20 41 43 43 55 4D 55 4C |READ THE ACCUMUL|
000004C0: 41 54 45 44 20 50 52 4F 47 2F 46 49 4C 45 20 4E |ATED PROG/FILE N|
000004D0: 41 4D 45 53 20 20 20 20 46 52 4F 4D 20 44 49 53 |AMES FROM DIS|
000004E0: 4B 2E 22 00 F5 0C 40 06 99 22 2D 3E 20 51 55 49 |K."...@.."-> QUI|
000004F0: 54 2E 21 11 22 00 19 0D 72 06 99 22 4D 55 4C 54 |T.!."...r.."MULT|
00000500: 49 50 4C 45 20 43 48 4F 49 43 45 53 20 41 52 45 |IPLE CHOICES ARE|
00000510: 20 41 4C 4C 4F 57 45 44 22 00 50 0D D6 06 99 22 | ALLOWED".P...."|
00000520: 49 46 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 |IF THE COMPUTER |
00000530: 50 41 55 53 45 53 2C 47 49 56 45 20 49 54 20 54 |PAUSES,GIVE IT T|
00000540: 49 4D 45 20 20 54 4F 20 54 48 49 4E 4B 20 21 22 |IME TO THINK !"|
00000550: 00 75 0D 08 07 85 22 11 50 52 45 53 53 20 52 45 |.u....".PRESS RE|
00000560: 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |TURN TO CONTINUE|
00000570: 2D 22 3B 51 24 00 80 0D 3A 07 99 22 93 11 20 22 |-";Q$...:..".. "|
00000580: 00 B1 0D 6C 07 99 22 11 11 57 41 54 43 48 20 54 |...l.."..WATCH T|
00000590: 48 45 20 12 46 52 45 45 20 42 59 54 45 92 20 44 |HE .FREE BYTE. D|
000005A0: 49 53 50 4C 41 59 20 54 4F 20 53 45 45 20 49 46 |ISPLAY TO SEE IF|
000005B0: 22 00 E1 0D 9E 07 99 22 59 4F 55 20 53 54 49 4C |"......"YOU STIL|
000005C0: 4C 20 48 41 56 45 20 52 4F 4F 4D 20 54 4F 20 49 |L HAVE ROOM TO I|
000005D0: 4E 53 45 52 54 20 44 49 53 4B 45 54 54 45 53 2E |NSERT DISKETTES.|
000005E0: 22 00 0E 0E D0 07 99 22 52 45 53 45 52 56 45 20 |"......"RESERVE |
000005F0: 41 42 4F 55 54 20 31 30 30 20 42 59 54 45 53 20 |ABOUT 100 BYTES |
00000600: 46 4F 52 20 54 48 45 20 53 4F 52 54 2E 22 00 43 |FOR THE SORT.".C|
00000610: 0E 02 08 99 22 11 11 4D 41 4E 59 20 54 48 41 4E |...."..MANY THAN|
00000620: 4B 53 20 54 4F 20 27 43 4F 4D 50 55 54 45 21 27 |KS TO 'COMPUTE!'|
00000630: 20 46 4F 52 20 54 48 45 20 49 44 45 41 2C 20 41 | FOR THE IDEA, A|
00000640: 4E 44 22 00 73 0E 34 08 99 22 54 4F 20 4C 4F 52 |ND".s.4.."TO LOR|
00000650: 4E 41 20 4D 43 43 41 52 4E 45 59 20 46 4F 52 20 |NA MCCARNEY FOR |
00000660: 48 45 52 20 54 59 50 49 4E 47 20 53 4B 49 4C 4C |HER TYPING SKILL|
00000670: 53 2E 22 00 B7 0E 36 08 99 22 54 4F 20 41 4C 20 |S."...6.."TO AL |
00000680: 53 43 41 52 4C 45 54 54 20 46 4F 52 20 54 48 45 |SCARLETT FOR THE|
00000690: 20 4C 4F 41 4E 20 4F 46 20 48 49 53 20 20 20 20 | LOAN OF HIS |
000006A0: 20 20 50 52 4F 47 52 41 4D 4D 49 4E 47 20 4D 41 | PROGRAMMING MA|
000006B0: 4E 55 41 4C 53 2E 22 00 F4 0E 66 08 99 22 11 11 |NUALS."...f.."..|
000006C0: 11 49 46 20 54 48 45 20 43 4F 4D 50 55 54 45 52 |.IF THE COMPUTER|
000006D0: 20 50 41 55 53 45 53 2C 47 49 56 45 20 49 54 20 | PAUSES,GIVE IT |
000006E0: 54 49 4D 45 20 54 4F 20 22 3A 99 22 54 48 49 4E |TIME TO ":."THIN|
000006F0: 4B 20 21 22 00 1A 0F 98 08 85 22 11 11 50 52 45 |K !"......"..PRE|
00000700: 53 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E |SS RETURN TO CON|
00000710: 54 49 4E 55 45 2D 22 3B 51 24 00 20 0F C5 08 3A |TINUE-";Q$. ...:|
00000720: 00 3F 0F CA 08 86 53 39 28 32 30 2C 32 29 20 20 |.?....S9(20,2) |
00000730: 3A 20 8F 20 53 4F 52 54 20 54 41 42 4C 45 2E 00 |: . SORT TABLE..|
00000740: 62 0F FC 08 86 49 24 28 39 30 30 29 20 20 20 3A |b....I$(900) :|
00000750: 20 8F 20 4D 41 58 20 54 41 42 4C 45 20 45 4E 54 | . MAX TABLE ENT|
00000760: 52 59 00 68 0F 0E 09 3A 00 7E 0F 10 09 97 35 33 |RY.h...:.~....53|
00000770: 32 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 00 88 |280,1:.53281,1..|
00000780: 0F 2E 09 99 22 93 1F 22 00 CC 0F 30 09 99 22 11 |....".."...0..".|
00000790: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 4C |DO YOU WISH TO L|
000007A0: 4F 41 44 20 41 20 50 52 45 56 49 4F 55 4C 53 59 |OAD A PREVIOULSY|
000007B0: 20 53 41 56 45 44 20 20 46 49 4C 45 20 4F 46 20 | SAVED FILE OF |
000007C0: 4E 41 4D 45 53 20 28 59 2F 4E 29 22 00 E1 0F 32 |NAMES (Y/N)"...2|
000007D0: 09 85 22 11 11 20 20 20 20 4E 9D 9D 9D 22 3B 51 |..".. N...";Q|
000007E0: 24 00 F8 0F 36 09 8B 20 51 24 20 B2 20 22 59 22 |$...6.. Q$ . "Y"|
000007F0: 20 A7 20 31 35 30 30 30 00 3A 10 60 09 85 22 11 | . 15000.:.`..".|
00000800: 11 49 4E 53 45 52 54 20 46 49 52 53 54 20 44 49 |.INSERT FIRST DI|
00000810: 53 4B 45 54 54 45 2C 20 50 4C 45 41 53 45 2E 28 |SKETTE, PLEASE.(|
00000820: 52 45 54 55 52 4E 29 22 3B 20 52 51 24 3A 52 51 |RETURN)"; RQ$:RQ|
00000830: 24 B2 22 22 3A 51 24 B2 22 22 00 43 10 92 09 44 |$."":Q$."".C...D|
00000840: 4E B2 30 00 79 10 C4 09 44 4E B2 44 4E AA 31 3A |N.0.y...DN.DN.1:|
00000850: 99 22 11 52 45 41 44 49 4E 47 20 44 49 53 4B 20 |.".READING DISK |
00000860: 44 49 52 45 43 54 4F 52 59 20 4E 55 4D 42 45 52 |DIRECTORY NUMBER|
00000870: 22 3B 44 4E 3B 22 2E 11 22 00 95 10 F6 09 9F 33 |";DN;".."......3|
00000880: 2C 38 2C 30 2C 22 24 30 22 3A A1 23 33 2C 44 31 |,8,0,"$0":.#3,D1|
00000890: 24 2C 44 32 24 00 B5 10 28 0A A1 23 33 2C 44 31 |$,D2$...(..#3,D1|
000008A0: 24 2C 44 32 24 3A A1 23 33 2C 44 31 24 2C 44 32 |$,D2$:.#3,D1$,D2|
000008B0: 24 3A 4E B2 30 00 D2 10 5A 0A 8B 20 C8 28 4E 24 |$:N.0...Z.. .(N$|
000008C0: 2C 33 29 20 20 B2 22 55 53 52 22 20 A7 20 32 39 |,3) ."USR" . 29|
000008D0: 30 30 00 EF 10 8C 0A 8B 20 C8 28 4E 24 2C 33 29 |00...... .(N$,3)|
000008E0: 20 20 B2 22 50 52 47 22 20 A7 20 32 39 30 30 00 | ."PRG" . 2900.|
000008F0: 0C 11 BE 0A 8B 20 C8 28 4E 24 2C 33 29 20 20 B2 |..... .(N$,3) .|
00000900: 22 53 45 51 22 20 A7 20 32 39 30 30 00 29 11 F0 |"SEQ" . 2900.)..|
00000910: 0A 8B 20 C8 28 4E 24 2C 33 29 20 20 B2 22 52 45 |.. .(N$,3) ."RE|
00000920: 4C 22 20 A7 20 32 39 30 30 00 4D 11 22 0B 4B 24 |L" . 2900.M.".K$|
00000930: B2 C8 28 4E 24 2C 32 29 3A 4B 24 B2 4B 24 AA 22 |..(N$,2):K$.K$."|
00000940: 20 22 20 3A 8F 20 50 52 49 4E 54 4B 24 00 63 11 | " :. PRINTK$.c.|
00000950: 54 0B 8B 44 31 24 B3 B1 22 22 A7 4E B2 C6 28 44 |T..D1$.."".N..(D|
00000960: 31 24 29 00 7F 11 86 0B 8B 44 32 24 B3 B1 22 22 |1$)......D2$..""|
00000970: A7 4E B2 4E AA C6 28 44 32 24 29 AC 32 35 36 00 |.N.N..(D2$).256.|
00000980: 97 11 B8 0B A1 23 33 2C 44 32 24 3A 8B 53 54 B3 |.....#3,D2$:.ST.|
00000990: B1 30 A7 33 35 30 30 00 AC 11 EA 0B 8B 44 32 24 |.0.3500......D2$|
000009A0: B3 B1 C7 28 33 34 29 A7 33 30 30 30 00 DA 11 1C |...(34).3000....|
000009B0: 0C A1 23 33 2C 44 32 24 3A 8B 44 32 24 B3 B1 C7 |..#3,D2$:.D2$...|
000009C0: 28 33 34 29 A7 49 24 28 50 29 B2 49 24 28 50 29 |(34).I$(P).I$(P)|
000009D0: AA 44 32 24 3A 89 33 31 30 30 00 F6 11 4E 0C A1 |.D2$:.3100...N..|
000009E0: 23 33 2C 44 32 24 3A 8B 44 32 24 B2 C7 28 33 32 |#3,D2$:.D2$..(32|
000009F0: 29 A7 33 31 35 30 00 00 12 80 0C 4E 24 B2 22 22 |).3150.....N$.""|
00000A00: 00 24 12 B2 0C 4E 24 B2 4E 24 AA 44 32 24 3A A1 |.$...N$.N$.D2$:.|
00000A10: 23 33 2C 44 32 24 3A 8B 44 32 24 B3 B1 22 22 A7 |#3,D2$:.D2$.."".|
00000A20: 33 32 35 30 00 3A 12 E4 0C 99 4E 3B 22 20 22 3B |3250.:....N;" ";|
00000A30: 49 24 28 50 29 2C 4E 24 2C 50 00 4F 12 16 0D 49 |I$(P),N$,P.O...I|
00000A40: 24 28 50 29 20 B2 20 4B 24 AA 49 24 28 50 29 00 |$(P) . K$.I$(P).|
00000A50: 6C 12 48 0D 8F 20 50 52 49 4E 54 49 24 28 50 29 |l.H.. PRINTI$(P)|
00000A60: 20 20 44 45 42 55 47 20 41 49 44 2E 00 7B 12 7A | DEBUG AID..{.z|
00000A70: 0D 8B 53 54 B2 30 A7 33 35 35 30 00 89 12 AC 0D |..ST.0.3550.....|
00000A80: A0 33 3A 89 20 35 36 35 30 00 8F 12 DE 0D 3A 00 |.3:. 5650.....:.|
00000A90: 9F 12 10 0E 50 B2 50 AA 31 3A 89 32 36 30 30 00 |....P.P.1:.2600.|
00000AA0: B9 12 42 0E 8D 20 37 34 35 30 20 3A 20 8F 20 46 |..B.. 7450 : . F|
00000AB0: 49 58 20 54 41 42 4C 45 2E 00 C4 12 74 0E 89 20 |IX TABLE....t.. |
00000AC0: 34 34 30 30 00 CA 12 A6 0E 3A 00 E2 12 D8 0E 8F |4400.....:......|
00000AD0: 20 20 50 52 49 4E 54 20 54 4F 20 53 43 52 45 45 | PRINT TO SCREE|
00000AE0: 4E 2E 00 01 13 0A 0F 99 3A 99 22 11 49 44 20 20 |N.......:.".ID |
00000AF0: 50 52 4F 47 2F 46 49 4C 45 20 4E 41 4D 45 20 11 |PROG/FILE NAME .|
00000B00: 22 00 0D 13 3C 0F 49 B2 30 3A 4B B2 30 00 1B 13 |"...<.I.0:K.0...|
00000B10: 6E 0F 49 20 B2 20 49 20 AA 20 31 00 29 13 A0 0F |n.I . I . 1.)...|
00000B20: 4B 20 B2 20 4B 20 AA 20 31 00 3C 13 D2 0F 8B 20 |K . K . 1.<.... |
00000B30: 49 20 B1 20 50 20 A7 20 34 33 35 30 00 4F 13 04 |I . P . 4350.O..|
00000B40: 10 8B 20 4B 20 B1 20 50 20 A7 20 34 33 35 30 00 |.. K . P . 4350.|
00000B50: 5B 13 36 10 99 20 49 24 28 49 29 00 6F 13 68 10 |[.6.. I$(I).o.h.|
00000B60: 8B 20 4B 20 B3 20 32 30 20 A7 20 33 39 35 30 00 |. K . 20 . 3950.|
00000B70: 95 13 9A 10 85 22 11 11 50 52 45 53 53 20 52 45 |....."..PRESS RE|
00000B80: 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |TURN TO CONTINUE|
00000B90: 2D 22 3B 51 24 00 A4 13 CC 10 4B B2 30 3A 89 20 |-";Q$.....K.0:. |
00000BA0: 33 39 35 30 00 AA 13 FE 10 8E 00 CA 13 30 11 99 |3950.........0..|
00000BB0: 22 11 11 46 52 45 45 20 42 59 54 45 53 20 3D 22 |"..FREE BYTES ="|
00000BC0: 3B 3A 8D 37 32 35 30 3A 99 4D 00 F9 13 62 11 99 |;:.7250:.M...b..|
00000BD0: 22 11 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 50 |".TOTAL NUMBER P|
00000BE0: 52 4F 47 53 20 28 49 4E 43 4C 20 44 49 53 4B 20 |ROGS (INCL DISK |
00000BF0: 48 44 52 29 20 3D 22 3B 50 00 08 14 94 11 8F 20 |HDR) =";P...... |
00000C00: 20 43 48 4F 49 43 45 53 00 2C 14 C6 11 99 22 11 | CHOICES.,....".|
00000C10: 11 50 4C 45 41 53 45 20 43 48 4F 4F 53 45 20 41 |.PLEASE CHOOSE A|
00000C20: 4E 20 4F 50 54 49 4F 4E 20 3A 2D 22 00 5A 14 F8 |N OPTION :-".Z..|
00000C30: 11 99 22 11 31 2E 20 53 43 52 45 45 4E 20 4C 49 |..".1. SCREEN LI|
00000C40: 53 54 20 44 49 52 45 43 54 4F 52 59 53 20 41 53 |ST DIRECTORYS AS|
00000C50: 20 45 4E 54 45 52 45 44 2E 22 00 88 14 2A 12 99 | ENTERED."...*..|
00000C60: 22 32 2E 20 50 52 49 4E 54 45 52 20 4C 49 53 54 |"2. PRINTER LIST|
00000C70: 20 44 49 52 45 43 54 4F 52 59 53 20 41 53 20 45 | DIRECTORYS AS E|
00000C80: 4E 54 45 52 45 44 2E 22 00 B6 14 5C 12 99 22 33 |NTERED."...\.."3|
00000C90: 2E 20 53 4F 52 54 20 42 59 20 44 49 53 4B 2D 49 |. SORT BY DISK-I|
00000CA0: 44 20 54 48 45 4E 20 50 52 49 4E 54 45 52 20 4C |D THEN PRINTER L|
00000CB0: 49 53 54 2E 20 22 00 EF 14 8E 12 99 22 34 2E 20 |IST. "......"4. |
00000CC0: 53 4F 52 54 20 42 59 20 50 52 4F 47 52 41 4D 45 |SORT BY PROGRAME|
00000CD0: 2F 46 49 4C 45 20 54 48 45 4E 20 50 52 49 4E 54 |/FILE THEN PRINT|
00000CE0: 45 52 20 20 20 20 20 20 4C 49 53 54 2E 20 22 00 |ER LIST. ".|
00000CF0: 1E 15 C0 12 99 22 20 20 20 23 20 34 20 20 57 49 |....." # 4 WI|
00000D00: 4C 4C 20 47 49 56 45 20 59 4F 55 20 41 20 43 52 |LL GIVE YOU A CR|
00000D10: 4F 53 53 20 52 45 46 45 52 45 4E 43 45 22 00 34 |OSS REFERENCE".4|
00000D20: 15 F2 12 99 22 20 20 20 54 4F 20 44 49 53 4B 2D |...." TO DISK-|
00000D30: 49 44 2E 22 00 5D 15 24 13 99 22 35 2E 20 53 43 |ID.".].$.."5. SC|
00000D40: 52 45 45 4E 20 4C 49 53 54 20 53 4F 52 54 45 44 |REEN LIST SORTED|
00000D50: 20 42 59 20 44 49 53 4B 2D 49 44 2E 22 00 88 15 | BY DISK-ID."...|
00000D60: 56 13 99 22 36 2E 20 53 43 52 45 45 4E 20 4C 49 |V.."6. SCREEN LI|
00000D70: 53 54 20 53 4F 52 54 45 44 20 42 59 20 50 52 4F |ST SORTED BY PRO|
00000D80: 47 2F 46 49 4C 45 2E 22 00 9A 15 88 13 99 22 37 |G/FILE."......"7|
00000D90: 2E 20 12 51 55 49 54 2E 92 22 00 BF 15 92 13 99 |. .QUIT.."......|
00000DA0: 22 38 2E 20 46 49 4E 44 20 50 41 52 54 49 43 55 |"8. FIND PARTICU|
00000DB0: 4C 41 52 20 50 52 4F 47 2F 46 49 4C 45 2E 22 00 |LAR PROG/FILE.".|
00000DC0: F7 15 97 13 99 22 39 2E 20 53 41 56 45 20 54 48 |....."9. SAVE TH|
00000DD0: 45 20 43 55 52 52 45 4E 54 20 54 41 42 4C 45 20 |E CURRENT TABLE |
00000DE0: 4F 46 20 4E 41 4D 45 53 20 54 4F 20 20 20 20 20 |OF NAMES TO |
00000DF0: 20 44 49 53 4B 2E 22 00 29 16 BA 13 99 22 11 11 | DISK.".)...."..|
00000E00: 4E 4F 54 45 3A 20 59 4F 55 20 57 49 4C 4C 20 42 |NOTE: YOU WILL B|
00000E10: 45 20 52 45 54 55 52 4E 45 44 20 54 4F 20 54 48 |E RETURNED TO TH|
00000E20: 49 53 20 4D 45 4E 55 2E 22 00 49 16 EC 13 85 22 |IS MENU.".I...."|
00000E30: 11 11 43 48 4F 49 43 45 20 20 34 9D 9D 9D 22 3B |..CHOICE 4...";|
00000E40: 51 24 3A 50 54 24 B2 51 24 00 5D 16 1E 14 8B 20 |Q$:PT$.Q$.].... |
00000E50: 51 24 B2 22 31 22 20 A7 20 39 37 35 30 00 72 16 |Q$."1" . 9750.r.|
00000E60: 50 14 8B 20 51 24 B2 22 32 22 20 A7 20 31 30 31 |P.. Q$."2" . 101|
00000E70: 35 30 00 87 16 82 14 8B 20 51 24 B2 22 33 22 20 |50...... Q$."3" |
00000E80: A7 20 31 30 34 35 30 00 9C 16 B4 14 8B 20 51 24 |. 10450...... Q$|
00000E90: B2 22 34 22 20 A7 20 31 30 38 30 30 00 B1 16 E6 |."4" . 10800....|
00000EA0: 14 8B 20 51 24 B2 22 35 22 20 A7 20 31 31 33 30 |.. Q$."5" . 1130|
00000EB0: 30 00 C6 16 18 15 8B 20 51 24 B2 22 36 22 20 A7 |0...... Q$."6" .|
00000EC0: 20 31 31 38 35 30 00 DB 16 4A 15 8B 20 51 24 B2 | 11850...J.. Q$.|
00000ED0: 22 37 22 20 A7 20 31 31 31 35 30 00 F0 16 4C 15 |"7" . 11150...L.|
00000EE0: 8B 20 51 24 B2 22 38 22 20 A7 20 31 34 30 30 30 |. Q$."8" . 14000|
00000EF0: 00 05 17 4E 15 8B 20 51 24 B2 22 39 22 20 A7 20 |...N.. Q$."9" . |
00000F00: 31 36 30 30 30 00 3E 17 7C 15 99 22 11 53 4F 52 |16000.>.|..".SOR|
00000F10: 52 59 2C 20 50 4C 53 20 50 49 43 4B 20 41 47 41 |RY, PLS PICK AGA|
00000F20: 49 4E 20 28 4F 50 54 49 4F 4E 20 31 2D 39 20 4F |IN (OPTION 1-9 O|
00000F30: 4E 4C 59 29 2E 2E 2E 22 3A 89 35 31 30 30 00 49 |NLY)...":.5100.I|
00000F40: 17 AE 15 89 20 35 36 30 30 00 64 17 E0 15 99 22 |.... 5600.d...."|
00000F50: 46 49 4E 49 53 48 45 44 2C 20 42 59 45 2E 2E 2E |FINISHED, BYE...|
00000F60: 22 3A 20 80 00 6A 17 12 16 3A 00 7F 17 14 16 8B |": ..j...:......|
00000F70: 20 44 4E 20 B2 20 31 30 20 A7 20 35 37 30 30 00 | DN . 10 . 5700.|
00000F80: 94 17 16 16 8B 20 44 4E 20 B2 20 32 30 20 A7 20 |..... DN . 20 . |
00000F90: 35 37 30 30 00 A9 17 18 16 8B 20 44 4E 20 B2 20 |5700...... DN . |
00000FA0: 33 30 20 A7 20 35 37 30 30 00 BE 17 1A 16 8B 20 |30 . 5700...... |
00000FB0: 44 4E 20 B2 20 34 30 20 A7 20 35 37 30 30 00 D3 |DN . 40 . 5700..|
00000FC0: 17 1C 16 8B 20 44 4E 20 B2 20 35 30 20 A7 20 35 |.... DN . 50 . 5|
00000FD0: 37 30 30 00 E8 17 21 16 8B 20 44 4E 20 B1 20 35 |700...!.. DN . 5|
00000FE0: 39 20 A7 20 35 37 30 30 00 F3 17 26 16 89 20 35 |9 . 5700...&.. 5|
00000FF0: 37 35 30 00 15 18 44 16 99 22 11 12 46 52 45 45 |750...D.."..FREE|
00001000: 20 42 59 54 45 53 20 3D 92 22 3B 3A 8D 20 37 32 | BYTES =.";:. 72|
00001010: 35 30 3A 99 4D 00 48 18 76 16 85 22 12 11 11 41 |50:.M.H.v.."...A|
00001020: 4E 59 20 4D 4F 52 45 20 44 49 53 4B 53 20 54 4F |NY MORE DISKS TO|
00001030: 20 46 45 45 44 20 49 4E 20 20 59 2F 4E 29 92 20 | FEED IN Y/N). |
00001040: 59 9D 9D 9D 22 3B 51 24 00 5C 18 A8 16 8B 20 51 |Y...";Q$.\.... Q|
00001050: 24 B2 22 59 22 20 A7 20 35 39 30 30 00 67 18 DA |$."Y" . 5900.g..|
00001060: 16 89 20 33 36 35 30 00 A4 18 0C 17 85 22 90 11 |.. 3650......"..|
00001070: 11 12 97 20 49 4E 53 45 52 54 20 4E 45 58 54 20 |... INSERT NEXT |
00001080: 44 49 53 4B 45 54 54 45 20 54 48 45 4E 20 50 52 |DISKETTE THEN PR|
00001090: 45 53 53 20 52 45 54 55 52 4E 20 12 98 92 1F 2E |ESS RETURN .....|
000010A0: 22 3B 51 24 00 D8 18 3E 17 8F 20 20 20 20 20 20 |";Q$...>.. |
000010B0: 20 50 52 49 4E 54 22 92 46 52 45 45 20 42 59 54 | PRINT".FREE BYT|
000010C0: 45 53 20 3D 22 3B 3A 47 4F 53 55 42 20 34 32 30 |ES =";:GOSUB 420|
000010D0: 30 3A 50 52 49 4E 54 4D 00 E3 18 70 17 89 20 32 |0:PRINTM...p.. 2|
000010E0: 35 30 30 00 E9 18 A2 17 3A 00 0C 19 D4 17 8F 20 |500.....:...... |
000010F0: 50 52 49 4E 54 45 52 20 28 48 41 52 44 2D 43 4F |PRINTER (HARD-CO|
00001100: 50 59 29 20 52 4F 55 54 49 4E 45 2E 00 12 19 06 |PY) ROUTINE.....|
00001110: 18 3A 00 33 19 38 18 8B 20 54 50 24 20 B2 20 22 |.:.3.8.. TP$ . "|
00001120: 4F 22 20 A7 20 36 34 30 30 20 3A 20 8F 20 45 50 |O" . 6400 : . EP|
00001130: 53 4F 4E 00 53 19 6A 18 8D 20 31 32 34 35 20 20 |SON.S.j.. 1245 |
00001140: 20 20 20 20 20 20 20 20 20 20 20 30 3A 20 8F 20 | 0: . |
00001150: 43 42 4D 00 59 19 9C 18 8E 00 5F 19 CE 18 3A 00 |CBM.Y....._...:.|
00001160: 81 19 00 19 8F 20 4E 4F 4E 2D 43 42 4D 20 50 52 |..... NON-CBM PR|
00001170: 49 4E 54 45 52 20 28 45 50 53 4F 4E 20 21 21 29 |INTER (EPSON !!)|
00001180: 2E 00 8C 19 32 19 9F 31 32 38 2C 34 00 A6 19 64 |....2..128,4...d|
00001190: 19 98 31 32 38 2C 20 20 20 20 20 20 20 C7 28 32 |..128, .(2|
000011A0: 37 29 3B 22 40 22 00 C1 19 96 19 98 31 32 38 2C |7);"@"......128,|
000011B0: C7 28 37 29 C7 28 32 37 29 3B 22 40 22 3B 22 20 |.(7).(27);"@";" |
000011C0: 22 00 EC 19 C8 19 98 31 32 38 2C C7 28 31 34 29 |"......128,.(14)|
000011D0: 22 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 53 |"DISK DIRECTORYS|
000011E0: 20 41 53 20 41 54 20 22 3B 44 41 24 00 FE 19 FA | AS AT ";DA$....|
000011F0: 19 98 31 32 38 2C C7 28 32 37 29 22 20 22 00 42 |..128,.(27)" ".B|
00001200: 1A 2C 1A 98 31 32 38 2C C7 28 32 37 29 C7 28 31 |.,..128,.(27).(1|
00001210: 35 29 22 49 44 20 20 20 50 52 4F 47 52 41 4D 4D |5)"ID PROGRAMM|
00001220: 45 2F 46 49 4C 45 22 3B 22 20 20 20 20 20 20 20 |E/FILE";" |
00001230: 20 20 20 20 20 43 48 4F 49 43 45 20 3D 22 3B 43 | CHOICE =";C|
00001240: 48 24 00 5A 1A 5E 1A 98 31 32 38 2C C7 28 32 37 |H$.Z.^..128,.(27|
00001250: 29 3B 22 40 22 3B 22 20 20 22 00 6A 1A 90 1A 81 |);"@";" ".j....|
00001260: 20 49 20 B2 20 31 20 A4 20 50 00 80 1A C2 1A 98 | I . 1 . P......|
00001270: 31 32 38 2C C7 28 31 38 29 20 20 49 24 28 49 29 |128,.(18) I$(I)|
00001280: 00 88 1A F4 1A 82 20 49 00 BB 1A 26 1B 98 31 32 |...... I...&..12|
00001290: 38 2C 22 20 20 22 3A 20 98 31 32 38 2C 22 46 52 |8," ": .128,"FR|
000012A0: 45 45 20 42 59 54 45 53 20 3D 22 3B 3A 8D 20 37 |EE BYTES =";:. 7|
000012B0: 32 35 30 3A 20 98 31 32 38 2C 4D 00 ED 1A 58 1B |250: .128,M...X.|
000012C0: 98 31 32 38 2C 22 54 4F 54 41 4C 20 4E 55 4D 42 |.128,"TOTAL NUMB|
000012D0: 45 52 20 50 52 4F 47 53 20 28 49 4E 43 4C 20 44 |ER PROGS (INCL D|
000012E0: 49 53 4B 20 48 44 52 29 20 3D 22 3B 50 00 13 1B |ISK HDR) =";P...|
000012F0: 8A 1B 98 31 32 38 2C 22 4E 55 4D 42 45 52 20 44 |...128,"NUMBER D|
00001300: 49 53 4B 45 54 54 45 53 20 52 45 41 44 20 3D 22 |ISKETTES READ ="|
00001310: 3B 44 4E 00 1C 1B BC 1B 98 31 32 38 00 3F 1B EE |;DN......128.?..|
00001320: 1B 98 31 32 38 2C 22 46 49 4E 49 53 48 45 44 2C |..128,"FINISHED,|
00001330: 20 42 59 45 2E 2E 2E 22 20 3A A0 20 31 32 38 00 | BYE..." :. 128.|
00001340: 45 1B 20 1C 8E 00 5E 1B 52 1C 8F 20 20 20 43 41 |E. ...^.R.. CA|
00001350: 4C 43 20 46 52 45 45 20 42 59 54 45 53 2E 00 7A |LC FREE BYTES..z|
00001360: 1B 84 1C 4D 20 B2 20 B8 28 30 29 AB 28 B8 28 30 |...M . .(0).(.(0|
00001370: 29 B3 30 29 AC 36 35 35 33 36 00 80 1B B6 1C 3A |).0).65536.....:|
00001380: 00 86 1B E8 1C 8E 00 8C 1B 1A 1D 3A 00 D7 1B 4C |...........:...L|
00001390: 1D 8F 20 20 20 46 49 58 20 54 48 45 20 31 53 54 |.. FIX THE 1ST|
000013A0: 20 54 57 4F 20 42 59 54 45 53 20 4F 46 20 54 48 | TWO BYTES OF TH|
000013B0: 45 20 54 41 42 4C 45 20 52 45 3A 2D 20 44 49 53 |E TABLE RE:- DIS|
000013C0: 4B 20 49 44 20 43 41 52 52 49 45 53 20 4F 56 45 |K ID CARRIES OVE|
000013D0: 52 20 31 20 54 4F 4F 00 E4 1B 7E 1D 8F 20 20 4D |R 1 TOO...~.. M|
000013E0: 41 4E 59 2E 00 EA 1B B0 1D 3A 00 13 1C E2 1D 99 |ANY......:......|
000013F0: 22 11 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 |".ONE MOMENT PLE|
00001400: 41 53 45 2E 2E 2E 22 3A 20 20 20 20 20 8D 20 37 |ASE...": . 7|
00001410: 32 35 30 00 36 1C 14 1E 45 24 B2 22 22 3A 51 B2 |250.6...E$."":Q.|
00001420: 30 3A 56 24 B2 22 22 3A 43 24 B2 22 22 3A 57 B2 |0:V$."":C$."":W.|
00001430: 30 3A 57 31 B2 30 00 4B 1C 46 1E 50 B2 50 AB 31 |0:W1.0.K.F.P.P.1|
00001440: 20 3A 20 46 24 B2 49 24 28 50 29 00 5B 1C 78 1E | : F$.I$(P).[.x.|
00001450: 81 20 49 20 B2 20 31 20 A4 20 50 00 69 1C AA 1E |. I . 1 . P.i...|
00001460: 51 20 B2 20 49 20 AA 20 31 00 7D 1C DC 1E 8B 20 |Q . I . 1.}.... |
00001470: 51 20 B1 28 50 29 20 A7 20 38 33 35 30 00 A2 1C |Q .(P) . 8350...|
00001480: 0E 1F 56 24 B2 49 24 28 51 29 20 20 20 20 3A 20 |..V$.I$(Q) : |
00001490: 8F 20 4E 45 58 54 20 54 41 42 4C 45 20 45 4E 54 |. NEXT TABLE ENT|
000014A0: 52 59 00 C7 1C 40 1F 43 24 B2 49 24 28 49 29 20 |RY...@.C$.I$(I) |
000014B0: 20 20 20 3A 20 8F 20 43 55 52 52 20 54 41 42 4C | : . CURR TABL|
000014C0: 45 20 45 4E 54 52 59 00 EC 1C 72 1F 8B 20 C8 28 |E ENTRY...r.. .(|
000014D0: 43 24 2C 32 29 20 B2 20 C8 28 56 24 2C 32 29 20 |C$,2) . .(V$,2) |
000014E0: A7 20 20 20 20 20 20 20 38 33 30 30 00 F8 1C A4 |. 8300....|
000014F0: 1F 57 B2 C3 28 56 24 29 00 07 1D D6 1F 57 31 20 |.W..(V$).....W1 |
00001500: B2 20 57 20 AB 20 34 00 22 1D 08 20 45 24 B2 C8 |. W . 4.".. E$..|
00001510: 28 56 24 2C 32 29 AA 22 A0 22 AA CA 28 43 24 2C |(V$,2)."."..(C$,|
00001520: 34 29 00 31 1D 3A 20 49 24 28 49 29 20 B2 20 45 |4).1.: I$(I) . E|
00001530: 24 00 39 1D 6C 20 82 20 49 00 46 1D 9E 20 49 24 |$.9.l . I.F.. I$|
00001540: 28 50 29 B2 46 24 00 4C 1D D0 20 8E 00 60 1D 02 |(P).F$.L.. ..`..|
00001550: 21 8F 20 20 53 4F 52 54 20 52 4F 55 54 49 4E 45 |!. SORT ROUTINE|
00001560: 00 78 1D 34 21 49 31 B2 31 3A 4A 31 B2 50 3A 41 |.x.4!I1.1:J1.P:A|
00001570: B2 30 3A 54 24 B2 22 22 00 8B 1D 66 21 49 B2 49 |.0:T$.""...f!I.I|
00001580: 31 3A 4A B2 4A 31 3A 53 B2 AB 31 00 91 1D 98 21 |1:J.J1:S..1....!|
00001590: 3A 00 B4 1D CA 21 8B 20 50 54 24 20 B2 20 22 34 |:....!. PT$ . "4|
000015A0: 22 20 B0 20 50 54 24 20 B2 20 22 36 22 20 A7 20 |" . PT$ . "6" . |
000015B0: 38 38 30 30 00 D3 1D FC 21 8B 20 49 24 28 49 29 |8800....!. I$(I)|
000015C0: 20 B3 B2 20 49 24 28 4A 29 20 20 20 20 A7 20 39 | .. I$(J) . 9|
000015D0: 30 30 30 00 DE 1D 2E 22 89 20 38 38 35 30 00 0A |000....". 8850..|
000015E0: 1E 60 22 8B 20 CA 28 49 24 28 49 29 2C 34 29 20 |.`". .(I$(I),4) |
000015F0: B3 B2 20 CA 28 49 24 28 4A 29 2C 34 29 20 20 20 |.. .(I$(J),4) |
00001600: 20 20 20 20 A7 20 39 30 30 30 00 30 1E 92 22 54 | . 9000.0.."T|
00001610: 24 B2 49 24 28 49 29 20 3A 20 49 24 28 49 29 B2 |$.I$(I) : I$(I).|
00001620: 49 24 28 4A 29 20 3A 20 49 24 28 4A 29 B2 54 24 |I$(J) : I$(J).T$|
00001630: 00 42 1E C4 22 99 22 53 4F 52 54 49 4E 47 2E 2E |.B.."."SORTING..|
00001640: 22 3B 00 50 1E F6 22 53 20 B2 20 B4 28 AB 53 29 |";.P.."S . .(.S)|
00001650: 00 61 1E 28 23 8B 20 53 B2 31 20 A7 20 39 31 30 |.a.(#. S.1 . 910|
00001660: 30 00 74 1E 5A 23 4A B2 4A AB 31 20 3A 20 89 20 |0.t.Z#J.J.1 : . |
00001670: 39 31 35 30 00 7E 1E 8C 23 49 B2 49 AA 31 00 8F |9150.~..#I.I.1..|
00001680: 1E BE 23 8B 20 49 B3 4A 20 A7 20 38 36 30 30 00 |..#. I.J . 8600.|
00001690: A6 1E F0 23 8B 20 49 AA 31 20 B1 B2 20 4A 31 20 |...#. I.1 .. J1 |
000016A0: A7 20 39 33 30 30 00 CB 1E 22 24 41 B2 41 AA 31 |. 9300..."$A.A.1|
000016B0: 20 3A 20 53 39 28 41 2C 31 29 B2 49 AA 31 20 3A | : S9(A,1).I.1 :|
000016C0: 20 53 39 28 41 2C 32 29 B2 4A 31 00 D8 1E 54 24 | S9(A,2).J1...T$|
000016D0: 4A 31 20 B2 20 49 AB 31 00 EB 1E 86 24 8B 20 49 |J1 . I.1....$. I|
000016E0: 31 B3 4A 31 20 A7 20 38 35 35 30 00 FC 1E B8 24 |1.J1 . 8550....$|
000016F0: 8B 20 41 B2 30 20 A7 20 39 35 35 30 00 24 1F EA |. A.0 . 9550.$..|
00001700: 24 49 31 20 B2 20 53 39 28 41 2C 31 29 20 3A 20 |$I1 . S9(A,1) : |
00001710: 4A 31 20 B2 20 53 39 28 41 2C 32 29 20 3A 20 41 |J1 . S9(A,2) : A|
00001720: B2 41 AB 31 00 2F 1F 1C 25 89 20 38 35 35 30 00 |.A.1./..%. 8550.|
00001730: 4F 1F 4E 25 8F 20 53 4F 52 54 20 46 49 4E 49 53 |O.N%. SORT FINIS|
00001740: 48 45 44 20 53 4F 20 50 52 49 4E 54 45 52 2E 00 |HED SO PRINTER..|
00001750: 87 1F 80 25 99 22 20 22 3A 99 20 22 12 20 53 4F |...%." ":. ". SO|
00001760: 52 54 20 46 49 4E 49 53 48 45 44 20 28 51 55 49 |RT FINISHED (QUI|
00001770: 43 4B 2D 53 4F 52 54 20 4D 45 54 48 4F 44 20 55 |CK-SORT METHOD U|
00001780: 53 45 44 29 92 1F 22 00 9F 1F B2 25 8F 20 44 45 |SED).."....%. DE|
00001790: 42 55 47 20 20 47 4F 53 55 42 20 33 35 35 35 00 |BUG GOSUB 3555.|
000017A0: A5 1F E4 25 8E 00 CA 1F 16 26 8F 20 43 48 4F 49 |...%.....&. CHOI|
000017B0: 43 45 20 31 20 3D 20 43 52 54 20 4C 49 53 54 20 |CE 1 = CRT LIST |
000017C0: 41 53 20 45 4E 54 45 52 45 44 00 F1 1F 48 26 43 |AS ENTERED...H&C|
000017D0: 48 24 B2 20 22 50 52 49 4E 54 20 54 4F 20 53 43 |H$. "PRINT TO SC|
000017E0: 52 45 45 4E 20 41 53 20 45 4E 54 45 52 45 44 2E |REEN AS ENTERED.|
000017F0: 22 00 03 20 7A 26 99 22 11 22 3B 43 48 24 3B 22 |".. z&.".";CH$;"|
00001800: 91 20 22 00 0E 20 AC 26 8D 20 33 37 35 30 00 34 |. ".. .&. 3750.4|
00001810: 20 DE 26 85 22 11 11 50 52 45 53 53 20 52 45 54 | .&."..PRESS RET|
00001820: 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2D |URN TO CONTINUE-|
00001830: 22 3B 51 24 00 3E 20 10 27 99 22 93 11 22 00 49 |";Q$.> .'."..".I|
00001840: 20 42 27 89 20 34 35 30 30 00 4F 20 74 27 3A 00 | B'. 4500.O t':.|
00001850: 74 20 A6 27 8F 20 43 48 4F 49 43 45 20 32 20 3D |t .'. CHOICE 2 =|
00001860: 20 50 52 54 20 4C 49 53 54 20 41 53 20 45 4E 54 | PRT LIST AS ENT|
00001870: 45 52 45 44 00 A0 20 D8 27 43 48 24 20 B2 20 22 |ERED.. .'CH$ . "|
00001880: 50 52 49 4E 54 45 52 20 50 52 4F 47 53 2F 46 49 |PRINTER PROGS/FI|
00001890: 4C 45 53 20 41 53 20 45 4E 54 45 52 45 44 2E 22 |LES AS ENTERED."|
000018A0: 00 B3 20 0A 28 99 22 91 20 22 3B 43 48 24 3B 22 |.. .(.". ";CH$;"|
000018B0: 20 91 22 00 BE 20 3C 28 8D 20 36 34 35 30 00 C9 | .".. <(. 6450..|
000018C0: 20 6E 28 89 20 34 35 30 30 00 CF 20 A0 28 3A 00 | n(. 4500.. .(:.|
000018D0: F4 20 D2 28 8F 20 43 48 4F 49 43 45 20 33 20 3D |. .(. CHOICE 3 =|
000018E0: 20 53 4F 52 54 2F 50 52 54 20 42 59 20 44 49 53 | SORT/PRT BY DIS|
000018F0: 4B 2D 49 44 00 2B 21 04 29 43 48 24 20 B2 20 22 |K-ID.+!.)CH$ . "|
00001900: 20 33 2E 20 50 52 49 4E 54 45 52 20 50 52 4F 47 | 3. PRINTER PROG|
00001910: 53 2F 46 49 4C 45 53 20 53 4F 52 54 45 44 20 42 |S/FILES SORTED B|
00001920: 59 20 44 49 53 4B 2D 49 44 2E 22 00 3E 21 36 29 |Y DISK-ID.".>!6)|
00001930: 99 22 91 20 22 3B 43 48 24 3B 22 20 91 22 00 4F |.". ";CH$;" .".O|
00001940: 21 68 29 8D 20 38 34 35 30 20 3A 99 22 91 22 00 |!h). 8450 :.".".|
00001950: 5A 21 9A 29 8D 20 36 30 35 30 00 66 21 CC 29 89 |Z!.). 6050.f!.).|
00001960: 20 20 34 35 30 30 00 6C 21 FE 29 3A 00 93 21 30 | 4500.l!.):..!0|
00001970: 2A 8F 20 43 48 4F 49 43 45 20 34 20 3D 20 53 4F |*. CHOICE 4 = SO|
00001980: 52 54 2F 50 52 54 20 42 59 20 50 52 4F 47 2F 46 |RT/PRT BY PROG/F|
00001990: 49 4C 45 00 D6 21 62 2A 43 48 24 20 B2 20 22 20 |ILE..!b*CH$ . " |
000019A0: 34 2E 20 50 52 49 4E 54 45 52 20 50 52 4F 47 53 |4. PRINTER PROGS|
000019B0: 2F 46 49 4C 45 53 20 53 4F 52 54 45 44 20 42 59 |/FILES SORTED BY|
000019C0: 20 50 52 4F 47 52 41 4D 4D 45 2F 46 49 4C 45 20 | PROGRAMME/FILE |
000019D0: 4E 41 4D 45 2E 22 00 E9 21 94 2A 99 22 91 20 22 |NAME."..!.*.". "|
000019E0: 3B 43 48 24 3B 22 20 91 22 00 FA 21 C6 2A 8D 20 |;CH$;" ."..!.*. |
000019F0: 38 34 35 30 20 3A 99 22 91 22 00 05 22 F8 2A 8D |8450 :."."..".*.|
00001A00: 20 36 30 35 30 00 11 22 2A 2B 89 20 20 34 35 30 | 6050.."*+. 450|
00001A10: 30 00 17 22 5C 2B 3A 00 2E 22 8E 2B 8F 20 43 48 |0.."\+:..".+. CH|
00001A20: 4F 49 43 45 20 37 20 3D 20 51 55 49 54 2E 00 48 |OICE 7 = QUIT..H|
00001A30: 22 C0 2B 99 22 11 11 54 48 41 54 27 53 20 49 54 |".+."..THAT'S IT|
00001A40: 20 46 4F 4C 4B 53 2E 22 00 53 22 F2 2B 89 20 35 | FOLKS.".S".+. 5|
00001A50: 36 30 30 00 59 22 24 2C 3A 00 89 22 56 2C 8F 20 |600.Y"$,:.."V,. |
00001A60: 43 48 4F 49 43 45 20 35 20 3D 20 53 43 52 45 45 |CHOICE 5 = SCREE|
00001A70: 4E 20 4C 49 53 54 20 53 4F 52 54 45 44 20 42 59 |N LIST SORTED BY|
00001A80: 20 44 49 53 4B 2D 49 44 2E 00 BC 22 88 2C 43 48 | DISK-ID...".,CH|
00001A90: 24 20 B2 20 22 53 43 52 45 45 4E 20 20 50 52 4F |$ . "SCREEN PRO|
00001AA0: 47 53 2F 46 49 4C 45 53 20 53 4F 52 54 45 44 20 |GS/FILES SORTED |
00001AB0: 42 59 20 44 49 53 4B 2D 49 44 2E 22 00 CF 22 BA |BY DISK-ID."..".|
00001AC0: 2C 99 22 91 20 22 3B 43 48 24 3B 22 20 91 22 00 |,.". ";CH$;" .".|
00001AD0: E0 22 EC 2C 8D 20 38 34 35 30 20 3A 99 22 91 22 |.".,. 8450 :."."|
00001AE0: 00 F3 22 1E 2D 99 22 91 20 22 3B 43 48 24 3B 22 |..".-.". ";CH$;"|
00001AF0: 20 91 22 00 FE 22 50 2D 8D 20 33 37 35 30 00 1D | .".."P-. 3750..|
00001B00: 23 82 2D 99 22 11 41 4E 59 20 4B 45 59 20 54 4F |#.-.".ANY KEY TO|
00001B10: 20 43 4F 4E 54 49 4E 55 45 2E 2E 2E 22 00 3A 23 | CONTINUE...".:#|
00001B20: B4 2D A1 20 51 24 3A 20 8B 20 51 24 20 B2 20 20 |.-. Q$: . Q$ . |
00001B30: 22 22 20 A7 20 31 31 37 30 30 00 46 23 E6 2D 89 |"" . 11700.F#.-.|
00001B40: 20 20 34 35 30 30 00 4C 23 18 2E 3A 00 52 23 4A | 4500.L#..:.R#J|
00001B50: 2E 3A 00 84 23 7C 2E 8F 20 43 48 4F 49 43 45 20 |.:..#|.. CHOICE |
00001B60: 36 20 3D 20 53 43 52 45 45 4E 20 4C 49 53 54 20 |6 = SCREEN LIST |
00001B70: 53 4F 52 54 45 44 20 42 59 20 50 52 4F 47 2F 46 |SORTED BY PROG/F|
00001B80: 49 4C 45 2E 00 B9 23 AE 2E 43 48 24 20 B2 20 22 |ILE...#..CH$ . "|
00001B90: 53 43 52 45 45 4E 20 20 50 52 4F 47 53 2F 46 49 |SCREEN PROGS/FI|
00001BA0: 4C 45 53 20 53 4F 52 54 45 44 20 42 59 20 50 52 |LES SORTED BY PR|
00001BB0: 4F 47 2F 46 49 4C 45 2E 22 00 CC 23 E0 2E 99 22 |OG/FILE."..#..."|
00001BC0: 91 20 22 3B 43 48 24 3B 22 20 91 22 00 DC 23 12 |. ";CH$;" ."..#.|
00001BD0: 2F 8D 20 38 34 35 30 3A 99 22 91 22 00 EF 23 44 |/. 8450:."."..#D|
00001BE0: 2F 99 22 91 20 22 3B 43 48 24 3B 22 20 91 22 00 |/.". ";CH$;" .".|
00001BF0: FA 23 76 2F 8D 20 33 37 35 30 00 19 24 A8 2F 99 |.#v/. 3750..$./.|
00001C00: 22 11 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |".ANY KEY TO CON|
00001C10: 54 49 4E 55 45 2E 2E 2E 22 00 36 24 DA 2F A1 20 |TINUE...".6$./. |
00001C20: 51 24 3A 20 8B 20 51 24 20 B2 20 20 22 22 20 A7 |Q$: . Q$ . "" .|
00001C30: 20 31 31 37 30 30 00 42 24 0C 30 89 20 20 34 35 | 11700.B$.0. 45|
00001C40: 30 30 00 48 24 3E 30 3A 00 4E 24 70 30 3A 00 71 |00.H$>0:.N$p0:.q|
00001C50: 24 A2 30 8F 20 50 52 49 4E 54 45 52 20 28 48 41 |$.0. PRINTER (HA|
00001C60: 52 44 2D 43 4F 50 59 29 20 52 4F 55 54 49 4E 45 |RD-COPY) ROUTINE|
00001C70: 2E 00 77 24 D4 30 3A 00 8E 24 06 31 8F 20 20 20 |..w$.0:..$.1. |
00001C80: 20 20 43 42 4D 20 50 52 49 4E 54 45 52 2E 00 94 | CBM PRINTER...|
00001C90: 24 38 31 3A 00 B8 24 6A 31 8F 20 4E 4F 4E 2D 43 |$81:..$j1. NON-C|
00001CA0: 42 4D 20 28 45 50 53 4F 4E 29 2C 20 47 4F 54 4F |BM (EPSON), GOTO|
00001CB0: 20 36 31 30 30 20 20 2E 00 BE 24 9C 31 3A 00 C7 | 6100 ...$.1:..|
00001CC0: 24 CE 31 9F 34 2C 34 00 E1 24 00 32 98 34 2C 20 |$.1.4,4..$.2.4, |
00001CD0: 20 20 20 20 20 20 20 20 C7 28 32 37 29 3B 22 20 | .(27);" |
00001CE0: 22 00 FB 24 32 32 98 34 2C C7 28 31 35 29 C7 28 |"..$22.4,.(15).(|
00001CF0: 31 35 29 3B 22 20 22 3B 22 20 22 00 24 25 64 32 |15);" ";" ".$%d2|
00001D00: 98 34 2C C7 28 31 34 29 22 44 49 53 4B 20 44 49 |.4,.(14)"DISK DI|
00001D10: 52 45 43 54 4F 52 59 53 20 41 53 20 41 54 20 22 |RECTORYS AS AT "|
00001D20: 3B 44 41 24 00 34 25 96 32 98 34 2C C7 28 31 35 |;DA$.4%.2.4,.(15|
00001D30: 29 22 20 22 00 69 25 C8 32 98 34 2C C7 28 31 35 |)" ".i%.2.4,.(15|
00001D40: 29 C7 28 31 35 29 22 49 44 20 50 52 4F 47 52 41 |).(15)"ID PROGRA|
00001D50: 4D 4D 45 2F 46 49 4C 45 22 3B 22 20 43 48 4F 49 |MME/FILE";" CHOI|
00001D60: 43 45 20 3D 22 3B 43 48 24 00 7F 25 FA 32 98 34 |CE =";CH$..%.2.4|
00001D70: 2C C7 28 31 35 29 3B 22 20 22 3B 22 20 20 22 00 |,.(15);" ";" ".|
00001D80: 8F 25 2C 33 81 20 49 20 B2 20 31 20 A4 20 50 00 |.%,3. I . 1 . P.|
00001D90: 9C 25 5E 33 98 34 2C 49 24 28 49 29 00 A4 25 90 |.%^3.4,I$(I)..%.|
00001DA0: 33 82 20 49 00 D1 25 C2 33 98 34 2C 22 20 20 22 |3. I..%.3.4," "|
00001DB0: 3A 20 98 34 2C 22 46 52 45 45 20 42 59 54 45 53 |: .4,"FREE BYTES|
00001DC0: 20 3D 22 3B 3A 8D 20 37 32 35 30 3A 20 98 34 2C | =";:. 7250: .4,|
00001DD0: 4D 00 01 26 F4 33 98 34 2C 22 54 4F 54 41 4C 20 |M..&.3.4,"TOTAL |
00001DE0: 4E 55 4D 42 45 52 20 50 52 4F 47 53 20 28 49 4E |NUMBER PROGS (IN|
00001DF0: 43 4C 20 44 49 53 4B 20 48 44 52 29 20 3D 22 3B |CL DISK HDR) =";|
00001E00: 50 00 25 26 26 34 98 34 2C 22 4E 55 4D 42 45 52 |P.%&&4.4,"NUMBER|
00001E10: 20 44 49 53 4B 45 54 54 45 53 20 52 45 41 44 20 | DISKETTES READ |
00001E20: 3D 22 3B 44 4E 00 2C 26 58 34 98 34 00 4B 26 8A |=";DN.,&X4.4.K&.|
00001E30: 34 98 34 2C 22 46 49 4E 49 53 48 45 44 2C 20 42 |4.4,"FINISHED, B|
00001E40: 59 45 2E 2E 2E 22 20 3A A0 20 34 00 51 26 BC 34 |YE..." :. 4.Q&.4|
00001E50: 8E 00 57 26 B0 36 3A 00 79 26 BA 36 3A 8F 20 43 |..W&.6:.y&.6:. C|
00001E60: 48 4F 49 43 45 20 38 20 3D 20 46 49 4E 44 20 50 |HOICE 8 = FIND P|
00001E70: 52 4F 47 2F 46 49 4C 45 2E 00 7F 26 C4 36 3A 00 |ROG/FILE...&.6:.|
00001E80: A5 26 14 37 99 22 93 11 11 59 4F 55 20 48 41 56 |.&.7."...YOU HAV|
00001E90: 45 20 50 49 43 4B 45 44 20 43 48 4F 49 43 45 20 |E PICKED CHOICE |
00001EA0: 38 20 3A 2D 22 00 D3 26 1E 37 99 22 12 46 49 4E |8 :-"..&.7.".FIN|
00001EB0: 44 20 41 20 50 41 52 54 49 43 55 4C 41 52 20 50 |D A PARTICULAR P|
00001EC0: 52 4F 47 52 41 4D 4D 45 20 4F 52 20 46 49 4C 45 |ROGRAMME OR FILE|
00001ED0: 2E 92 22 00 FA 26 28 37 99 22 11 55 53 45 20 54 |.."..&(7.".USE T|
00001EE0: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 54 45 43 |HE FOLLOWING TEC|
00001EF0: 48 4E 49 51 55 45 20 3A 2D 22 00 3D 27 32 37 99 |HNIQUE :-".='27.|
00001F00: 22 11 31 2E 20 4C 4F 41 44 20 49 4E 20 59 4F 55 |".1. LOAD IN YOU|
00001F10: 52 20 50 52 45 56 49 4F 55 53 4C 59 20 53 41 56 |R PREVIOUSLY SAV|
00001F20: 45 44 20 20 20 20 20 20 20 20 20 20 20 50 52 4F |ED PRO|
00001F30: 47 2F 46 49 4C 45 20 54 41 42 4C 45 22 00 68 27 |G/FILE TABLE".h'|
00001F40: 34 37 99 22 20 20 20 54 48 45 4E 20 55 53 45 20 |47." THEN USE |
00001F50: 4F 50 54 49 4F 4E 20 58 2E 20 28 49 4E 20 54 48 |OPTION X. (IN TH|
00001F60: 45 20 4D 45 4E 55 29 22 00 77 27 37 37 99 3A 99 |E MENU)".w'77.:.|
00001F70: 22 4F 52 2C 22 3A 99 00 C0 27 3C 37 99 22 32 2E |"OR,":...'<7."2.|
00001F80: 20 46 45 45 44 20 49 4E 20 41 4C 4C 20 4F 46 20 | FEED IN ALL OF |
00001F90: 54 48 45 20 44 49 53 4B 45 54 54 45 53 20 28 57 |THE DISKETTES (W|
00001FA0: 48 49 43 48 20 20 59 4F 55 20 4D 41 59 20 48 41 |HICH YOU MAY HA|
00001FB0: 56 45 20 20 4A 55 53 54 20 44 4F 4E 45 29 2E 22 |VE JUST DONE)."|
00001FC0: 00 0F 28 78 37 99 22 11 54 48 45 4E 20 50 49 43 |..(x7.".THEN PIC|
00001FD0: 4B 20 45 49 54 48 45 52 20 4F 50 54 49 4F 4E 20 |K EITHER OPTION |
00001FE0: 34 20 4F 52 20 36 20 46 52 4F 4D 20 54 48 45 20 |4 OR 6 FROM THE |
00001FF0: 4D 45 4E 55 2E 20 20 54 48 49 53 20 57 49 4C 4C |MENU. THIS WILL|
00002000: 20 53 4F 52 54 20 54 48 45 20 46 49 4C 45 22 00 | SORT THE FILE".|
00002010: 37 28 AA 37 99 22 49 4E 54 4F 20 41 4C 50 48 41 |7(.7."INTO ALPHA|
00002020: 20 4F 52 44 45 52 20 41 4E 44 20 44 49 53 50 4C | ORDER AND DISPL|
00002030: 41 59 20 49 54 2E 22 00 67 28 DC 37 99 22 59 4F |AY IT.".g(.7."YO|
00002040: 55 20 43 41 4E 20 54 48 45 4E 20 4C 4F 43 41 54 |U CAN THEN LOCAT|
00002050: 45 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 4D 45 |E YOUR PROGRAMME|
00002060: 2F 46 49 4C 45 2E 22 00 A8 28 0E 38 99 22 54 48 |/FILE."..(.8."TH|
00002070: 45 20 53 43 52 45 45 4E 20 44 49 53 50 4C 41 59 |E SCREEN DISPLAY|
00002080: 20 57 49 4C 4C 20 50 41 55 53 45 20 41 46 54 45 | WILL PAUSE AFTE|
00002090: 52 20 20 20 20 20 45 56 45 52 59 20 32 30 20 45 |R EVERY 20 E|
000020A0: 4E 54 52 49 45 53 2E 22 00 CD 28 40 38 85 22 11 |NTRIES."..(@8.".|
000020B0: 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 |PRESS RETURN TO |
000020C0: 43 4F 4E 54 49 4E 55 45 2D 22 3B 51 24 00 D8 28 |CONTINUE-";Q$..(|
000020D0: A4 38 89 20 34 35 35 30 00 DE 28 98 3A 3A 00 02 |.8. 4550..(.::..|
000020E0: 29 A2 3A 8F 20 4C 4F 41 44 20 41 20 50 52 45 56 |).:. LOAD A PREV|
000020F0: 49 4F 55 53 4C 59 20 53 41 56 45 44 20 46 49 4C |IOUSLY SAVED FIL|
00002100: 45 2E 00 08 29 AC 3A 3A 00 22 29 FC 3A 85 22 57 |E...).::.").:."W|
00002110: 48 41 54 20 46 49 4C 45 4E 41 4D 45 20 22 3B 58 |HAT FILENAME ";X|
00002120: 4E 24 00 4A 29 60 3B 99 22 4F 4B 2C 20 49 20 57 |N$.J)`;."OK, I W|
00002130: 49 4C 4C 20 54 52 59 20 54 4F 20 4C 4F 41 44 20 |ILL TRY TO LOAD |
00002140: 46 49 4C 45 20 22 3B 58 4E 24 00 5D 29 C5 3B 9F |FILE ";XN$.]).;.|
00002150: 20 31 35 2C 38 2C 31 35 2C 22 49 4F 22 00 79 29 | 15,8,15,"IO".y)|
00002160: C9 3B 8D 20 31 37 30 30 30 20 3A 20 8F 20 44 49 |.;. 17000 : . DI|
00002170: 53 4B 20 53 54 41 54 55 53 00 95 29 BE 3C 9F 20 |SK STATUS..).<. |
00002180: 32 2C 38 2C 32 2C 22 30 3A 22 AA 58 4E 24 AA 22 |2,8,2,"0:".XN$."|
00002190: 2C 53 2C 52 22 00 A1 29 C8 3C 8D 20 31 37 30 30 |,S,R"..).<. 1700|
000021A0: 30 00 B6 29 F0 3C 99 20 22 4C 4F 41 44 49 4E 47 |0..).<. "LOADING|
000021B0: 20 22 3B 58 4E 24 00 E3 29 FA 3C 84 32 2C 4E 45 | ";XN$..).<.2,NE|
000021C0: 25 20 3A 20 50 20 B2 20 4E 45 25 20 3A 99 22 4E |% : P . NE% :."N|
000021D0: 55 4D 42 45 52 20 45 4E 54 52 49 45 53 20 3D 20 |UMBER ENTRIES = |
000021E0: 22 3B 50 00 F5 29 04 3D 81 20 49 20 B2 20 31 20 |";P..).=. I . 1 |
000021F0: A4 20 50 AA 31 00 0B 2A 0E 3D 84 32 2C 49 24 28 |. P.1..*.=.2,I$(|
00002200: 49 29 20 3A 20 99 49 24 28 49 29 00 13 2A 2C 3D |I) : .I$(I)..*,=|
00002210: 82 20 49 00 1B 2A 36 3D A0 20 32 00 43 2A 40 3D |. I..*6=. 2.C*@=|
00002220: 99 22 11 46 49 4E 49 53 48 45 44 20 52 45 41 44 |.".FINISHED READ|
00002230: 49 4E 47 20 22 3B 50 20 3B 22 52 45 43 4F 52 44 |ING ";P ;"RECORD|
00002240: 53 2E 22 00 5F 2A 54 3D 89 20 34 35 30 30 20 20 |S."._*T=. 4500 |
00002250: 3A 20 8F 20 20 4D 41 49 4E 20 4D 45 4E 55 2E 00 |: . MAIN MENU..|
00002260: 65 2A 80 3E 3A 00 8C 2A 8A 3E 8F 20 53 41 56 45 |e*.>:..*.>. SAVE|
00002270: 20 54 48 45 20 43 55 52 52 45 4E 54 20 54 41 42 | THE CURRENT TAB|
00002280: 4C 45 20 4F 46 20 4E 41 4D 45 53 2E 00 92 2A 94 |LE OF NAMES...*.|
00002290: 3E 3A 00 AD 2A A8 3E A0 20 31 35 3A 20 20 20 9F |>:..*.>. 15: .|
000022A0: 20 31 35 2C 38 2C 31 35 2C 22 49 4F 22 00 C9 2A | 15,8,15,"IO"..*|
000022B0: E4 3E 8D 20 31 37 30 30 30 20 3A 20 8F 20 44 49 |.>. 17000 : . DI|
000022C0: 53 4B 20 53 54 41 54 55 53 00 E5 2A E9 3E 59 4E |SK STATUS..*.>YN|
000022D0: 24 B2 22 44 45 46 41 55 4C 54 2E 44 49 52 45 43 |$."DEFAULT.DIREC|
000022E0: 54 4F 52 59 22 00 2D 2B EE 3E 99 22 11 11 4F 4B |TORY".-+.>."..OK|
000022F0: 2E 20 49 20 57 49 4C 4C 20 43 52 45 41 54 45 20 |. I WILL CREATE |
00002300: 41 20 4E 45 57 20 44 49 53 4B 20 46 49 4C 45 20 |A NEW DISK FILE |
00002310: 54 4F 20 20 20 20 53 41 56 45 20 54 48 45 20 43 |TO SAVE THE C|
00002320: 55 52 52 45 4E 54 20 54 41 42 4C 45 22 00 40 2B |URRENT TABLE".@+|
00002330: EF 3E 99 22 4F 46 20 4E 41 4D 45 53 2E 11 11 22 |.>."OF NAMES..."|
00002340: 00 5A 2B F8 3E 85 22 57 48 41 54 20 46 49 4C 45 |.Z+.>."WHAT FILE|
00002350: 4E 41 4D 45 20 22 3B 59 4E 24 00 89 2B 48 3F 99 |NAME ";YN$..+H?.|
00002360: 22 4F 4B 2C 20 49 20 57 49 4C 4C 20 57 52 49 54 |"OK, I WILL WRIT|
00002370: 45 20 20 20 20 22 3B 59 4E 24 3A 99 22 54 4F 20 |E ";YN$:."TO |
00002380: 44 49 53 4B 20 2E 2E 2E 22 00 8F 2B AC 3F 3A 00 |DISK ..."..+.?:.|
00002390: AF 2B B1 3F 8F 20 49 24 28 31 29 20 3D 20 22 54 |.+.?. I$(1) = "T|
000023A0: 54 20 54 45 53 54 22 20 3A 20 50 20 3D 20 31 00 |T TEST" : P = 1.|
000023B0: D0 2B B2 3F 8F 20 49 24 28 32 29 20 3D 20 22 54 |.+.?. I$(2) = "T|
000023C0: 54 20 54 45 53 54 32 22 20 3A 20 50 20 3D 20 32 |T TEST2" : P = 2|
000023D0: 00 EC 2B B6 3F 9F 20 32 2C 38 2C 32 2C 22 30 3A |..+.?. 2,8,2,"0:|
000023E0: 22 AA 59 4E 24 AA 22 2C 53 2C 57 22 00 F8 2B C0 |".YN$.",S,W"..+.|
000023F0: 3F 8D 20 31 37 30 30 30 00 07 2C C1 3F 50 45 20 |?. 17000..,.?PE |
00002400: B2 20 50 20 AA 20 31 00 29 2C C2 3F 4E 45 25 20 |. P . 1.),.?NE% |
00002410: B2 20 50 45 20 20 20 3A 20 8F 20 4E 55 4D 42 45 |. PE : . NUMBE|
00002420: 52 20 45 4E 54 52 49 45 53 00 49 2C C5 3F 98 32 |R ENTRIES.I,.?.2|
00002430: 2C 4E 45 25 20 20 3A 20 8F 20 46 4F 52 20 46 55 |,NE% : . FOR FU|
00002440: 54 55 52 45 20 4C 4F 41 44 00 59 2C 10 40 81 20 |TURE LOAD.Y,.@. |
00002450: 49 20 B2 20 31 20 A4 20 50 00 6C 2C 1A 40 98 32 |I . 1 . P.l,.@.2|
00002460: 2C 49 24 28 49 29 C7 28 31 33 29 3B 00 74 2C 24 |,I$(I).(13);.t,$|
00002470: 40 82 20 49 00 7C 2C 42 40 A0 20 32 00 88 2C 74 |@. I.|,B@. 2..,t|
00002480: 40 8D 20 31 37 30 30 30 00 AF 2C 79 40 99 22 11 |@. 17000..,y@.".|
00002490: 46 49 4E 49 53 48 45 44 20 57 52 49 54 49 4E 47 |FINISHED WRITING|
000024A0: 20 46 49 4C 45 20 54 4F 20 44 49 53 4B 20 22 00 | FILE TO DISK ".|
000024B0: C2 2C 7E 40 99 22 4E 41 4D 45 20 3D 20 22 3B 59 |.,~@."NAME = ";Y|
000024C0: 4E 24 00 CB 2C D8 40 A0 20 31 35 00 D6 2C 04 42 |N$..,.@. 15..,.B|
000024D0: 89 20 34 35 30 30 00 DC 2C 68 42 3A 00 EF 2C 72 |. 4500..,hB:..,r|
000024E0: 42 8F 20 44 49 53 4B 20 53 54 41 54 55 53 2E 00 |B. DISK STATUS..|
000024F0: F5 2C 7C 42 3A 00 0A 2D CC 42 84 31 35 2C 5A 4E |.,|B:..-.B.15,ZN|
00002500: 2C 5A 53 24 2C 5A 54 2C 5A 59 00 19 2D 30 43 8B |,ZS$,ZT,ZY..-0C.|
00002510: 20 5A 4E B2 30 20 A7 20 8E 00 32 2D 3A 43 99 22 | ZN.0 . ..2-:C."|
00002520: 11 11 44 49 53 4B 20 45 52 52 4F 52 20 2E 2E 2E |..DISK ERROR ...|
00002530: 20 22 00 45 2D 94 43 99 20 5A 4E 3B 5A 53 24 3B | ".E-.C. ZN;ZS$;|
00002540: 5A 54 3B 5A 59 00 4D 2D A8 43 A0 20 32 00 53 2D |ZT;ZY.M-.C. 2.S-|
00002550: F8 43 90 00 59 2D EC 45 3A 00 5F 2D F6 45 3A 00 |.C..Y-.E:._-.E:.|
00002560: 00 00 |.. |
....D..53280,6:.53281,6.Y...."....DISK D
IRECTORY SORT/LIST":."...BY .DOUGLASS E
GOULEY.";.S.H.." MARCH 1984..".....
.". TPUG # 4300"...,.."..HELLO, PLEAS
E ENTER TO-DAY'S DATE".T.^..".(ANY FORMA
T WILL DO)."......" 15 MARCH 1984.....
.............";DA$...B.."...THANK YOU.".
:...."...THE PRINTER ROUTINE USES".^.&..
"PRINT#4,4 FOR CBM OPTION."...X.."PRI
NT#128,4 FOR OTHER OPTION."......".CHOS
E A PRINTER OPTION :-"......"C = CBM.".H
...."O = OTHER."... ..".. O...";TP$..
.R.."...THANK YOU."......".. INSTRUCTION
S (Y/N) N...";Q$./.... Q$ . "N" . 2300.
_...."..THIS PROGRAMME WILL ASK YOU TO F
EED IN"......"EACH OF YOUR 1541 DISKETTE
S ONE AT A"...L.."TIME. THE COMPUTER WI
LL READ THE".S.~.."DIRECTORY INTO A TABL
E."......"AT THE END OF EACH DISKETTE YO
U WILL BE"./...."ASKED IF THERE ARE ANY
MORE DISKETTES".P...."TO BE READ. RESPO
ND Y/N."..F.."AFTER ALL DISKETTES HAVE
BEEN READ, YOU"...X.."WILL BE GIVEN THE
OPTIONS :- "......"-> PRINTER L
ISTING AS ENTERED,OR SORTED"......"-> SO
RT BY DISK-ID THEN PRINT HARD-COPY".H...
."-> SORT BY PROGRAMME NAME THEN PRINT
HARD-COPY.".K...."-> FIND ANY PROGR
AMME/FILE."......"-> SAVE THE ACCUMULATE
D PROG/FILE NAMES TO DISK."......"->
READ THE ACCUMULATED PROG/FILE NAMES
FROM DISK."...@.."-> QUIT.!."...R.."MULT
IPLE CHOICES ARE ALLOWED".P.V.."IF THE C
OMPUTER PAUSES,GIVE IT TIME TO THINK !"
.U....".PRESS RETURN TO CONTINUE-";Q$...
:..".. "...L.."..WATCH THE .FREE BYTE. D
ISPLAY TO SEE IF"......"YOU STILL HAVE R
OOM TO INSERT DISKETTES."...P.."RESERVE
ABOUT 100 BYTES FOR THE SORT.".C...."..M
ANY THANKS TO 'COMPUTE!' FOR THE IDEA, A
ND".S.4.."TO LORNA MCCARNEY FOR HER TYPI
NG SKILLS."...6.."TO AL SCARLETT FOR THE
LOAN OF HIS PROGRAMMING MANUALS.".
..F.."...IF THE COMPUTER PAUSES,GIVE IT
TIME TO ":."THINK !"......"..PRESS RETUR
N TO CONTINUE-";Q$. .E.:.?.J..S9(20,2)
: . SORT TABLE..B....I$(900) : . MAX T
ABLE ENTRY.H...:.~....53280,1:.53281,1..
...."..".L.0..".DO YOU WISH TO LOAD A PR
EVIOULSY SAVED FILE OF NAMES (Y/N)"...2
..".. N...";Q$...6.. Q$ . "Y" . 15000
.:.`.."..INSERT FIRST DISKETTE, PLEASE.(
RETURN)"; RQ$:RQ$."":Q$."".C...DN.0.Y.D.
DN.DN.1:.".READING DISK DIRECTORY NUMBER
";DN;".."......3,8,0,"$0":.#3,D1$,D2$...
(..#3,D1$,D2$:.#3,D1$,D2$:N.0.R.Z.. H(N$
,3) ."USR" . 2900...... H(N$,3) ."PRG"
. 2900...... H(N$,3) ."SEQ" . 2900.)..
.. H(N$,3) ."REL" . 2900.M.".K$.H(N$,2)
:K$.K$." " :. PRINTK$.C.T..D1$.."".N.F(D
1$).....D2$.."".N.N.F(D2$).256......#3,
D2$:.ST..0.3500......D2$..G(34).3000.Z..
..#3,D2$:.D2$..G(34).I$(P).I$(P).D2$:.31
00...N..#3,D2$:.D2$.G(32).3150.....N$.""
.$...N$.N$.D2$:.#3,D2$:.D2$.."".3250.:..
..N;" ";I$(P),N$,P.O...I$(P) . K$.I$(P).
L.H.. PRINTI$(P) DEBUG AID..{.Z..ST.0.3
550..... 3:. 5650.....:.....P.P.1:.2600.
..B.. 7450 : . FIX TABLE..D.T.. 4400.J..
.:...X.. PRINT TO SCREEN.......:.".ID
PROG/FILE NAME ."...<.I.0:K.0...N.I . I
. 1.). .K . K . 1.<.R.. I . P . 4350.O..
.. K . P . 4350.[.6.. I$(I).O.H.. K . 20
. 3950......"..PRESS RETURN TO CONTINUE
-";Q$...L.K.0:. 3950.......J.0.."..FREE
BYTES =";:.7250:.M...B..".TOTAL NUMBER P
ROGS (INCL DISK HDR) =";P...... CHOICES
.,.F.."..PLEASE CHOOSE AN OPTION :-".Z..
..".1. SCREEN LIST DIRECTORYS AS ENTERED
."...*.."2. PRINTER LIST DIRECTORYS AS E
NTERED."...\.."3. SORT BY DISK-ID THEN P
RINTER LIST. "......"4. SORT BY PROGRAME
/FILE THEN PRINTER LIST. "......"
# 4 WILL GIVE YOU A CROSS REFERENCE".4
...." TO DISK-ID.".].$.."5. SCREEN LIS
T SORTED BY DISK-ID."...V.."6. SCREEN LI
ST SORTED BY PROG/FILE."......"7. .QUIT.
."......"8. FIND PARTICULAR PROG/FILE.".
....."9. SAVE THE CURRENT TABLE OF NAMES
TO DISK.".)...."..NOTE: YOU WILL B
E RETURNED TO THIS MENU.".I...."..CHOICE
4...";Q$:PT$.Q$.].... Q$."1" . 9750.R.
P.. Q$."2" . 10150...... Q$."3" . 10450.
..... Q$."4" . 10800...... Q$."5" . 1130
0.F.... Q$."6" . 11850...J.. Q$."7" . 11
150...L.. Q$."8" . 14000...N.. Q$."9" .
16000.>.|..".SORRY, PLS PICK AGAIN (OPTI
ON 1-9 ONLY)...":.5100.I.... 5600.D...."
FINISHED, BYE...": ..J...:..... DN . 10
. 5700...... DN . 20 . 5700...... DN .
30 . 5700...... DN . 40 . 5700.S.... DN
. 50 . 5700...!.. DN . 59 . 5700...&.. 5
750...D.."..FREE BYTES =.";:. 7250:.M.H.
V.."...ANY MORE DISKS TO FEED IN Y/N).
Y...";Q$.\.... Q$."Y" . 5900.G.Z.. 3650.
....."..... INSERT NEXT DISKETTE THEN PR
ESS RETURN .....";Q$.X.>.. PRINT".
FREE BYTES =";:GOSUB 4200:PRINTM...P.. 2
500.....:...T.. PRINTER (HARD-COPY) ROUT
INE......:.3.8.. TP$ . "O" . 6400 : . EP
SON.S.J.. 1245 0: . CBM.Y...
.._.N.:...... NON-CBM PRINTER (EPSON !!)
....2..128,4...D..128, G(27);"@".A
....128,G(7)G(27);"@";" "...H..128,G(14)
"DISK DIRECTORYS AS AT ";DA$......128,G(
27)" ".B.,..128,G(27)G(15)"ID PROGRAMM
E/FILE";" CHOICE =";CH$.Z.^..
128,G(27);"@";" ".J.... I . 1 . P...B..
128,G(18) I$(I)...... I...&..128," ":
.128,"FREE BYTES =";:. 7250: .128,M...X.
.128,"TOTAL NUMBER PROGS (INCL DISK HDR)
=";P......128,"NUMBER DISKETTES READ ="
;DN......128.?....128,"FINISHED, BYE..."
: 128.E. ...^.R.. CALC FREE BYTES..Z
...M . .(0).(.(0).0).65536.....:........
...:.W.L.. FIX THE 1ST TWO BYTES OF TH
E TABLE RE:- DISK ID CARRIES OVER 1 TOO.
..~.. MANY......:......".ONE MOMENT PLE
ASE...": . 7250.6...E$."":Q.0:V$."":
C$."":W.0:W1.0.K.F.P.P.1 : F$.I$(P).[.X.
. I . 1 . P.I...Q . I . 1.}.... Q .(P) .
8350.....V$.I$(Q) : . NEXT TABLE ENT
RY.G.@.C$.I$(I) : . CURR TABLE ENTRY.
..R.. H(C$,2) . H(V$,2) . 8300....
.W.C(V$)...V.W1 . W . 4.".. E$.H(V$,2)."
".J(C$,4).1.: I$(I) . E$.9.L . I.F.. I$
(P).F$.L.P ..`..!. SORT ROUTINE.X.4!I1.
1:J1.P:A.0:T$.""...F!I.I1:J.J1:S..1....!
:...J!. PT$ . "4" . PT$ . "6" . 8800.S..
!. I$(I) .. I$(J) . 9000....". 8850..
.`". J(I$(I),4) .. J(I$(J),4) . 90
00.0.."T$.I$(I) : I$(I).I$(J) : I$(J).T$
.B.D"."SORTING..";.P.."S . .(.S).A.(#. S
.1 . 9100.T.Z#J.J.1 : . 9150.~..#I.I.1..
..#. I.J . 8600....#. I.1 .. J1 . 9300.K
."$A.A.1 : S9(A,1).I.1 : S9(A,2).J1.X.T$
J1 . I.1....$. I1.J1 . 8550....$. A.0 .
9550.$..$I1 . S9(A,1) : J1 . S9(A,2) : A
.A.1./..%. 8550.O.N%. SORT FINISHED SO P
RINTER.....%." ":. ". SORT FINISHED (QUI
CK-SORT METHOD USED).."....%. DEBUG GOS
UB 3555....%..J..&. CHOICE 1 = CRT LIST
AS ENTERED...H&CH$. "PRINT TO SCREEN AS
ENTERED.".. Z&.".";CH$;". ".. .&. 3750.4
.&."..PRESS RETURN TO CONTINUE-";Q$.> .
'."..".I B'. 4500.O T':.T .'. CHOICE 2 =
PRT LIST AS ENTERED. X'CH$ . "PRINTER
PROGS/FILES AS ENTERED.".. .(.". ";CH$;"
.".. <(. 6450.I N(. 4500.O (:.. R(. CH
OICE 3 = SORT/PRT BY DISK-ID.+!.)CH$ . "
3. PRINTER PROGS/FILES SORTED BY DISK-I
D.".>!6).". ";CH$;" .".O!H). 8450 :.".".
Z!.). 6050.F!L). 4500.L!.):..!0*. CHOIC
E 4 = SORT/PRT BY PROG/FILE.V!B*CH$ . "
4. PRINTER PROGS/FILES SORTED BY PROGRAM
ME/FILE NAME."..!.*.". ";CH$;" ."..!F*.
8450 :."."..".*. 6050.."*+. 4500.."\+:.
.".+. CHOICE 7 = QUIT..H".+."..THAT'S IT
FOLKS.".S".+. 5600.Y"$,:.."V,. CHOICE 5
= SCREEN LIST SORTED BY DISK-ID...".,CH
$ . "SCREEN PROGS/FILES SORTED BY DISK-
ID.".O".,.". ";CH$;" ."..".,. 8450 :."."
..".-.". ";CH$;" .".."P-. 3750..#.-.".AN
Y KEY TO CONTINUE...".:#.-. Q$: . Q$ .
"" . 11700.F#.-. 4500.L#..:.R#J.:..#|..
CHOICE 6 = SCREEN LIST SORTED BY PROG/F
ILE...#..CH$ . "SCREEN PROGS/FILES SORT
ED BY PROG/FILE.".L#...". ";CH$;" ."..#.
/. 8450:."."..#D/.". ";CH$;" ."..#V/. 37
50..$./.".ANY KEY TO CONTINUE...".6$Z/.
Q$: . Q$ . "" . 11700.B$.0. 4500.H$>0:
.N$P0:.Q$.0. PRINTER (HARD-COPY) ROUTINE
..W$T0:..$.1. CBM PRINTER...$81:..$J
1. NON-CBM (EPSON), GOTO 6100 ...$.1:.G
$N1.4,4..$.2.4, G(27);" "..$22.4
,G(15)G(15);" ";" ".$%D2.4,G(14)"DISK DI
RECTORYS AS AT ";DA$.4%.2.4,G(15)" ".I%H
2.4,G(15)G(15)"ID PROGRAMME/FILE";" CHOI
CE =";CH$.%.2.4,G(15);" ";" "..%,3. I
. 1 . P..%^3.4,I$(I)..%.3. I.Q%B3.4," "
: .4,"FREE BYTES =";:. 7250: .4,M..&.3.4
,"TOTAL NUMBER PROGS (INCL DISK HDR) =";
P.%&&4.4,"NUMBER DISKETTES READ =";DN.,&
X4.4.K&.4.4,"FINISHED, BYE..." : 4.Q&.4
..W&.6:.Y&.6:. CHOICE 8 = FIND PROG/FILE
..&D6:..&.7."...YOU HAVE PICKED CHOICE
8 :-".S&.7.".FIND A PARTICULAR PROGRAMME
OR FILE.."..&(7.".USE THE FOLLOWING TEC
HNIQUE :-".='27.".1. LOAD IN YOUR PREVIO
USLY SAVED PROG/FILE TABLE".H'
47." THEN USE OPTION X. (IN THE MENU)"
.W'77.:."OR,":...'<7."2. FEED IN ALL OF
THE DISKETTES (WHICH YOU MAY HAVE JUST
DONE)."..(X7.".THEN PICK EITHER OPTION
4 OR 6 FROM THE MENU. THIS WILL SORT TH
E FILE".7(.7."INTO ALPHA ORDER AND DISPL
AY IT.".G(.7."YOU CAN THEN LOCATE YOUR P
ROGRAMME/FILE."..(.8."THE SCREEN DISPLAY
WILL PAUSE AFTER EVERY 20 ENTRIES."
.M(@8.".PRESS RETURN TO CONTINUE-";Q$.X(
.8. 4550..(.::..).:. LOAD A PREVIOUSLY S
AVED FILE...).::.").:."WHAT FILENAME ";X
N$.J)`;."OK, I WILL TRY TO LOAD FILE ";X
N$.])E;. 15,8,15,"IO".Y)I;. 17000 : . DI
SK STATUS..).<. 2,8,2,"0:".XN$.",S,R"..)
H<. 17000..).<. "LOADING ";XN$..).<.2,NE
% : P . NE% :."NUMBER ENTRIES = ";P..).=
. I . 1 . P.1..*.=.2,I$(I) : .I$(I)..*,=
. I..*6= 2.C*@=.".FINISHED READING ";P
;"RECORDS."._*T=. 4500 : . MAIN MENU..
E*.>:..*.>. SAVE THE CURRENT TABLE OF NA
MES...*.>:..*.> 15: . 15,8,15,"IO".I*
.>. 17000 : . DISK STATUS..*.>YN$."DEFAU
LT.DIRECTORY".-+.>."..OK. I WILL CREATE
A NEW DISK FILE TO SAVE THE CURRENT T
ABLE".@+.>."OF NAMES...".Z+.>."WHAT FILE
NAME ";YN$..+H?."OK, I WILL WRITE ";Y
N$:."TO DISK ..."..+.?:..+.?. I$(1) = "T
T TEST" : P = 1.P+.?. I$(2) = "TT TEST2"
: P = 2..+.?. 2,8,2,"0:".YN$.",S,W"..+.
?. 17000..,A?PE . P . 1.),B?NE% . PE :
. NUMBER ENTRIES.I,E?.2,NE% : . FOR FU
TURE LOAD.Y,.@. I . 1 . P.L,.@.2,I$(I)G(
13);.T,$@. I.|,B@ 2..,T@. 17000..,Y@.".
FINISHED WRITING FILE TO DISK ".B,~@."NA
ME = ";YN$.K,X@ 15.V,.B. 4500..,HB:..,R
B. DISK STATUS...,|B:..-LB.15,ZN,ZS$,ZT,
ZY..-0C. ZN.0 . ..2-:C."..DISK ERROR ...
".E-.C. ZN;ZS$;ZT;ZY.M-.C 2.S-.C..Y-.E
:._-.E:...
> CLICK IMAGE PREVIEW FOR FULL MODAL