image of READY prompt

Wang2200.org

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"