DIR TO VAR

FILE INFORMATION

FILENAME(S): DIR TO VAR

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 18:12:19

APPEARS ON: 1 disk(s)

FILE HASH

bc32507088bfa3e5486b9e08ed1917b179b0cb838b8c0c1383c16f3efa1ebddd

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOADSTAR 62 S 3	DIR TO VAR	PRG	Sailor, Ganheden	32	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 07 08 E6 00 3A 00  28 08 FA 00 8F 20 4C 49  |......:.(.... LI|
00000010: 4E 45 53 20 33 33 30 2C  20 33 34 30 20 41 4E 44  |NES 330, 340 AND|
00000020: 20 33 35 30 20 41 52 45  00 4C 08 04 01 8F 20 27  | 350 ARE.L.... '|
00000030: 4B 45 59 27 20 4C 49 4E  45 53 20 54 4F 20 42 45  |KEY' LINES TO BE|
00000040: 20 49 4E 43 4C 55 44 45  44 20 49 4E 00 6C 08 0E  | INCLUDED IN.l..|
00000050: 01 8F 20 49 4E 20 41 4E  59 20 55 53 45 20 4F 46  |.. IN ANY USE OF|
00000060: 20 44 49 52 20 54 4F 20  56 41 52 2E 00 91 08 18  | DIR TO VAR.....|
00000070: 01 8F 20 54 48 45 53 45  20 54 48 52 45 45 20 4C  |.. THESE THREE L|
00000080: 49 4E 45 53 20 53 48 4F  55 4C 44 20 42 45 20 41  |INES SHOULD BE A|
00000090: 54 00 B6 08 22 01 8F 20  54 48 45 20 42 45 47 49  |T...".. THE BEGI|
000000A0: 4E 4E 49 4E 47 20 4F 46  20 59 4F 55 52 20 50 52  |NNING OF YOUR PR|
000000B0: 4F 47 52 41 4D 2E 00 BC  08 2C 01 3A 00 E5 08 4A  |OGRAM....,.:...J|
000000C0: 01 97 31 34 37 2C 30 3A  9E 35 37 38 31 32 22 44  |..147,0:.57812"D|
000000D0: 49 52 54 4F 56 41 52 2E  4F 22 2C 38 2C 31 3A 9E  |IRTOVAR.O",8,1:.|
000000E0: 36 32 36 33 31 00 0E 09  54 01 97 35 35 2C 2E 3A  |62631...T..55,.:|
000000F0: 97 35 36 2C 31 34 31 3A  9C 3A 8F 20 4C 4F 57 45  |.56,141:.:. LOWE|
00000100: 52 20 54 4F 50 20 4F 46  20 42 41 53 49 43 00 4C  |R TOP OF BASIC.L|
00000110: 09 5E 01 86 20 54 59 50  45 24 28 31 34 34 29 2C  |.^.. TYPE$(144),|
00000120: 4E 41 4D 45 24 28 31 34  34 29 2C 4C 45 24 28 31  |NAME$(144),LE$(1|
00000130: 34 34 29 3A 8F 20 44 49  4D 20 54 48 45 53 45 20  |44):. DIM THESE |
00000140: 41 52 52 41 59 53 20 46  49 52 53 54 00 52 09 68  |ARRAYS FIRST.R.h|
00000150: 01 3A 00 7B 09 72 01 99  C7 28 31 34 29 22 93 11  |.:.{.r...(14)"..|
00000160: 11 CC 4F 41 44 49 4E 47  20 44 49 52 45 43 54 4F  |..OADING DIRECTO|
00000170: 52 59 20 49 4E 46 4F 2E  2E 2E 22 00 AF 09 7C 01  |RY INFO..."...|.|
00000180: 9E 20 33 36 30 39 36 3A  8F 20 44 49 52 45 43 54  |. 36096:. DIRECT|
00000190: 4F 52 59 2D 54 4F 2D 56  41 52 49 41 42 4C 45 53  |ORY-TO-VARIABLES|
000001A0: 20 20 20 20 53 55 42 2D  52 4F 55 54 49 4E 45 00  |    SUB-ROUTINE.|
000001B0: D2 09 86 01 3A 8F 20 2D  2D 2D 2D 2D 2D 2D 2D 2D  |....:. ---------|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001D0: 2D 2D 00 D8 09 90 01 3A  00 FA 09 9A 01 8F 20 44  |--.....:...... D|
000001E0: 45 4D 4F 4E 53 54 52 41  54 49 4F 4E 20 4F 46 20  |EMONSTRATION OF |
000001F0: 4F 4E 45 20 57 41 59 20  49 4E 00 20 0A A4 01 8F  |ONE WAY IN. ....|
00000200: 20 57 48 49 43 48 20 54  48 45 20 52 45 53 55 4C  | WHICH THE RESUL|
00000210: 54 53 20 4F 46 20 44 49  52 54 4F 56 41 52 2E 4F  |TS OF DIRTOVAR.O|
00000220: 00 33 0A AE 01 8F 20 43  41 4E 20 42 45 20 55 53  |.3.... CAN BE US|
00000230: 45 44 2E 00 39 0A B8 01  3A 00 56 0A C2 01 97 35  |ED..9...:.V....5|
00000240: 33 32 38 30 2C 36 3A 97  35 33 32 38 31 2C 36 3A  |3280,6:.53281,6:|
00000250: 97 36 34 36 2C 31 00 6A  0A CC 01 50 4F 24 B2 22  |.646,1.j...PO$."|
00000260: 13 11 11 11 11 11 11 11  11 22 00 85 0A D6 01 42  |.........".....B|
00000270: 4C 24 B2 22 20 20 20 20  20 20 20 20 20 20 20 20  |L$."            |
00000280: 20 20 20 20 22 00 B7 0A  E0 01 99 22 93 11 11 11  |    "......"....|
00000290: D5 53 45 20 C3 D2 D3 D2  20 D5 D0 2F C4 CF D7 CE  |.SE .... ../....|
000002A0: 20 41 4E 44 20 D2 C5 D4  D5 D2 CE 20 54 4F 20 53  | AND ...... TO S|
000002B0: 45 4C 45 43 54 2E 22 00  D6 0A F4 01 58 B2 30 3A  |ELECT.".....X.0:|
000002C0: 46 49 B2 31 3A 8B 20 4E  41 24 28 31 29 B2 22 22  |FI.1:. NA$(1).""|
000002D0: 20 A7 20 38 36 30 00 E8  0A FE 01 8B 20 46 49 B3  | . 860...... FI.|
000002E0: 31 20 A7 20 46 49 B2 31  00 00 0B 08 02 8B 20 4E  |1 . FI.1...... N|
000002F0: 41 24 28 46 49 29 B2 22  22 20 A7 20 46 49 B2 31  |A$(FI)."" . FI.1|
00000300: 00 16 0B 12 02 8B 20 46  49 B1 31 33 38 20 A7 20  |...... FI.138 . |
00000310: 46 49 B2 31 33 38 00 1C  0B 1C 02 3A 00 25 0B 26  |FI.138.....:.%.&|
00000320: 02 99 50 4F 24 00 2B 0B  30 02 3A 00 3F 0B 3A 02  |..PO$.+.0.:.?.:.|
00000330: 81 4C B2 30 A4 36 20 3A  20 49 B2 46 49 AA 4C 00  |.L.0.6 : I.FI.L.|
00000340: 63 0B 44 02 8B 20 49 B1  31 34 34 B0 4E 41 24 28  |c.D.. I.144.NA$(|
00000350: 49 29 B2 22 22 A7 99 A3  38 29 3B 42 4C 24 3A 89  |I).""...8);BL$:.|
00000360: 36 32 30 00 7F 0B 4E 02  8B 20 4E 41 24 28 49 AA  |620...N.. NA$(I.|
00000370: 31 29 B2 22 22 AF 28 4C  B3 58 29 A7 58 B2 4C 00  |1)."".(L.X).X.L.|
00000380: B8 0B 58 02 8B 20 49 B2  46 49 AA 58 20 A7 20 99  |..X.. I.FI.X . .|
00000390: 20 A3 38 29 3B 22 12 22  3B 4E 41 24 28 49 29 3B  | .8);".";NA$(I);|
000003A0: C8 28 42 4C 24 2C 31 36  AB C3 28 4E 41 24 28 49  |.(BL$,16..(NA$(I|
000003B0: 29 29 29 3A 89 36 32 30  00 DC 0B 62 02 99 A3 38  |))):.620...b...8|
000003C0: 29 3B 4E 41 24 28 49 29  3B C8 28 42 4C 24 2C 31  |);NA$(I);.(BL$,1|
000003D0: 36 AB C3 28 4E 41 24 28  49 29 29 29 00 E2 0B 6C  |6..(NA$(I)))...l|
000003E0: 02 82 00 E8 0B 76 02 3A  00 FE 0B 80 02 A1 20 51  |.....v.:...... Q|
000003F0: 24 3A 8B 20 51 24 B2 22  22 A7 20 36 34 30 00 13  |$:. Q$."". 640..|
00000400: 0C 8A 02 8B 20 51 24 B3  B1 22 91 22 A7 20 89 20  |.... Q$..".". . |
00000410: 36 39 30 00 2C 0C 94 02  8B 20 58 B2 30 20 A7 20  |690.,.... X.0 . |
00000420: 46 49 B2 46 49 AB 31 3A  89 35 31 30 00 3B 0C 9E  |FI.FI.1:.510.;..|
00000430: 02 58 B2 58 AB 31 3A 89  35 35 30 00 41 0C A8 02  |.X.X.1:.550.A...|
00000440: 3A 00 56 0C B2 02 8B 20  51 24 B3 B1 22 11 22 A7  |:.V.... Q$..".".|
00000450: 20 89 20 37 33 30 00 6F  0C BC 02 8B 20 58 B2 36  | . 730.o.... X.6|
00000460: 20 A7 20 46 49 B2 46 49  AA 31 3A 89 35 32 30 00  | . FI.FI.1:.520.|
00000470: 7E 0C C6 02 58 B2 58 AA  31 3A 89 35 35 30 00 84  |~...X.X.1:.550..|
00000480: 0C D0 02 3A 00 99 0C DA  02 8B 20 51 24 B2 C7 28  |...:...... Q$..(|
00000490: 31 33 29 20 A7 20 37 36  30 00 A3 0C E4 02 89 20  |13) . 760...... |
000004A0: 36 34 30 00 A9 0C EE 02  3A 00 B5 0C F8 02 46 49  |640.....:.....FI|
000004B0: B2 46 49 AA 58 00 E6 0C  02 03 99 22 93 11 11 22  |.FI.X......"..."|
000004C0: 54 50 24 22 1D D9 4F 55  20 43 48 4F 53 45 20 54  |TP$"..OU CHOSE T|
000004D0: 48 45 20 46 49 4C 45 4E  41 4D 45 3A 20 12 22 4E  |HE FILENAME: ."N|
000004E0: 41 24 28 46 49 29 00 0E  0D 0C 03 99 22 11 1D D4  |A$(FI)......"...|
000004F0: 48 49 53 20 46 49 4C 45  20 49 53 20 4F 46 20 54  |HIS FILE IS OF T|
00000500: 59 50 45 3A 20 12 22 54  59 24 28 46 49 29 00 3A  |YPE: ."TY$(FI).:|
00000510: 0D 16 03 99 22 11 1D C9  54 20 48 41 53 20 41 20  |...."...T HAS A |
00000520: 42 4C 4F 43 4B 2D 4C 45  4E 47 54 48 20 4F 46 3A  |BLOCK-LENGTH OF:|
00000530: 20 12 22 4C 45 24 28 46  49 29 00 5E 0D 20 03 99  | ."LE$(FI).^. ..|
00000540: 22 11 1D C9 54 53 20 44  49 53 4B 20 49 53 20 4E  |"...TS DISK IS N|
00000550: 41 4D 45 44 3A 20 12 22  4E 41 24 28 30 29 00 81  |AMED: ."NA$(0)..|
00000560: 0D 2A 03 99 22 11 1D D4  48 45 20 44 49 53 4B 20  |.*.."...HE DISK |
00000570: C9 2E C4 2E 20 49 53 3A  20 12 22 54 59 24 28 30  |.... IS: ."TY$(0|
00000580: 29 00 AF 0D 34 03 99 22  11 1D C2 4C 4F 43 4B 53  |)...4.."...LOCKS|
00000590: 20 46 52 45 45 20 4F 4E  20 54 48 49 53 20 44 49  | FREE ON THIS DI|
000005A0: 53 4B 20 49 53 3A 20 12  22 4C 45 24 28 30 29 00  |SK IS: ."LE$(0).|
000005B0: D5 0D 3E 03 99 22 11 11  11 1D D0 52 45 53 53 20  |..>..".....RESS |
000005C0: 41 4E 59 20 4B 45 59 20  54 4F 20 43 4F 4E 54 49  |ANY KEY TO CONTI|
000005D0: 4E 55 45 2E 22 00 EC 0D  48 03 A1 20 51 24 3A 8B  |NUE."...H.. Q$:.|
000005E0: 20 51 24 B2 22 22 20 A7  20 38 34 30 00 F6 0D 52  | Q$."" . 840...R|
000005F0: 03 89 20 38 37 30 00 34  0E 5C 03 99 22 93 11 11  |.. 870.4.\.."...|
00000600: 11 22 54 50 24 22 20 D4  48 45 52 45 20 41 52 45  |."TP$" .HERE ARE|
00000610: 20 4E 4F 20 46 49 4C 45  53 20 4F 4E 20 54 48 49  | NO FILES ON THI|
00000620: 53 20 44 49 53 4B 21 22  3A 81 49 B2 30 A4 32 39  |S DISK!":.I.0.29|
00000630: 39 39 3A 82 00 56 0E 66  03 99 22 93 11 11 11 22  |99:..V.f.."...."|
00000640: 54 50 24 22 20 C3 48 4F  4F 53 45 20 4F 50 54 49  |TP$" .HOOSE OPTI|
00000650: 4F 4E 3A 11 11 22 00 6D  0E 70 03 99 22 20 3C 41  |ON:..".m.p.." <A|
00000660: 3E 20 D2 55 4E 20 41 47  41 49 4E 11 22 00 8C 0E  |> .UN AGAIN."...|
00000670: 7A 03 99 22 20 3C 42 3E  20 D2 45 54 55 52 4E 20  |z.." <B> .ETURN |
00000680: 54 4F 20 CC CF C1 C4 D3  D4 C1 D2 22 00 A9 0E 84  |TO ........"....|
00000690: 03 A1 20 51 24 3A 8B 20  51 24 B3 22 41 22 B0 51  |.. Q$:. Q$."A".Q|
000006A0: 24 B1 22 42 22 A7 39 30  30 00 BA 0E 98 03 8B 20  |$."B".900...... |
000006B0: 51 24 B2 22 41 22 20 A7  20 8A 00 FE 0E A2 03 9F  |Q$."A" . .......|
000006C0: 20 31 35 2C 38 2C 31 35  2C 22 52 30 3A 48 45 4C  | 15,8,15,"R0:HEL|
000006D0: 4C 4F 20 43 4F 4E 4E 45  43 54 3D 48 45 4C 4C 4F  |LO CONNECT=HELLO|
000006E0: 20 43 4F 4E 4E 45 43 54  22 3A 84 31 35 2C 45 58  | CONNECT":.15,EX|
000006F0: 2C 45 58 24 2C 45 54 2C  45 53 3A A0 31 35 00 0F  |,EX$,ET,ES:.15..|
00000700: 0F AC 03 8B 20 45 58 B3  B1 36 33 20 A7 20 80 00  |.... EX..63 . ..|
00000710: 29 0F B6 03 93 20 22 48  45 4C 4C 4F 20 43 4F 4E  |).... "HELLO CON|
00000720: 4E 45 43 54 22 2C 38 2C  31 00 00 00              |NECT",8,1...    |

......:.(.... LINES 330, 340 AND 350 ARE
.L.... 'KEY' LINES TO BE INCLUDED IN.L..
.. IN ANY USE OF DIR TO VAR....... THESE
 THREE LINES SHOULD BE AT...".. THE BEGI
NNING OF YOUR PROGRAM....,.:...J..147,0:
.57812"DIRTOVAR.O",8,1:.62631...T..55,.:
.56,141:.:. LOWER TOP OF BASIC.L.^.. TYP
E$(144),NAME$(144),LE$(144):. DIM THESE 
ARRAYS FIRST.R.H.:.{.R..G(14)"...LOADING
 DIRECTORY INFO..."...|.. 36096:. DIRECT
ORY-TO-VARIABLES    SUB-ROUTINE.R...:. -
--------------------------.X...:...... D
EMONSTRATION OF ONE WAY IN. .... WHICH T
HE RESULTS OF DIRTOVAR.O.3.... CAN BE US
ED..9...:.V.B..53280,6:.53281,6:.646,1.J
.L.PO$."........."...V.BL$."            
    "......"....USE CRSR UP/DOWN AND RET
URN TO SELECT.".V...X.0:FI.1:. NA$(1).""
 . 860...... FI.1 . FI.1...... NA$(FI)."
" . FI.1...... FI.138 . FI.138.....:.%.&
..PO$.+.0.:.?.:..L.0.6 : I.FI.L.C.D.. I.
144.NA$(I).""...8);BL$:.620..N.. NA$(I.
1)."".(L.X).X.L...X.. I.FI.X . . .8);"."
;NA$(I);H(BL$,16.C(NA$(I))):.620...B...8
);NA$(I);H(BL$,16.C(NA$(I)))...L.....V.:
...... Q$:. Q$."". 640...... Q$..".". . 
690.,.... X.0 . FI.FI.1:.510.;...X.X.1:.
550.A...:.V.... Q$..".". . 730.O.... X.6
 . FI.FI.1:.520.~.F.X.X.1:.550...P.:...Z
.. Q$.G(13) . 760...... 640.....:.....FI
.FI.X......"..."TP$".YOU CHOSE THE FILEN
AME: ."NA$(FI)......"..THIS FILE IS OF T
YPE: ."TY$(FI).:...."..IT HAS A BLOCK-LE
NGTH OF: ."LE$(FI).^. .."..ITS DISK IS N
AMED: ."NA$(0)...*.."..THE DISK I.D. IS:
 ."TY$(0)...4.."..BLOCKS FREE ON THIS DI
SK IS: ."LE$(0).U.>.."....PRESS ANY KEY 
TO CONTINUE."...H.. Q$:. Q$."" . 840...R
.. 870.4.\.."...."TP$" THERE ARE NO FILE
S ON THIS DISK!":.I.0.2999:..V.F.."...."
TP$" CHOOSE OPTION:..".M.P.." <A> RUN AG
AIN."...Z.." <B> RETURN TO LOADSTAR"....
.. Q$:. Q$."A".Q$."B".900...... Q$."A" .
 ....... 15,8,15,"R0:HELLO CONNECT=HELLO
 CONNECT":.15,EX,EX$,ET,ES: 15...... EX.
.63 . ..).... "HELLO CONNECT",8,1...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL