image of READY prompt

Wang2200.org

Listing of file='ISS.200M' on disk='vmedia/701-2424C.wvd.zip'

# Sector 107, program filename = 'ISS.200M'
0010 REM  ISS.200M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD
     UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED

0050 COM B$(136)1,B$1,A1$(3,10)46
   : DIM A$(30)56,A(3)
0120 %   THIS MUST BE STATEMENT 120
0230 A$(1)="ISS.248S  S  POSITION CURSOR           01"
   : A$(2)="ISS.242S  S  PRINT ROUTINE             02"
   : A$(3)="ISS.254S  S  OPERATOR WAIT             03"
   : A$(4)="ISS.220S  S  DATE ROUTINES             04 05"
0270 A$(5)="ISS.200S  S  DATA ENTRY                05"
   : A$(6)="ISS.201S  T  EBCDIC TO ASCII           06"
   : A$(7)="ISS.202S  T  ASCII TO EBCDIC           07"
   : A$(8)="ISS.229S  D  SEARCH DISK INDEX         08"
0330 A$(9)="ISS.226S  D  LIMITS NEXT               09 08"
   : A$(10)="ISS.228S  D  ALLOCATE DATA FILE SPACE  10"
   : A$(11)="ISS.227S  D  FREE UNUSED SECTORS       11 08"
   : A$(12)="ISS.240S  D  OPEN/CLOSE OUTPUT         12 11 10 08 03"
0370 A$(13)="ISS.250S  D  OPEN/CLOSE INPUT          13 03"
   : A$(14)="ISS.217S  D  MUX OPEN/END/CLOSE        14"
   : A$(15)="ISS.205S  D  SELECT/VALIDATE ADDRESSES 15"
   : A(1),A(2),A(3)=0
   : FOR I=1TO 30
   : IF STR(A$(I),11,1)<>" "THEN 510
   : I=30
   : GOTO 730
0510 IF STR(A$(I),11,1)="S"THEN K=1
   : IF STR(A$(I),11,1)="D"THEN K=2
   : IF STR(A$(I),11,1)="T"THEN K=3
   : A(K)=A(K)+1
   : STR(A1$(K,A(K)),2,1)=BIN(I)
   : CONVERT A(K)-1TO STR(A1$(K,A(K)),3,2),(##)
   : STR(A1$(K,A(K)),5,3)=" - "
   : STR(A1$(K,A(K)),8,25)=STR(A$(I),14,25)
   : FOR J=40TO 45
   : CONVERT STR(A$(I),J,2)TO A
   : STR(A$(I),J,1)=BIN(A)
0670 STR(A$(I),J+1)=STR(A$(I),J+3)
   : IF STR(A$(I),J+1,2)=" "THEN J=45
   : NEXT J
   : STR(A1$(K,A(K)),33,6)=STR(A$(I),40,6)
   : STR(A1$(K,A(K)),39,8)=STR(A$(I),1,8)
0730 NEXT I
   : FOR I=1TO 3
   : J=-INT(-A(I)/2)*46+1+(I-1)*460
   : MAT COPY -A1$()<J,230>TO -A1$()<J,I*460+1-J>
   : NEXT I
   : LOAD T"ISS.201M"