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