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)