Listing of file='ASK?327B' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 1163, program filename = 'ASK?327B'
0010 REM ASK?327B 02/22/84 3270 Load any spool
: GOTO 1500
: ON AGOTO 2010,2030
1490 REM %.3270 Attachment Screen 2
1500 N$(10)=STR(W$,12)
: P0=0
1510 IF STR(Z$,31,1)="<"THEN 1530
1520 XOR (W$,Z$)
: XOR (Z$,W$)
: XOR (W$,Z$)
: REM /.xchange W$ and Z$
1530 GOSUB 2580
: P=1
: IF STR(Z$,34,1)="0"THEN 1540
: IF STR(W$,43,1)="2"THEN 1540
1535 GOSUB '33
: REM /.Prompt
1540 GOSUB 2680
: REM /.Set spool / No spool values
1550 Z$=Z1$
: REM /.Restore Z$ to entry values
1560 IF C$(1)=HEX(01)THEN 1590
1570 B$=" "
: LOAD DC T#0,"B327050"
: REM /.Load Open spool logic
1590 B$="L"
: LOAD DC T#0,"B327020"
: REM /.LOAD TC BOARD
1990 REM %..ASKAPARM - 3270 question interface
2000 REM ...3270 Ask Parameters
2010 ON P GOSUB 2070
: RETURN
2030 ON P GOSUB 2060
: RETURN
2040 REM %^ ...QUESTIONS
2050 DIM Y$(4)62
: REM %0 Y$( (4)62 w/a
2060 D$="A n y S p o o l t o D i s k"
: P=1
: P9=7
2070 INIT(20)D$()
: ON A GOTO 2215,2230,2320,2350,2380,2410,2430
2095 REM
2100 REM .Z$=W$ DATA FROM CONFIGURATION SCREEN 2
2101 REM .01-08 Prompt work area then set 3270 on exit
2110 REM .17-24 Spooled printer data file name
2120 REM .25-40 Printer device addresses
2130 REM .41-48 Prompt work area
2140 REM .51-58 from Y$(C),A$ 09-16 Spooled printer data file
2145 REM .45-49 from Y$(C),A$ 45-49 #Print blocks
2150 REM .59-61 from Y$(C),A$ 57-59 Primary disk
2160 REM .62-64 from Y$(C),A$ 60-62 Overflow disk
2165 REM
2170 REM .W$=Z$ DATA FROM CONFIGURATION SCREEN 1
2180 REM .01 02 .. 04 05 .. 07 08 .. 10 11 Printers 1-4
2190 REM .12-19 (unused)
2200 REM .31-38 Prompt area from 3270 configuration ASK?3270
2210 REM .34 No. Printers
2214 REM .? 1
2215 A$="SPOOLING REQUIRED"
2216 D$(1)="No"
: D$(2)="Yes-all"
: D$(3)="Yes-some"
: RETURN
2220 REM .? 2
2230 ON VAL(C$(9))GOSUB 3000,3010
2235 IF C$(9)=HEX(00)AND C$(1)=HEX(01)THEN 2335
2240 A$="CHANGE DEFAULT VALUES"
: D$(1)="No"
: D$(2)="Yes"
: RETURN
2300 REM .Line 3 No prompt
2320 A$=STR(Z$,34)
: STR(A$,2)=" PRINTERS CONFIGURED"
: E=-1
2325 IF C$(9)=HEX(00)AND C$(2)=HEX(01)THEN 2335
2330 D$(1)=STR(Z1$,1,((VAL(A$)-48)*3)-1)
: RETURN
2335 A=1
: RETURN CLEAR
: RETURN CLEAR
: GOTO 280
2340 REM .? 4
2350 A$="STORAGE METHOD"
2360 D$(1)="Add to an existing file"
: D$(2)="Create a new file"
: D$(3)="Replace a file"
: RETURN
2370 REM .? 5
2380 GOSUB '202("SPOOLER FILE NAME",51,8," ")
2390 D$(3)="key 8 byte file name"
: RETURN
2400 REM .? 6
2410 GOSUB '203("SPOOLER DISK ADDRESS",59,3,"310")
: RETURN
2420 REM .? 7
2430 IF C$(4)<>HEX(02)THEN 110
: GOSUB '202("NUMBER OF SECTORS",45,5,"200")
: D$(3)="key value 200-99999"
: RETURN
2440 REM
2450 REM %.'202 Get 1-n char field
2460 DEFFN'202(A$,C1,C2,D1$)
: E=0
2470 BIN(C$)=1
: IF STR(Z$,C1,C2)<>" "THEN 2480
: STR(Z$,C1,C2)=D1$
2480 D$(1)=STR(Z$,C1,C2)
: RETURN
2490 REM %.'203 Get 1-n disk field
2500 DEFFN'203(A$,C1,C2,D1$)
: E=3
: D$(3)="Key disk address"
2510 STR(D$(),97)="310 320 330 340 350 360 370 D70 B10 B20 B30 B40 B50 B60 B70
D10 D11 C12 D13 D14 D15 D20 D21 D22 D23 D24 D25 D50 D51 D52 D53 D54 D55
D60 D61 D62 D63 D64 D65 D71 D72 D73 D74 D75"
2530 GOTO 2470
2560 REM %^.Set parameter values
2580 Z1$=Z$
: STR(Z$,P0+1,8)="11111111"
2585 INIT(HEX(01))C$()
2605 REM .Get values from parameter array
2620 B$,STR(Z$,P0+4,1)=STR(W$,44,1)
: REM /method
: BIN(C$(4))=VAL(B$)-48
2625 STR(Z$,45,5)=STR(W$,20,5)
: REM /# print blocks
2630 STR(Z$,51,8)=STR(W$,51,8)
: REM /file name
2640 STR(Z$,59,3)=STR(W$,59,3)
: REM /prime disk
2660 RETURN
2670 REM .Set stream dependent parameters
2680 SELECT @PART"3270UNIV"
2690 IF C$(1)=HEX(01)THEN 2760
: REM /.jump if no spool
2691 CONVERT STR(Z$,45,5)TO C
: ERRORC=0
2692 GOSUB 2360
: @P$(5)=STR(D$(VAL(C$(4))),1,7)
: REM /.Open old or new
2694 STR(@P$(5),24)="Starting"
2698 STR(@P$(5),35,5)=HEX(0018FF0000)
2699 STR(@P$(5),41)="W.P. Mode"
2700 STR(@P$(5),55)=STR(Z$,59,3)
: REM /disk
2710 STR(@P$(5),66,8)=STR(Z$,51,8)
: REM /file
2720 STR(@P$(5),76)=BIN(C,2)
2725 RETURN
2760 @P$(5)=" "
: STR(@P$(5),24)="None"
: STR(@P$(5),41)="No Spooling"
2765 STR(@P$(5),35,2),STR(@P$(5),76,2)=HEX(0000)
2770 RETURN
2830 DEFFN'99(A,A$)
: REM /.Print and delay n seconds
2840 PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$
2850 IF A=0 THEN RETURN
2860 SELECT P2
: FOR A=ATO 0STEP -1
: PRINT A;HEX(0C)
: NEXT A
: SELECT P
: RETURN
3000 C$(9)=HEX(02)
: RETURN
: REM /.Force all prompts to display on entry
3010 C$(9)=HEX(00)
: RETURN