Listing of file='IDS2PS43' on disk='vmedia/701-2724B.wvd.zip'
# Sector 596, program filename = 'IDS2PS43' 1000 REM "IDS2PS43" - Release 2.1 - PASS/FAIL DOCUMENTATION FOR TRANSMIT & REC EIVE 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : IF E6$<"M"THEN E$=" transmit from" : ELSE E$=" receive to" : IF E6$="L"OR E6$="N"THEN E$=E$&" the item named in" : E$=E$&" "&F1$&" via TC" : IF STR(F2$,,4)<>"POLL"AND STR(F2$,,4)<>"WAIT"THEN 2100 : E8$=STR(F2$,5) 1060 IF LEN(E8$)=1OR STR(E8$,,1)>"0"THEN 1090 : E8$=STR(E8$,2) : GOTO 1060 1090 OR (F2$,20) : E$=E$&", "&STR(F2$,,4)&" "&E8$ : IF STR(F2$,,1)="p"THEN E$=E$&" times" : ELSE E$=E$&" seconds" 2100 GOSUB '48(0,E$,0) : AND (STR(E0$(),5,1),DF) : GOSUB '49(0) : IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1 : ELSE F4=F4+1 : LOAD T#2,"IDS2PS30"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS43" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"