Listing of file='KFAM3607' on disk='vmedia/701-2427C.wvd.zip'
# Sector 604, program filename = 'KFAM3607' 0010 REM KFAM3607, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0190 DIM D$(4)64,X$40,X3$17,X4$2,X5$16 : DIM Y$1,X6$2,X7$2,D9$2,Y1$1 : PRINT AT(0,0);"REORGANIZE -- GENERATE CODE ( STATION ";S2;")" : D9$=B6$ : GOSUB '5 : Y$=" " : Y=4400 : GOSUB '4 : IF B2$="A"THEN 380 : X$="A0$(4)64,I0$(4)64," : GOSUB '1(18) : GOSUB '9 : IF B2$="C"THEN 720 : GOTO 1050 0380 CONVERT B0TO X7$,(##) : N1=0 0410 N1=N1+1 : X$="A0$(00)000," : X4$="A0" : GOSUB '51 : STR(X$,1,2)=X6$ : STR(X$,5,2)=X7$ : A=11 : Y1$=STR(C$,N1,1) : IF Y1$=HEX(08)THEN 560 : AND (Y1$,7F) : X=VAL(Y1$) : CONVERT XTO STR(X$,8,3),(###) : GOTO 600 0560 STR(X$,3,4)=STR(X$,4,4) : STR(X$,7,1)="," : A=7 0600 GOSUB '1(A) : X4$="I0" : GOSUB '51 : STR(X$,1,2)=X6$ : GOSUB '1(A) : IF N1<NTHEN 410 : GOSUB '9 : GOTO 900 0720 GOSUB '10(4480,25) : X$=HEX(4930242831293DD238313031293A) : GOSUB '1(14) : Z=3+B*B0 : 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),(##) : GOSUB '1(17) : GOSUB '9 : GOTO 1050 0900 GOSUB '10(4860,25+6*N) : X$="XXXT#1,(B9$,B9$)" : STR(X$,1,3)=HEX(97A1BD) : GOSUB '1(16) : GOSUB '50("A0") : X5$="I0$(B1)=A0$(Q):" : GOSUB '52(4980) : GOSUB '10(5100,25+6*N) : X$="XXXT$#3,(B$,B$)" : STR(X$,1,3)=HEX(9785BD) : GOSUB '1(15) : GOSUB '50("I0") 1050 GOSUB '21 : LOAD DC T#0,"KFAM3707" 1150 DEFFN'50(X4$) : N1=0 1180 N1=N1+1 : X$="A0$()," : GOSUB '51 : STR(X$,1,2)=X6$ : IF STR(C$,N1,1)>HEX(08)THEN 1250 : STR(X$,3,1)=" " 1250 GOSUB '1(6) : IF N1<NTHEN 1180 : GOSUB '9 : RETURN 1340 DEFFN'51 : CONVERT N1-1TO X6$,(##) : AND (X6$,0F) : ADDC(X6$,X4$) : RETURN 1450 DEFFN'52(Y) : GOSUB '10(Y,25) : X4$=HEX(0000) : N1=0 1500 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 1600 : STR(X$,3,1),STR(X$,11,1)=" " 1600 GOSUB '1(15) : IF N1<NTHEN 1500 : GOSUB '9 : RETURN 1800 DEFFN'1(X1) : IF T+X1<252THEN 1920 : Y=Y+1 : T=T-1 : Y$=STR(D$(),T) : STR(D$(),T,4)=HEX(0D0000FD) : GOSUB '3 : GOSUB '4 1920 STR(D$(),T)=STR(X$,,X1) : T=T+X1 : RETURN 2010 DEFFN'4 : D$(1)=HEX(00FF) : PACK(####)STR(D$(1),3,2)FROMY : T=5 : IF Y$=HEX(3A)THEN RETURN : STR(D$(1),5,1)=HEX(93) : T=6 : RETURN 2170 DEFFN'3 : DATA SAVE BA T$#3,(D9$,D9$)D$() : RETURN 2210 DEFFN'5 : D$(1)=HEX(40FFFFFFFFFFFFFFFFFD) : GOSUB '3 : RETURN 2260 DEFFN'9 : T=T-1 : STR(D$(),T,3)=HEX(0D0000) : T=T+3 : RETURN 2410 DEFFN'10(Y,Y1) : IF T+Y1<250THEN 2480 : STR(D$(),T,1)=HEX(FD) : GOSUB '3 : STR(D$(),,1)=HEX(00) : T=2 2480 X$=HEX(FF) : PACK(####)STR(X$,2,2)FROMY : GOSUB '1(3) : RETURN 2540 DEFFN'21 : STR(D$(),T,1)=HEX(FE) : STR(D$(),,1)=HEX(20) : GOSUB '3 : RETURN