Listing of file='KFAM707U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 743, program filename = 'KFAM707U'
0010 REM KFAM707U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0049 COM Z9$8,Z8$8,Z1$(25)8,Z2$(25)8,Z3$(25)1,Z8,Z9
: COM R9$(16),Q6$64,A3,E3
: COM F0$3,K0$3,F1$8,K1$8,I$1,M$8,N
: DIM Z$(3)83,E$50,D$24
0120 % THIS MUST BE STATEMENT 120
0260 S1$="ISS.200SISS.254SISS.050S"
: LOAD T<LEN(S1$)/8>S1$10,0BEG 290
0290 GOSUB '50(22)
: $UNPACK(F=HEX(A0086001))Z$(Z1)TO M$,N
: GOSUB '60("RESET ACCESS TABLES",2)
: GOSUB '61("MODE",M$,"81"," ")
: GOSUB '62("STATION NUMBER",N,"82")
0370 GOSUB '70
: IF MOD(H,2)=0AND M$="ALL"THEN GOSUB '113(5,"ALL MODE NOT AVAILABLE FOR MU
X VERSION")
: GOSUB '42(M$)
0420 LOAD T"KFAM717U"
: ERRORGOTO 430
0430 PRINT AT(1,0);"RE-MOUNT ISS DISK AT ";S$;TAB(S0)
: GOSUB '254
: F9$="M"
: GOTO 420
0480 DEFFN'15
: RETURN CLEAR ALL
0500 PRINT AT(1,0,3*S0);
: GOTO 370
0560 DEFFN'81
: PRINT AT(13,0);"1 - ALL"
: PRINT "2 - PART"
: PRINT "3 - INDIRECT"
: GOSUB '200("1","3",1,0,"ENTER OPTION",1)
: D$="ALL PART INDIRECT"
: Z$,M$=STR(D$,Q9*8-7,8)
: PRINT AT(13,0,3*S0)
: RETURN
0700 DEFFN'82
: GOSUB '200("0","16",2,0,"ENTER STATION NUMBER (0 = ALL STATIONS)",1)
: Z,N=Q9
: RETURN
0770 DEFFN'51
: $PACK(F=HEX(A0086001))Z$(Z1)FROMM$,N
: RETURN
0830 DEFFN'31
: PRINT HEX(03)
: COM CLEAR Z9$
0860 LOAD T"KFAM007M"
: ERRORGOTO 870
0870 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 860
0930 DEFFN'42(Z9$)
: IF M$="ALL"THEN 1024
: Z9=0
: Z8$=" "
: E$="MOUNT PLATTERS"
0980 PRINT AT(1,0,S0);E$;
: GOSUB '254
: IF Z9$="INDIRECT"THEN 1050
: IF Z9$="PART"THEN 1170
: STOP "ERROR"
1024 F9$="M"
: RETURN
1050 GOSUB '40("ENTER REFERENCE FILE ADDRESS")
: SELECT #3<Z1$>
1080 GOSUB '200(" "," ",8,0,"ENTER REFERENCE FILE NAME",2)
: Z8$=Q6$
: LIMITS T#3,Z8$,A3,E3,Z,Z
: ERRORGOSUB '113(5,"MOUNT REFERENCE FILE DISK")
1120 IF Z<1THEN GOSUB '113(1,"NOT ACTIVE ON REFERENCE FILE DISK")
: IF Z=1THEN GOSUB '113(1,"WRONG FILE TYPE")
: RETURN
1170 PRINT AT(1,0);"ENTER FILE NAMES (0 = END)"
: PRINT AT(10,19);"USER FILE KEY ADDRESS KEY FILE NUMBER"
: PRINT AT(11,19);"NAME xyy/"
: IF MOD(H,2)>0THEN 1320
: PRINT AT(10,35);"/USER "
: PRINT AT(11,36);"xyy"
: GOTO 1320
1250 Y1=12
: FOR Y=MAX(1,Z9-1)TO Z9
: PRINT AT(Y1,15,S0);Y;" ";STR(Z1$(Y),1);" ";STR(Z2$(Y),1);" ";
: IF Z1$(Y)<>"KFAMWORK"THEN PRINT VAL(Z3$(Y))-1
: Y1=Y1+1
: NEXT Y
1320 Y1=MIN(12+Z9,14)
: PRINT AT(Y1,0,63);
1350 PRINT AT(Y1,15);Z9+1;
: LINPUT ?Z1$(Z9+1)
: IF Z1$(Z9+1)="0"THEN 1860
: IF Z1$(Z9+1)="KFAMWORK"THEN 1920
: IF STR(Z1$(Z9+1),5,1)<>"F"THEN 1420
: IF STR(Z1$(Z9+1),6,1)<"0"THEN 1420
: IF STR(Z1$(Z9+1),6,1)<="9"THEN 1430
1420 GOSUB '113(2,"NOT A KFAM FILE NAME")
1430 PRINT AT(3,0,50)
1450 PRINT AT(Y1,31);
: LINPUT Z2$(Z9+1)
: STR(Z2$(Z9+1),4,1)="/"
: IF MOD(H,2)=0THEN Z=8
: ELSE Z=5
: STR(Z2$(Z9+1),Z)=" "
: K0$=STR(Z2$(Z9+1),1,3)
: GOSUB '43(K0$,0)
: IF Y1$=HEX(00000000)THEN GOSUB '113(3,"INVALID KEY FILE ADDRESS")
: SELECT #1<K0$>
: IF MOD(H,2)>0THEN 1590
: F0$=STR(Z2$(Z9+1),5,3)
: GOSUB '43(F0$,0)
1570 IF Y1$=HEX(00000000)THEN GOSUB '113(3,"INVALID USER FILE ADDRESS")
: SELECT #2<F0$>
1590 PRINT AT(3,0,50)
1610 Z=VAL(Z3$(Z9+1))
: IF Z>=1AND Z<=10THEN CONVERT Z-1TO Z$,(#)
: ELSE Z$=" "
: PRINT AT(Y1,47);
: LINPUT STR(Z$,1,1)
: IF NUM(STR(Z$,1,LEN(Z$)))<>LEN(Z$)THEN GOSUB '113(4,"INVALID ENTRY")
: CONVERT Z$TO Z
: IF Z<1OR Z>9THEN GOSUB '113(4,"1<= X <=9 (d.)")
: Z3$(Z9+1)=BIN(Z+1)
: PRINT AT(3,0,50)
: K1$=Z1$(Z9+1)
: STR(K1$,5,1)="K"
: STR(K1$,6,1)=Z$
1740 LIMITS T#1,K1$,Y,Y,Y,Y
: ERRORE$="MOUNT INPUT DISK"
: PRINT HEX(07)
: GOTO 980
1750 IF Y<1THEN GOSUB '113(2,"KEY FILE NOT ACTIVE ON INPUT DISK")
: IF MOD(H,2)>0THEN 1820
: LIMITS T#2,Z1$(Z9+1),Y,Y,Y,Y
: ERRORE$="MOUNT INPUT DISK"
: PRINT HEX(07)
: GOTO 980
1790 IF Y<1THEN GOSUB '113(2,"USER FILE NOT ACTIVE ON INPUT DISK")
: LIMITS T#2,Z2$(Z9+1),Y,Y,Y,Y
: ERRORE$="MOUNT OUTPUT DISK"
: PRINT HEX(07)
: GOTO 980
1820 Z9=Z9+1
: IF Z9<25THEN 1250
1860 PRINT AT(11,0,5*S0)
: PRINT AT(1,0,2*S0)
: Z8=0
: RETURN
1920 Z3$(Z9+1)=HEX(01)
: GOTO 1820
1960 DEFFN'113(Y,E$)
: RETURN CLEAR
1980 IF Y=5THEN 2010
: PRINT HEX(07);AT(3,0,50);"RE-ENTER, ";E$
: ON YGOTO 1080,1350,1450,1610,370
2010 PRINT HEX(07);AT(1,0,3*S0);E$;AT(2,0);
: Q6$=" "
: INPUT "KEY RETURN(EXEC) TO RESUME",Q6$
: GOTO 370