

DIMENSION TOP(3,2)
TOP(1,1)="FILE"
TOP(1,2)="EDIT"
TOP(2,1)="DATA"
TOP(2,2)="FILE SELECT"
TOP(3,1)="DATA SELECT"
DIMENSION FIL(7)
FIL(1)="NEW"
FIL(2)="OPEN"
FIL(3)="CLOSE"
FIL(4)="/-"
FIL(5)="SAVE"
FIL(6)="PRINT"
FIL(7)="QUIT"
DIMENSION EDI(5)
EDI(1)="COPY"
EDI(2)="FIND"
EDI(3)="REPLACE"
EDI(4)="UNDO"
EDI(5)="CLEAR"
DIMENSION= DATA(9)
DATA(1)="BROWSE"
DATA(2)="APPPEND"
DATA(3)="SORT"
DATA(4)="JOIN"
DATA(5)="/"
DATA(6)="TOTAL"
DATA(7)="AVERAGE"
DATA(8)="COUNT"
DATA(9)="SUM"
MENU BAR TOP3
MENU 1,FIL,7,4
MENU 2,EDI,5,5
MENU 3,DATA,9,5
ROW=1
COL=1
READ MENU BAR TO ROW,COL SAVE
