image of READY prompt

Wang2200.org

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