Listing of file='KFAM3907' on disk='vmedia/701-2427C.wvd.zip'
# Sector 645, program filename = 'KFAM3907' 0010 REM KFAM3907, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0022 SELECT @PART"KFAM" : ERRORLOAD T"ISS.217S"10,0BEG 24 0024 %THIS MUST BE LINE 24 0130 GOTO 4000 2445 T6=MOD(VAL(STR(T$(2),4),2)+VAL(STR(T$(2),12)),65536) : DSKIP #T2,T6S : GOSUB '218(V7$(T9),T2,V9$,0) : LIMITS T#T2,V7$(T9),Q2,T,T3 : T=T-1 : T0$()=HEX(A0FD)&T$() : DATA SAVE BA T$#T2,(T)T0$() : DATA LOAD DC OPEN T#T2,V7$(T9) : RETURN 4000 DIM E0$(4)64,T6$1,B$2,B9$2 : IF E=1THEN 4450 : IF O2<3THEN 4450 : IF Q$="N"THEN 4060 : STR(T$(3),S2*3-2,3)=STR(Q2$)&BIN(V5) 4060 $PACK(F=H1$)T$(2)FROMT0,T2$,Q2$,V2$,T8,V6$,V3$,Q3$,V8$ : DATA SAVE DA T$#D2,(V0$)0,T$() : V9$=V0$ADDCV2$ADDCHEX(01) : T0$(1)=HEX(A0FDFDFD) : DATA SAVE BA T$#D2,(V9$)T0$() : LIMITS T#D2,N4$,X,Y,Z : STR(T0$(1),2,2)=V2$ADDCHEX(03) : DATA SAVE BA T$#D2,(Y)T0$() : IF O7$="S"THEN 4450 : DATA LOAD DC OPEN T#D1,N3$ : T2=D1 : V7$(1)=N3$ : GOSUB 2445 : IF O6$<>"C"THEN 4450 4300 PRINT AT(0,0);"REORGANIZE -- PART 3 ( STATION ";S2;")" : B$=B1$ : V9$,B9$=B3$ : ADDC(V9$,Q2$) : ADDC(V9$,V6$) 4350 DATA LOAD BA T#3,(B9$,B9$)E0$() : DATA SAVE BA T$#1,(B$,B$)E0$() : IF B9$<V9$THEN 4350 : T2=1 : DATA LOAD DC OPEN T#1,N1$ : V7$(1)=N1$ : GOSUB 2445 4450 IF O2=0THEN 4470 : ON HGOTO 4456,4460 : SELECT @PART"KFAMCOM" 4456 @T$(V6)=ALL(FF) : SELECT @PART"KFAM" 4460 GOSUB '219(N1$,1,S2,P1$,0) 4470 IF O4=0THEN 4510 : GOSUB '219(N3$,3,S2,P3$,0) 4510 COM CLEAR N1$ : IF E=1THEN 4660 : IF O2<3THEN 4640 : IF N5$=" "THEN 4670 : IF O5$="X"THEN 4610 : GOSUB 4710 : PRINTUSING 4580,N5$,P5$ 4580 %MOUNT DISK CONTAINING PROGRAM ######## ON DEVICE ######## 4590 PRINT "KEY RETURN(EXEC) TO RESUME" : INPUT T6$ 4610 PRINT HEX(03) : LOAD DC T#5,N5$ 4640 GOSUB 4710 : PRINT "OPERATOR INTERRUPT" 4660 STOP 4670 GOSUB 4710 : PRINT "END OF PROGRAM" : STOP 4710 PRINT AT(0,0);TAB(80);TAB(80);TAB(80) : RETURN