Listing of file='listndf2' on disk='vmedia/701-2721C.wvd.zip'
# Sector 666, program filename = 'listndf2'
1000 DEFFN'100(S9$,S0$)
: REM Display and Accept LISTNDF2 (VER 5.15)
1001 S4=1
: S3=01
: S2=0
: S1=0
: T0$=" "
: RESTORE LINE1020
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 02
: ON T4GOSUB 1010,1015
: NEXT T4
: T9=-1
: T3=S4
1006 ON T3GOSUB 1010
: ON R1GOTO ,,,,1008,1009
: RETURN
1008 T3=MOD(T3+1,S3+1)
: IF T3=0THEN T3=S4
: GOTO 1006
1009 T3=MOD(T3-1,S3+1)
: IF T3<S4THEN GOTO 1009
: GOTO 1006
1010 I3=20
: GOSUB '126(08,13,01,10,34,S1(1),Y$(),S0$,"\A5",Q,T9," ")
: Q=T0
: RETURN
1015 RETURN
1020 DATA 05,01,00,"Select a definition"
: DATA 22,43,00,"EXEC/RUN"
: DATA 22,56,00,"to Select and Return"
: DATA 23,43,00,"CANCEL/EDIT to Return"
: DATA 0,0,0," "