home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
pub
/
uniflex
/
ufuhlp.bas
< prev
next >
Wrap
BASIC Source File
|
2020-01-01
|
499b
|
23 lines
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