Listing of file='VATTCH1' on disk='vmedia/731-8011A.wvd.zip'
# Sector 738, program filename = 'VATTCH1'
0004 REM % (c) Copyright Wang Laboratories, Inc. 1986
0005 REM % VATTACH START UP-"VATTCH1" ** Nori Odoi ** Rev. 0.004 * 8/8/86 **
0006 REM /Change 9000 to 20 for official releases !!!
0007 DIM T$1
0020 IF #TERM=1 THEN 50
: PRINT HEX(03);AT(22,0);HEX(020404000E);"Attach must be done at Terminal 1
";HEX(0F);AT(23,0);"Press any key to continue"
: KEYIN T$
: LOAD T"RESUMWSE"
0050 COM CLEAR A3$
0060 LOAD T "VATTACH"
9000 IF #TERM=1 THEN 50
: PRINT HEX(03);AT(22,0);HEX(020404000E);"Attach must be done at Terminal 1
";HEX(0F);AT(23,0);"Press any key to continue"
: KEYIN T$
: LOAD T"RESUMWSE"
9020 GOTO 50
: IF #TERM=7 THEN 50
: PRINT HEX(03);AT(22,0);HEX(020404000E);"Attach must be done at Terminal 1
";HEX(0F);AT(23,0);"Press any key to continue"
: KEYIN T$
: LOAD T"RESUMWSE"
9999 DEFFN '31 "SCRATCH T";HEX(22);"VATTCH1";HEX(22);": SAVE T()";HEX(22);"VA
TTCH1";HEX(22)