Listing of file='IDS2327U' on disk='vmedia/701-2725B.wvd.zip'
# Sector 457, program filename = 'IDS2327U' 3500 DEFFN'75(E3$()) : MAT REDIM E3$(24)83 : STR(E3$(),1921)=" " 3502 N=1 : IF #PART<>3THEN N=#TERM+1 : H=1 : E9$=" " : E6$="T" : IF E3$()="\C0\D2\C5\C3\C5\C9\D6\C5"THEN E6$="R" : SELECT @PART"3270UNIV" : ERRORGOSUB '74(83," ") 3518 IF STR(@A$,40,1)="L"OR @C$=" "THEN GOSUB '74(84," ") : F3$="0"&STR(@Z$,25) : IF VER(F3$,"01A")<3THEN GOSUB '74(85,F3$) : SELECT #6<F3$> : IF STR(@A$,40,1)<>"A"THEN GOSUB '74(86," ") : N=1 : IF #PART<>3THEN N=#TERM+1 : BIN(STR(@A$,N+12,1))=#PART+48 : BIN(STR(@A$,N+24,1))=#TERM+48 : STR(@A$,N*3+38,2)=STR(@C$,N*3+38,2) : STR(@D$(N),2)=HEX(80) 3546 @T$(N)=HEX(03) : IF E6$="T"THEN E$="Waiting to send to host" : ELSE E$="Waiting for response from host" : PRINT AT(23,0,80);E$; 3554 GOSUB 3642 : IF F6$=HEX(03)THEN 3554 3560 GOSUB 3642 : IF F6$=HEX(00)AND E6$<>"X"THEN 3570 : IF F6$<HEX(10)THEN 3560 : ON VAL(F6$)-16GOTO 3580,3598,3614,3618 3570 IF E6$="R"THEN GOSUB '74(88," ") : @T$(N)=HEX(02) : GOTO 3560 3580 IF E6$="R"THEN GOSUB '74(89," ") : E8$=@D$(N)&HEX(0001)&ALL(00) : E3$()=E3$()&ALL(00) : $OPEN #6 : $GIO#6(40054210402040004240423040FEA000,E8$)E3$()<,1920> : $CLOSE#6 : @T$(N)=HEX(10) : GOTO 3668 3598 IF E6$="T"THEN GOSUB '74(90," ") : E3$()=" " : $OPEN #6 : $BREAK 3606 $GIO#6(87008701870487038702C340,E8$)E3$()<,1920> : ERRORIF F6$>HEX(00)THEN 3606 : GOSUB '74(91," ") 3608 $CLOSE#6 : GOTO 3668 3614 O=87 : RETURN CLEAR : GOSUB 3656 3618 IF E6$="R"THEN GOSUB '74(89," ") : E8$=STR(@D$(N),,1)&HEX(3D)&HEX(0001) : E3$()=E3$()&ALL(00) : $OPEN #6 : $GIO#6(40054210422040004240423040FEA000,E8$)E3$()<,1920> : $CLOSE#6 : @T$(N)=HEX(10) : GOTO 3668 3636 STOP # 3640 PRINT HEX(07); 3642 $BREAK : E$=" " : KEYIN E$,3640,3652 : F6$=@T$(N) : RETURN 3652 IF F6$(11)="N"OR E$<>HEX(1F)THEN 3640 : @T$(N)=HEX(01) : H=0 : E6$="X" : GOTO 3560 3656 DEFFN'74(O,E8$) : RETURN CLEAR 3660 IF H=0OR H>10OR E6$="T"THEN 3662 : H=H+1 : @T$(N)=HEX(03) : GOTO 3560 3662 STR(@A$,24+N,1),STR(@A$,12+N,1),STR(@A$,38+3*N,3)=" " : STR(@D$(N),2),@T$(N)=HEX(00) : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : ELSE SELECT @PART" " : GOSUB '38(O,E8$) : RETURN 3668 STR(@A$,24+N,1),STR(@A$,12+N,1),STR(@A$,38+3*N,3)=" " : STR(@D$(N),2),@T$(N)=HEX(00) : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : ELSE SELECT @PART" " : PRINT AT(23,0,80); : $TRAN(E3$(),HEX(2000))R : RETURN