Listing of file='ISS.100M' on disk='vmedia/701-2423D.wvd.zip'
# Sector 108, program filename = 'ISS.100M'
0010 REM ISS.100M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD
UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0030 COM F9$1
0120 % THIS MUST BE STATEMENT 120
0130 DIM A$(14)37
: LOAD DC T#0,"ISS.254S"10,1BEG 210
0210 A$(1)="COPY/VERIFY ISS.000U"
: A$(2)="CREATE REFERENCE FILE ISS.010U"
: A$(3)="LIST/CROSS-REFERENCE PISS.020U"
: A$(4)="COMPRESSION ISS.030U"
: A$(5)="DECOMPRESSION ISS.040U"
0260 A$(6)="SORT DISK CATALOG ISS.050U"
: A$(7)="DISK DUMP ISS.060U"
: A$(8)="FILE STATUS REPORT ISS.070U"
: A$(9)="PROGRAM COMPARE ISS.080U"
: A$(10)="RECONSTRUCT DISK INDEX ISS.090U"
0310 A$(11)="ALTER DISK INDEX ISS.110U"
: PRINT HEX(0306)
: PRINT AT(4,0);TAB(16);"ISS UTILITIES ( STATION #";S2;")";TAB(80)
: PRINT "----------------------------------------------------------------"
: PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
0410 PRINT "----------------------------------------------------------------"
: FOR I=1TO 14
: IF A$(I)=" "THEN 460
: CONVERT I-1TO STR(A$(I),36,2),(##)
0460 NEXT I
: N=INT(LEN(A$())/74)
: FOR I=1TO N
: PRINT AT(I+7,3);STR(A$(I),36);TAB(6);STR(A$(I),1,25)
: NEXT I
: FOR I=N+1TO 14
: IF A$(I)=" "THEN 550
: PRINT AT(I+7-N,34);STR(A$(I),36);TAB(37);STR(A$(I),1,25)
0550 NEXT I
: PRINT AT(15,34);"31 SYSTEM MENU";
: F9$=" "
0590 PRINT AT(1,0);"SELECT UTILITY";AT(2,0,64);
0600 KEYIN A$,,620
: GOTO 600
0620 A=VAL(A$)
: IF A=31THEN GOSUB '31
: IF A>13THEN 590
: IF A$(A+1)=" "THEN 590
: IF STR(A$(A+1),27,1)="P"THEN GOSUB '44
: N$=STR(A$(A+1),28,8)
: STR(A$(A+1),26)=" "
: B=LEN(A$(A+1))
: PRINT HEX(03);AT(5,0);
: PRINT TAB(13);"* * * * * * * * * * * * * * * * * * *"
: PRINT TAB(13);"* *"
0770 PRINT TAB(13);"* LOADING *"
: PRINT TAB(13);"*";TAB(14+((35-B)/2));STR(A$(A+1),1,B);TAB(49);"*"
: PRINT TAB(13);"* *"
: PRINT TAB(13);"* * * * * * * * * * * * * * * * * * *"
0810 IF P$=" "THEN LOAD TN$
: ERRORGOSUB 1040
: GOTO 810
0830 P$=" "
: PRINT HEX(010A07);"PRINTER REQUIRED"
: GOSUB '254
: GOTO 210
0900 DEFFN'44
: P$=" 000005"
: MAT SEARCHP$,=S$(1)TO P$
: IF STR(P$,,2)=HEX(0000)THEN P$=" "
: ELSE P$="P"
: RETURN
0980 DEFFN'31
: PRINT HEX(03);"LOADING SYSTEM MENU"
: S8$="SYSTEM"
1010 LOAD DC T#0,"ISS.002M"
: ERRORGOSUB 1040
: GOTO 1010
1020 COM CLEAR F9$
1040 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: RETURN