image of READY prompt

Wang2200.org

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

# Sector 445, program filename = 'SUB-007A'
0010 REM SUB-007A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 GOSUB '99
8605 DEFFN'243(Q6$,Q0)
   : GOSUB 8830
8615 SELECT CO 205
   : Q6$=" "
   : INPUT Q6$
   : IF Q0=0THEN 8865
   : IF LEN(Q6$)<=Q0THEN 8865
   : GOSUB 8815
8650 DEFFN'244(Q0)
   : GOSUB 8855
   : GOSUB 8840
   : GOTO 8615
8815 GOSUB '248(3,0,1)
   : PRINT "RE-ENTER"
   : RETURN
8830 SELECT PRINT 005(64),CO 005
   : PRINT HEX(010A);STR(Q6$,1);
8840 SELECT PRINT 005(64),CO 005
   : GOSUB '242(Q0+2,"-")
   : PRINT TAB(64)
8855 PRINT HEX(010A0A)
   : RETURN
8865 PRINT HEX(0A);TAB(64)
   : SELECT PRINT 005(64),CO 005
   : RETURN