Listing of file='B327INST' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 2357, program filename = 'B327INST'
0010 REM %.B327INST 12/20/85 --2200/3270 Installation Utility --
0040 DIM T1$(250)1,S0$(8)124,X0$3,X0$(2)3,Z0$80,X0,Z1$8
0050 DIM D$80,N$8,N1$80,D$(16)16
0052 F=-1
: RESTORE LINE9000
: READ D$
0054 F=F+1
: READ N$
: IF N$<>" "THEN 54
: PRINT HEX(03);
: PRINT AT(1,40-LEN(D$)/2);D$;AT(2,35);F;"files"
0063 REM X0 contains processing mode
: REM X0=1 => Copy Only
: REM X0=2 => Copy & Verify
0070 REM Print Menu
: REM Reset Restore Flag
: Z1$="JUNK0000"
: X1=0
: GOSUB '50(S9$," ")
0080 ON R1+2GOTO 100,100,112
0090 STOP "screen not found ? "#
0100 REM Cancel; SHIFT Cancel
: GOSUB '60("(terminated)",23,0,80)
0105 LOAD RUN T"START"
: ERRORGOSUB '60(" ",23,0,80)
: GOTO 70
0112 IF X0$(1)<>" " THEN 113
: REM no origin platter selected
: S9$=HEX(F218010132F902)
: GOTO 120
0113 IF X0$(2)<>" " THEN 130
: REM no destination platter selected
: S9$=HEX(F218010132F903)
0120 PRINT HEX(07);
: GOSUB '60("Information Required",23,0,80)
: GOTO 70
0130 MAT SEARCH "310B10350320B20360330B30370D10D11D12D13D14D15D20D21D22D23D24D
25D30D31D32D33D34D35D40D41D42D43D44D45D50D51D52D53D54D55D60D61D62D63D64D6
5D70D71D72D73D74D75",=X0$(1)TO I$STEP 3
: IF STR(I$,,2)<>HEX(0000)THEN 150
0140 PRINT HEX(07);
: GOSUB '60("Invalid Device Address",23,0,80)
: S9$=HEX(F218010132F902)
: GOTO 70
0150 MAT SEARCH "310B10350320B20360330B30370D10D11D12D13D14D15D20D21D22D23D24D
25D30D31D32D33D34D35D40D41D42D43D44D45D50D51D52D53D54D55D60D61D62D63D64D6
5D70D71D72D73D74D75",=X0$(2)TO I$STEP 3
: IF STR(I$,,2)<>HEX(0000)THEN 163
0160 PRINT HEX(07);
: GOSUB '60("Invalid Device Address",23, 0,80)
: S9$=HEX(F218010132F903)
: GOTO 70
0163 IF X0$(1)<>X0$(2)THEN 165
: PRINT HEX(07);
: GOSUB '60("Duplicate Device Address",23, 0,80)
: S9$=HEX(F218010132F902)
: GOTO 70
0165 REM #1 => Origin
: SELECT #1<X0$(1)>
: $OPEN #1
: ERRORGOTO 140
0166 REM #2 => Destination
: $CLOSE#1
: SELECT #2<X0$(2)>
: $OPEN #2
: ERRORGOTO 160
0167 $CLOSE#2
0168 DATA LOAD BA T#1,(0,A)D$()
: PRINT AT(9,40);"Cat. Cur. Max."
: PRINT AT(10,40);
: GOSUB 182
: GOSUB 181
0170 GOSUB '60("Start Installation ?",23,0,80)
0180 KEYIN K$
: ON POS(HEX(8250F0)=K$)+1GOTO 180,190
: GOSUB '60(" ",23,0,80)
: GOTO 70
0181 DATA LOAD BA T#2,(0,A)D$()
: PRINT AT(11,40);
0182 PRINTUSING "### ##### #####",VAL(STR(D$(),2)),VAL(STR(D$(),3),2)-1,VAL(ST
R(D$(),5),2)-1
: RETURN
0184 % #### ##### #####
0185 %Processing File ### : ######## Sectors = ####
0190 REM Begin Installation
0191 GOSUB '60(" ",23,0,80)
0195 PRINT HEX(06);AT(18,1,80);
: PRINTUSING 185;
: PRINT HEX(05);
0205 GOSUB 790
: IF N$=" " THEN 230
0208 LIMITS T#1,N$,A,B,C,D
: ERRORX9=ERR
: GOTO 540
0210 PRINT AT(22,0,80)
: PRINT AT(23,0,80)
: N=N+1
: PRINT AT(18,0);HEX(020402000E06);
: PRINTUSING 185,N,N$,B-A+1
: PRINT HEX(0F);AT(19,0,80);STR(N1$,10)
: GOSUB 500
0220 GOSUB 181
: GOTO 205
0230 GOSUB '60("Installation Complete, Please Press Cancel/Edit",23,0,80)
0240 KEYIN K$
: ON POS(HEX(50F0)=K$)+1GOTO 240
: GOSUB '60(" ",18,0,40)
: GOSUB '60(" ",23,0,80)
: GOTO 70
0490 LIMITS T#1,N$,A,B,C,D
: ERRORX9=ERR
: GOTO 540
0500 MOVE T#1,N$TO T#2,
: ERRORX9=ERR
: GOTO 540
0520 IF X0=1THEN RETURN
0530 LIMITS T#2,N$,A,B,C,D
: ERRORX9=ERR
: GOTO 540
0535 VERIFY T#2,(A,B)E
: ERRORX9=ERR
: GOTO 540
0536 IF E=0THEN RETURN
: GOTO 603
0540 REM interrogate error on initial attempt to move file
: ON 90-X9 GOTO ,,,,,,550,571,575
: REM on error goto,,,already catalogued, not at origin, no room on platter
: GOTO 601
0550 REM already catalogued
: SCRATCH T#2,N$
: ERRORX9=ERR
: GOTO 601
0560 PRINT AT(18,0,10);"Replacing"
: MOVE T #1,N$TO T#2,()
: ERRORX9=ERR
: IF X9=81 THEN 580
: IF X9=82 THEN 571
: GOTO 601
0570 GOTO 520
0571 REM not at origin
: PRINT HEX(07);
: GOSUB '60("File not found on origin platter",22,0,80)
: GOSUB '60("Load next disk and press RUN or Cancel/Edit to Abort Installat
ion",23,0,80)
0572 KEYIN K$
: ON POS(HEX(8250F0)=K$)+1GOTO 572,573
: GOSUB '60(" ",18,0,40)
: GOSUB '60(" ",22,0,80*2)
: GOTO 70
0573 GOSUB '60(" ",22,0,80*2)
: GOTO 500
0575 REM no room on destination platter
: PRINT HEX(07);
: GOSUB '60("No room on destination platter",22,0,80)
: GOSUB '60("Load new disk and press RUN or Cancel/Edit to Abort Installati
on",23,0,80)
0576 KEYIN K$
: ON POS(HEX(8250F0)=K$)+1GOTO 576,577
: GOSUB '60(" ",18,0,40)
: GOSUB '60(" ",22,0,80*2)
: GOTO 70
0577 GOSUB '60(" ",22,0,80*2)
: GOTO 500
0580 REM insufficient room in old file space
: SAVE T#2,(N$)Z1$0,0
: ERRORX9=ERR
: IF X9<>83THEN 601
: CONVERT STR(Z1$,5)TO E
: CONVERT E+1TO STR(Z1$,5),(####)
: IF E>9999 THEN 601
: GOTO 580
0590 SCRATCH T#2,Z1$
: ERRORX9=ERR
: GOTO 601
0600 GOTO 500
0601 RETURN CLEAR
: PRINT HEX(07);
: GOSUB '60("DISK ERROR -" ,22,0,80)
: PRINT HEX(0E);X9;HEX(0F);
: GOSUB '60("RUN - Retry CANCEL - Exit",23,0,80)
0602 KEYIN K$
: ON POS(HEX(8250F0)=K$)+1GOTO 602, 208
: GOSUB '60(" ",18,0,40)
: GOSUB '60(" ",23,0,80)
: GOTO 70
0603 RETURN CLEAR
: PRINT HEX(07);
: GOSUB '60("INSTALLATION ABORTED, PLEASE CANCEL - VERIFY ERROR SECTOR",23,
0,80)
: PRINT HEX(0E);E;HEX(0F);
0604 KEYIN K$
: ON POS(HEX(50F0)=K$)+1GOTO 602
: GOSUB '60(" ",18,0,40)
: GOSUB '60(" ",22,0,80)
: GOSUB '60(" ",23,0,80)
: GOTO 70
0790 REM %subroutine to get user module names
: IF X1=0THEN RESTORE LINE9000,2
: X1=1
: READ N1$
: N$=N1$
: IF N$=" "THEN X1=0
: RETURN
1010 DEFFN'60(Z0$,R,C,E)
: REM Prints a message highlighted
: PRINT HEX(020402000E06);AT(R,C,E);STR(Z0$,,LEN(Z0$));HEX(0F);
: RETURN
3800 REM %^ -- SE.SUBS, RELEASE 6.03, (05/10/82) SCREEN SUBROUTINES --
3801 DIM T1(8),S1$,S4$80,T1$1,T2$80,T3$1,T$(10)1,T4$3,S2$124
3802 REM %ACCEPT REPEATING FIELD
3803 DEFFN'126(T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1$(),S0$,S2$,T
2,T9,T$(),S9)
: I=20
: GOSUB 3863
: T2,T5=MIN(MAX(1,T2),T1(6))
: $TRAN(T$(),HEX(202E))R
: T$(5)="5"
: R1=1
3804 IF S9>1THEN 3810
3805 IF T9<0THEN 3806
: T$(5)="5"
: T3$=S2$
: GOSUB 3831
: S2$=T3$
: IF T9=0THEN 3808
: T2=T5
3806 GOSUB 3835
: GOSUB '130(T0,T1,T1(3),S2$,T1$(T2),S0$," ",T$(),T0$)
: T1$(T2)=S4$
: IF R1<5OR R1=11OR R1=14THEN 3808
3807 IF R1=5THEN T2=T2+1
: IF R1=6THEN T2=T2-1
: IF T2>=1AND T2<=T1(6)THEN 3806
3808 RETURN
3809 REM %^PICKTYPE (S9 =2/P1; =3/PM)
3810 SELECT PRINT 205(80)
: PRINT HEX(0202020F);
: $TRAN(S2$,HEX(8520))R
: IF T9<0THEN 3814
: T5=T2
: FOR T2=1TO T1(6)
: IF S9=2THEN 3811
: T4$=STR(S2$,T2,1)&HEX(0F09)
: GOTO 3812
3811 IF T2=T5THEN T4$=HEX(8B0E09)
: ELSE T4$=HEX(900F09)
3812 GOSUB 3835
: GOSUB 3824
3813 NEXT T2
: T2=T5
: IF T9=0THEN 3825
3814 IF S9=3THEN S0$=S0$&"DI"
: GOSUB 3835
: PRINT HEX(06);AT(T0-1,T1-1);
: T9=1
: GOSUB 3840
: IF S9=2AND R1<11OR R1<7THEN 3825
: IF S9=2THEN 3818
: ON R1-8GOTO 3815,3816
: GOTO 3819
3815 STR(S2$,T2,1)=HEX(85)
: GOTO 3817
3816 STR(S2$,T2,1)=HEX(8B)
3817 T4$=STR(S2$,T2,1)&HEX(0F09)
: GOSUB 3824
: I=1
: GOTO 3822
3818 T4$=HEX(900F09)
: GOSUB 3824
3819 ON POS(HEX(2008)=T1$)GOTO 3820,3821
: GOSUB 3826
: GOTO 3823
3820 I=1
: GOTO 3822
3821 I=-1
3822 T2=T2+I
: T2=MOD(T2,T1(6))
: IF T2=0THEN T2=T1(6)
: IF T1$(T2)=" "THEN 3822
3823 IF S9=3THEN T4$=STR(S2$,T2,1)&HEX(0F09)
: ELSE T4$=HEX(8B0E09)
: GOSUB 3835
: GOSUB 3824
: GOTO 3814
3824 PRINT HEX(06);AT(T0-1,T1-1);
: IF T1$(T2)>" "THEN PRINT HEX(0E);T4$;STR(T1$(T2));
: ELSE PRINT TAB(T1-1+2);STR(T1$(T2));
: RETURN
3825 $TRAN(S2$,HEX(2085))R
: T0=T2
: PRINT HEX(0F0202000F);
: IF S2=2THEN RETURN
: MAT REDIM T1$(T1(6))1
: T1$()=S2$
: SELECT PRINT 005(80)
: RETURN
3826 T1$=OR HEX(20)
: S=-1
: IF T2=T1(6)THEN 3827
: FOR I=T2+1TO T1(6)
: T3$=STR(T1$(I),1,1)OR HEX(20)
: IF T3$<>T1$THEN NEXT I
: ELSE S=I
3827 IF T2=1OR S>0THEN 3828
: FOR I=1TO T2-1
: T3$=STR(T1$(I),1,1)OR HEX(20)
: IF T3$<>T1$THEN NEXT I
: ELSE S=I
3828 IF S>-1THEN T2=S
: RETURN
3829 REM %^DISPLAY REPEATING FIELD
3830 DEFFN'127(T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1$(),T$())
: MAT REDIM T1$(T1(6))T1(3)
: $TRAN(T$(),HEX(202E))R
3831 SELECT PRINT 405(80)
: IF T$(7)=" "THEN PRINT HEX(020402000E06);
: ELSE PRINT HEX(0F06)
: FOR T2=1TO T1(6)
: GOSUB 3835
: S2$=T1$(T2)
: IF T$(3)=" "OR S2$=" "THEN 3832
: STR(S2$,,LEN(S2$))=ALL(8B)
3832 IF T$(5)>" "THEN $TRAN(S2$,HEX(8520))R
: PRINT AT(T0-1,T1-1);STR(S2$,,T1(3));
: NEXT T2
3833 SELECT PRINT 005(80)
: RETURN
3834 REM %^GLOBAL ROUTINES
3835 IF T$(4)>" "THEN T0=INT((T2-1)/T1(8))*T1(7)+T1(1)
: ELSE T0=MOD((T2-1),T1(4))*T1(7)+T1(1)
: IF T$(4)>" "THEN T1=MOD((T2-1),T1(8))*T1(5)+T1(2)
: ELSE T1=INT((T2-1)/T1(4))*T1(5)+T1(2)
: RETURN
3837 IF T0$<>" "THEN GOSUB 3859
: IF T>0THEN GOSUB 3861
: RETURN
3838 REM %keystroke eval
3839 T=1
: PRINT HEX(06070E);AT(23,0,40);" Invalid key ignored";AT(T0-1,T1-2+T9);
3840 R1=99
: IF T$(9)=" "THEN PRINT HEX(02050F);
: KEYIN T1$,,3844
: IF T1$>HEX(82)THEN 3840
: IF T$(9)>" "THEN IF POS(S0$=T1$)=0OR T1$=" "THEN 3839
: GOSUB 3837
: ON POS(HEX(81820D)=T1$)GOTO 3841,3842,3843
: RETURN
3841 R1=0
: RETURN
3842 R1=1
: RETURN
3843 R1=5
: RETURN
3844 GOSUB 3837
: IF T1$>HEX(1F)THEN 3845
: IF POS(S0$=T1$)=0THEN 3845
: R1=4
: S0=VAL(T1$)
: RETURN
3845 ON POS(HEX(F01F507E7F)=T1$)GOTO 3846,3846,3847,3848,3849
: GOTO 3850
3846 R1=0
: RETURN
3847 R1=-1
: RETURN
3848 R1=5
: RETURN
3849 R1=6
: RETURN
3850 T1$=AND HEX(0F)
: IF POS(HEX(0203050608090A0C0D)=T1$)>0THEN 3851
: GOTO 3839
3851 $TRAN(T1$,HEX(0B060E05))R
: R1=VAL(T1$)
: T2$="1PN4567EDIuewd56"
: IF POS(S0$=STR(T2$,R1,1))>0THEN RETURN
: GOTO 3839
3852 ON POS(HEX(2008)=T1$)GOTO 3853,3854
: GOTO 3855
3853 IF T$(4)>" "THEN R1=12
: ELSE R1=14
: GOTO 3855
3854 IF T$(4)>" "THEN R1=13
: ELSE R1=11
3855 I=T1(6)
: IF T$(4)=" "THEN 3856
: IF R1=14THEN T2=MOD(T2+T1(8),I)
: IF R1=11THEN T2=MOD(T2-T1(8),I)
: GOTO 3857
3856 IF R1=14THEN T2=MOD(T2+1,I)
: IF R1=11THEN T2=MOD(T2-1,I)
3857 IF T2=0THEN T2=T1(6)
: IF T2>T1(6)THEN 3852
: RETURN
3858 %erase window
3859 FOR I=1TO VAL(STR(T0$,3))
: PRINT HEX(06);AT(VAL(STR(T0$,1))-2+I,VAL(STR(T0$,2)),VAL(STR(T0$,4)));
: NEXT I
: T0$=" "
3860 %erase errmsg
3861 PRINT HEX(06);AT(23,0,79);
: T=0
: GOSUB 3898
: RETURN
3862 REM %set disp attr
3863 S1$=HEX(0204)&BIN(I/10)&BIN(MOD(I,10))&HEX(0E)
: PRINT STR(S1$,,5);
: RETURN
3864 REM %.DISPLAY MSG
3865 DEFFN'128(S2$,T0,T1,I)
: SELECT PRINT 005(80)
: IF T0=99THEN PRINT HEX(07);
: IF T1=99THEN T1=40-(LEN(S2$)/2)
: T0=MIN(24,T0)
: T1=MAX(1,T1)
: GOSUB 3863
: I=1
: STR(S2$,LEN(S2$)+1,1)=HEX(AF)
: T=POS(S2$=HEX(AF))
3866 PRINT HEX(06);AT(T0-1,T1-1);STR(S2$,I,T-1);
: I=I+T
: T=POS(STR(S2$,I)=HEX(AF))
: T0=T0+1
: IF T>0THEN 3866
: PRINT HEX(020402000F06);
: RETURN
3867 REM %^DISPLAY SCR TEXT
3868 DEFFN'129
: SELECT PRINT 205(80)
3869 READ T0,T1,I,S4$
: ERRORR1=-2
: RETURN
3870 IF T0=0THEN RETURN
: IF I=99THEN 3871
: IF I=0THEN PRINT HEX(0F);
: ELSE GOSUB 3863
: PRINT HEX(06);AT(T0-1,T1-1);STR(S4$,,LEN(S4$));
: GOTO 3869
3871 PRINT HEX(06);AT(T0-1,T1-1);BOX(VAL(S4$),VAL(STR(S4$,2)))
: GOTO 3869
3872 REM %^TEXT ENTRY
3873 DEFFN'130(T0,T1,T5,S2$,S4$,S0$,T2$,T$(),T0$)
: SELECT PRINT 405(80)
: PRINT HEX(0202000F020402000E);
: $TRAN(T$(),HEX(202E))R
: IF T2$>" "THEN PRINT HEX(060F);AT(T0-1,T1-2-LEN(T2$));T2$;HEX(0E);
: S2$=ALL(S2$)
: T6=POS("H#X"=S2$)
: PRINT HEX(0202020F);
3874 IF T$(3)>" "AND S4$>" "THEN T9=LEN(S4$)+1
: ELSE T9=1
: IF T$(9)=" "THEN GOSUB 3897
: IF S0$<>" "THEN S0$=S0$&"IDEew"
: ELSE S0$="IDEew"
3875 GOSUB 3840
: IF T$(9)>" "THEN 3906
: IF R1<7THEN 3900
: IF R1=11AND POS(S0$="U")>0THEN 3900
: IF R1=14AND POS(S0$="D")>0THEN 3900
: IF R1<99AND T$(3)>" "THEN 3893
: ON R1-7GOTO 3879,3884,3881,3875,3886,3890,3875
: IF T1$=HEX(08)THEN 3890
: IF T9<=T5THEN 3877
: PRINT HEX(07);
: GOTO 3875
3876 REM %char
3877 STR(S4$,T9,1)=T1$
: $TRAN(T1$,HEX(8020))R
: IF T$(3)=" "THEN PRINT HEX(0E);T1$;
: ELSE PRINT HEX(0E8B);
: GOTO 3887
3878 REM %erase
3879 IF T5<T9THEN 3875
: STR(S4$,T9)=" "
: GOSUB 3897
: GOTO 3875
3880 REM %insrt
3881 IF T5<T9THEN 3875
: MAT COPY -S4$<T9,T5-T9>TO -S4$<T9+1,T5-T9>
: STR(S4$,T9,1)=" "
: GOSUB 3897
: GOTO 3875
3882 REM %del
3884 IF T5<T9THEN 3875
: MAT COPY S4$<T9+1,T5-T9>TO S4$<T9,T5-T9>
: STR(S4$,T5,1)=" "
: GOSUB 3897
: GOTO 3875
3885 REM %incrm
3886 IF T9<T5+1THEN PRINT HEX(09);
3887 IF T9<>T5THEN 3888
: IF T$(1)=" "THEN 3888
: R1=5
: GOTO 3900
3888 T9=MIN(T5+1,T9+1)
: GOTO 3875
3889 REM %decrm
3890 IF T9>1THEN 3891
: IF T$(2)=" "THEN 3875
: R1=6
: GOTO 3900
3891 PRINT HEX(08);
: T9=T9-1
: IF T1$<>HEX(08)THEN 3875
: STR(S4$,T9,1)=" "
: PRINT HEX(8508);
: GOTO 3875
3892 PRINT HEX(06070E);AT(23,0,50);T2$;
: T=1
: GOSUB 3898
: GOTO 3875
3893 T2$=" Invalid key ignored"
: GOTO 3892
3894 T2$=" Information required, please enter"
: GOTO 3892
3895 T2$=" Invalid characters in field"
: GOTO 3892
3896 REM %print field
3897 PRINT HEX(06);AT(T0-1,T1-1);
: T2$=S4$
: IF T$(3)>" "AND T2$>" "THEN STR(T2$,,LEN(T2$))=ALL(8B)
: $TRAN(T2$,HEX(8520))R
: PRINT STR(T2$,,T5);
3898 PRINT HEX(06);AT(T0-1,T1-2+T9);
: RETURN
3900 IF T$(7)=" "OR T$(3)>" "THEN 3901
: PRINT HEX(0F);
: GOSUB 3897
3901 $TRAN(S4$,HEX(20802085))R
: IF R1<1THEN 3903
: IF S4$=" "AND T$(6)>" "THEN 3894
3902 REM %validation
3903 ON T6GOTO 3905,3904,3906
: GOTO 3905
3904 IF NUM(S4$)<T1(3)THEN 3895
: GOTO 3906
3905 IF S4$=" "THEN 3906
: I=LEN(S4$)
: IF VER(STR(S4$,,I),S2$)<ITHEN GOTO 3895
3906 SELECT PRINT 005(80)
: PRINT HEX(0F0202000F);
: RETURN
5000 DEFFN'50 (S9$,S0$)
: REM Display and Accept ISNy0701 (VER 6.03)
5001 S4=1
: S3=03
: S2=0
: S1=0
: T0$=" "
5002 IF POS(S9$=F2)>0 THEN T0$=STR(S9$,POS(S9$=F2)+1,4)
5003 RESTORE LINE 5027
: GOSUB '129
5004 T9=0
: FOR T4=1TO 03
5005 ON T4GOSUB 5012,5017,5022
5006 NEXT T4
5007 T9=-1
: IF POS(S9$=F9)>0 THEN T3=VAL(STR(S9$,POS(S9$=F9)+1))
: ELSE T3=S4
5008 ON T3GOSUB 5012,5017,5022
5009 ON R1GOTO ,,,,5010,5011
: RETURN
5010 T3=MOD(T3+1,S3+1)
: IF T3=0 THEN T3=S4
: GOTO 5008
5011 T3=MOD(T3-1,S3+1)
: IF T3<S4 THEN GOTO 5011
: GOTO 5008
5012 MAT REDIM T1$(002)015
: RESTORE LINE 5012
: FOR I=1TO 002
: READ T1$(I)
: NEXT I
: GOSUB '126(7,9,1,2,1,002,1,1,T1$(),S0$," ",X0,T9," ",2)
: X0=T0
: RETURN
5013 DATA "Copy Only","Copy and Verify"
5017 MAT REDIM T1$(001)003
: GOSUB '126(11,32,3,1,4,001,1,1,X0$(1),S0$,"H",1,T9,"1",1)
: X0$(1)=T1$()
: RETURN
5022 MAT REDIM T1$(001)003
: GOSUB '126(12,32,3,1,4,001,1,1,X0$(2),S0$,"H",1,T9," ",1)
: X0$(2)=T1$()
: RETURN
5027 DATA 01,25,00,"**** INSTALLATION UTILITY ****"
5028 DATA 05,02,00,"Select Installation Mode:"
5029 DATA 11,02,00,"Origin platter address:"
5030 DATA 12,02,00,"Destination platter address:"
5031 DATA 0,0,0," "
9000 REM %^.SYS 2200/3270 release description
9005 DATA "Wang 2200/3270 Release 01.14.00"
9008 REM %.2200/3270 DATA files
: REM .White label diskette 1 of 2
9010 DATA "ASKACALL 14 x $(3)64 TC configuration file"
9020 DATA "BSC*050A 16 x $(34)121 3270 microcode for 2228D DLP"
9030 DATA "3270CALL 14 x $(4)62 3270 equates file"
9040 DATA "3270*PQ 16 x $(3)80 3270 Print queue file"
9050 DATA "32WPSYST (BA or DA use) WPFM index file (formerly WPSYSTEM)"
9060 REM %.2200/3270 PROGRAMS
9070 DATA "3270 MCT 3270 MCT Task"
9080 DATA "3270BOOT 3270 MCT/PRNT Task Bootstrap"
9090 DATA "3270OFFL 3270 Ask what off-line modules"
9100 DATA "3270PRN0 3270 Open Printer/disk"
9110 DATA "3270PRNT 3270 Printer/disk task"
9120 DATA "3270STRT on system disk loads proper code into partitions"
9130 REM ."3270STRT should reside on the BASIC-2 disk surface."
9140 REM ."3270STRT must be changed to SELECT DISK to the disk with 3270 code.
"
9150 REM ."3270STRT will load the proper code into each partitition."
9160 DATA "3277ATCH 3277 Automatic attach"
9170 DATA "3277TERM 3277 Terminal logic"
9180 DATA "3277TERP 3277 Terminal overlay for 1 printer"
9185 DATA "3277DUMP"
9190 DATA "327PATCH 3270 ucode patch"
9200 DATA "327PSTAT 3270 Partition status"
9210 DATA "32WPCAT 3270 WP-CAT"
9220 DATA "32WPRECI 3270 WP-RECI Insert"
9230 DATA "32WPRECM 3270 WP-RECM"
9240 DATA "ASK?3270 3270 Screen 1 -- Configuration"
9250 DATA "ASK?32G2 3270 Screen 2 -- Configuration -- Printer"
9260 DATA "ASK?32G3 3270 Screen 3 -- Configuration -- Equates"
9270 DATA "ASK?327B 3270 Screen -- On Load Any Spool to disk?"
9280 DATA "ASK?327A 3270 Screen -- Attach"
9290 DATA "ASK?327D 3270 Screen -- Detach"
9300 DATA "ASKAWHAT What procedure?"
9310 DATA "ASKAEMUL What emulation?"
9320 DATA "ASKASTR1 Start specific?"
9330 DATA "ASKASTRT Start BSC"
9340 DATA "ASKAPARM Ask parameters"
9350 DATA "ASKAPARN overlay to ASKAPARM to use glossary KBD"
9360 DATA "ASKALOAD Load an emulator"
9370 DATA "ASKASAVE Save an emulator"
9380 DATA "B3270000 3270 Autoload example"
9390 DATA "B3270001 3270 Autoloader activator"
9400 DATA "B327010 3270 Determine Load/Attach options"
9410 DATA "B327020 3270 Load uCode / Set tables"
9420 DATA "B327030 3270 Load Detach Prompts"
9430 DATA "B327035 3270 Drop DTR and clear connection"
9440 DATA "B327040 3270 Open Offline 32WP-CAT+RECM"
9450 DATA "B327040L 3270 determine vaus used 32WP-RECM + I"
9460 DATA "B327041 3270 Off-List prompting"
9470 DATA "B327042 3270 Off-List ASCII/printer"
9480 DATA "B327043 3270 Off-List Setup and prompts"
9490 DATA "B327044 3270 Off-List + 32WP-CAT+RECM"
9500 DATA "B327045 3270 Off-Delete + 32WP-CAT+RECM"
9510 DATA "B327050 3270 Open Spool + WP-CAT"
9520 DATA "B327055 3270 Off-Look at list information"
9530 DATA "B3270STR 3270 START on 3270 program disk"
9540 DATA "B3270WP Examine WP system file"
9550 REM .White label diskette 2 of 2
9560 DATA "3277DISC 3277 Disconnect"
9575 DATA "3277X-ON 3277 alternate loader"
9590 DATA "3270U1 3270 Universal loader - 1. OK?"
9600 DATA "3270U2 3270 Universal loader - 2. COM"
9610 DATA "3270U3 3270 Universal loader - 3. INIT"
9620 DATA "3270U4 3270 Universal logic - 4. RELEASE & BREAK"
9630 DATA "B327061 3270 Remote Off-List prompting"
9640 DATA "B327063 3270 Remote Off-List + 32WP-CAT+RECM"
9650 DATA "B3270MON 3270 Off-line Monitor"
9655 DATA "B327TRAC 2200/3270 Trace Utility"
9660 DATA " "
: REM /.Remove this line to get files beyond this
9670 DATA "@CONNECT 3270 @CONNECT"
9680 DATA "@DISCNCT 3270 @DISCNCT"
9690 DATA "SPOOLFFF Sample spooler file"
9700 DATA "SPOOLFF\C6 Sample report name file"
9710 DATA "B327INST Installation utility"
9720 DATA "START START module"
9740 DATA " "