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