T.BYTES
FILE INFORMATION
FILENAME(S): T.BYTES
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 18:05:24
APPEARS ON: 2 disk(s)
FILE HASH
0ddfabca3ffd512ded5a54a8ac5e9682ac91a238d0450d9c211f9b74024060ef
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 61 S 1 | T.BYTES | PRG | Xii | 4 | 0 | DOWNLOAD FILE |
| LOADSTAR 61 S 1 | T.BYTES | PRG | Sailor, Ganheden | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 20 20 20 20 C2 D9 |..^U:ZERO. ..| 00000010: D4 C5 D3 3A 20 C2 C1 D3 C9 C3 20 C4 C9 D2 C5 C3 |...: ..... .....| 00000020: D4 CF D2 D9 20 D4 CF 20 C1 D2 D2 C1 D9 0D 0D 20 |.... .. ....... | 00000030: 20 20 20 20 20 20 20 20 20 42 59 20 CA 45 46 46 | BY .EFF| 00000040: 52 45 59 20 CC 2E 20 CA 4F 4E 45 53 0D 0D 20 20 |REY .. .ONES.. | 00000050: 20 20 C8 4F 57 20 4F 46 54 45 4E 20 48 41 56 45 | .OW OFTEN HAVE| 00000060: 20 59 4F 55 20 57 41 4E 54 45 44 20 54 4F 0D 49 | YOU WANTED TO.I| 00000070: 4E 43 4C 55 44 45 20 41 20 4D 45 4E 55 20 46 4F |NCLUDE A MENU FO| 00000080: 52 20 54 48 45 20 46 49 4C 45 53 20 43 52 45 41 |R THE FILES CREA| 00000090: 54 45 44 0D 42 59 20 59 4F 55 52 20 50 52 4F 47 |TED.BY YOUR PROG| 000000A0: 52 41 4D 3F 20 20 D4 48 49 53 20 43 41 4E 20 42 |RAM? .HIS CAN B| 000000B0: 45 0D 50 41 49 4E 46 55 4C 4C 59 20 53 4C 4F 57 |E.PAINFULLY SLOW| 000000C0: 20 49 4E 20 C2 C1 D3 C9 C3 2C 20 47 45 54 54 49 | IN ....., GETTI| 000000D0: 4E 47 20 41 0D 43 48 41 52 41 43 54 45 52 2C 20 |NG A.CHARACTER, | 000000E0: 43 4F 4E 43 41 54 45 4E 41 54 49 4E 47 20 49 54 |CONCATENATING IT| 000000F0: 20 54 4F 20 41 0D 53 54 52 49 4E 47 2C 20 45 54 | TO A.STRING, ET| 00000100: 43 2E 20 20 D7 45 4C 4C 2C 20 48 45 52 45 27 53 |C. .ELL, HERE'S| 00000110: 20 41 20 4E 49 46 54 59 0D 4C 49 54 54 4C 45 20 | A NIFTY.LITTLE | 00000120: 52 4F 55 54 49 4E 45 20 54 48 41 54 20 57 49 4C |ROUTINE THAT WIL| 00000130: 4C 20 52 45 41 44 20 41 0D 44 49 52 45 43 54 4F |L READ A.DIRECTO| 00000140: 52 59 20 49 4E 20 41 54 20 24 43 30 30 30 20 41 |RY IN AT $C000 A| 00000150: 4E 44 20 54 48 45 4E 20 50 45 45 4B 0D 4F 55 54 |ND THEN PEEK.OUT| 00000160: 20 54 48 45 20 46 49 4C 45 20 4E 41 4D 45 53 20 | THE FILE NAMES | 00000170: 46 52 4F 4D 20 4D 45 4D 4F 52 59 2E 0D D3 49 4E |FROM MEMORY...IN| 00000180: 43 45 20 59 4F 55 27 52 45 20 44 45 41 4C 49 4E |CE YOU'RE DEALIN| 00000190: 47 20 57 49 54 48 20 4D 45 4D 4F 52 59 0D 49 4E |G WITH MEMORY.IN| 000001A0: 53 54 45 41 44 20 4F 46 20 41 20 50 48 59 53 49 |STEAD OF A PHYSI| 000001B0: 43 41 4C 20 44 49 53 4B 2C 20 47 45 54 54 49 4E |CAL DISK, GETTIN| 000001C0: 47 0D 54 48 45 20 46 49 4C 45 4E 41 4D 45 53 20 |G.THE FILENAMES | 000001D0: 49 4E 54 4F 20 41 4E 20 41 52 52 41 59 20 49 53 |INTO AN ARRAY IS| 000001E0: 0D 51 55 49 43 4B 45 52 2E 0D 0D 0D 0D 20 20 20 |.QUICKER..... | 000001F0: 20 D4 48 45 59 20 53 41 49 44 20 49 54 20 43 4F | .HEY SAID IT CO| 00000200: 55 4C 44 4E 27 54 20 42 45 20 44 4F 4E 45 2E 0D |ULDN'T BE DONE..| 00000210: D4 48 45 59 20 4C 41 55 47 48 45 44 20 41 4E 44 |.HEY LAUGHED AND| 00000220: 20 53 43 4F 46 46 45 44 20 2D 2D 20 55 4E 54 49 | SCOFFED -- UNTI| 00000230: 4C 20 C9 0D 55 4E 56 45 49 4C 45 44 20 41 20 54 |L ..UNVEILED A T| 00000240: 4F 54 41 4C 4C 59 20 C2 C1 D3 C9 C3 20 53 55 42 |OTALLY ..... SUB| 00000250: 52 4F 55 54 49 4E 45 0D 54 48 41 54 20 54 4F 4F |ROUTINE.THAT TOO| 00000260: 4B 20 46 49 4C 45 4E 41 4D 45 53 20 41 4E 44 20 |K FILENAMES AND | 00000270: 50 4C 41 43 45 44 20 54 48 45 4D 0D 49 4E 20 41 |PLACED THEM.IN A| 00000280: 4E 20 41 52 52 41 59 21 0D 0D 20 20 20 20 C1 4C |N ARRAY!.. .L| 00000290: 4C 20 59 4F 55 20 48 41 56 45 20 54 4F 20 44 4F |L YOU HAVE TO DO| 000002A0: 20 49 53 20 53 54 49 43 4B 20 54 48 49 53 0D 4C | IS STICK THIS.L| 000002B0: 49 54 54 4C 45 20 44 45 4D 4F 4E 20 49 4E 20 59 |ITTLE DEMON IN Y| 000002C0: 4F 55 52 20 50 52 4F 47 52 41 4D 20 41 4E 44 0D |OUR PROGRAM AND.| 000002D0: C7 CF D3 D5 C2 20 54 4F 20 49 54 2E 20 20 D4 48 |..... TO IT. .H| 000002E0: 45 20 C4 C9 CD 20 53 54 41 54 45 4D 45 4E 54 53 |E ... STATEMENTS| 000002F0: 20 49 4E 0D 4C 49 4E 45 20 31 30 20 53 48 4F 55 | IN.LINE 10 SHOU| 00000300: 4C 44 20 42 45 20 41 54 20 54 48 45 20 4C 49 54 |LD BE AT THE LIT| 00000310: 45 52 41 4C 0D 42 45 47 49 4E 4E 49 4E 47 20 4F |ERAL.BEGINNING O| 00000320: 46 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 |F YOUR OWN PROGR| 00000330: 41 4D 20 49 4E 53 54 45 41 44 0D 4F 46 20 49 4E |AM INSTEAD.OF IN| 00000340: 20 54 48 45 20 53 55 42 52 4F 55 54 49 4E 45 2E | THE SUBROUTINE.| 00000350: 0D 0D 20 20 20 20 D7 48 45 4E 20 52 55 4E 2C 20 |.. .HEN RUN, | 00000360: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |THIS PROGRAM WIL| 00000370: 4C 20 4C 4F 41 44 0D 49 4E 20 54 48 45 20 4E 41 |L LOAD.IN THE NA| 00000380: 4D 45 53 20 4F 46 20 41 4C 4C 20 54 48 45 20 22 |MES OF ALL THE "| 00000390: 3F 2E 46 49 4C 45 53 22 20 4F 4E 0D 54 48 49 53 |?.FILES" ON.THIS| 000003A0: 20 44 49 53 4B 20 41 4E 44 20 41 4C 4C 4F 57 20 | DISK AND ALLOW | 000003B0: 59 4F 55 20 54 4F 20 53 45 4C 45 43 54 0D 46 52 |YOU TO SELECT.FR| 000003C0: 4F 4D 20 54 48 45 4D 20 49 4E 20 41 20 4D 45 4E |OM THEM IN A MEN| 000003D0: 55 2E 0D 0D 0D 20 20 20 20 D7 48 49 4C 45 20 C9 |U.... .HILE .| 000003E0: 20 43 4F 4E 46 45 53 53 20 54 48 41 54 20 CD CC | CONFESS THAT ..| 000003F0: 20 43 4F 55 4C 44 20 44 4F 0D 54 48 45 20 4A 4F | COULD DO.THE JO| 00000400: 42 20 50 45 52 48 41 50 53 20 46 49 56 45 20 53 |B PERHAPS FIVE S| 00000410: 45 43 4F 4E 44 53 20 46 41 53 54 45 52 2C 0D C9 |ECONDS FASTER,..| 00000420: 20 54 48 49 4E 4B 20 59 4F 55 27 4C 4C 20 41 50 | THINK YOU'LL AP| 00000430: 50 52 45 43 49 41 54 45 20 54 48 45 20 53 50 45 |PRECIATE THE SPE| 00000440: 45 44 0D 4F 46 20 54 48 49 53 20 53 55 42 52 4F |ED.OF THIS SUBRO| 00000450: 55 54 49 4E 45 20 41 4E 44 20 54 48 45 20 46 41 |UTINE AND THE FA| 00000460: 43 54 20 54 48 41 54 0D 49 54 20 44 4F 45 53 4E |CT THAT.IT DOESN| 00000470: 27 54 20 54 41 4B 45 20 41 57 41 59 20 46 52 4F |'T TAKE AWAY FRO| 00000480: 4D 20 C2 C1 D3 C9 C3 0D 4D 45 4D 4F 52 59 2E 20 |M ......MEMORY. | 00000490: 20 C3 4F 4D 50 49 4C 45 44 2C 20 49 54 27 53 20 | .OMPILED, IT'S | 000004A0: 45 56 45 4E 20 42 45 54 54 45 52 2E 0D 0D 20 20 |EVEN BETTER... | 000004B0: 20 20 D4 48 45 52 45 27 53 20 4F 4E 4C 59 20 4F | .HERE'S ONLY O| 000004C0: 4E 45 20 43 41 54 43 48 3A 20 54 48 45 52 45 0D |NE CATCH: THERE.| 000004D0: 49 53 4E 27 54 20 45 4E 4F 55 47 48 20 52 4F 4F |ISN'T ENOUGH ROO| 000004E0: 4D 20 41 54 20 24 43 30 30 30 20 54 4F 20 CC CF |M AT $C000 TO ..| 000004F0: C1 C4 20 49 4E 0D 31 34 34 20 46 49 4C 45 53 2E |.. IN.144 FILES.| 00000500: 20 20 D9 4F 55 20 43 41 4E 20 53 51 55 45 45 5A | .OU CAN SQUEEZ| 00000510: 45 20 49 4E 20 41 42 4F 55 54 0D 31 33 30 20 42 |E IN ABOUT.130 B| 00000520: 55 54 20 4E 4F 54 20 54 48 45 20 46 55 4C 4C 20 |UT NOT THE FULL | 00000530: 4C 4F 41 44 2E 20 20 C9 46 20 59 4F 55 0D 48 41 |LOAD. .F YOU.HA| 00000540: 56 45 20 31 33 30 2B 20 46 49 4C 45 53 20 4F 4E |VE 130+ FILES ON| 00000550: 20 41 20 44 49 53 4B 20 28 4E 4F 54 20 56 45 52 | A DISK (NOT VER| 00000560: 59 0D 4C 49 4B 45 4C 59 29 20 59 4F 55 20 43 41 |Y.LIKELY) YOU CA| 00000570: 4E 20 55 53 45 20 57 49 4C 44 43 41 52 44 53 20 |N USE WILDCARDS | 00000580: 54 4F 20 47 45 54 0D 53 50 45 43 49 46 49 43 41 |TO GET.SPECIFICA| 00000590: 4C 4C 59 20 4E 41 4D 45 44 20 46 49 4C 45 53 2E |LLY NAMED FILES.| 000005A0: 0D 0D 0D 0D 0D 0D 20 20 20 20 C9 46 20 59 4F 55 |...... .F YOU| 000005B0: 20 4D 55 53 54 20 55 53 45 20 41 4C 4C 20 31 34 | MUST USE ALL 14| 000005C0: 34 20 46 49 4C 45 53 0D 54 48 45 4E 20 59 4F 55 |4 FILES.THEN YOU| 000005D0: 27 4C 4C 20 48 41 56 45 20 54 4F 20 CC CF C1 C4 |'LL HAVE TO ....| 000005E0: 20 45 4C 53 45 57 48 45 52 45 20 49 4E 0D 4D 45 | ELSEWHERE IN.ME| 000005F0: 4D 4F 52 59 20 42 59 20 43 48 41 4E 47 49 4E 47 |MORY BY CHANGING| 00000600: 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 54 48 | THE VALUE OF TH| 00000610: 45 0D 56 41 52 49 41 42 4C 45 20 CD D0 20 49 4E |E.VARIABLE .. IN| 00000620: 20 4C 49 4E 45 20 35 31 37 30 2E 20 20 CF 4E 43 | LINE 5170. .NC| 00000630: 45 20 CD D0 20 49 53 0D 43 48 41 4E 47 45 44 2C |E .. IS.CHANGED,| 00000640: 20 54 48 45 20 52 45 53 54 20 4F 46 20 54 48 45 | THE REST OF THE| 00000650: 20 53 55 42 52 4F 55 54 49 4E 45 0D 41 44 4A 55 | SUBROUTINE.ADJU| 00000660: 53 54 53 2E 0D 0D 20 20 20 20 D4 48 45 20 53 55 |STS... .HE SU| 00000670: 42 52 4F 55 54 49 4E 45 20 57 4F 4E 27 54 20 52 |BROUTINE WON'T R| 00000680: 45 41 44 20 49 4E 20 54 48 45 0D 53 41 4D 45 20 |EAD IN THE.SAME | 00000690: 44 49 52 45 43 54 4F 52 59 20 54 57 49 43 45 20 |DIRECTORY TWICE | 000006A0: 55 4E 4C 45 53 53 20 59 4F 55 20 46 4F 52 43 45 |UNLESS YOU FORCE| 000006B0: 0D 49 54 20 54 4F 20 42 59 20 43 4C 45 41 52 49 |.IT TO BY CLEARI| 000006C0: 4E 47 20 54 48 45 20 56 41 52 49 41 42 4C 45 20 |NG THE VARIABLE | 000006D0: CF C4 24 2E 0D 0D 20 20 20 20 D4 4F 20 52 45 54 |..$... .O RET| 000006E0: 55 52 4E 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 20 |URN TO ........ | 000006F0: 46 52 4F 4D 20 54 48 45 0D 44 45 4D 4F 2C 20 50 |FROM THE.DEMO, P| 00000700: 52 45 53 53 20 D1 20 41 53 20 41 4C 57 41 59 53 |RESS . AS ALWAYS| 00000710: 2E 20 20 D0 52 45 53 53 20 CE 20 54 4F 0D 52 45 |. .RESS . TO.RE| 00000720: 41 44 20 49 4E 20 54 48 45 20 22 54 2E 22 20 46 |AD IN THE "T." F| 00000730: 49 4C 45 53 20 46 52 4F 4D 20 41 20 4E 45 57 0D |ILES FROM A NEW.| 00000740: 44 49 53 4B 2E 0D 0D 0D 0D 0D 20 20 20 20 C4 4F |DISK...... .O| 00000750: 4E 27 54 20 57 4F 52 52 59 20 49 46 20 59 4F 55 |N'T WORRY IF YOU| 00000760: 20 44 4F 4E 27 54 0D 55 4E 44 45 52 53 54 41 4E | DON'T.UNDERSTAN| 00000770: 44 20 50 41 52 54 53 20 4F 46 20 54 48 49 53 20 |D PARTS OF THIS | 00000780: 43 4F 44 45 20 42 43 41 55 53 45 0D C9 20 57 52 |CODE BCAUSE.. WR| 00000790: 4F 54 45 20 49 54 20 41 4E 44 20 45 56 45 4E 20 |OTE IT AND EVEN | 000007A0: C9 20 44 4F 4E 27 54 0D 55 4E 44 45 52 53 54 41 |. DON'T.UNDERSTA| 000007B0: 4E 44 20 49 54 20 41 4C 4C 2E 20 20 C9 46 20 59 |ND IT ALL. .F Y| 000007C0: 4F 55 20 43 48 4F 4F 53 45 20 54 4F 0D 54 52 41 |OU CHOOSE TO.TRA| 000007D0: 43 45 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |CE THIS PROGRAM | 000007E0: 41 4E 44 20 55 4E 44 45 52 53 54 41 4E 44 20 49 |AND UNDERSTAND I| 000007F0: 54 2C 0D 43 4F 4E 53 49 44 45 52 20 59 4F 55 52 |T,.CONSIDER YOUR| 00000800: 53 45 4C 46 20 41 20 4D 41 53 54 45 52 2E 20 20 |SELF A MASTER. | 00000810: C1 53 20 C9 0D 57 52 4F 54 45 20 49 54 2C 20 C9 |.S ..WROTE IT, .| 00000820: 20 4F 4E 4C 59 20 43 4F 4E 43 45 52 4E 45 44 20 | ONLY CONCERNED | 00000830: 4D 59 53 45 4C 46 20 57 49 54 48 0D 54 48 45 20 |MYSELF WITH.THE | 00000840: 50 41 52 54 53 20 54 48 41 54 20 44 49 44 4E 27 |PARTS THAT DIDN'| 00000850: 54 20 57 4F 52 4B 2E 20 20 D4 48 49 53 20 49 53 |T WORK. .HIS IS| 00000860: 0D 4E 4F 54 20 54 4F 50 20 44 4F 57 4E 20 43 4F |.NOT TOP DOWN CO| 00000870: 44 45 2E 0D 0D 20 20 20 20 D3 4F 4D 45 20 48 49 |DE... .OME HI| 00000880: 47 48 4C 49 47 48 54 53 20 4F 46 20 54 48 45 20 |GHLIGHTS OF THE | 00000890: 43 4F 44 45 3A 0D C3 48 45 43 4B 20 4F 55 54 20 |CODE:..HECK OUT | 000008A0: 4C 49 4E 45 53 20 36 30 20 41 4E 44 20 31 34 30 |LINES 60 AND 140| 000008B0: 2D 31 36 30 2E 0D D4 48 45 52 45 20 C9 20 55 53 |-160...HERE . US| 000008C0: 45 20 CE CF D4 20 54 4F 20 54 4F 47 47 4C 45 20 |E ... TO TOGGLE | 000008D0: 54 48 45 20 43 55 52 53 4F 52 2E 0D D4 20 49 53 |THE CURSOR... IS| 000008E0: 20 54 4F 47 47 4C 45 44 20 42 45 54 57 45 45 4E | TOGGLED BETWEEN| 000008F0: 20 30 20 41 4E 44 20 2D 31 20 55 53 49 4E 47 0D | 0 AND -1 USING.| 00000900: CE CF D4 20 2D 2D 20 50 45 52 46 45 43 54 20 46 |... -- PERFECT F| 00000910: 4F 52 20 50 52 49 4E 54 49 4E 47 20 52 45 56 45 |OR PRINTING REVE| 00000920: 52 53 45 0D 4F 52 20 4E 4F 54 20 52 45 56 45 52 |RSE.OR NOT REVER| 00000930: 53 45 2E 0D 0D 0D 20 20 20 20 D4 48 45 20 C2 CC |SE.... .HE ..| 00000940: CF C1 C4 20 52 4F 55 54 49 4E 45 20 49 53 20 4F |... ROUTINE IS O| 00000950: 4E 45 20 C9 0D 44 4F 57 4E 4C 4F 41 44 45 44 20 |NE ..DOWNLOADED | 00000960: 46 52 4F 4D 20 D1 4C 49 4E 4B 2E 20 20 D7 45 20 |FROM .LINK. .E | 00000970: 48 41 56 45 20 41 0D 52 45 4C 4F 43 41 54 49 4E |HAVE A.RELOCATIN| 00000980: 47 20 C2 CC CF C1 C4 20 42 55 54 20 49 54 27 53 |G ..... BUT IT'S| 00000990: 20 4E 4F 54 0D 43 4F 4D 50 41 54 49 42 4C 45 20 | NOT.COMPATIBLE | 000009A0: 57 49 54 48 20 54 48 45 20 43 4F 4D 50 49 4C 45 |WITH THE COMPILE| 000009B0: 52 20 42 45 43 41 55 53 45 0D 4F 46 20 54 48 45 |R BECAUSE.OF THE| 000009C0: 20 53 59 4E 54 41 58 20 4F 46 20 54 48 45 20 D3 | SYNTAX OF THE .| 000009D0: D9 D3 20 53 4F 20 C9 20 48 41 44 20 54 4F 0D 55 |.. SO . HAD TO.U| 000009E0: 53 45 20 41 20 52 4F 55 54 49 4E 45 20 54 48 41 |SE A ROUTINE THA| 000009F0: 54 20 49 4E 43 4F 52 50 4F 52 41 54 45 53 20 50 |T INCORPORATES P| 00000A00: 4C 41 49 4E 0D 4F 4C 44 20 D3 D9 D3 45 53 2E 0D |LAIN.OLD ...ES..| 00000A10: 0D 20 20 20 20 D3 49 4E 43 45 20 54 48 49 53 20 |. .INCE THIS | 00000A20: 52 4F 55 54 49 4E 45 20 53 54 4F 52 45 53 20 54 |ROUTINE STORES T| 00000A30: 48 45 0D 42 4C 4F 43 4B 20 53 49 5A 45 2C 20 46 |HE.BLOCK SIZE, F| 00000A40: 49 4C 45 4E 41 4D 45 2C 20 41 4E 44 20 46 49 4C |ILENAME, AND FIL| 00000A50: 45 20 54 59 50 45 0D 49 4E 20 CF CE C5 20 53 54 |E TYPE.IN ... ST| 00000A60: 52 49 4E 47 2C 20 49 54 27 53 20 4E 45 43 45 53 |RING, IT'S NECES| 00000A70: 53 41 52 59 20 54 4F 0D 45 58 54 52 41 43 54 20 |SARY TO.EXTRACT | 00000A80: 54 48 45 20 46 49 4C 45 4E 41 4D 45 20 46 52 4F |THE FILENAME FRO| 00000A90: 4D 20 54 48 45 20 53 54 52 49 4E 47 2E 0D CF 48 |M THE STRING...H| 00000AA0: 20 4E 4F 21 20 20 D4 48 41 54 20 4D 45 41 4E 53 | NO! .HAT MEANS| 00000AB0: 20 53 54 52 49 4E 47 0D 4D 41 4E 49 50 55 4C 41 | STRING.MANIPULA| 00000AC0: 54 49 4F 4E 20 2D 2D 20 C6 CF D2 2D CE C5 D8 D4 |TION -- ...-....| 00000AD0: 20 4C 4F 4F 50 53 2E 2E 2E 0D C4 4F 4E 27 54 20 | LOOPS.....ON'T | 00000AE0: 46 52 45 54 21 20 20 CF 4E 45 20 54 48 49 4E 47 |FRET! .NE THING| 00000AF0: 20 C9 27 56 45 20 4C 45 41 52 4E 45 44 0D 54 48 | .'VE LEARNED.TH| 00000B00: 49 53 20 50 41 53 54 20 59 45 41 52 20 49 53 20 |IS PAST YEAR IS | 00000B10: 54 4F 20 4C 45 54 20 C2 C1 D3 C9 C3 20 44 4F 20 |TO LET ..... DO | 00000B20: 41 53 0D 4D 55 43 48 20 57 4F 52 4B 20 41 53 20 |AS.MUCH WORK AS | 00000B30: 59 4F 55 20 43 41 4E 2E 20 20 C9 4E 20 4F 54 48 |YOU CAN. .N OTH| 00000B40: 45 52 0D 57 4F 52 44 53 2C 20 44 4F 4E 27 54 20 |ER.WORDS, DON'T | 00000B50: 41 4C 4C 4F 57 20 41 20 53 55 42 52 4F 55 54 49 |ALLOW A SUBROUTI| 00000B60: 4E 45 20 54 4F 20 44 4F 0D 57 48 41 54 20 41 20 |NE TO DO.WHAT A | 00000B70: 53 49 4E 47 4C 45 20 43 4F 4D 4D 41 4E 44 20 57 |SINGLE COMMAND W| 00000B80: 49 4C 4C 20 44 4F 2E 0D 20 20 20 20 20 D7 48 41 |ILL DO.. .HA| 00000B90: 54 20 59 4F 55 20 53 41 59 3F 20 20 D7 48 41 54 |T YOU SAY? .HAT| 00000BA0: 20 53 49 4E 47 4C 45 20 C2 C1 D3 C9 C3 0D 43 4F | SINGLE ......CO| 00000BB0: 4D 4D 41 4E 44 20 57 49 4C 4C 20 45 58 54 52 41 |MMAND WILL EXTRA| 00000BC0: 43 54 20 22 54 2E 42 41 53 49 43 53 22 20 46 52 |CT "T.BASICS" FR| 00000BD0: 4F 4D 0D 54 48 45 20 53 54 52 49 4E 47 0D 0D 20 |OM.THE STRING.. | 00000BE0: 20 20 22 32 30 20 20 20 22 54 2E 42 41 53 49 43 | "20 "T.BASIC| 00000BF0: 53 22 20 20 20 20 20 20 D0 D2 C7 22 3F 0D 0D 20 |S" ..."?.. | 00000C00: 20 20 20 20 D4 48 45 20 57 4F 4E 44 45 52 46 55 | .HE WONDERFU| 00000C10: 4C 20 C9 CE D0 D5 D4 23 20 57 49 4C 4C 20 44 4F |L .....# WILL DO| 00000C20: 20 C1 CC CC 0D 54 48 45 20 57 4F 52 4B 20 46 4F | ....THE WORK FO| 00000C30: 52 20 59 4F 55 2E 20 20 C9 54 20 57 49 4C 4C 20 |R YOU. .T WILL | 00000C40: 45 56 45 4E 20 53 54 52 49 50 0D 54 48 45 20 51 |EVEN STRIP.THE Q| 00000C50: 55 4F 54 45 53 20 46 52 4F 4D 20 54 48 45 20 46 |UOTES FROM THE F| 00000C60: 49 4C 45 4E 41 4D 45 20 46 4F 52 20 59 4F 55 2E |ILENAME FOR YOU.| 00000C70: 0D CA 55 53 54 20 CF D0 C5 CE 20 41 20 46 49 4C |..UST .... A FIL| 00000C80: 45 20 54 4F 20 54 48 45 20 53 43 52 45 45 4E 20 |E TO THE SCREEN | 00000C90: 41 4E 44 0D 50 52 49 4E 54 20 54 48 45 20 53 54 |AND.PRINT THE ST| 00000CA0: 52 49 4E 47 20 49 4E 56 49 53 49 42 4C 59 20 49 |RING INVISIBLY I| 00000CB0: 4E 20 53 4F 4D 45 0D 43 4F 52 4E 45 52 2E 20 20 |N SOME.CORNER. | 00000CC0: D3 54 52 41 54 45 47 49 43 41 4C 4C 59 20 50 4C |.TRATEGICALLY PL| 00000CD0: 41 43 45 20 43 4F 4D 4D 41 53 0D 54 4F 20 53 48 |ACE COMMAS.TO SH| 00000CE0: 4F 57 20 C9 CE D0 D5 D4 23 20 57 48 41 54 27 53 |OW .....# WHAT'S| 00000CF0: 20 57 48 41 54 2C 20 54 48 45 4E 0D C9 CE D0 D5 | WHAT, THEN.....| 00000D00: D4 20 46 52 4F 4D 20 54 48 45 20 53 43 52 45 45 |. FROM THE SCREE| 00000D10: 4E 2E 20 20 D0 CF CF C6 21 20 20 C9 54 27 53 0D |N. ....! .T'S.| 00000D20: 44 4F 4E 45 2E 20 20 C3 48 45 43 4B 20 4F 55 54 |DONE. .HECK OUT| 00000D30: 20 4C 49 4E 45 20 35 30 36 30 2D 35 30 37 30 20 | LINE 5060-5070 | 00000D40: 41 4E 44 0D 53 45 45 20 48 4F 57 20 C9 20 44 49 |AND.SEE HOW . DI| 00000D50: 44 20 49 54 2E 20 20 D9 4F 55 20 43 4F 55 4C 44 |D IT. .OU COULD| 00000D60: 4E 27 54 0D 45 58 54 52 41 43 54 20 54 48 45 20 |N'T.EXTRACT THE | 00000D70: 4E 41 4D 45 53 20 41 4E 59 20 46 41 53 54 45 52 |NAMES ANY FASTER| 00000D80: 20 42 59 0D 43 4F 4D 50 49 4C 49 4E 47 20 4F 52 | BY.COMPILING OR| 00000D90: 20 55 53 49 4E 47 20 CD CC 2E 0D 0D 20 20 20 20 | USING ..... | 00000DA0: C9 20 57 52 4F 54 45 20 54 48 49 53 20 53 55 42 |. WROTE THIS SUB| 00000DB0: 52 4F 55 54 49 4E 45 20 42 45 43 41 55 53 45 20 |ROUTINE BECAUSE | 00000DC0: 57 45 0D 52 45 43 45 49 56 45 44 20 41 20 4E 45 |WE.RECEIVED A NE| 00000DD0: 41 54 20 55 54 49 4C 49 54 59 20 43 41 4C 4C 45 |AT UTILITY CALLE| 00000DE0: 44 0D C4 C9 D2 2D D4 CF 2D D6 C1 D2 20 57 48 49 |D....-..-... WHI| 00000DF0: 43 48 20 57 41 53 20 41 4E 20 CD CC 20 56 45 52 |CH WAS AN .. VER| 00000E00: 53 49 4F 4E 0D 4F 46 20 4D 59 20 52 4F 55 54 49 |SION.OF MY ROUTI| 00000E10: 4E 45 2E 20 20 C9 54 20 57 4F 55 4C 44 20 44 55 |NE. .T WOULD DU| 00000E20: 4D 50 20 41 0D 44 49 52 45 43 54 4F 52 59 20 49 |MP A.DIRECTORY I| 00000E30: 4E 54 4F 20 54 48 45 20 46 49 52 53 54 20 54 48 |NTO THE FIRST TH| 00000E40: 52 45 45 20 41 52 52 41 59 53 0D 59 4F 55 20 44 |REE ARRAYS.YOU D| 00000E50: 49 4D 45 4E 53 49 4F 4E 2E 20 20 D4 52 4F 55 42 |IMENSION. .ROUB| 00000E60: 4C 45 20 57 41 53 2C 20 49 54 20 44 49 44 4E 27 |LE WAS, IT DIDN'| 00000E70: 54 0D 57 4F 52 4B 20 49 4E 20 43 4F 4D 50 49 4C |T.WORK IN COMPIL| 00000E80: 45 44 20 50 52 4F 47 52 41 4D 53 2E 20 20 D4 48 |ED PROGRAMS. .H| 00000E90: 41 54 0D 52 55 42 42 45 44 20 4D 45 20 54 48 45 |AT.RUBBED ME THE| 00000EA0: 20 57 52 4F 4E 47 20 57 41 59 20 57 48 45 4E 20 | WRONG WAY WHEN | 00000EB0: C9 20 54 52 49 45 44 0D 54 4F 20 55 53 45 20 C4 |. TRIED.TO USE .| 00000EC0: C9 D2 2D D4 CF 2D D6 C1 D2 20 4F 4E 20 4D 59 20 |..-..-... ON MY | 00000ED0: C8 CF CD C5 0D C9 CE D6 C5 CE D4 CF D2 D9 20 50 |.............. P| 00000EE0: 52 4F 47 52 41 4D 2E 20 20 C8 45 4E 43 45 20 54 |ROGRAM. .ENCE T| 00000EF0: 48 45 20 52 41 43 45 20 54 4F 0D 46 4F 52 43 45 |HE RACE TO.FORCE| 00000F00: 20 53 4F 4D 45 20 53 50 45 45 44 20 4F 55 54 20 | SOME SPEED OUT | 00000F10: 4F 46 20 C2 C1 D3 C9 C3 2E 0D 0D 20 20 20 20 C9 |OF ........ .| 00000F20: 20 4D 49 47 48 54 20 41 44 44 20 54 48 41 54 20 | MIGHT ADD THAT | 00000F30: 50 52 4F 47 52 41 4D 53 20 54 48 41 54 20 41 52 |PROGRAMS THAT AR| 00000F40: 45 0D 4D 4F 52 45 20 46 52 49 45 4E 44 4C 59 20 |E.MORE FRIENDLY | 00000F50: 47 45 54 20 41 43 43 45 50 54 45 44 20 4D 4F 52 |GET ACCEPTED MOR| 00000F60: 45 20 4F 46 54 45 4E 2E 0D C1 4C 4C 4F 57 49 4E |E OFTEN...LLOWIN| 00000F70: 47 20 54 48 45 20 55 53 45 52 20 54 4F 20 53 45 |G THE USER TO SE| 00000F80: 4C 45 43 54 20 41 20 46 49 4C 45 20 42 59 0D 50 |LECT A FILE BY.P| 00000F90: 4F 49 4E 54 49 4E 47 20 41 4E 44 20 43 4C 49 43 |OINTING AND CLIC| 00000FA0: 4B 49 4E 47 20 4F 52 20 50 52 45 53 53 49 4E 47 |KING OR PRESSING| 00000FB0: 0D D2 C5 D4 D5 D2 CE 20 49 53 20 46 41 52 20 4D |....... IS FAR M| 00000FC0: 4F 52 45 20 46 52 49 45 4E 44 4C 59 20 54 48 41 |ORE FRIENDLY THA| 00000FD0: 4E 0D 45 58 50 45 43 54 49 4E 47 20 54 48 45 4D |N.EXPECTING THEM| 00000FE0: 20 54 4F 20 52 45 4D 45 4D 42 45 52 20 54 48 45 | TO REMEMBER THE| 00000FF0: 20 4E 41 4D 45 0D 4F 46 20 54 48 45 20 46 49 4C | NAME.OF THE FIL| 00001000: 45 20 54 48 45 59 20 57 41 4E 54 20 54 4F 20 55 |E THEY WANT TO U| 00001010: 53 45 2E 0D 0D 20 20 20 20 D7 48 49 4C 45 20 4D |SE... .HILE M| 00001020: 41 4E 59 20 50 45 4F 50 4C 45 20 57 49 4C 4C 20 |ANY PEOPLE WILL | 00001030: 50 52 4F 42 41 42 4C 59 0D 55 53 45 20 54 48 45 |PROBABLY.USE THE| 00001040: 20 CD CC 20 56 45 52 53 49 4F 4E 20 4F 46 20 54 | .. VERSION OF T| 00001050: 48 49 53 20 52 4F 55 54 49 4E 45 0D 57 48 45 4E |HIS ROUTINE.WHEN| 00001060: 20 49 54 27 53 20 50 55 42 4C 49 53 48 45 44 2C | IT'S PUBLISHED,| 00001070: 20 54 48 4F 53 45 20 57 48 4F 0D 43 4F 4D 50 49 | THOSE WHO.COMPI| 00001080: 4C 45 20 4F 52 20 46 49 4E 44 20 53 4F 4D 45 20 |LE OR FIND SOME | 00001090: 4F 54 48 45 52 0D 49 4E 43 4F 4D 50 41 54 49 42 |OTHER.INCOMPATIB| 000010A0: 49 4C 49 54 59 20 57 49 54 48 20 CD CC 20 54 59 |ILITY WITH .. TY| 000010B0: 50 45 0D 44 49 52 45 43 54 4F 52 59 20 52 45 41 |PE.DIRECTORY REA| 000010C0: 44 45 52 53 20 57 49 4C 4C 20 43 4F 4D 45 20 54 |DERS WILL COME T| 000010D0: 4F 20 52 45 4C 59 0D 4F 4E 20 54 48 49 53 20 56 |O RELY.ON THIS V| 000010E0: 45 52 53 49 4F 4E 20 2D 2D 20 41 54 20 4C 45 41 |ERSION -- AT LEA| 000010F0: 53 54 20 C9 20 C8 CF D0 C5 0D 53 4F 2E 0D 0D C4 |ST . .....SO....| 00001100: C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 |... ..... .... .| 00001110: D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 0D 0D C2 D9 D4 |...... .........| 00001120: C5 D3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001130: C4 C9 D2 20 D4 CF 20 C1 D2 D2 C1 D9 0D D4 2E C2 |... .. .........| 00001140: D9 D4 C5 D3 0D 0D 20 20 20 20 20 20 20 20 2A 2A |...... **| 00001150: 2A 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A |** .ND .F .EXT *| 00001160: 2A 2A 2A 0D |***. |
..^U:ZERO. BYTES: BASIC DIRECTORY TO ARRAY.. BY JEFFREY L. JONES.. HOW OFTEN HAVE YOU WANTED TO.INCLUDE A MENU FOR THE FILES CREATED.BY YOUR PROG RAM? THIS CAN BE.PAINFULLY SLOW IN BASI C, GETTING A.CHARACTER, CONCATENATING IT TO A.STRING, ETC. WELL, HERE'S A NIFTY .LITTLE ROUTINE THAT WILL READ A.DIRECTO RY IN AT $C000 AND THEN PEEK.OUT THE FIL E NAMES FROM MEMORY..SINCE YOU'RE DEALIN G WITH MEMORY.INSTEAD OF A PHYSICAL DISK , GETTING.THE FILENAMES INTO AN ARRAY IS .QUICKER..... THEY SAID IT COULDN'T B E DONE..THEY LAUGHED AND SCOFFED -- UNTI L I.UNVEILED A TOTALLY BASIC SUBROUTINE. THAT TOOK FILENAMES AND PLACED THEM.IN A N ARRAY!.. ALL YOU HAVE TO DO IS STIC K THIS.LITTLE DEMON IN YOUR PROGRAM AND. GOSUB TO IT. THE DIM STATEMENTS IN.LINE 10 SHOULD BE AT THE LITERAL.BEGINNING O F YOUR OWN PROGRAM INSTEAD.OF IN THE SUB ROUTINE... WHEN RUN, THIS PROGRAM WIL L LOAD.IN THE NAMES OF ALL THE "?.FILES" ON.THIS DISK AND ALLOW YOU TO SELECT.FR OM THEM IN A MENU.... WHILE I CONFESS THAT ML COULD DO.THE JOB PERHAPS FIVE S ECONDS FASTER,.I THINK YOU'LL APPRECIATE THE SPEED.OF THIS SUBROUTINE AND THE FA CT THAT.IT DOESN'T TAKE AWAY FROM BASIC. MEMORY. COMPILED, IT'S EVEN BETTER... THERE'S ONLY ONE CATCH: THERE.ISN'T EN OUGH ROOM AT $C000 TO LOAD IN.144 FILES. YOU CAN SQUEEZE IN ABOUT.130 BUT NOT T HE FULL LOAD. IF YOU.HAVE 130+ FILES ON A DISK (NOT VERY.LIKELY) YOU CAN USE WI LDCARDS TO GET.SPECIFICALLY NAMED FILES. ...... IF YOU MUST USE ALL 144 FILES. THEN YOU'LL HAVE TO LOAD ELSEWHERE IN.ME MORY BY CHANGING THE VALUE OF THE.VARIAB LE MP IN LINE 5170. ONCE MP IS.CHANGED, THE REST OF THE SUBROUTINE.ADJUSTS... THE SUBROUTINE WON'T READ IN THE.SAME DIRECTORY TWICE UNLESS YOU FORCE.IT TO B Y CLEARING THE VARIABLE OD$... TO RET URN TO LOADSTAR FROM THE.DEMO, PRESS Q A S ALWAYS. PRESS N TO.READ IN THE "T." F ILES FROM A NEW.DISK...... DON'T WORR Y IF YOU DON'T.UNDERSTAND PARTS OF THIS CODE BCAUSE.I WROTE IT AND EVEN I DON'T. UNDERSTAND IT ALL. IF YOU CHOOSE TO.TRA CE THIS PROGRAM AND UNDERSTAND IT,.CONSI DER YOURSELF A MASTER. AS I.WROTE IT, I ONLY CONCERNED MYSELF WITH.THE PARTS TH AT DIDN'T WORK. THIS IS.NOT TOP DOWN CO DE... SOME HIGHLIGHTS OF THE CODE:.CH ECK OUT LINES 60 AND 140-160..THERE I US E NOT TO TOGGLE THE CURSOR..T IS TOGGLED BETWEEN 0 AND -1 USING.NOT -- PERFECT F OR PRINTING REVERSE.OR NOT REVERSE.... THE BLOAD ROUTINE IS ONE I.DOWNLOADED FROM QLINK. WE HAVE A.RELOCATING BLOAD BUT IT'S NOT.COMPATIBLE WITH THE COMPILE R BECAUSE.OF THE SYNTAX OF THE SYS SO I HAD TO.USE A ROUTINE THAT INCORPORATES P LAIN.OLD SYSES... SINCE THIS ROUTINE STORES THE.BLOCK SIZE, FILENAME, AND FIL E TYPE.IN ONE STRING, IT'S NECESSARY TO. EXTRACT THE FILENAME FROM THE STRING..OH NO! THAT MEANS STRING.MANIPULATION -- FOR-NEXT LOOPS....DON'T FRET! ONE THING I'VE LEARNED.THIS PAST YEAR IS TO LET B ASIC DO AS.MUCH WORK AS YOU CAN. IN OTH ER.WORDS, DON'T ALLOW A SUBROUTINE TO DO .WHAT A SINGLE COMMAND WILL DO.. WHA T YOU SAY? WHAT SINGLE BASIC.COMMAND WI LL EXTRACT "T.BASICS" FROM.THE STRING.. "20 "T.BASICS" PRG"?.. THE WONDERFUL INPUT# WILL DO ALL.THE WORK FO R YOU. IT WILL EVEN STRIP.THE QUOTES FR OM THE FILENAME FOR YOU..JUST OPEN A FIL E TO THE SCREEN AND.PRINT THE STRING INV ISIBLY IN SOME.CORNER. STRATEGICALLY PL ACE COMMAS.TO SHOW INPUT# WHAT'S WHAT, T HEN.INPUT FROM THE SCREEN. POOF! IT'S. DONE. CHECK OUT LINE 5060-5070 AND.SEE HOW I DID IT. YOU COULDN'T.EXTRACT THE NAMES ANY FASTER BY.COMPILING OR USING M L... I WROTE THIS SUBROUTINE BECAUSE WE.RECEIVED A NEAT UTILITY CALLED.DIR-TO -VAR WHICH WAS AN ML VERSION.OF MY ROUTI NE. IT WOULD DUMP A.DIRECTORY INTO THE FIRST THREE ARRAYS.YOU DIMENSION. TROUB LE WAS, IT DIDN'T.WORK IN COMPILED PROGR AMS. THAT.RUBBED ME THE WRONG WAY WHEN I TRIED.TO USE DIR-TO-VAR ON MY HOME.INV ENTORY PROGRAM. HENCE THE RACE TO.FORCE SOME SPEED OUT OF BASIC... I MIGHT A DD THAT PROGRAMS THAT ARE.MORE FRIENDLY GET ACCEPTED MORE OFTEN..ALLOWING THE US ER TO SELECT A FILE BY.POINTING AND CLIC KING OR PRESSING.RETURN IS FAR MORE FRIE NDLY THAN.EXPECTING THEM TO REMEMBER THE NAME.OF THE FILE THEY WANT TO USE... WHILE MANY PEOPLE WILL PROBABLY.USE THE ML VERSION OF THIS ROUTINE.WHEN IT'S PU BLISHED, THOSE WHO.COMPILE OR FIND SOME OTHER.INCOMPATIBILITY WITH ML TYPE.DIREC TORY READERS WILL COME TO RELY.ON THIS V ERSION -- AT LEAST I HOPE.SO...DISK FILE S THIS PROGRAM USES..BYTES DIR TO ARRAY.T.BYTES.. **** END O F TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL