3030 TRAP 3900:TMO=15:GOSUB 3830:IF A<>NAK THEN PUT #MODEM,NAK:GOTO 3030›3370 GOSUB 3830:IF A=CAN OR PEEK(CON)=5 THEN 3900›3800 BLK=0:TMO=3:TRAP 3805›3805 BLK=BLK+1:PUT #MODEM,EOT:GOSUB 3830:IF A=ACK THEN 3810›3806 IF BLK=9 THEN TRAP 3900›3807 GOTO 3805›3830 POKE 19,0›3840 STATUS #MODEM,C:IF PEEK(747) THEN GET #MODEM,A:RETURN ›3850 IF TMO=PEEK(19) THEN POP :C=C/0›3860 GOTO 3840›