Listing of file='DFA.UCAM' on disk='vmedia/701-2720C.wvd.zip'
# Sector 684, program filename = 'DFA.UCAM' 6050 REM DFA.UCAM, RELEASE X03, (OCT 10, 81) UNIVERSAL CALL TO ACCESS METHOD 6051 DEFFN'247(N3$,N5$,N7$(1),N7$(2),N7$(3)) : MAT SEARCH"OP,CL,ST,DE,MO,FE,FI",=N7$(3)TO N6$()STEP 3 : IF N6$(1)=HEX(0000)THEN 6072 : J1$="DFA."&N7$(3) : IF N7$(3)<>N7$(4)THEN LOAD T#0,J1$6100,6299 : RETURN CLEAR : GOTO 6099 6072 N4(1)=0 : N4(2)=9004 : GOTO 6098 6098 GOTO 6000 6099 %A$="DFA.UCAM":SCRATCHTA$:SAVET()A$6050,6099:PRINTA$;" UPDATED"