image of READY prompt

Wang2200.org

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