AUTONUM 1,1 GOSUB INITCOMM DO GOSUB GETINPUT GOSUB PROCESSINPUT LOOP SUB INITCOMM OPEN #1:NAME "SER" RETURN SUB GETINPUT INPUT #1: A$ RETURN SUB PROCESSINPUT PRINT A$ RETURN