Listing of file='enterdef' on disk='vmedia/701-2721C.wvd.zip'
# Sector 657, program filename = 'enterdef'
2000 DEFFN'200(S9$,S0$)
: REM Display and Accept ENTERDEF (VER 5.15)
2001 S4=1
: S3=01
: S2=0
: S1=0
: T0$=" "
: RESTORE LINE2015
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 01
: ON T4GOSUB 2010
: NEXT T4
: T9=-1
: T3=S4
2006 ON T3GOSUB 2010
: 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(15,46,20,01,21,001,X$,S0$,"X",1,T9,"1....67")
: X$=T1$()
: RETURN
2015 DATA 15,12,00,"Please enter the definition name"
: DATA 22,48,00,"EXEC/RUN"
: DATA 22,60,00,"to Initiate operation"
: DATA 23,48,00,"CANCEL/EDIT to Reselect operation"
: DATA 0,0,0," "