Listing of file='ASK?32G3' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 813, program filename = 'ASK?32G3' 0010 REM ASK?32G3 10/09/82 3270 Gen Screen 3 0020 COM Y$(4)62 : DIM D$16,D$(15)16 0030 Y$()="STREAM.1 STREAM.2 STREAM.3 STREAM.4 STR EAM.5 STREAM.6 STREAM.7 STREAM.8 STREAM.A STREAM.B STREAM.C STREAM.D <<<<<<<<<<<<<<<<>>>>> >>>>>>>>>>>" 0040 IF STR(Z$,31,1)="<"THEN 50 : XOR (Z$,W$) : XOR (W$,Z$) : XOR (Z$,W$) 0050 C=VAL(STR(Z$,33))-48 : D=VAL(STR(Z$,34))-48 0060 C$=STR(Z$,24,1) : IF C$=" "THEN 90 : DATA LOAD DC OPEN T#0,"3270CALL" 0070 IF C$="A"THEN 80 : DSKIP VAL(C$)-65 S 0080 DATA LOAD DC #0, Y$() 0090 MAT COPY Y$() TO D$() 0100 PRINT HEX(03);AT(0,20);"E q u a t e S t r e a m N a m e s" 0110 PRINT AT(2,12);"\D0\E1\F2\E1\ED\E5\F4\E5\F2\F3";TAB(35);"\C3\F5\F2\F2\E5\ EE\F4\A0\D3\E5\EC\E5\E3\F4\E9\EF\EE" 0115 PRINT AT(3,35);"---ID---Terminal" 0120 FOR A=1 TO C 0130 PRINT TAB(10);"Station ";A;" stream ";STR(Z$,A*3+38,2);" is";TAB(35);STR( D$(),A*16-15,16) 0140 NEXT A 0150 PRINT AT(12,0); : IF D=0THEN 196 0160 FOR A=1 TO D 0170 PRINT TAB(10);"Printer ";A;" stream ";STR(Z$,A*3-2,2);" is";TAB(35);STR(D $(),A*16+113,16) 0180 NEXT A 0190 PRINT AT(16,10);"Start of Report String";TAB(35);STR(D$(),193,16) 0192 PRINT AT(17,10);"End of Report String";TAB(35);STR(D$(),209,16) 0196 GOTO 300 0200 REM %.Prompt loop 0210 A=1 : B=1 0220 D$=STR(D$(),B,16) 0230 PRINT AT(A+3,34);D$;AT(A+3,34); 0240 LINPUT - STR(D$,1,16) 0250 STR(D$(),B,16)=D$ 0260 A=A+1 : B=B+16 : IF A<C+1 THEN 220 0270 IF D=0THEN 300 : IF A>9THEN 280 : B=129 : A=9 0280 IF A<9+DTHEN 220 : IF A>13THEN 285 : B=193 : A=13 0285 IF A<15THEN 220 0290 REM %.End prompt 0300 PRINT AT(21,35);"Key RETURN or RECALL";AT(22,35);"Else Key RUN to save Eq uates";AT(22,35); 0310 KEYIN C$,,320 0320 PRINT AT(21,0,160); 0330 IF C$=HEX(0D)THEN 210 : IF C$=HEX(0F)THEN 30 : IF C$=HEX(82)THEN 340 : IF C$=HEX(00)THEN 360 : GOTO 300 0340 MAT COPY D$() TO Y$() 0350 LOAD DC T#0,N$(6) 0360 LOAD DC T#0,N$(1)