home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / uniflex.zip / ufuhlp.bas < prev    next >
BASIC Source File  |  1993-08-23  |  521b  |  23 lines
  1. 10  rem This program is used to unpack the UniFLEX kermit HELP file.
  2. 20  width 0
  3. 30  on error goto 180
  4. 40  c$ = "~~~"
  5. 50  open old "ufhelp.txt" as 1
  6. 60  chd "/gen/kermit"
  7. 70  input #1,f$
  8. 80  if left$(f$,3) <> c$ then goto 70
  9. 90  n$ = mid$(f$,4)
  10. 100  open new n$ as 2
  11. 110  input line #1,f$
  12. 120  if left$(f$,3) <> c$ then goto 160
  13. 130  n$ = mid$(f$,4)
  14. 140  close 2
  15. 150  goto 100
  16. 160  print #2,f$
  17. 170  goto 110
  18. 180  if err <> 8 then goto 210
  19. 190  close 1,2
  20. 200  exit
  21. 210  print "Error: ",err
  22. 220  stop
  23.