Listing of file='ASK?3270' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 996, program filename = 'ASK?3270' 0010 REM ASK?3270 04/06/82 3270 Gen Screen 1 : L=80 : GOTO 1500 : ON AGOTO 2010,2030 1490 REM %Prompt screen 1 1500 N$(1)="ASKAWHAT" : P0=31 : GOSUB 2610 : P=1 : GOSUB '33 : GOSUB 2550 1550 IF STR(Z$,34,1)>"0"THEN 1580 : REM /any printers? 1560 LOAD DC T#0,"ASK?32G3" 1570 REM %Prompt screen 2 1580 N$(5)="ASK?32G2" : LOAD DC T#0,N$(4) 1990 REM %..ASKAPARM - 3270 question interface 2000 REM ...3270 Ask Parameters 2010 ON P GOSUB 2190 : RETURN 2030 ON P GOSUB 2180 : RETURN 2070 REM . Z$ = Screen 1 prompts 2080 REM .01 02 .. 04 05 .. 07 08 .. 10 11 Printers 1-4 2085 REM .25 26 T.C. Board address 2090 REM .27 28 Printer Timing 00-99 2100 REM .29 30 Cluster controller 2110 REM .31 3270 Emulation 2120 REM .33 ?2 No. Stations 2130 REM .34 ?3 No. Printers 2140 REM .35 36 37 38 (reserved for proper display) 2150 REM .41 42 .. 44 45 .. 47 48 .. 50 51 Stations 1-4 2160 REM .53 54 .. 56 57 .. 59 60 .. 62 63 Stations 5-8 2170 REM %^ ...QUESTIONS 2180 D$="3 2 7 0 P a r a m e t e r s" : P=1 : P9=9 2190 INIT(20)D$() : ON A GOTO 2210,2230,2250,2270,2350,2390,2320,2335,2340 2200 REM .? 1 2210 GOSUB '203("CLUSTER UNIT ADDRESS",29,2,"hh") : RETURN 2220 REM .? 2 2230 GOSUB '202("No. of STATIONS (1-8)",33,1,"1","12345678") : RETURN 2240 REM .? 3 2250 C4=9-(VAL(C$(2))-48) : IF C4>4THEN C4=4 : BIN(C$)=C4+48 : A$="No. of PRINTERS (0-"&C$&")" : D$(4)="01234" : STR(D$(4),C4+2)=" " 2252 IF VAL(C$(3))-48<C4THEN 2255 : STR(Z$,P0+A,1)=C$ : BIN(C$(3))=C4 2255 GOSUB '202(A$,34,1,"0",D$(4)) : RETURN 2260 REM .? 4 2270 A$="NUMERIC LOCK?" 2280 D$(1)="No" : D$(2)="Yes" : RETURN 2310 REM .? 7 2320 IF C$(3)="0"THEN 110 : GOSUB '202("SPOOLED PRINT TIME OUT",27,2,"05","0123456789") : D$(3)="Key 00-35" : RETURN 2330 REM .? 8 2335 GOSUB '204("USER EXIT",12,8,"START") : D$(3)="Key PROGRAM FILE NAME" : RETURN 2339 REM .? 9 2340 GOSUB '205("T.C. BOARD ADDRESS",25,2,"1C") : RETURN 2349 REM .? 5 2350 A$=STR(Z$,33) : STR(A$,2)=" STATION ADDRESSES" 2360 C2=((VAL(A$)-48)*3)-1 2370 GOSUB '203(A$,41,C2," ") : RETURN 2380 REM .? 6 2390 A$=STR(Z$,34) : STR(A$,2)=" PRINTER ADDRESSES" 2400 C2=((VAL(A$)-48)*3)-1 2410 IF C2<1THEN 110 2420 GOSUB '203(A$,1,C2," ") 2421 REM .Delete station addresses from printer list 2422 FOR E=1TO VAL(STR(Z$,33))-48 2423 MAT SEARCHD$()<97,384>,=STR(Z$,40+(E*3-2),2)TO M$() 2424 IF M$(1)=HEX(0000)THEN 2426 2425 STR(D$(),96+VAL(M$(1),2),2)=" " 2426 NEXT E : E=2 : RETURN 2430 REM %.'202 Get 1-n char field 2440 DEFFN'202(A$,C1,C2,D1$,D$(4)) : E=1 : D$(3)="Key digits specified" 2450 BIN(C$)=1 : IF STR(Z$,C1,C2)<>" "THEN 2460 : STR(Z$,C1,C2)=D1$ 2460 D$(1)=STR(Z$,C1,C2) : RETURN 2470 REM %.'203 Get 2 digit hex field 2480 DEFFN'203(A$,C1,C2,D1$) : E=2 : D$(3)="Use hex digits from list below" 2490 D$(4)="40 C1 C2 C3 C4 C5 C6 C7 C8 C9" 2500 D$(5)="4A 4B 4C 4D 4E 4F" 2510 D$(6)="50 D1 D2 D3 D4 D5 D6 D7 D8 D9" 2520 D$(7)="5A 5B 5C 5D 5E 5F" 2530 GOTO 2450 2532 REM %.'204 Get 1-n char field 2535 DEFFN'204(A$,C1,C2,D1$) : E=0 : GOTO 2450 2539 REM %.'205 Get 2 digit hex field for TC controller 2540 DEFFN'205(A$,C1,C2,D1$) : E=2 : D$(3)="Use hex digits from list below" 2545 D$(4)="1C 1D 1E 1F" 2548 GOTO 2450 2549 REM %..Set exit values 2550 STR(W$,9,8)="BSC*050A" : REM /MICROCODE NAME 3270 2560 N$="3270" 2570 STR(N$,21)=STR(Z$,33,1) : STR(N$,23)="Stations" 2575 A=VAL(STR(Z$,33))-48 : IF A=8THEN 2580 : A=A*3+41 : STR(Z$,A,65-A)="hh hh hh hh hh hh hh" 2580 STR(N$,43)=STR(Z$,34,1) : STR(N$,45)="Printers" 2585 A=VAL(STR(Z$,34))-48 : IF A=4THEN 2590 : A=A*3+1 : STR(Z$,A,12-A)="hh hh hh hh" 2590 RETURN 2600 REM %.Set prompt defaults 2610 IF LEN(Z$)>31THEN 2620 : STR(Z$,1,11),STR(Z$,41)="hh hh hh hh hh hh hh hh" 2620 IF STR(W$,25)<>" "THEN 100 : STR(W$,25)="215 216 217 218" : RETURN