MenuCall:LOCAL M%,A%(3)
REM Rename this procedure to suit you needsREM Martin Reid January 2024
TOP::DOKSTAT 1 :REM Upper Alpha M%=MENUN(2,"Back,Diary,Notes,xFiles,Save,Utils,Find,Quit,Off") IF M%<2 :RETURN :REM ON/CLEAR & Back ELSEIF M%=3 :GOTO TPDiary:: ELSEIF M%=4 :GOTO TPNotes:: ELSEIF M%=5 :GOTO TPxFiles:: ELSEIF M%=6 :GOTO TPSave:: ELSEIF M%=7 :GOTO TPUtils:: ELSEIF M%=8 :GOTO TPFind:: ELSEIF M%=9 :STOP :REM Could be RETURN ELSEIF M%=10 :OFF ENDIFUNTIL M%=-1
GOTO TOP::REM Could be RETURN
TPDiary::A%(1)=$C601 :rem 1=Week, 3=MonthA%(2)=$3FA7A%(3)=$3901USR(ADDR(A%()),0)CLSGOTO TOP::
TPNotes::A%(1)=$C601A%(2)=$3F9FA%(3)=$3901USR(ADDR(A%()),0)CLSGOTO TOP::
TPxFiles::A%(1)=$C601 :REM 1=xFiles, 4=Find, 5=SaveA%(2)=$3FA8A%(3)=$3901USR(ADDR(A%()),0)CLSGOTO TOP::
TPSave::A%(1)=$C605 :REM 1=xFiles, 4=Find, 5=SaveA%(2)=$3FA8A%(3)=$3901USR(ADDR(A%()),0)CLSGOTO TOP::
TPUtils::A%(1)=$C601 :rem 1=Utils, 3=Info, 9=DirA%(2)=$3FA1A%(3)=$3901USR(ADDR(A%()),0)CLSGOTO TOP::
TPFind::A%(1)=$C604 :REM 1=xFiles, 4=Find, 5=SaveA%(2)=$3FA8A%(3)=$3901USR(ADDR(A%()),0)CLSGOTO TOP::