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"