Listing of file='ISS.250S' on disk='vmedia/701-2424C.wvd.zip'
# Sector 238, program filename = 'ISS.250S'
0010 REM ISS.250S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0082 DIM W$(3)8,Q5(3),W3$3,W$8,Q6$64,W,W1,Q4,Q5
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
8170 DEFFN'251(W)
: DATA LOAD DC #W,W3$,W$,W1,Q4,Q5
: IF STR(W3$,3,1)="F"THEN RETURN
: Q5(W)=Q5(W)+1
8205 DEFFN'250(W,W$(W),Q5(W))
: GOSUB '247("MOUNT")
: PRINT AT(3,0);TAB(80)
: LIMITS T#W,W$(W),W1,W1,W1,W1
: IF W1<1THEN 8285
: DATA LOAD DC OPEN T#W,W$(W)
: DATA LOAD DC #W,W3$,W$,W1,Q4,Q5
: IF Q6$="X"THEN RETURN
: IF W$=W$(W)AND Q5=Q5(W)THEN RETURN
8285 PRINT AT(3,0);"INCORRECT VOL."
: GOTO 8205