Listing of file='KFAM327U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 546, program filename = 'KFAM327U' 4000 REM KFAM327U, RELEASE 5-1, (10/15/79) - COPYRIGHT WANG LABS. INC. 4600 DIM X$40,X3$17,X4$2,X5$16 : DIM Y$1,X6$2,X7$2,D9$2,Y1$1 : IF F9$=" "THEN 4700 4630 PRINT AT(1,0,3*S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES" : INPUT "KEY RETURN (EXEC) TO RESUME",Q6$ : PRINT AT(1,0,3*S0) : DATA LOAD BA T#1,(0)R9$() : ERRORGOTO 4630 4680 DATA LOAD BA T#2,(0)R9$() : ERRORGOTO 4630 4700 PRINT HEX(03);AT(4,0);"GENERATE CODE (KFAM327U) (STATION # =";S2;")" : D9$=F6$ : GOSUB '5 : Y$=" " : Y=4400 : GOSUB '4 : Z=4 : IF B2$<>"A"THEN 4790 : Z=B0 4790 CONVERT ZTO X7$,(##) : N1=0 4805 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 4880 : AND (Y1$,7F) : X=VAL(Y1$) : CONVERT XTO STR(X$,8,3),(###) : GOTO 4900 4880 STR(X$,3,4)=STR(X$,4,4) : STR(X$,7,1)="," : A=7 4900 GOSUB '1(A) : IF B2$="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 B2$<>"C"THEN 5200 : GOSUB '10(4480,22) : X$=HEX(4930242831293DD238313031293A) : GOSUB '1(14) : Z=3+B*B0 : X$=HEX(D349302428292C000000293DD24644293A) : CONVERT ZTO STR(X$,8,3),(###) : GOSUB '1(17) : GOSUB '9 5200 X3$="XXXT #2,(B9$,B9$)" : IF B2$>"C"THEN 5380 : GOSUB '50(4680," ","E0") : X5$="I0$(B1)=E0$(B2):" : GOSUB '52(4730) : X5$="E0$(B2)=A0$(B1):" : 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=B7 : X4$="A0" : GOSUB '51 : IF B2$="A"THEN 5660 : IF B2$<>"M"THEN 5720 : GOSUB '10(6580,24) : X$="K$"&HEX(3DD3)&X6$&"$(),P8,B5):" : GOSUB '1(17) : GOTO 5700 5660 GOSUB '10(6670,26) : X$=HEX(4B243DD3413024284231292C42332C4235293A) : STR(X$,5,2)=X6$ : GOSUB '1(19) 5700 GOSUB '9 5720 GOSUB '21 : LOAD T"KFAM337U"4000,8599 5890 DEFFN'50(Y,Y1$,X4$) : Y1=30 : IF B2$<>"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 B2$="A"THEN 6020 : STR(X$,3,1)=HEX(BE) 6020 A=1 : IF B2$<>"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 B2$="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 : Y$=STR(R9$(),T) : STR(R9$(),T)=HEX(0D0000FD) : GOSUB '3 : GOSUB '4 7260 STR(R9$(),T)=STR(X$,1,X1) : T=T+X1 : RETURN 7350 DEFFN'4 : R9$(1)=HEX(00FF) : PACK(####)STR(R9$(1),3,2)FROMY : T=5 : IF Y$=HEX(3A)THEN RETURN : STR(R9$(1),5,1)=HEX(93) : T=6 : RETURN 7510 DEFFN'3 : DATA SAVE BA T$#0,(D9$,D9$)R9$() : RETURN 7550 DEFFN'5 : R9$(1)=HEX(40FFFFFFFFFFFFFFFFFD) : GOSUB '3 : RETURN 7670 DEFFN'9 : T=T-1 : STR(R9$(),T,3)=HEX(0D0000) : T=T+3 : RETURN 7820 DEFFN'10(Y,Y1) : IF T+Y1<250THEN 7890 : STR(R9$(),T,1)=HEX(FD) : GOSUB '3 : STR(R9$(),,1)=HEX(00) : T=2 7890 X$=HEX(FF) : PACK(####)STR(X$,2,2)FROMY : GOSUB '1(3) : RETURN 7950 DEFFN'21 : STR(R9$(),T,1)=HEX(FE) : STR(R9$(),,1)=HEX(20) : GOSUB '3 : RETURN