Code:

'************Mainline*********clsgosub InitializeVariablegosub printheadingsgosub ProcessDetailgosub printtotalsend'**************************SET UP CONSTANTS***************************InitializeVariable:PAGE.HEADING$ = "                    REPORT TITLE                 PAGE ##"DETAIL.HEAD.1$ = "type          size      rate      charter    revenue"DETAIL.type$ = "  \            \ SUBTOTAL          ###        $#####.## "DETAIL.TOTAL$ = "   \TOTAL REVENUE FOR HOURS CHARTERED\  ###.#"a1$ = "\            \###       ###        ###        $#####.##"rt$ = "                  Report Total       ##,###"RETURN'**********************READ IN VARIABLE INFORMATION FROM DATA STATEMENTS***********************PrintHeadings:PAGE = PAGE + 1PRINT USING PAGE.HEADING$;PagePRINTPRINT DETAIL.HEAD.1$PRINTRETURN'******************Process Detail*********************processdetail:gosub readdatado until Type$ = "EOD"    gosub printdetail    gosub calcsubtotal    typesave$ = TYPE$    gosub readdata    if TypeSave$ <> Type$ then        gosub printsubtotals    end ifloopreturn'***********************  READ COURSE DATA  *******************************ReadData:READ type$, size, rate, charter, revenueRETURN'*******************DATA STATEMENTS*************************DATA RANGER,22,95.00,24DATA RANGER,22,69.00,12DATA WAVELENGTH,24,69.00,6DATA WAVELENGTH,24,69.00,12DATA CATALINA,27,160.00,24DATA CATALINA,27,99.00,6DATA CATALINA,30,190.00,12DATA CATALINA,30,225.00,24DATA CORONADO,32,230.00,24DATA HOBIE,33,192.00,33DATA HOBIE,33,235.00,24DATA HOBIE,33,137.00,6DATA HOBIE,33,235.00,24DATA C & C,34,290.00,24DATA C & C,34,175.00,6DATA CATALINA,36,185.00,6DATA CATALINA,36,320.00,24DATA HANS CHRISTIAN,38,250.00,6DATA EXCALIBER,45,550.00,24DATA EXCALIBER,45,295.00,6DATA EOD,0,0,0'*******************PrintDetail**************************PrintDetail:REVENUE = RATE * CHARTERprint using a1$; type$, size,rate,charter,revenueRETURN'*******************Calc SubTotal************************CalcSubTotal:calsubchar = calsubchar + CHARTERtot.revenue = tot.revenue + REVENUEreturn'*********************PRINT SUBTOTALS**************PrintSubtotals:PRINTPRINT USING DETAIL.type$;typesave$,calsubchar,tot.revenueprintchartot = chartot + calsubcharcalsubchar = 0LINECT = LINECT + 3typesave$ = TYPE$RETURN'*******************Print Totals****************************PrintTotals:print using Rt$;CharTotRETURN