image of READY prompt

Wang2200.org

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"