image of READY prompt

Wang2200.org

Listing of file='@DSAPPLY' on disk='vmedia/731-8015D.wvd.zip'

# Sector 224, 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 "#