Dim Strip$(50)
Restore Men1
For I=0 To 50
  Read Strip$(I)
  Exit If Strip$(I)="***"
Next I
Strip$(I)=""
Strip$(I+1)=""
Men1:
Data Desk ,  About Disk Mgr... ,---------------------,1,2,3,4,5,6,""
Data Disk ,  Read Contents... ,  New Contents... ,  Up-Date Contents... ,""
Data Print ,  Print to Disk... ,  Print to Printer... ,  Print Lable... ,""
Data Misc ,  Help!!! ,  Install Printer... ,  *** QUIT *** ,""
Data ***
'
Attr=Windtab+2
Xpos=Windtab+4
Ypos=Windtab+6
Width=Windtab+8
Height=Windtab+10
Titlew 1,"Table of Contents"
Dpoke Attr,&HFFF
Fullw 1
Clearw 1
'
Menu Strip$()
' Menu 30,2
' Menu 35,2
' Menu 15,2
' Menu 16,2
' Menu 18,2
' Menu 19,2
' Menu 24,2
' Menu 25,2
' Menu 26,2
' Menu 27,2
'
On Menu  Gosub Dropdown
On Menu Message Gosub Mess
On Menu Key Gosub Key
Do
  On Menu
Loop
'
Procedure Dropdown
  If Menu(0)=1
    Alert 0,"~~~~~ Disk Mgr ~~~~~| Table of Contents: |By:Kenneth D.Klaman",1,"Go!",A
  Else
    Print "menu selection: ";
    Print Menu(0),Strip$(Menu(0))
    If Strip$(Menu(0))="  *** QUIT *** "
      End
    Endif
  Endif
  Menu Off
Return
'
Procedure Mess
  Print "message: ";Menu(1)
Return
'
Procedure Key
  Print Chr$(Dpeek(Gintout+10) And &HFF);
Return
'