Listing of file='KFAM234S' on disk='vmedia/701-2427C.wvd.zip'
# Sector 146, program filename = 'KFAM234S' 0010 REM KFAM234S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0026 COM @V,@Q,@Q6$64,@Q6,@Q7,@Q8,@Q9,@Q8$20,@Q0$(16),@T5$10,@V$18,@T : @V=2 : @Q=0 : @T=0 : @V$=HEX(5001A002A002A0025004A001A002A002A001) : @T5$=HEX(A003A01EA001A008A002) : @Q8$=HEX(A002A00450015002) : STR(@Q8$,9)=STR(@Q8$,7) 0580 IF @T=0THEN @T=S2 : ELSE GOTO 584 : RETURN 0584 $BREAK1 : GOTO 580 0590 @T=0 : RETURN 0609 ADDC(V9$,V0$) : DATA LOAD DA T#T1,(V9$)T9$,T0$() : RETURN 0645 T7$=T1$ : V9$=T2$ : FOR T3=T0TO 1STEP -1 : GOSUB 609 : T2$(T3)=T9$ : MAT SEARCHSTR(T0$(),,V7),>STR(T7$,,T4)TO V9$STEP T5 : T=VAL(V9$,2)-T5 : IF T<1THEN T=V1 : $UNPACK(F=V4$)T0$()<T>TO T1$,T4$ : V9$=T4$ : IF V>6THEN Q2=SGN(255-VAL(STR(T0$(),V1)))*(Q2+1) : BIN(STR(T$,T3))=T : NEXT T3 : RETURN 0723 V=4 0726 IF T9<1THEN 810 : IF T6<>T9THEN 810 0735 ON V0GOTO 744,,744 : RETURN 0744 $OPEN #T1 : GOSUB 873 : IF Q2>0THEN 2890 : INIT(FF)STR(T$(1),2*S2+15,2) : T8$=STR(T$(1),S2) : DATA SAVE DA T#T1,(V0$)V,T$() : $CLOSE#T1,#T2 : RETURN 0810 IF V0$(T6)=" "THEN 2908 : GOSUB 858 : T9=T6 : $UNPACK(F=@Q8$)V0$(T9)TO V0$,V4$,V0,T1,T2,T4,T5,V7,V1 : $UNPACK(F=@T5$)T5$(T9)TO T4$,T7$,T8$,T$,T2$() : T9$=HEX(FF) : ON V0GOTO 735,846,735 0846 GOSUB 873 : GOTO 735 0858 IF T9>0THEN $PACK(F=@T5$)T5$(T9)FROMT4$,T7$,T8$,T$,T2$() : RETURN 0873 DATA LOAD DA T#T1,(V0$)Q2,T$() : $UNPACK(F=@V$)T$(2)TO T0,T2$ : RETURN 0900 IF ABS(Q-1)=1THEN 909 : STR(T$(1),2*S2+15,2)=T4$ 0909 STR(T$(1),S2,1)=T8$ 0915 DATA SAVE DA T$#T1,(V0$)0,T$() : RETURN 0927 Q$=" " : Q=VAL(STR(T4$,3)) : T6=VAL(T4$,2) : DBACKSPACE #T2,BEG : IF T6>0THEN DSKIP #T2,T6S : RETURN 0954 ON V0GOTO 960,,960 : RETURN 0960 MAT SEARCHT$()<17,32>,=STR(T4$,1,2)TO V9$STEP 2 : IF V9$=HEX(0000)OR VAL(V9$,2)/2=S2THEN RETURN : Q$="B" : T8$="9" : RETURN CLEAR 0970 GOSUB 909 : $BREAK10 : RETURN 1431 ON V0GOTO 909,,909 : RETURN 1443 IF T3=1THEN GOSUB 1524 : IF T=V1THEN 1461 : T6=V1-T : MAT COPY -T0$()<T,T6>TO -T0$()<T+T5,T6> 1461 $PACK(F=V4$)T0$()<T,T5>FROMT1$,T3$ : RETURN 1473 $UNPACK(F=STR(@V$,5))T$(2)<4>TO Q2$,V2$,T8,V6$,V3$,Q3$,V8$ : RETURN 1480 V9$=T9$ADDCV0$ : DATA SAVE DA T$#T1,(V9$)T9$,T0$() : RETURN 1490 V9$=V2$ADDCV0$ : T0$()=@Q0$() : DATA SAVE DA T$#T1,(V9$,V9$)V2$,T0$() : @Q0$()=HEX(A0FDFDFD) : DATA SAVE BA T$#T1,(V9$)@Q0$() : STR(@Q0$(),2,2)=V2$ADDCHEX(03) : V9$=V3$ADDCV0$ADDCHEX(02) : DATA SAVE BA T$#T1,(V9$)@Q0$() : RETURN 1524 IF V=7THEN 1602 : ADDC(T3$,01) : IF STR(T3$,3)<=V8$THEN 1596 : Q2$=ADDCV6$ : T3$=STR(Q2$)&HEX(01) 1596 STR(T$(3),3*S2-2,3)=T3$ 1602 T4$=T3$ : RETURN 1626 DEFFN'234(T6,Q,T1$,V) : V=7 : GOSUB 726 : GOSUB 1473 : IF STR(T4$,1,2)>Q3$THEN 2974 : IF STR(T4$,3,1)>V8$THEN 2974 : T3$=T4$ : GOTO 1686 1662 DEFFN'233(T6,Q,T1$,V) : V=8 : GOSUB 726 : GOSUB 1473 : T4$,T3$=STR(T$(3),3*S2-2) : IF STR(T3$,3)<V8$THEN 1686 : IF Q2$<Q3$THEN 1688 : IF VAL(Q2$)<255THEN 2923 : GOTO 1688 1686 GOSUB 954 1688 IF V0<3THEN 2974 : IF VAL(T1$)=255THEN 2974 : Q2=1 : GOSUB 645 : IF T1$=T7$THEN 2935 : T1$=T7$ : T=T+T5 : IF Q2=0THEN 1905 : IF Q2>8THEN 2923 : V9$=V2$ADDCBIN(Q2) : IF V3$<V9$THEN 2923 : GOSUB 580 1761 ADDC(V2$,01) : INIT(FF)@Q0$() : Q2,T6=INT(V8*V7/T5+.6)*T5 : IF T<V7-Q2+T5THEN 1791 : Q2=Q2-T5 1791 Q3=V7-Q2+1 : STR(@Q0$(),,Q2)=STR(T0$(),Q3) : STR(T0$(),Q3)=ALL(FF) : IF Q2=T6THEN 1845 : T=T-(V7-Q2) : IF T=Q2+1THEN 1830 : MAT COPY -@Q0$()<T,Q2+1-T>TO -@Q0$()<T+T5,Q2+1-T> 1830 IF T3=1THEN GOSUB 1524 : $PACK(F=V4$)@Q0$()<T,T5>FROMT1$,T3$ : GOTO 1851 1845 GOSUB 1443 1851 T1$=STR(@Q0$(),,T4) : T3$=V2$ : GOSUB 1480 : GOSUB 1490 : T3=T3+1 : IF T3>T0THEN 1944 : V9$=T2$(T3) : GOSUB 609 : T=VAL(STR(T$,T3))+T5 : IF STR(T0$(),V1)<HEX(FF)THEN 1761 : GOSUB 590 1905 GOSUB 1443 : GOSUB 1480 1912 T8=T8+1 : $PACK(F=@V$)T$(2)FROMT0,T2$,Q2$,V2$,T8 : T8$,V7$="3" : IF V0=3THEN 1928 : GOSUB 915 : GOTO 927 1928 $TRAN(STR(T$(1),1,16),V7$)R : GOSUB 900 : GOTO 927 1944 ADDC(V2$,01) : @Q0$()=ALL(FF) : STR(@Q0$(),,T5)=ALL(00) : STR(@Q0$(),T4+1,2)=T2$ : $PACK(F=V4$)STR(@Q0$(),T5+1,T5)FROMT1$,T3$ : GOSUB 1490 : T0=T3 : T2$=V2$ : GOSUB 590 : GOTO 1912 2890 $CLOSE#T1,#T2 2894 $BREAK2 : GOSUB 873 : IF Q2>0THEN 2894 : GOTO 735 2908 RETURN CLEAR 2911 Q$="X" : RETURN 2923 T8$,Q$="S" : GOTO 1431 2935 T8$,Q$="D" : GOTO 1431 2947 T8$="2" : GOTO 2956 2953 T8$="N" 2956 Q$="N" : GOTO 1431 2974 Q$="X" : T8$="X" : GOTO 1431 2989 IF V=4THEN 2953 : T8$,Q$="E" : GOTO 1431