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