Listing of file='ISS.240S' on disk='vmedia/701-2424C.wvd.zip'
# Sector 220, program filename = 'ISS.240S'
0010 REM ISS.240S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0081 DIM W$(3)8,Q6$64,W$8,W3$3,R2$1,Q6$64,Q4(3),Q5(3),U1,Q1,Q4,Q5,W,W1
7855 DEFFN'247(Q6$)
: SELECT PRINT 005,CO 005
: PRINT HEX(010A);Q6$;" VOL.";Q5(W);"OF FILE ";W$(W);" - UNIT";W,TAB(80)
: GOSUB '254
: RETURN
7890 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 RETURN
: Q5(W)=Q5(W)+1
7955 DEFFN'240(W,W$(W),Q4(W),Q5(W))
: GOSUB '247("MOUNT DISK TO CONTAIN")
: PRINT AT(3,0);TAB(80);AT(3,0)
: GOSUB '228(W,W$(W),5)
: ON VAL(R2$)-47GOTO 8125,8150
: LIMITS T#W,W$(W),R2,R3,R4
: IF R3-R2<5THEN 8150
: IF R2$="3"THEN 8105
: DATA LOAD DC OPEN T#W,W$(W)
: DATA LOAD DC #W,W3$,W$,W1,Q4,Q5
: DBACKSPACE #W,1S
8060 DEFFNA(U1)=U1-1E3*INT(U1/1E3)+INT(365.25*INT(U1/1E3))
: IF Q4+FNA(W1)-FNA(Q1)<=0THEN 8125
: PRINT AT(3,0);"RETENTION CYCLE NOT EXPIRED"
: GOSUB '254
: IF Q6$="X"THEN 8125
: GOTO 7955
8105 DATA SAVE DC OPEN T#W,W$(W),W$(W)
8125 W3$="HDR"
: DATA SAVE DC #W,W3$,W$(W),Q1,Q4(W),Q5(W)
: RETURN
8150 PRINT AT(3,0);"INSUFFICIENT SPACE"
: GOSUB '254
: GOTO 7955