10 OPEN2,8,0,"$"
15 GET#2,A$,A$,A$,A$
20 GET#2,A$,B$
25 A=ASC(A$+CHR$(0)):B=ASC(B$+CHR$(0))
30 PRINTMID$(STR$(A+B*256),2)" ";
35 GET#2,A$:A=ASC(A$+CHR$(0))
40 IFA<>0THENPRINTA$;:GOTO35
45 PRINT:GET#2,A$,A$
50 IFASC(A$+CHR$(0))<>0THEN20
55 CLOSE2
60 :
65 :
70 :
100 REM *******************************
101 REM * EXPLANATION OF PROGRAM      *
102 REM * ======================      *
103 REM *                             *
104 REM * LINE10: OPEN FILE WITH NAME *
105 REM *         '$' (DIRECTORY)     *
106 REM *     15: READ IN FOUR NON-   *
107 REM *         SIGNIFICANT BYTES   *
108 REM *     20: READ IN A NUMBER    *
109 REM *         IN LO/HI BYTE FORM  *
110 REM *     25: CONVERT ASCII CODES *
111 REM *         TO NUMERIC VALUES   *
112 REM *     30: PRINT NUMBER ON     *
113 REM *         LEFT OF SCREEN      *
114 REM *     35: READ IN NEXT BYTE   *
115 REM *         AND GET ASCII VALUE *
116 REM *     40: IF END OF ENTRY NOT *
117 REM *         REACHED, THEN PRINT *
118 REM *         CHARACTER AND GO    *
119 REM *         BACK FOR ANOTHER    *
120 REM *     45: CARRIAGE RETURN +   *
121 REM *         GET TWO MORE BYTES  *
122 REM *     50: IF LAST ONE IS NON- *
123 REM *         ZERO THEN END OF    *
124 REM *         DIRECTORY HAS NOT   *
125 REM *         BEEN REACHED.       *
126 REM *     55: END OF FILE - CLOSE *
127 REM *                             *
128 REM *******************************