Listing of file='B327050' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 725, program filename = 'B327050'
0010 REM B327050 OPEN SPOOLER FILE 03/23/82
0012 DIM V1$(24)82
0022 DIM R1$1,U1$(16)16,U2$(16)4,V0$(1)1
: DIM R$(3)83
: DIM D1$30,D$(5)
: GOSUB '99(0,"Loading program to open 2200/3270 Spooler File")
: A$="32WPCAT 32WPRECM32WPRECI"
: LOAD DC T#0,<3>A$4000,9999BEG 90
0090 SELECT PRINT 005(80)
: SELECT @PART"3270UNIV"
: GOSUB '246(1)
: IF B$="F"THEN 1915
0130 D$(1)="STRM.1"
: D$(2)="STRM.2"
: D$(3)="STRM.3"
: D$(4)="STRM.4"
: D$(5)="3270"
: GOSUB 720
: GOSUB 1200
: GOSUB 1510
: PRINT
: GOSUB 840
0200 DEFFN'31
: GOSUB 1770
: GOSUB 1830
: B$="L"
: LOAD DC T#0,"B327020"
0240 DEFFN'0
: COM CLEAR B$
: LOAD DC T#0,N$(1)
0720 SELECT @PART"3270UNIV"
: ERRORSTOP "3270UNIVersal not loaded "#
0730 D$=STR(@P$(5),55,3)
: F$=STR(@P$(5),66,8)
: D1$=STR(@P$(5),1,7)
: A=VAL(STR(@P$(5),76),2)
: CONVERT ATO D2$,(#####)
: IF D2$=" "THEN D2$="200"
: RETURN
0790 DEFFN'99(A,A$)
: PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$
: IF A=0THEN RETURN
: SELECT P2
: FOR A=ATO 0STEP -1
: PRINT A;HEX(0C)
: NEXT A
: SELECT P
: RETURN
: RETURN
0840 GOSUB '99(0,"Performing Spooler file opening Procedures ...")
: CONVERT STR(D2$,1,5)TO A
: C$=D1$
: IF C$="A"THEN 1090
: IF C$="R"THEN 890
: IF C$="C"THEN 950
: GOTO 1260
0890 GOSUB '237(F$)
: ON POS(HEX(00025A5B5C5D5E5F606162)=R1$)GOTO 950,,,980,980,980,980,980,980
,980,980,980,980
: A$="Problem Deleting Spool File Volume "&S$
: GOTO 1990
0950 GOSUB '231(F$,D$,A,8,2)
: ON POS(HEX(00025A5B5C5D5E5F606162)=R1$)GOTO 1010,1090,980,980,980,980,980
,980,980,980,980,980
: A$="Problem Creating Spool File Volume "&S$
: GOTO 1990
0980 A$="Disk I/O ERROR = on "&D$&" CREATING Spool File Volume "&S$
: CONVERT VAL(R1$)TO STR(A$,18,2),(##)
: GOTO 1990
1010 FOR D9=1TO 4
: GOSUB '210(D$(D9),F$,D$(5))
: ON POS(HEX(00025A5B5C5D5E5F606162)=R1$)GOTO 1050,1050,1040,1040,1040,1040
,1040,1040,1040,1040,1040,1040
: A$="Problem Creating Spooler File"
: GOTO 1980
1040 A$="Disk I/O ERROR = on "&D$&" CREATING Spooler File "&D$(D9)
: CONVERT VAL(R1$)TO STR(A$,18,2),(##)
: GOTO 1980
1050 NEXT D9
1090 B$=HEX(01)
: FOR D9=1TO 4
1110 GOSUB '211(D$(D9),F$,D$(5),B$)
: ON POS(HEX(00035A5B5C5D5E5F606162)=R1$)GOTO 1170,1150,1140,1140,1140,1140
,1140,1140,1140,1140,1140,1140
1130 A$="Problem Opening Spool File "&D$(D9)
: GOTO 1980
1140 A$="Disk I/O ERROR = on "&D$&" OPENING Spooler File "&D$(D9)
: CONVERT VAL(R1$)TO STR(A$,18,2),(##)
: GOTO 1980
1150 IF D9<>1THEN 1130
: GOSUB '239(F$,D$)
: ON POS(HEX(00035A5B5C5D5E5F606162)=R1$)GOTO 1110,,1140,1140,1140,1140,114
0,1140,1140,1140,1140,1140
: A$="Problem ADDING Volume Name to 'WPSYSTEM' File"
: GOTO 1980
1170 GOSUB '220(D9-1,1,1,1,1)
: ON POS(HEX(00282520)=R1$)GOTO 1180,1180,1180,1180
: STOP "Error"#
1180 IF V0<1THEN V0=0
: STR(@N$,D9*2+17,2)=BIN(V0,2)
: A$=BIN(V0*8,2)
: ADDC(STR(@P$(5),35,2),STR(A$,,2))
: NEXT D9
: RETURN
1200 PRINT AT(5,0);"Method A/C/R = ",D1$
: PRINT "Volume Name = ",F$
: PRINT "Disk Surface = ",D$
: PRINT "# Sectors = ",D2$
: RETURN
1260 GOSUB '99(0,"REPROMPT PARAMETER VALUES")
: GOSUB 1200
1280 A$="Add to /Create /Replace"
: PRINT AT(5,50);A$
: PRINT AT(5,15);
: LINPUT STR(D1$,,1)
: A=POS("ACR"=STR(D1$,,1))
: IF A=0THEN 1280
: D1$=STR(A$,8*A-7,7)
: PRINT AT(5,16,10);D1$
: PRINT AT(5,50,30);AT(6,50);"8 character file name"
1320 PRINT AT(6,15);
: LINPUT STR(F$,,8)
: IF F$=" "THEN 1320
: PRINT AT(6,50,30);AT(7,50);"3 character address"
: PRINT AT(7,15);
: LINPUT STR(D$,,3)
: PRINT AT(7,50,30)
: IF STR(D1$,1,1)<>"C"THEN 1510
1390 PRINT AT(8,50);"Value 200 - 99999";AT(8,15);
: LINPUT D2$
: CONVERT D2$TO A
: ERRORGOTO 1390
1410 IF A<200OR A>99999THEN 1390
: PRINT AT(8,50,30);
1510 CONVERT D2$TO A
: ERRORGOTO 1260
1520 IF F$=" "THEN 1260
: PRINT AT(12,0);"Ready to execute?"
: PRINT AT(13,0);"Type 'Y' or 'N' or 'A' to Abort to START"
: STR(N$,40),C$=STR(N$,41)
: IF C$=" "THEN 1560
: SELECT P9
: PRINT C$
: SELECT P
: GOTO 1580
1560 C$="N"
: LINPUT C$
: PRINT AT(14,3,70)
1580 IF C$="Y"THEN 1620
: IF C$="A"OR C$="a"THEN 240
: IF C$="N"OR C$="n"THEN 1260
: GOTO 1510
1620 S0$=F$
: OR (STR(S0$,8,1),80)
: PRINT AT(15,0,160);"Spooler data file ";F$
: PRINT "Report names file ";S0$;AT(15,40);
: SELECT #2<D$>
: ERRORPRINT "Select error"
: GOTO 1510
1650 IF D1$<>"Create"THEN 1710
: A$=F$
: GOSUB 1800
: PRINT AT(16,40);
: A$=S0$
: GOSUB 1810
: CONVERT D2$TO C
: B1=(C/72)+7
: IF D=2THEN 1760
: DATA SAVE DC OPEN T#2,(B1)S0$
: GOTO 1740
1710 A$=F$
: GOSUB 1790
: PRINT AT(16,40);
: A$=S0$
: GOSUB 1790
: B1=B1-A+1
: GOSUB '238(F$,D$)
: IF R1$=HEX(00)THEN 1740
: PRINT "Spooler file in error"
: GOTO 1510
1740 DATA LOAD DC OPEN T#2,S0$
: IF D1$<>"Add to"THEN 1760
: A=0
: DSKIP #2,5S
1750 DATA LOAD DC #2,R$()
: IF END THEN 1755
: IF R$(1)<>" "THEN A=A+1
: IF R$(2)<>" "THEN A=A+1
: IF R$(3)<>" "THEN A=A+1
: GOTO 1750
1755 STR(@P$(5),38,2)=BIN(A,2)
: RETURN
1760 DATA LOAD DC OPEN T#2,S0$
: INIT(00)R$()
: DATA SAVE DC #2,R$()
: INIT(20)R$()
: FOR A=1TO B1-3
: DATA SAVE DC #2,R$()
: NEXT A
: DATA SAVE DC #2,END
: RETURN
1770 STR(@P$(5),24,10)="Active"
: GOSUB '99(0,"Allowing Spooled Print Streams")
: RETURN
1790 GOSUB 1810
: IF D=2THEN RETURN
: PRINT "Requested file not found on disk"
: RETURN CLEAR
: GOTO 1510
1800 GOSUB 1810
: IF D=0THEN RETURN
: PRINT "-- File name already exists"
: RETURN CLEAR
: GOTO 1510
1810 LIMITS T#2,A$,A,B1,C,D
: ERRORPRINT "-- Disk error"
: RETURN CLEAR
: RETURN CLEAR
: GOTO 1510
1815 RETURN
1830 STR(@P$(5),55,3)=D$
: STR(@P$(5),66,8)=F$
: STR(@P$(5),1,7)=D1$
: CONVERT D2$TO A
: STR(@P$(5),76,2)=BIN(A,2)
: STR(@N$,2,8)=S0$
: DIM Y$(4)62
: A=VAL(STR(Z$,24))-65
: DATA LOAD DC OPEN T#0,"3270CALL"
: IF A<1OR A>14THEN 1890
: DSKIP #0,A
1890 DATA LOAD DC #0,Y$()
: STR(@N$,33)=STR(Y$(),193)
: RETURN
1915 IF STR(@P$(5),24,1)<>"A"THEN 1920
: GOSUB '99(9,"Spooling Active")
: GOTO 240
1920 GOSUB '99(0,"You are going to cleanse the WP system file")
: PRINT AT(12,0);"Ready to execute?"
: PRINT AT(13,0);"Type 'y' or 'N'"
: C$="N"
: LINPUT C$
: IF C$<>"y"THEN 240
: GOSUB '99(9,"Initializing WPSYSTEM file")
: GOSUB '232
: IF R1$>HEX(00)THEN GOSUB '99(9,"Initialization failed")
: GOTO 240
1980 D9=4
: NEXT D9
1990 GOSUB '99(6,A$)
: RETURN CLEAR
: GOTO 130