home *** CD-ROM | disk | FTP | other *** search
- /***************************************/
- /* Copyrighted by Custom Services 1986 */
- /***************************************/
- #include <exec/types.h>
- #include <intuition/intuition.h>
-
- struct IntuiText IText[] =
- {
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Open"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Save"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Print"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "About"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Custom Services"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "This Program"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Interest"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "IRA"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Insurance"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Investments"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Capital Protection"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Income Providing"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Growth in value"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Marginal Tax Rate"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Credit Limits"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "financing"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Basic Shelters"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "After Tax Returns"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Tax Free/Taxable"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Cost of Investing"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Traps"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Balance Sheet"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Income Statement"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Retained Earnings"},
- { 0, 1, JAM2, CHECKWIDTH, 0, NULL, "Funds"}
- };
-
- #define EXTRA CHECKWIDTH
- #define FLAGSA CHECKIT|ITEMTEXT|MENUTOGGLE|ITEMENABLED
- #define FLAGSB CHECKIT|ITEMTEXT|MENUTOGGLE|ITEMENABLED|COMMSEQ
-
- struct MenuItem M0I3[] =
- {
- {&M0I3[ 1], 84, 2,120+EXTRA, 10,FLAGSA,0,(APTR)&IText[ 4],NULL ,NULL,NULL},
- {NULL , 84, 12,120+EXTRA, 10,FLAGSA,0,(APTR)&IText[ 5],NULL ,NULL,NULL}
- };
-
- struct MenuItem M1I3[] =
- {
- {&M1I3[ 1],100, 2,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[10],NULL ,NULL,NULL},
- {&M1I3[ 2],100, 12,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[11],NULL ,NULL,NULL},
- {NULL ,100, 22,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[12],NULL ,NULL,NULL}
- };
-
- struct MenuItem M0[] =
- {
- {&M0[ 1], 0, 0,120+EXTRA, 10,FLAGSB,0,(APTR)&IText[ 0],NULL , 'O',NULL},
- {&M0[ 2], 0, 12,120+EXTRA, 10,FLAGSB,0,(APTR)&IText[ 1],NULL , 'S',NULL},
- {&M0[ 3], 0, 24,120+EXTRA, 10,FLAGSB,0,(APTR)&IText[ 2],NULL , 'P',NULL},
- {NULL , 0, 36,120+EXTRA, 10,FLAGSA,0,(APTR)&IText[ 3],NULL ,NULL,&M0I3[0]}
- };
-
- struct MenuItem M1[] =
- {
- {&M1[ 1], 0, 0,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[ 6],NULL ,NULL,NULL},
- {&M1[ 2], 0, 12,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[ 7],NULL ,NULL,NULL},
- {&M1[ 3], 0, 24,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[ 8],NULL ,NULL,NULL},
- {&M1[ 4], 0, 36,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[ 9],NULL ,NULL,&M1I3[0]},
- {NULL , 0, 48,144+EXTRA, 10,FLAGSA,0,(APTR)&IText[13],NULL ,NULL,NULL}
- };
-
- struct MenuItem M2[] =
- {
- {&M2[ 1], 0, 0,104+EXTRA, 10,FLAGSA,0,(APTR)&IText[14],NULL ,NULL,NULL},
- {NULL , 0, 12,104+EXTRA, 10,FLAGSA,0,(APTR)&IText[15],NULL ,NULL,NULL}
- };
-
- struct MenuItem M3[] =
- {
- {&M3[ 1], 0, 0,160+EXTRA, 10,FLAGSA,0,(APTR)&IText[16],NULL ,NULL,NULL},
- {&M3[ 2], 0, 12,160+EXTRA, 10,FLAGSA,0,(APTR)&IText[17],NULL ,NULL,NULL},
- {&M3[ 3], 0, 24,160+EXTRA, 10,FLAGSA,0,(APTR)&IText[18],NULL ,NULL,NULL},
- {&M3[ 4], 0, 36,160+EXTRA, 10,FLAGSA,0,(APTR)&IText[19],NULL ,NULL,NULL},
- {NULL , 0, 48,160+EXTRA, 10,FLAGSA,0,(APTR)&IText[20],NULL ,NULL,NULL}
- };
-
- struct MenuItem M4[] =
- {
- {&M4[ 1], 0, 0,136+EXTRA, 10,FLAGSA,0,(APTR)&IText[21],NULL ,NULL,NULL},
- {&M4[ 2], 0, 12,136+EXTRA, 10,FLAGSA,0,(APTR)&IText[22],NULL ,NULL,NULL},
- {&M4[ 3], 0, 24,136+EXTRA, 10,FLAGSA,0,(APTR)&IText[23],NULL ,NULL,NULL},
- {NULL , 0, 36,136+EXTRA, 10,FLAGSA,0,(APTR)&IText[24],NULL ,NULL,NULL}
- };
-
- struct Menu TheMenu[] =
- {
- {&TheMenu[ 1], 0, 0,120+EXTRA, 10,MENUENABLED," Project ",&M0[0]},
- {&TheMenu[ 2],152, 0,144+EXTRA, 10,MENUENABLED," Planning ",&M1[0]},
- {&TheMenu[ 3],328, 0,104+EXTRA, 10,MENUENABLED," Loans ",&M2[0]},
- {&TheMenu[ 4],464, 0,160+EXTRA, 10,MENUENABLED," Inflation/Taxes,, ",&M3[0]},
- { NULL ,656, 0,136+EXTRA, 10,MENUENABLED," Your Data ",&M4[0]}
- };
-
- struct Menu *MyMenu = &TheMenu[0];