100 ! getfil.bas - program to accept text files
130 ! works on all alpha basic compatible machines
140 ! (C) Soft Machines 1982    Written by Bob Rubendunst.
160 MAP1 BUFFER,S,200
170 MAP1 FILNAM,S,30
180 MAP1 END'SIGNAL,S,4,"\\\\"
200 INPUT LINE "ENTER THE NAME OF THE FILE TO BE RECEIVED ",FILNAM
210 OPEN #1,FILNAM,OUTPUT
220 PRINT "READY TO RECEIVE ";FILNAM;"."
230 PRINT "ENTER A CR and ";END'SIGNAL;",then another CR to close the file."
250 GETLIN:
260     INPUT LINE BUFFER
270     IF BUFFER[1,4]=END'SIGNAL goto DONE
280     ? #1,BUFFER
290     GOTO GETLIN
300 DONE:
310     PRINT FILNAM;" transfer complete."
320     CLOSE #1
330     END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.