Listing of file='KFAM007M' on disk='vmedia/701-2427C.wvd.zip'
# Sector 412, program filename = 'KFAM007M' 0010 REM KFAM007M, 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 H1$18,H,F9$1 : DIM A$(14)37 0120 % THIS MUST BE STATEMENT 120 0140 LOAD DC T#0,"ISS.254S"10,1BEG 200 0200 A$(1)="INITIALIZE KFAM FILES KFAM107U" : A$(2)="BUILD KEY FILE KFAM207U" : A$(3)="REORGANIZE IN PLACE KFAM307U" : A$(4)="REALLOCATE FILE SPACE KFAM407U" : A$(5)="CONVERT TO KFAM-7 KFAM507U" 0250 A$(6)="PRINT KEY FILE KFAM607U" : A$(7)="RESET ACCESS TABLES KFAM707U" : A$(8)="BUILD SUBROUTINE MODULE KFAM807U" : A$(9)="KEY FILE RECOVERY KFAM907U" : PRINT HEX(0306) : PRINT AT(4,0);TAB(16);"KFAM-7 UTILITIES ( STATION # =";S2;")";TAB(80) 0360 PRINT "----------------------------------------------------------------" : PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME" : PRINT "----------------------------------------------------------------" : FOR I=1TO 14 : IF A$(I)=" "THEN 430 : CONVERT I-1TO STR(A$(I),36,2),(##) 0430 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,26) : NEXT I : FOR I=N+1TO 14 : IF A$(I)=" "THEN 520 : PRINT AT(I+7-N,34);STR(A$(I),36);TAB(37);STR(A$(I),1,25) 0520 NEXT I : PRINT AT(15,34);"31 SYSTEM MENU"; : IF S3=3THEN 630 : SELECT @PART"KFAM" : ERRORGOTO 630 0590 H=@V : % ERROR - ISS 5.0 THE MINIMUM REQUIREMENT:\9FH=3\B1\A5@PART"KFAMCOM":\EB\ 9C630 0610 GOTO 660 0630 PRINT AT(0,0);"GLOBAL 'KFAM' SUBROUTINES NOT AVAILABLE - OVERLAYS WILL BE USED" : H=4 0660 H1$=HEX(5001A002A002A0025004A001A002A002A001) : F9$=" " 0700 PRINT AT(1,0);"SELECT UTILITY";AT(2,0,64); 0710 KEYIN A$,,730 : GOTO 710 0730 A=VAL(A$) : IF A=31THEN GOSUB '31 : IF A>13THEN 700 : IF A$(A+1)=" "THEN 700 : 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);"* *" 0880 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);"* * * * * * * * * * * * * * * * * * *" 0920 IF P$=" "THEN LOAD TN$ : ERRORGOSUB 1150 : GOTO 920 0940 P$=" " : PRINT HEX(010A07);"PRINTER REQUIRED" : GOSUB '254 : GOTO 200 1010 DEFFN'44 : P$=" 000005" : MAT SEARCHP$,=S$(1)TO P$ : IF STR(P$,,2)=HEX(0000)THEN P$=" " : ELSE P$="P" : RETURN 1090 DEFFN'31 : COM CLEAR H1$ : PRINT HEX(03);"LOADING SYSTEM MENU" : S8$="SYSTEM" 1130 LOAD DC T#0,"ISS.002M" : ERRORGOSUB 1150 : GOTO 1130 1150 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$ : GOSUB '254 : RETURN