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