UBYTE UNDOBUFFER[20]; UBYTE YearsGadSIBuff[20]; struct StringInfo YearsGadSInfo = { YearsGadSIBuff, UNDOBUFFER, 0, 20, 0, 0,0,0,0,0, 0, 0, NULL }; SHORT BorderVectors1[] = { 0,0, 89,0, 89,21, 0,21, 0,1 }; struct Border Border1 = { -2,-7, 3,0,COMPLEMENT, 5, BorderVectors1, NULL }; struct Gadget YearsGad = { NULL, 98,116, 86,20, NULL, RELVERIFY+STRINGRIGHT+LONGINT, STRGADGET, (APTR)&Border1, NULL, NULL, NULL, (APTR)&YearsGadSInfo, NULL, NULL }; UBYTE DepositGadSIBuff[20]; struct StringInfo DepositGadSInfo = { DepositGadSIBuff, UNDOBUFFER, 0, 20, 0, 0,0,0,0,0, 0, 0, NULL }; SHORT BorderVectors2[] = { 0,0, 89,0, 89,21, 0,21, 0,1 }; struct Border Border2 = { -2,-7, 3,0,COMPLEMENT, 5, BorderVectors2, NULL }; struct Gadget DepositGad = { &YearsGad, 98,86, 86,20, NULL, RELVERIFY+STRINGRIGHT, STRGADGET, (APTR)&Border2, NULL, NULL, NULL, (APTR)&DepositGadSInfo, NULL, NULL }; UBYTE InterestGadSIBuff[20]; struct StringInfo InterestGadSInfo = { InterestGadSIBuff, UNDOBUFFER, 0, 20, 0, 0,0,0,0,0, 0, 0, NULL }; SHORT BorderVectors3[] = { 0,0, 89,0, 89,21, 0,21, 0,1 }; struct Border Border3 = { -2,-7, 3,0,COMPLEMENT, 5, BorderVectors3, NULL }; struct Gadget InterestGad = { &DepositGad, 98,56, 86,20, NULL, RELVERIFY+STRINGRIGHT, STRGADGET, (APTR)&Border3, NULL, NULL, NULL, (APTR)&InterestGadSInfo, NULL, NULL }; SHORT BorderVectors4[] = { 0,0, 92,0, 92,18, 0,18, 0,0 }; struct Border Border4 = { -2,-1, 2,0,JAM1, 5, BorderVectors4, NULL }; struct TextAttr TOPAZ80 = { (STRPTR)"topaz.font", TOPAZ_EIGHTY,0,0 }; struct IntuiText IText1 = { 1,0,JAM2, 9,5, &TOPAZ80, (UBYTE *)"Calculate", NULL }; struct Gadget CalcGad = { &InterestGad, 53,146, 89,17, NULL, RELVERIFY, BOOLGADGET, (APTR)&Border4, NULL, &IText1, NULL, NULL, NULL, NULL }; UBYTE BalanceGadSIBuff[20]; struct StringInfo BalanceGadSInfo = { BalanceGadSIBuff, UNDOBUFFER, 0, 20, 0, 0,0,0,0,0, 0, 0, NULL }; SHORT BorderVectors5[] = { 0,0, 89,0, 89,21, 0,21, 0,1 }; struct Border Border5 = { -2,-7, 3,0,COMPLEMENT, 5, BorderVectors5, NULL }; struct Gadget BalanceGad = { &CalcGad, 98,26, 86,20, NULL, RELVERIFY+STRINGRIGHT, STRGADGET, (APTR)&Border5, NULL, NULL, NULL, (APTR)&BalanceGadSInfo, NULL, NULL }; #define GadgetList1 BalanceGad struct IntuiText IText2 = { 3,1,COMPLEMENT, 0,0, NULL, (UBYTE *)"Quit", NULL }; struct MenuItem MenuItem6 = { NULL, 0,45, 80,8, ITEMTEXT+ITEMENABLED+HIGHCOMP, 0, (APTR)&IText2, NULL, NULL, NULL, MENUNULL }; struct IntuiText IText3 = { 3,1,COMPLEMENT, 0,0, NULL, (UBYTE *)"About", NULL }; struct MenuItem MenuItem5 = { &MenuItem6, 0,36, 80,8, ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP, 0, (APTR)&IText3, NULL, 'A', NULL, MENUNULL }; struct IntuiText IText4 = { 3,1,COMPLEMENT, 0,0, NULL, (UBYTE *)"Help", NULL }; struct MenuItem MenuItem4 = { &MenuItem5, 0,27, 80,8, ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP, 0, (APTR)&IText4, NULL, 'H', NULL, MENUNULL }; struct IntuiText IText5 = { 3,1,COMPLEMENT, 0,0, NULL, (UBYTE *)"Print", NULL }; struct MenuItem MenuItem3 = { &MenuItem4, 0,18, 80,8, ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP, 0, (APTR)&IText5, NULL, 'P', NULL, MENUNULL }; struct IntuiText IText6 = { 3,1,COMPLEMENT, 0,0, NULL, (UBYTE *)"Save", NULL }; struct MenuItem MenuItem2 = { &MenuItem3, 0,9, 80,8, ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP, 0, (APTR)&IText6, NULL, 'S', NULL, MENUNULL }; struct IntuiText IText7 = { 3,1,COMPLEMENT, 0,0, NULL, (UBYTE *)"Load", NULL }; struct MenuItem MenuItem1 = { &MenuItem2, 0,0, 80,8, ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP, 0, (APTR)&IText7, NULL, 'L', NULL, MENUNULL }; struct Menu Menu1 = { NULL, 0,0, 75,0, MENUENABLED, "Project", &MenuItem1 }; #define MenuList1 Menu1 struct IntuiText IText11 = { 3,0,JAM2, 16,117, NULL, (UBYTE *)"Years", NULL }; struct IntuiText IText10 = { 3,0,JAM2, 16,88, NULL, (UBYTE *)"Deposit", &IText11 }; struct IntuiText IText9 = { 3,0,JAM2, 16,57, NULL, (UBYTE *)"Interest", &IText10 }; struct IntuiText IText8 = { 3,0,JAM2, 16,25, NULL, (UBYTE *)"Balance", &IText9 }; #define IntuiTextList1 IText8 struct NewWindow NewWindowStructure1 = { 71,19, 202,173, 0,1, GADGETUP+MENUPICK+CLOSEWINDOW, WINDOWDRAG+WINDOWDEPTH+WINDOWCLOSE, &BalanceGad, NULL, (UBYTE *)"IRA Calculator", NULL, NULL, 5,5, 640,200, WBENCHSCREEN };