Listing of file='SUB-005A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 434, program filename = 'SUB-005A' 0010 REM SUB-005A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 8440 GOSUB '248(3,0,1) : RETURN 8455 DEFFN'251(W) : DATA LOAD DC #W,W3$,W$,W1,Q4,Q5 : IF STR(W3$,3,1)="F"THEN 8440 : Q5(W)=Q5(W)+1 : GOTO 8495 8490 DEFFN'250(W,W$(W),Q5(W)) 8495 GOSUB '247("MOUNT") : GOSUB '229(W,W$(W)) : IF R2$<>HEX(10)THEN 8540 : DATA LOAD DC OPEN T#W,W$(W) : DATA LOAD DC #W,W3$,W$,W1,Q4,Q5 : IF Q6$="X"THEN 8440 : IF W$<>W$(W)THEN 8540 : IF Q5=Q5(W)THEN 8440 8540 GOSUB '248(3,0,1) : PRINT "INCORRECT VOL." : GOTO 8490