Listing of file='SUB-010A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 471, program filename = 'SUB-010A'
0010 REM SUB-010A,00-00(04/28/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 GOSUB '99
8260 DEFFN'241(W,W3$)
: DATA SAVE DC #W,W3$,W$(W),Q1,Q4(W),Q5(W)
: DATA SAVE DC $#W,END
: GOSUB '227(W,W$(W),0)
: DATA SAVE DC CLOSE#W
: GOSUB '247("REMOVE DISK CONTAINING")
: IF W3$="EOF"THEN 8440
: Q5(W)=Q5(W)+1
8310 DEFFN'240(W,W$(W),Q4(W),Q5(W))
: GOSUB '247("MOUNT DISK TO CONTAIN")
: GOSUB '228(W,W$(W),5)
: ON VAL(R2$)-47GOTO 8420,8405
: LIMITS T#W,W$(W),R2,R3,R4
: IF R3-R2<5THEN 8405
: IF R2$="2"THEN 8355
: DATA SAVE DC OPEN T#W,W$(W),W$(W)
: GOTO 8420
8355 DATA LOAD DC OPEN T#W,W$(W)
: DATA LOAD DC #W,W3$,W$,W1,Q4,Q5
: DBACKSPACE #W,1S
: IF Q6$="X"THEN 8420
8380 DEFFNA(Q)=Q-1E3*INT(Q/1E3)+INT(365.25*INT(Q/1E3))
: IF Q4+FNA(W1)-FNA(Q1)<=0THEN 8420
: GOSUB '248(3,0,1)
: PRINT "RETENTION CYCLE NOT EXPIRED"
: GOTO 8310
8405 GOSUB '248(3,0,1)
: PRINT "INSUFFICIENT SPACE"
: GOTO 8310
8420 W3$="HDR"
: DATA SAVE DC #W,W3$,W$(W),Q1,Q4(W),Q5(W)
8440 GOSUB '248(3,0,1)
: RETURN