image of READY prompt

Wang2200.org

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"