image of READY prompt

Wang2200.org

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