home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Lexical_Order_files / LEXICAL.BAS < prev    next >
Encoding:
BASIC Source File  |  2005-03-02  |  360 b   |  15 lines
  1.    SUB Lexical(L$)    ! LEXICAL.BAS
  2.      DIM A$[30]
  3.      INTEGER I
  4.      !
  5.      A$="C:\HTB\PC"&L$[1;6]&".LEX"
  6.      ASSIGN @Io TO A$
  7.      STATUS @Io,3;I  ! Number of bytes in file
  8.      I=I DIV 2  ! Number of INTEGERs in file
  9.      ALLOCATE INTEGER T(1:I)
  10.     ENTER @Io;T(*)
  11.     ASSIGN @Io TO *
  12.     LEXICAL ORDER IS T(*)
  13.     DEALLOCATE T(*)
  14.   SUBEND
  15.