home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a113 / 1.img / MESG.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-03-31  |  540 b   |  16 lines
  1. 2 READLEN=10240
  2. 10 OPEN "dbase.msg" AS 1 LEN=READLEN:FIELD 1,READLEN AS D$
  3. 20 GET 1:T$=D$
  4. 30 WHILE T$<>CHR$(26)
  5. 40 IMAX=ASC(T$):TLEN=ASC(MID$(T$,3,1))+256*ASC(MID$(T$,4,1))+1
  6. 50 TTOP=IMAX*4+5:ITOP=TTOP:PRINT IMAX,TLEN,TTOP
  7. 60 WHILE TTOP+TLEN>=LEN(T$):GET 1:T$=T$+D$:WEND
  8. 70 FOR I=1 TO IMAX
  9. 80 ILEN=INSTR(ITOP,T$,CHR$(0)):PRINT ITOP,ILEN
  10. 90 I$=MID$(T$,ITOP,ILEN-1):PRINT I;I$
  11. 100 ITOP=ITOP+ILEN
  12. 110 NEXT I
  13. 120 T$=MID$(T$,TTOP+TLEN)
  14. 130 WEND
  15. 1000 OPEN "DBASE.MSG" AS 1 LEN=1:FIELD 1,1 AS D$:WHILE -1:GET 1:PRINT ASC(D$);:WEND
  16.