image of READY prompt

Wang2200.org

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

# Sector 440, program filename = 'SUB-006A'
0010 REM SUB-006A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 GOSUB '99
8885 DEFFN'248(Q6,Q7,Q8)
   : GOSUB 8950
   : IF Q8<1THEN 8935
   : GOSUB 8935
   : SELECT PRINT 205
   : PRINT TAB(64-Q7)
   : IF Q8<2THEN 8935
   : FOR W0=2TO Q8
   : PRINT HEX(0A);TAB(64)
   : NEXT W0
8935 PRINT HEX(01)
   : GOSUB '242(Q7,HEX(09))
   : GOSUB '242(Q6,HEX(0A))
8950 SELECT PRINT 005(64),CO 005
   : RETURN