image of READY prompt

Wang2200.org

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

# Sector 403, program filename = 'VS.START'
0004 REM % (c) Copyright Wang Laboratories, Inc. 1990
0005 REM % VS SERVICES START UP-"VS.START" ** Nori Odoi ** Rev. 0.002 * 8/18/8
     6 **   !!!! RENUMBER line 9000 to line 50 & delete line 40
0010 PRINT HEX(03);AT(9,22);"*****   V S  S E R V I C E S   *****"
0020 PRINT AT(10,34);"Revision 2.0 "
0030 PRINT AT(11,20);"(c) Copyright Wang Laboratories, Inc. 1990",HEX(06)
   : FOR I=1 TO 2000
   : NEXT I
0040 IF #TERM=1 THEN $PSTAT="VS1.SERV"
   : ELSE $PSTAT="VSX.SERV"
0060 LOAD RUN "@VSMENU"
9000 IF #TERM=1 THEN $PSTAT="VS1.SERV"
   : ELSE $PSTAT="VSX.SERV"
9040 IF 1=1 THEN $PSTAT="VS1.SERV"
   : ELSE $PSTAT="VSX.SERV"
9999 DEFFN '31  "SCRATCH T";HEX(22);"VS.START";HEX(22);": SAVE T()";HEX(22);"V
     S.START";HEX(22)