image of READY prompt

Wang2200.org

Listing of file='SUB-012A' on disk='vmedia/701-2047D.wvd.zip'

# Sector 483, program filename = 'SUB-012A'
0010 REM SUB-012A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 GOSUB '99
8970 DEFFN'247(Q6$)
   : SELECT PRINT 005(64),CO 005
   : PRINT HEX(010A);Q6$;" VOL.";Q5(W);"OF FILE ";W$(W);" - UNIT";W,TAB(64)
   : GOSUB '254
   : RETURN