Listing of file='KFAM3103' on disk='vmedia/701-2049C.wvd.zip'
# Sector 234, program filename = 'KFAM3103' 4000 REM KFAM3103,VER.09/23/75 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(030A0A0A0A) : PRINT "GENERATE CODE (KFAM3103)" : D9$=R6$ : GOSUB '5 : Y$=" " : Y=4400 : GOSUB '4 : Z=4 : IF R2$<>"A"THEN 4790 : Z=R0 4790 CONVERT ZTO X7$,(##) : N1=0 4805 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 4880 : AND (Y1$,7F) : X=VAL(Y1$) : CONVERT XTO STR(X$,8,2),(##) : GOTO 4900 4880 STR(X$,3,4)=STR(X$,4,4) : STR(X$,7,1)="," : A=7 4900 GOSUB '1(A) : IF R2$="A"THEN 4925 : IF N1>1THEN 4980 4925 X4$="E0" : GOSUB '51 : STR(X$,1,2)=X6$ : GOSUB '1(A) : X4$="I0" : GOSUB '51 : STR(X$,1,2)=X6$ : GOSUB '1(A) 4980 IF N1<NTHEN 4805 : GOSUB '9 : IF R2$<>"C"THEN 5200 : GOSUB '10(4480,22) : X$=HEX(4930242831293DD238313031293A) : GOSUB '1(14) : Z=3+R*R0 : X=INT((Z-1)/64)+1 : Z=Z-64*(X-1) : X$=HEX(D34930242800292C0000293DD24644293A) 5070 CONVERT XTO STR(X$,6,1),(#) : CONVERT ZTO STR(X$,9,2),(##) : GOSUB '1(17) : GOSUB '9 5200 X3$="XXXT #2,(R9$,R9$)" : IF R2$>"C"THEN 5380 : GOSUB '50(4680," ","E0") : X5$="I0$(R1)=E0$(R2):" : GOSUB '52(4730) : X5$="E0$(R2)=A0$(R1):" : GOSUB '52(4780) : GOSUB '50(4840,"$","E0") : GOTO 5410 5380 GOSUB '50(5560,"$","A0") : GOTO 5440 5410 GOSUB '50(5640,"$","I0") 5440 GOSUB '50(5720," ","A0") : N1=R7 : X4$="A0" : GOSUB '51 : IF R2$="A"THEN 5660 : IF R2$<>"M"THEN 5720 : GOSUB '10(6580,28) : X$=HEX(A88700002428293C53382C52353EB254332428293A) : STR(X$,3,2)=X6$ : GOSUB '1(21) : GOTO 5700 5660 GOSUB '10(6670,26) : X$=HEX(4B243DD3413024285231292C52332C5235293A) : STR(X$,5,2)=X6$ : GOSUB '1(19) 5700 GOSUB '9 5720 GOSUB '21 : LOAD DC T#0,"KFAM3203"4000,9990 5890 DEFFN'50(Y,Y1$,X4$) : Y1=30 : IF R2$<>"A"THEN 5900 : Y1=25+6*N 5900 GOSUB '10(Y,Y1) : X$=X3$ : IF Y1$="$"THEN 5980 : STR(X$,1,3)=HEX(97A1BD) : GOTO 6000 5980 STR(X$,1,5)=HEX(9785BD5424) 6000 IF R2$="A"THEN 6020 : STR(X$,3,1)=HEX(BE) 6020 A=1 : IF R2$<>"M"THEN 6070 : A=18 : GOTO 6090 6070 GOSUB '1(17) 6090 N1=0 6100 N1=N1+1 : STR(X$,A,6)="A0$()," : GOSUB '51 : STR(X$,A,2)=X6$ : IF STR(C$,N1,1)>HEX(08)THEN 6140 : STR(X$,A+2,1)=" " 6140 IF A=1THEN 6160 : STR(X$,23,1)=HEX(3A) 6160 GOSUB '1(5+A) : IF N1<NTHEN 6100 : GOSUB '9 : RETURN 6250 DEFFN'51 : CONVERT N1-1TO X6$,(##) : AND (X6$,0F) : ADDC(X6$,X4$) : RETURN 6340 DEFFN'52(Y) : GOSUB '10(Y,25) : X4$=HEX(0000) : IF R2$="A"THEN 6440 : X$=HEX(9A2736353A) : GOSUB '1(5) : GOTO 6580 6440 N1=0 6450 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 6550 : STR(X$,3,1),STR(X$,11,1)=" " 6550 GOSUB '1(16) : IF N1<NTHEN 6450 6580 GOSUB '9 : RETURN 7140 DEFFN'1(X1) : IF T+X1<252THEN 7260 : 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 7260 STR(D$(B),C)=STR(X$,1,X1) : X2=65-C : IF X2>=X1THEN 7310 : D$(B+1)=STR(X$,X2+1) 7310 T=T+X1 : GOSUB '2 : RETURN 7350 DEFFN'4 : D$(1)=HEX(00FF) : PACK(####)STR(D$(1),3,2)FROMY : T=5 : IF Y$=HEX(3A)THEN 7430 : STR(D$(1),5,1)=HEX(93) : T=6 7430 GOSUB '2 : RETURN 7460 DEFFN'2 : B=INT((T-1)/64)+1 : C=T-(B-1)*64 : RETURN 7510 DEFFN'3 : DATA SAVE BA T$#4,(D9$,D9$)D$() : RETURN 7550 DEFFN'5 : D$(1)=HEX(40FFFFFFFFFFFFFFFFFD) : GOSUB '3 : RETURN 7670 DEFFN'9 : T=T-1 : GOSUB '2 : X$=HEX(0D0000) : IF T>240THEN 7740 : GOSUB '1(3) : RETURN 7740 STR(D$(B),C,3)=X$ : T=T+3 : GOSUB '2 : RETURN 7820 DEFFN'10(Y,Y1) : IF T+Y1<250THEN 7890 : STR(D$(B),C,1)=HEX(FD) : GOSUB '3 : STR(D$(1),1,1)=HEX(00) : T=2 : GOSUB '2 7890 X$=HEX(FF) : PACK(####)STR(X$,2,2)FROMY : GOSUB '1(3) : RETURN 9270 DEFFN'21 : STR(D$(B),C,1)=HEX(FE) : STR(D$(1),1,1)=HEX(20) : GOSUB '3 : RETURN