image of READY prompt

Wang2200.org

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)