Listing of file='IDS2PS42' on disk='vmedia/701-2724B.wvd.zip'
# Sector 588, program filename = 'IDS2PS42' 1000 REM "IDS2PS42" - PASS/FAIL DOCUMENTATION FOR TRANSMIT (OPTS J & S) 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : F5$=F1$ : X=0 : E$="Transmit TC message from" : IF J3>12THEN E$=E$&"the item named in field "&HEX(22)&STR(F5$,1,8)&HEX(22 2E) : IF F5$=" "THEN Y=17 : ELSE Y=0 : IF Y=17THEN 1110 : IF F1$<>STR(E$(),2,8)THEN 1040 : E$=E$&" the work buffer." : GOTO 1100 1040 MAT SEARCHE$()<78,56>,=STR(F5$,1,8)TO F9$STEP 8 : IF F9$=HEX(0000)THEN 1045 : E$=E$&" the work buffer record for file "&HEX(22)&STR(F1$,1,8)&HEX(222E) : GOTO 1100 1045 MAT SEARCHE3$()<78,56>,=STR(F5$,1,8)TO F9$STEP 8 : IF VER(F5$,"@TSTFLDH")<8AND F9$=HEX(0000)AND F5$<>"@SYSBUF0"THEN Y=17 : IF Y=0THEN E$=E$&" field "&HEX(22)&STR(F1$,1,8)&HEX(222E) : GOTO 1100 1100 GOSUB '48(17,E$,0) : IF Y=0THEN 2000 1110 IF Q>12THEN Y=Y+1 : CONVERT YTO E$,(###) : STR(E$,1,1)="E" : GOSUB '48(1,E$,3) 2000 GOSUB '49(0) : F4=F4+1 : GOSUB '48(17,"(Time out specification for TC transmission:",0) : Y=0 : IF VER(F2$,"POLL####")<8THEN 2030 : F0$=" Poll "&STR(F2$,5,4)&" times.)" : GOTO 2090 2030 IF VER(F2$,"WAIT####")<8THEN 2040 : F0$=" Wait "&STR(F2$,5,4)&" seconds.)" : GOTO 2090 2040 F0$=" "&F2$&".)" : IF F2$<>"NONE"THEN Y=19 2090 IF Y=0THEN 2100 : CONVERT YTO E$,(###) : STR(E$,1,1)="E" : GOSUB '48(1,E$,3) 2100 GOSUB '48(0,F0$,0) : GOSUB '49(0) : F4=F4+1 : LOAD T#2,"IDS2PS30"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS42" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"