image of READY prompt

Wang2200.org

Listing of file='VATTCH0' on disk='vmedia/731-8011A.wvd.zip'

# Sector 17, program filename = 'VATTCH0'
0004 REM % (c) Copyright Wang Laboratories, Inc. 1986
0005 REM % VATTACH START UP-"VATTCH0" ** Nori Odoi ** Rev. 0.002 * 8/8/86 **
0006 REM / !!! Change 20 to 9000 for official release
0010 COM A0$3,A3$1
0020 IF #TERM=1 THEN 30
   : PRINT AT(2,18,20);HEX(020404000E);"Attach must be done at Terminal 1";HEX
     (0F)
   : FOR I=1 TO 5000
   : NEXT I
   : $PSTAT="VSX.SERV"
   : LOAD RUN "@VSMENU"
0030 A3$="A"
   : LOAD T "WSESTART"
9000 IF #TERM=1 THEN 30
   : PRINT AT(2,18,20);HEX(020404000E);"Attach must be done at Terminal 1";HEX
     (0F)
   : FOR I=1 TO 5000
   : NEXT I
   : $PSTAT="VSX.SERV"
   : LOAD RUN "@VSMENU"
9020 GOTO 30
   : IF #TERM=7 THEN 30
   : PRINT AT(2,18,20);HEX(020404000E);"Attach must be done at Terminal 1";HEX
     (0F)
   : FOR I=1 TO 5000
   : NEXT I
   : $PSTAT="VSX.SERV"
   : LOAD RUN "@VSMENU"
9999 DEFFN '31  "SCRATCH T";HEX(22);"VATTCH0";HEX(22);": SAVE T()";HEX(22);"VA
     TTCH0";HEX(22)