T.DIR TO VAR
FILE INFORMATION
FILENAME(S): T.DIR TO VAR
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 18:12:19
APPEARS ON: 1 disk(s)
FILE HASH
26e8778778dbbc5a18ddad25303f7c9d5259b84d39c68d428b5a651002dc2179
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 62 S 3 | T.DIR TO VAR | PRG | Sailor, Ganheden | 33 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 55 54 49 4C 49 54 59 57 41 52 45 |..^U:UTILITYWARE| 00000010: 0D 20 20 C4 C9 D2 D4 CF D6 C1 D2 2E CF 3A 20 C4 |. ..........: .| 00000020: 49 52 45 43 54 4F 52 59 20 54 4F 20 D6 41 52 49 |IRECTORY TO .ARI| 00000030: 41 42 4C 45 53 0D 0D 20 20 20 20 20 20 20 20 20 |ABLES.. | 00000040: 20 20 42 59 20 C4 41 4E 20 C2 2E 20 CA 41 4D 45 | BY .AN .. .AME| 00000050: 53 0D 0D 20 20 20 20 C1 53 20 C3 2D 36 34 20 50 |S.. .S .-64 P| 00000060: 52 4F 47 52 41 4D 53 20 47 45 54 20 46 52 49 45 |ROGRAMS GET FRIE| 00000070: 4E 44 4C 49 45 52 0D 45 41 43 48 20 59 45 41 52 |NDLIER.EACH YEAR| 00000080: 20 59 4F 55 27 4C 4C 20 53 45 45 20 4D 4F 52 45 | YOU'LL SEE MORE| 00000090: 20 41 4E 44 20 4D 4F 52 45 0D 27 46 52 49 4C 4C | AND MORE.'FRILL| 000000A0: 53 27 20 4C 49 4B 45 20 54 48 45 20 41 42 49 4C |S' LIKE THE ABIL| 000000B0: 49 54 59 20 54 4F 20 53 45 45 20 54 48 45 0D 44 |ITY TO SEE THE.D| 000000C0: 49 52 45 43 54 4F 52 59 20 4F 46 20 41 20 44 49 |IRECTORY OF A DI| 000000D0: 53 4B 20 46 52 4F 4D 20 49 4E 53 49 44 45 20 41 |SK FROM INSIDE A| 000000E0: 0D 50 52 4F 47 52 41 4D 2E 20 20 D7 45 27 56 45 |.PROGRAM. .E'VE| 000000F0: 20 50 55 42 4C 49 53 48 45 44 20 CD CC 20 52 4F | PUBLISHED .. RO| 00000100: 55 54 49 4E 45 53 0D 42 45 46 4F 52 45 20 54 48 |UTINES.BEFORE TH| 00000110: 41 54 20 57 4F 55 4C 44 20 53 48 4F 57 20 54 48 |AT WOULD SHOW TH| 00000120: 45 20 44 49 52 45 43 54 4F 52 59 0D 4F 4E 20 41 |E DIRECTORY.ON A| 00000130: 20 53 43 52 4F 4C 4C 49 4E 47 20 53 43 52 45 45 | SCROLLING SCREE| 00000140: 4E 2C 20 41 4E 44 20 4D 41 59 42 45 20 45 56 45 |N, AND MAYBE EVE| 00000150: 4E 0D 41 4C 4C 4F 57 20 59 4F 55 20 54 4F 20 50 |N.ALLOW YOU TO P| 00000160: 41 55 53 45 20 54 48 45 20 44 49 53 50 4C 41 59 |AUSE THE DISPLAY| 00000170: 2E 0D 0D 20 20 20 20 C8 4F 57 45 56 45 52 2C 20 |... .OWEVER, | 00000180: 54 48 45 20 39 30 27 53 20 44 49 43 54 41 54 45 |THE 90'S DICTATE| 00000190: 20 54 48 41 54 20 57 45 0D 4E 45 45 44 20 54 4F | THAT WE.NEED TO| 000001A0: 20 42 45 20 45 56 45 4E 20 46 52 49 45 4E 44 4C | BE EVEN FRIENDL| 000001B0: 49 45 52 2E 20 20 D4 48 49 53 0D 4D 45 41 4E 53 |IER. .HIS.MEANS| 000001C0: 20 44 49 53 50 4C 41 59 49 4E 47 20 41 20 44 49 | DISPLAYING A DI| 000001D0: 52 45 43 54 4F 52 59 20 57 49 54 48 0D 48 49 47 |RECTORY WITH.HIG| 000001E0: 48 4C 49 47 48 54 20 42 41 52 53 20 4F 52 20 50 |HLIGHT BARS OR P| 000001F0: 4F 49 4E 54 45 52 53 20 54 48 41 54 20 41 4C 4C |OINTERS THAT ALL| 00000200: 4F 57 0D 54 48 45 20 55 53 45 52 20 54 4F 20 43 |OW.THE USER TO C| 00000210: 48 4F 4F 53 45 20 46 52 4F 4D 20 54 48 45 20 44 |HOOSE FROM THE D| 00000220: 49 53 50 4C 41 59 2E 0D 0D 20 20 20 20 C4 C9 D2 |ISPLAY... ...| 00000230: 20 D4 CF 20 D6 C1 D2 20 28 C4 49 52 45 43 54 4F | .. ... (.IRECTO| 00000240: 52 59 20 54 4F 0D D6 41 52 49 41 42 4C 45 53 29 |RY TO..ARIABLES)| 00000250: 20 49 53 20 4A 55 53 54 20 54 48 45 20 50 52 4F | IS JUST THE PRO| 00000260: 47 52 41 4D 20 4D 41 4E 59 0D C2 C1 D3 C9 C3 20 |GRAM MANY...... | 00000270: 50 52 4F 47 52 41 4D 53 20 4E 45 45 44 2E 20 20 |PROGRAMS NEED. | 00000280: C1 20 46 45 57 20 53 49 4D 50 4C 45 0D 53 45 54 |. FEW SIMPLE.SET| 00000290: 2D 55 50 20 43 4F 4D 4D 41 4E 44 53 20 41 4E 44 |-UP COMMANDS AND| 000002A0: 20 4F 4E 45 20 D3 D9 D3 54 45 4D 20 43 41 4C 4C | ONE ...TEM CALL| 000002B0: 0D 41 4E 44 20 59 4F 55 20 48 41 56 45 20 41 4C |.AND YOU HAVE AL| 000002C0: 4C 20 4F 46 20 54 48 45 20 50 45 52 54 49 4E 45 |L OF THE PERTINE| 000002D0: 4E 54 0D 44 41 54 41 20 46 52 4F 4D 20 54 48 45 |NT.DATA FROM THE| 000002E0: 20 44 49 52 45 43 54 4F 52 59 20 49 4E 20 45 41 | DIRECTORY IN EA| 000002F0: 53 59 2D 54 4F 2D 0D 4D 41 4E 49 50 55 4C 41 54 |SY-TO-.MANIPULAT| 00000300: 45 20 53 55 42 53 43 52 49 50 54 45 44 20 53 54 |E SUBSCRIPTED ST| 00000310: 52 49 4E 47 53 2E 0D 0D 20 20 20 20 D4 48 45 20 |RINGS... .HE | 00000320: D2 55 4E 20 C9 54 20 46 49 4C 45 20 46 4F 52 20 |.UN .T FILE FOR | 00000330: 54 48 49 53 20 50 52 4F 47 52 41 4D 0D 49 53 20 |THIS PROGRAM.IS | 00000340: 41 20 44 45 4D 4F 20 53 48 4F 57 49 4E 47 20 48 |A DEMO SHOWING H| 00000350: 4F 57 20 45 41 53 59 20 49 54 20 49 53 20 54 4F |OW EASY IT IS TO| 00000360: 0D 55 53 45 2E 0D 0D 20 20 20 20 C1 53 20 57 49 |.USE... .S WI| 00000370: 54 48 20 41 4C 4C 20 CD CC 20 52 4F 55 54 49 4E |TH ALL .. ROUTIN| 00000380: 45 53 2C 0D C4 C9 D2 D4 CF D6 C1 D2 2E CF 20 4D |ES,........... M| 00000390: 55 53 54 20 42 45 20 4C 4F 41 44 45 44 20 49 4E |UST BE LOADED IN| 000003A0: 54 4F 20 4D 45 4D 4F 52 59 0D 42 45 46 4F 52 45 |TO MEMORY.BEFORE| 000003B0: 20 43 41 4C 4C 49 4E 47 2E 20 20 D5 53 45 20 54 | CALLING. .SE T| 000003C0: 48 49 53 20 4C 49 4E 45 20 4E 45 41 52 0D 54 48 |HIS LINE NEAR.TH| 000003D0: 45 20 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 59 |E BEGINNING OF Y| 000003E0: 4F 55 52 20 50 52 4F 47 52 41 4D 2E 0D 0D 31 30 |OUR PROGRAM...10| 000003F0: 20 D0 CF CB C5 31 34 37 2C 30 3A D3 D9 D3 35 37 | ....147,0:...57| 00000400: 38 31 32 22 C4 C9 D2 D4 CF D6 C1 D2 2E CF 22 2C |812"..........",| 00000410: 38 2C 31 3A 0D 20 20 20 20 20 D3 D9 D3 36 32 36 |8,1:. ...626| 00000420: 33 31 0D 0D 20 20 20 20 CE 45 58 54 2C 20 54 48 |31.. .EXT, TH| 00000430: 45 52 45 20 41 52 45 20 D4 C8 D2 C5 C5 20 53 54 |ERE ARE ..... ST| 00000440: 52 49 4E 47 53 0D 54 48 41 54 20 CD D5 D3 D4 20 |RINGS.THAT .... | 00000450: 42 45 20 C4 C9 CD 45 4E 53 49 4F 4E 45 44 20 42 |BE ...ENSIONED B| 00000460: 45 46 4F 52 45 20 41 4E 59 0D 4F 54 48 45 52 20 |EFORE ANY.OTHER | 00000470: 56 41 52 49 41 42 4C 45 53 20 41 52 45 20 44 45 |VARIABLES ARE DE| 00000480: 46 49 4E 45 44 2E 20 20 D4 48 45 59 0D 41 52 45 |FINED. .HEY.ARE| 00000490: 3A 0D 0D 20 20 20 D4 D9 D0 C5 24 28 31 34 34 29 |:.. ....$(144)| 000004A0: 2C 20 CE C1 CD C5 24 28 31 34 34 29 2C 20 CC C5 |, ....$(144), ..| 000004B0: 24 28 31 34 34 29 0D 0D 20 20 20 20 C1 46 54 45 |$(144).. .FTE| 000004C0: 52 20 54 48 45 20 D3 D9 D3 33 36 30 39 36 2C 20 |R THE ...36096, | 000004D0: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 0D 49 4E |THE FOLLOWING.IN| 000004E0: 46 4F 20 49 53 20 52 45 54 55 52 4E 45 44 20 54 |FO IS RETURNED T| 000004F0: 4F 20 54 48 45 20 43 41 4C 4C 45 52 3A 0D 0D 20 |O THE CALLER:.. | 00000500: 20 20 20 CE C1 CD C5 24 28 30 29 20 3D 20 44 49 | ....$(0) = DI| 00000510: 53 4B 20 CE C1 CD C5 0D 20 20 20 20 D4 D9 D0 C5 |SK ..... ....| 00000520: 24 28 30 29 20 3D 20 44 49 53 4B 20 C9 2E C4 2E |$(0) = DISK ....| 00000530: 0D 20 20 20 20 CC C5 24 28 30 29 20 20 20 3D 20 |. ..$(0) = | 00000540: 42 4C 4F 43 4B 53 20 46 52 45 45 0D 0D 20 20 20 |BLOCKS FREE.. | 00000550: 20 CE C1 CD C5 24 28 31 29 20 2D 3E 20 CE C1 CD | ....$(1) -> ...| 00000560: C5 24 28 23 20 4F 46 20 46 49 4C 45 53 29 0D 20 |.$(# OF FILES). | 00000570: 20 20 20 20 20 48 4F 4C 44 53 20 54 48 45 20 CE | HOLDS THE .| 00000580: C1 CD C5 20 46 4F 52 20 45 41 43 48 20 46 49 4C |... FOR EACH FIL| 00000590: 45 0D 0D 0D 20 20 20 20 D4 D9 D0 C5 24 28 31 29 |E... ....$(1)| 000005A0: 20 2D 3E 20 D4 D9 D0 C5 24 28 23 20 4F 46 20 46 | -> ....$(# OF F| 000005B0: 49 4C 45 53 29 0D 20 20 20 20 20 20 48 4F 4C 44 |ILES). HOLD| 000005C0: 53 20 54 48 45 20 D4 D9 D0 C5 20 46 4F 52 20 45 |S THE .... FOR E| 000005D0: 41 43 48 20 46 49 4C 45 0D 20 20 20 20 20 20 20 |ACH FILE. | 000005E0: 20 28 49 2E 45 2E 20 D0 D2 C7 2C 20 D3 C5 D1 2C | (I.E. ..., ...,| 000005F0: 20 D2 C5 CC 2C 2E 2E 2E 29 0D 0D 20 20 20 20 CC | ...,...).. .| 00000600: C5 24 28 31 29 20 2D 3E 20 CC C5 24 28 23 20 4F |.$(1) -> ..$(# O| 00000610: 46 20 46 49 4C 45 53 29 0D 20 20 20 20 20 20 48 |F FILES). H| 00000620: 4F 4C 44 53 20 C2 CC CF C3 CB 20 D3 C9 DA C5 20 |OLDS ..... .... | 00000630: 4F 46 20 45 41 43 48 20 46 49 4C 45 0D 0D 20 20 |OF EACH FILE.. | 00000640: 20 20 C9 46 20 54 48 45 52 45 20 57 45 52 45 20 | .F THERE WERE | 00000650: 31 34 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 4B |14 FILES ON DISK| 00000660: 2C 0D 54 48 45 4E 20 CE C1 CD C5 24 28 31 29 20 |,.THEN ....$(1) | 00000670: 54 48 52 4F 55 47 48 20 CE C1 CD C5 24 28 31 34 |THROUGH ....$(14| 00000680: 29 20 57 4F 55 4C 44 0D 42 45 20 56 41 4C 49 44 |) WOULD.BE VALID| 00000690: 2E 20 20 CE C1 CD C5 24 28 31 35 29 20 54 48 52 |. ....$(15) THR| 000006A0: 4F 55 47 48 0D CE C1 CD C5 24 28 31 34 34 29 20 |OUGH.....$(144) | 000006B0: 57 49 4C 4C 20 42 45 20 45 51 55 41 4C 20 54 4F |WILL BE EQUAL TO| 000006C0: 20 22 22 20 28 41 4E 0D 45 4D 50 54 59 20 53 54 | "" (AN.EMPTY ST| 000006D0: 52 49 4E 47 29 2E 20 20 D4 48 45 20 53 41 4D 45 |RING). .HE SAME| 000006E0: 20 41 50 50 4C 49 45 53 20 54 4F 0D D4 D9 D0 C5 | APPLIES TO.....| 000006F0: 24 20 41 4E 44 20 CC C5 24 2E 0D 0D 20 20 20 20 |$ AND ..$... | 00000700: D4 48 45 20 D0 CF CB C5 35 35 2C 30 20 41 4E 44 |.HE ....55,0 AND| 00000710: 20 D0 CF CB C5 35 36 2C 31 34 31 0D 43 4F 4D 4D | ....56,141.COMM| 00000720: 41 4E 44 53 20 49 4E 20 54 48 45 20 44 45 4D 4F |ANDS IN THE DEMO| 00000730: 20 50 52 4F 47 52 41 4D 2C 20 CD D5 D3 D4 20 42 | PROGRAM, .... B| 00000740: 45 0D 54 48 45 52 45 2E 20 20 C4 4F 20 4E 4F 54 |E.THERE. .O NOT| 00000750: 20 44 45 4C 45 54 45 20 54 48 45 53 45 20 4F 52 | DELETE THESE OR| 00000760: 20 43 48 41 4E 47 45 0D 54 48 45 4D 2E 0D 0D 20 | CHANGE.THEM... | 00000770: 20 20 20 C8 45 52 45 20 41 52 45 20 53 4F 4D 45 | .ERE ARE SOME| 00000780: 20 57 41 59 53 20 54 48 41 54 20 C4 C9 D2 D4 CF | WAYS THAT .....| 00000790: D6 C1 D2 2E CF 0D 43 41 4E 20 42 45 20 55 53 45 |......CAN BE USE| 000007A0: 44 2E 0D 0D 20 20 20 20 CC 4F 41 44 49 4E 47 20 |D... .OADING | 000007B0: 46 49 4C 45 53 20 57 48 49 43 48 20 41 52 45 20 |FILES WHICH ARE | 000007C0: 41 0D 53 50 45 43 49 46 49 43 20 42 4C 4F 43 4B |A.SPECIFIC BLOCK| 000007D0: 20 53 49 5A 45 2E 20 20 C3 48 45 43 4B 20 CC C5 | SIZE. .HECK ..| 000007E0: 24 28 58 29 2E 0D 0D 20 20 20 20 C9 53 20 54 48 |$(X)... .S TH| 000007F0: 45 52 45 20 45 4E 4F 55 47 48 20 52 4F 4F 4D 20 |ERE ENOUGH ROOM | 00000800: 4F 4E 20 44 49 53 4B 20 46 4F 52 0D 4D 59 20 4E |ON DISK FOR.MY N| 00000810: 45 57 20 44 41 54 41 20 46 49 4C 45 3F 20 20 C3 |EW DATA FILE? .| 00000820: 48 45 43 4B 20 CC C5 24 28 30 29 2E 0D 0D 20 20 |HECK ..$(0)... | 00000830: 20 20 C8 4F 57 20 4D 41 4E 59 20 D3 C5 D1 55 45 | .OW MANY ...UE| 00000840: 4E 54 49 41 4C 20 46 49 4C 45 53 20 41 52 45 20 |NTIAL FILES ARE | 00000850: 4F 4E 0D 54 48 49 53 20 44 49 53 4B 3F 20 20 C3 |ON.THIS DISK? .| 00000860: 48 45 43 4B 20 D4 D9 D0 C5 24 28 58 29 2E 0D 0D |HECK ....$(X)...| 00000870: 20 20 20 20 D0 52 49 4E 54 20 41 4C 4C 20 46 49 | .RINT ALL FI| 00000880: 4C 45 53 20 57 49 54 48 20 41 20 22 D4 2E 22 20 |LES WITH A ".." | 00000890: 50 52 45 46 49 58 0D C3 48 45 43 4B 20 CC C5 C6 |PREFIX..HECK ...| 000008A0: D4 24 28 CE C1 CD C5 24 28 58 29 2C 32 29 2E 0D |.$(....$(X),2)..| 000008B0: 0D 20 20 20 20 D0 45 52 46 4F 52 4D 20 46 49 4C |. .ERFORM FIL| 000008C0: 45 20 49 4E 50 55 54 2F 4F 55 54 50 55 54 20 CF |E INPUT/OUTPUT .| 000008D0: CE CC D9 20 4F 4E 0D 59 4F 55 52 20 44 41 54 41 |... ON.YOUR DATA| 000008E0: 20 44 49 53 4B 2E 20 20 C9 53 20 54 48 45 20 44 | DISK. .S THE D| 000008F0: 49 53 4B 20 4E 41 4D 45 20 22 CD D9 0D C4 C1 D4 |ISK NAME "......| 00000900: C1 22 3F 20 20 C3 48 45 43 4B 20 CE C1 CD C5 24 |."? .HECK ....$| 00000910: 28 30 29 2E 0D 0D 0D 20 20 20 20 C4 4F 4E 27 54 |(0).... .ON'T| 00000920: 20 46 4F 52 47 45 54 20 41 42 4F 55 54 20 54 48 | FORGET ABOUT TH| 00000930: 45 20 4D 41 49 4E 20 55 53 45 0D 4F 46 20 C4 C9 |E MAIN USE.OF ..| 00000940: D2 20 D4 CF 20 D6 C1 D2 2C 20 49 4E 53 54 41 4C |. .. ..., INSTAL| 00000950: 4C 49 4E 47 20 41 20 50 49 43 4B 2D 41 4E 44 2D |LING A PICK-AND-| 00000960: 0D 43 48 4F 4F 53 45 20 44 49 52 45 43 54 4F 52 |.CHOOSE DIRECTOR| 00000970: 59 20 44 49 53 50 4C 41 59 20 57 49 54 48 49 4E |Y DISPLAY WITHIN| 00000980: 20 59 4F 55 52 0D 50 52 4F 47 52 41 4D 2E 0D 0D | YOUR.PROGRAM...| 00000990: 20 20 20 20 CC 45 54 27 53 20 41 4C 4C 20 54 52 | .ET'S ALL TR| 000009A0: 59 20 4F 55 52 20 42 45 53 54 20 54 4F 20 4D 41 |Y OUR BEST TO MA| 000009B0: 4B 45 0D 54 48 45 20 39 30 27 53 20 54 48 45 20 |KE.THE 90'S THE | 000009C0: 22 C6 52 49 45 4E 44 4C 59 20 C4 45 43 41 44 45 |".RIENDLY .ECADE| 000009D0: 22 2E 0D D7 48 41 44 44 59 41 20 53 41 59 3F 0D |"...HADDYA SAY?.| 000009E0: 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 |..... ..... ....| 000009F0: 20 D0 D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 0D 0D C4 | ....... .......| 00000A00: C9 D2 20 D4 CF 20 D6 C1 D2 20 28 44 45 4D 4F 29 |.. .. ... (DEMO)| 00000A10: 20 20 C4 C9 D2 D4 CF D6 C1 D2 2E CF 0D D4 2E C4 | ..............| 00000A20: C9 D2 20 D4 CF 20 D6 C1 D2 0D 0D 20 20 20 20 20 |.. .. ..... | 00000A30: 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 4F 46 20 D4 | **** .ND OF .| 00000A40: 45 58 54 20 2A 2A 2A 2A 0D |EXT ****. |
..^U:UTILITYWARE. DIRTOVAR.O: DIRECTORY
TO VARIABLES.. BY DAN B. JAME
S.. AS C-64 PROGRAMS GET FRIENDLIER.E
ACH YEAR YOU'LL SEE MORE AND MORE.'FRILL
S' LIKE THE ABILITY TO SEE THE.DIRECTORY
OF A DISK FROM INSIDE A.PROGRAM. WE'VE
PUBLISHED ML ROUTINES.BEFORE THAT WOULD
SHOW THE DIRECTORY.ON A SCROLLING SCREE
N, AND MAYBE EVEN.ALLOW YOU TO PAUSE THE
DISPLAY... HOWEVER, THE 90'S DICTATE
THAT WE.NEED TO BE EVEN FRIENDLIER. TH
IS.MEANS DISPLAYING A DIRECTORY WITH.HIG
HLIGHT BARS OR POINTERS THAT ALLOW.THE U
SER TO CHOOSE FROM THE DISPLAY... DIR
TO VAR (DIRECTORY TO.VARIABLES) IS JUST
THE PROGRAM MANY.BASIC PROGRAMS NEED.
A FEW SIMPLE.SET-UP COMMANDS AND ONE SYS
TEM CALL.AND YOU HAVE ALL OF THE PERTINE
NT.DATA FROM THE DIRECTORY IN EASY-TO-.M
ANIPULATE SUBSCRIPTED STRINGS... THE
RUN IT FILE FOR THIS PROGRAM.IS A DEMO S
HOWING HOW EASY IT IS TO.USE... AS WI
TH ALL ML ROUTINES,.DIRTOVAR.O MUST BE L
OADED INTO MEMORY.BEFORE CALLING. USE T
HIS LINE NEAR.THE BEGINNING OF YOUR PROG
RAM...10 POKE147,0:SYS57812"DIRTOVAR.O",
8,1:. SYS62631.. NEXT, THERE ARE
THREE STRINGS.THAT MUST BE DIMENSIONED B
EFORE ANY.OTHER VARIABLES ARE DEFINED.
THEY.ARE:.. TYPE$(144), NAME$(144), LE
$(144).. AFTER THE SYS36096, THE FOLL
OWING.INFO IS RETURNED TO THE CALLER:..
NAME$(0) = DISK NAME. TYPE$(0) = D
ISK I.D.. LE$(0) = BLOCKS FREE..
NAME$(1) -> NAME$(# OF FILES). HOL
DS THE NAME FOR EACH FILE... TYPE$(1)
-> TYPE$(# OF FILES). HOLDS THE TY
PE FOR EACH FILE. (I.E. PRG, SEQ,
REL,...).. LE$(1) -> LE$(# OF FILES)
. HOLDS BLOCK SIZE OF EACH FILE..
IF THERE WERE 14 FILES ON DISK,.THEN N
AME$(1) THROUGH NAME$(14) WOULD.BE VALID
. NAME$(15) THROUGH.NAME$(144) WILL BE
EQUAL TO "" (AN.EMPTY STRING). THE SAME
APPLIES TO.TYPE$ AND LE$... THE POKE
55,0 AND POKE56,141.COMMANDS IN THE DEMO
PROGRAM, MUST BE.THERE. DO NOT DELETE
THESE OR CHANGE.THEM... HERE ARE SOME
WAYS THAT DIRTOVAR.O.CAN BE USED...
LOADING FILES WHICH ARE A.SPECIFIC BLOCK
SIZE. CHECK LE$(X)... IS THERE ENOU
GH ROOM ON DISK FOR.MY NEW DATA FILE? C
HECK LE$(0)... HOW MANY SEQUENTIAL FI
LES ARE ON.THIS DISK? CHECK TYPE$(X)...
PRINT ALL FILES WITH A "T." PREFIX.C
HECK LEFT$(NAME$(X),2)... PERFORM FIL
E INPUT/OUTPUT ONLY ON.YOUR DATA DISK.
IS THE DISK NAME "MY.DATA"? CHECK NAME$
(0).... DON'T FORGET ABOUT THE MAIN U
SE.OF DIR TO VAR, INSTALLING A PICK-AND-
.CHOOSE DIRECTORY DISPLAY WITHIN YOUR.PR
OGRAM... LET'S ALL TRY OUR BEST TO MA
KE.THE 90'S THE "FRIENDLY DECADE"..WHADD
YA SAY?..DISK FILES THIS PROGRAM USES..D
IR TO VAR (DEMO) DIRTOVAR.O.T.DIR TO VA
R.. **** END OF TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL