10  rem This program is used to unpack the UniFLEX kermit HELP file.
20  width 0
30  on error goto 180
40  c$ = "~~~"
50  open old "ufhelp.txt" as 1
60  chd "/gen/kermit"
70  input #1,f$
80  if left$(f$,3) <> c$ then goto 70
90  n$ = mid$(f$,4)
100  open new n$ as 2
110  input line #1,f$
120  if left$(f$,3) <> c$ then goto 160
130  n$ = mid$(f$,4)
140  close 2
150  goto 100
160  print #2,f$
170  goto 110
180  if err <> 8 then goto 210
190  close 1,2
200  exit
210  print "Error: ",err
220  stop