Listing of file='KFAM3603' on disk='vmedia/701-2049C.wvd.zip'
# Sector 555, program filename = 'KFAM3603' 4000 REM KFAM3603,VER.02/24/76 4600 DIM D$(4)64,X$40,X3$17,X4$2,X5$16 : DIM Y$1,X6$2,X7$2,D9$2,Y1$1 : PRINT HEX(01) : PRINT "REORGANIZE -- GENERATE CODE" : D9$=R6$ : GOSUB '5 : Y$=" " : Y=4400 : GOSUB '4 : IF R2$="A"THEN 4790 : X$="A0$(4)64,I0$(4)64," : GOSUB '1(18) : GOSUB '9 4765 IF R2$="C"THEN 5130 : GOTO 5480 4790 CONVERT R0TO X7$,(##) : N1=0 4820 N1=N1+1 : X$="A0$(00)00," : X4$="A0" : GOSUB '51 : STR(X$,1,2)=X6$ : STR(X$,5,2)=X7$ : A=10 : Y1$=STR(C$,N1,1) : IF Y1$=HEX(08)THEN 4970 : AND (Y1$,7F) : X=VAL(Y1$) : CONVERT XTO STR(X$,8,2),(##) : GOTO 5010 4970 STR(X$,3,4)=STR(X$,4,4) : STR(X$,7,1)="," : A=7 5010 GOSUB '1(A) : X4$="I0" : GOSUB '51 : STR(X$,1,2)=X6$ : GOSUB '1(A) : IF N1<NTHEN 4820 : GOSUB '9 : GOTO 5330 5130 GOSUB '10(4480,25) : X$=HEX(4930242831293DD238313031293A) : GOSUB '1(14) : Z=3+R*R0 : X=INT((Z-1)/64)+1 : Z=Z-64*(X-1) : X$=HEX(D34930242800292C0000293DD24644293A) : CONVERT XTO STR(X$,6,1),(#) : CONVERT ZTO STR(X$,9,2),(##) 5270 GOSUB '1(17) : GOSUB '9 : GOTO 5480 5330 GOSUB '10(4860,25+6*N) : X$="XXXT#1,(R9$,R9$)" : STR(X$,1,3)=HEX(97A1BD) : GOSUB '1(16) : GOSUB '50("A0") : X5$="I0$(R1)=A0$(Q):" : GOSUB '52(4980) : GOSUB '10(5100,25+6*N) : X$="XXXT$#3,(R$,R$)" : STR(X$,1,3)=HEX(9785BD) 5450 GOSUB '1(15) : GOSUB '50("I0") 5480 GOSUB '21 : LOAD DC T#0,"KFAM3703"4000,9990 5580 DEFFN'50(X4$) : N1=0 5610 N1=N1+1 : X$="A0$()," : GOSUB '51 : STR(X$,1,2)=X6$ : IF STR(C$,N1,1)>HEX(08)THEN 5680 : STR(X$,3,1)=" " 5680 GOSUB '1(6) : IF N1<NTHEN 5610 : GOSUB '9 : RETURN 5770 DEFFN'51 : CONVERT N1-1TO X6$,(##) : AND (X6$,0F) : ADDC(X6$,X4$) : RETURN 5880 DEFFN'52(Y) : GOSUB '10(Y,25) : X4$=HEX(0000) : N1=0 5930 N1=N1+1 : X$=X5$ : GOSUB '51 : ADDC(STR(X$,1,2),X6$) : ADDC(STR(X$,9,2),X6$) : IF STR(C$,N1,1)>HEX(08)THEN 6030 : STR(X$,3,1),STR(X$,11,1)=" " 6030 GOSUB '1(15) : IF N1<NTHEN 5930 : GOSUB '9 : RETURN 6230 DEFFN'1(X1) : IF T+X1<252THEN 6350 : Y=Y+1 : T=T-1 : GOSUB '2 : Y$=STR(D$(B),C,1) : STR(D$(B),C,4)=HEX(0D0000FD) : GOSUB '3 : GOSUB '4 6350 STR(D$(B),C)=STR(X$,1,X1) : X2=65-C : IF X2>=X1THEN 6400 : D$(B+1)=STR(X$,X2+1) 6400 T=T+X1 : GOSUB '2 : RETURN 6440 DEFFN'4 : D$(1)=HEX(00FF) : PACK(####)STR(D$(1),3,2)FROMY : T=5 : IF Y$=HEX(3A)THEN 6520 : STR(D$(1),5,1)=HEX(93) : T=6 6520 GOSUB '2 : RETURN 6550 DEFFN'2 : B=INT((T-1)/64)+1 : C=T-(B-1)*64 : RETURN 6600 DEFFN'3 : DATA SAVE BA T$#3,(D9$,D9$)D$() : RETURN 6640 DEFFN'5 : D$(1)=HEX(40FFFFFFFFFFFFFFFFFD) : GOSUB '3 : RETURN 6690 DEFFN'9 : T=T-1 : GOSUB '2 : X$=HEX(0D0000) : IF T>240THEN 6760 : GOSUB '1(3) : RETURN 6760 STR(D$(B),C,3)=X$ : T=T+3 : GOSUB '2 : RETURN 6840 DEFFN'10(Y,Y1) : IF T+Y1<250THEN 6910 : STR(D$(B),C,1)=HEX(FD) : GOSUB '3 : STR(D$(1),1,1)=HEX(00) : T=2 : GOSUB '2 6910 X$=HEX(FF) : PACK(####)STR(X$,2,2)FROMY : GOSUB '1(3) : RETURN 6970 DEFFN'21 : STR(D$(B),C,1)=HEX(FE) : STR(D$(1),1,1)=HEX(20) : GOSUB '3 : RETURN