image of READY prompt

Wang2200.org

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