Listing of file='bendmenu' on disk='vmedia/701-2721C.wvd.zip'
# Sector 646, program filename = 'bendmenu'
1000 DEFFN'100(S9$,S0$)
: REM Display and Accept BENDMENU (VER 5.15)
1001 S4=1
: S3=01
: S2=0
: S1=0
: T0$=" "
: RESTORE LINE1015
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 01
: ON T4GOSUB 1010
: 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=26
: RESTORE LINE1010
: FOR I=1TO 04
: READ STR(T1$(),(I-1)*I3+1)
: NEXT I
: GOSUB '126(07,28,01,04,01,004,T1$(),S0$,"\A5",Q,T9," ")
: Q=T0
: RETURN
1011 DATA "Execute a Saved Definition","Edit a Saved Definition","List a Saved
Definition","Delete a Saved Definition"
1015 DATA 01,07,00,"DATAMERGE Saved Definition Utility - Access Definitions"
: DATA 05,09,00,"Select an operation"
: DATA 22,50,00,"EXEC/RUN"
: DATA 22,62,00,"to Select operation"
: DATA 23,50,00,"CANCEL/EDIT to Return"
: DATA 02,01,99,HEX(004F)
: DATA 20,01,99,HEX(004F)
: DATA 0,0,0," "