Listing of file='benentry' on disk='vmedia/701-2721C.wvd.zip'
# Sector 652, program filename = 'benentry'
2000 DEFFN'200(S9$,S0$)
: REM Display and Accept BENENTRY (VER 6.00)
2001 S4=1
: S3=02
: S2=0
: S1=0
: T0$=" "
: RESTORE LINE2020
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 02
: ON T4GOSUB 2010,2015
: NEXT T4
: T9=-1
: T3=S4
2006 ON T3GOSUB 2010,2015
: ON R1GOTO ,,,,2008,2009
: RETURN
2008 T3=MOD(T3+1,S3+1)
: IF T3=0THEN T3=S4
: GOTO 2006
2009 T3=MOD(T3-1,S3+1)
: IF T3<S4THEN GOTO 2009
: GOTO 2006
2010 GOSUB '126(14,45,20,01,21,001,X$,S0$,"X",1,T9,"1.....7")
: X$=T1$()
: RETURN
2015 GOSUB '126(17,60,01,01,02,001,E$,S0$,"A",1,T9,"1....67")
: E$=T1$()
: RETURN
2020 DATA 01,42,00,"- List Existing Definitions"
: DATA 14,14,00,"Search characters for listing"
: DATA 17,15,00,"Do you wish to view definition descriptions?"
: DATA 0,0,0," "