image of READY prompt

Wang2200.org

Listing of file='START ' on disk='vmedia/701-2110C.wvd.zip'

# Sector 174, program filename = 'START'
0010 REM START, 02-01, (04/23/79) THIS PROGRAM IS A PRODUCT OF WANG LABORATORI
     ES, INC.  UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED.
0040 COM S1,S,Q1$8,Q1,A$(9)3
   : MAT REDIM A$(1)27
   : A$(1)="310320330B10B20B30"
   : MAT REDIM A$(9)3
   : GOTO 180
0100 PRINT HEX(030A0A0A0A0A0A)
   : PRINT TAB(15);"AVAILABLE ADDRESSES"
   : PRINT TAB(15);"1 - ";A$(1);"     4 - ";A$(4)
   : PRINT TAB(15);"2 - ";A$(2);"     5 - ";A$(5)
   : PRINT TAB(15);"3 - ";A$(3);"     6 - ";A$(6)
   : PRINT HEX(010A)
   : S1=1
0170 INPUT "ENTER ADDRESS OF SYSTEM DISK (DEFAULT = 1) ",S1
0180 IF S1<=0THEN 100
   : IF S1<>INT(S1)THEN 100
   : IF S1>6THEN 100
   : ON S1GOTO 230,260,290,320,350,380
0230 SELECT #1310
   : GOTO 400
0260 SELECT #1320
   : GOTO 400
0290 SELECT #1330
   : GOTO 400
0320 SELECT #1B10
   : GOTO 400
0350 SELECT #1B20
   : GOTO 400
0380 SELECT #1B30
0400 LOAD DC T#1,"MENU010A"10,6999