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"