Listing of file='@DSAPPLY' on disk='vmedia/734-8446-A.wvd.zip'
# Sector 2159, program filename = '@DSAPPLY', protected file
9020 REM !.@DSAPPLY Copyright Wang Laboratories 1991 All rights reserved 05/2
9/91
: REM !.Adapt disk data item for Configuration
9025 BIN(STR(R$(),,1))=W
9030 PRINT AT(3,0,20*80);"Data as read from file ";F$
: FOR X=1TO 16
: PRINT AT(3+X,1);HEXOF(R$(X))
: NEXT X
9040 I=VAL(STR(R$(),16))
: IF I>0THEN STR(R$(),16,4)=C$(I)
: REM .Apply 4 control bytes for drive specified
9050 FOR X=3TO 16
: IF STR(R$(X),4,3)>HEX(000000)THEN STR(R$(X),,3)=W3$
: ADDC(STR(W3$,,3),STR(R$(X),4,3))
: NEXT X
9060 K$=HEX(00)
: FOR X=1TO 256
: K$=K$ADDSTR(R$(),X,1)
: NEXT X
: STR(G$,5,1)=K$
: REM .Save (ADD) LRC in $GIO arg.reg.5
9070 PRINT AT(3,40);"write this for drive ";W
: FOR X=1TO 16
: REM PRINT AT(3+X,40);HEXOF(R$(X))
: NEXT X
9080 K$="."
: PRINT AT(21,0,80);
: LINPUT "Apply Y or N"-K$
: IF K$<>"Y"THEN RETURN
9090 REM %....$GIO to write control sector to DS cabinet
: $GIOWRITEBLOCK#2(13000600070070A068D0020170400202682E0203682802048B670205
A00002064250020787060208,G$)R$()
9100 IF STR(G$,6,3)>HEX(000000)THEN 9110
: PRINT "Applied ";W
: RETURN
9110 DATA SAVE DC CLOSE#1
: K$=STR(G$,6,1)
: PRINT "Error return from Configuration write = ";HEXOF(K$)
9120 IF K$=HEX(01)THEN PRINT "Bad read from drive"
: IF K$=HEX(04)THEN PRINT "Bad LRC"
9130 STOP "Invalid return from DS.Setup "#