Listing of file='KFAM807U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 785, program filename = 'KFAM807U'
0010 REM KFAM807U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0049 COM Z9$8,R9$(16),Q6$64
: COM F0$3,F1$8,I$13
0120 % THIS MUST BE STATEMENT 120
0130 DIM Z$(3)83,D$39
: S1$="ISS.200SISS.254SISS.050S"
: LOAD T<LEN(S1$)/8>S1$10,0BEG 250
0250 GOSUB '50(20)
: $UNPACK(F=HEX(A008A003A00D))Z$(Z1)TO F1$,F0$,I$
: GOSUB '60("BUILD SUBROUTINE MODULE",3)
: GOSUB '61("OUTPUT FILE NAME",F1$,"80"," ")
: GOSUB '61("OUTPUT FILE ADDRESS",F0$,"81","DISK")
: GOSUB '61("KFAM-7 MODULE",I$,"82"," ")
0340 GOSUB '70
: SELECT #2<F0$>
: GOSUB 540
0400 LOAD T"KFAM817U"
: ERRORGOTO 410
0410 PRINT AT(1,0);"RE-MOUNT ISS DISK AT ";S$;TAB(S0)
: GOSUB '254
: F9$="M"
: GOTO 400
0460 DEFFN'15
: RETURN CLEAR ALL
0480 PRINT AT(1,0,3*S0);
: GOTO 340
0540 PRINT AT(1,0,S0);"MOUNT PLATTER AT INDICATED ADDRESS"
: GOSUB '254
: LIMITS T#2,F1$,A2,E2,C2,D2
: ERRORGOTO 540
0570 IF D2=0THEN RETURN
: PRINT AT(1,0,S0);"FILE ";F1$;" IS ALREADY ACTIVE AT ADDRESS ";F0$
: GOSUB '254
: RETURN CLEAR
0610 GOTO 340
0630 DEFFN'82
: PRINT AT(13,0);"1 - SINGLE BANK"
: PRINT "2 - MUX"
: PRINT "3 - MULTIPLE BANK";
: GOSUB '200("1","3",1,0,"ENTER DESIRED SUBROUTINE VERSION",1)
: D$="SINGLE BANK MUX MULTIPLE BANK"
: Z$,I$=STR(D$,Q9*13-12,13)
: PRINT AT(13,0,3*S0)
: RETURN
0800 DEFFN'81
: GOSUB '40("ENTER USER FILE ADDRESS")
: Z$,F0$=Z1$
: RETURN
0850 DEFFN'80
: GOSUB '200(" "," ",8,0,"ENTER OUTPUT FILE NAME",2)
: Z$,F1$=Q6$
: RETURN
0920 DEFFN'51
: $PACK(F=HEX(A008A003A00D))Z$(Z1)FROMF1$,F0$,I$
: RETURN
0980 DEFFN'31
: PRINT HEX(03)
: COM CLEAR Z9$
1010 LOAD T"KFAM007M"
: ERRORGOTO 1020
1020 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1010