0 'ENTEL.RK / Rudy E. Kokich, MD / 19-Jul-86
1 CLS:CLEAR820:MAXFILES=2:CALL17001:PRINT" TELCOM File Transfer";TAB(28);"RAM:";FRE(0):CALL17006:PRINT:POKE64268,172:POKE64269,126:POKE64270,73:POKE64271,108:KEY5,"Call20806"+CHR$(13)
2 LINEINPUT"Source File.....: ";C$:LINEINPUT"Destination File: ";D$:IFC$=""ORD$=""THEN6ELSEPRINT"Working...";:OPENC$FORINPUTAS1:OPEND$FOROUTPUTAS2
3 LINEINPUT#1,A$:IFLEN(A$)=255THEN4:ELSEPRINT#2,B$;:PRINT#2,A$:B$="":GOTO5
4 PRINT#2,B$;:B$=A$
5 IFNOTEOF(1)THEN3
6 CALL16941:FORI=1TO4:SOUND1500,3:PRINT:SOUND1300,2:NEXTI:PRINTSTRING$(20,32):PRINT"- You are still in Basic...":PRINT"- F5 for TELCOM, then F4 for TERMINAL":PRINT"- [Break] if disconnected":CLEAR256:MAXFILES=0:END