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