Code:

DIM Number(15), Income(15), Persons(15)'**************************** PROGRAM MAINLINE ******************************GOSUB InitializerPrintImagesgosub printheadingsgosub processdetailend'************************* INITIALIZE PRINT IMAGES **************************InitializerPrintImages:TITLE1$ = "ID Number      Annual Income      Number of Persons"a1$ = "####               ######         ##               "return'*************************PRINT HEADINGS********************************PrintHeadings:print title1$return'******************Process Detail*********************processdetail:gosub loadtabledo until Number = END    gosub displaytable    gosub loadtableloopreturn   '*****************************load table*************************************8loadtable:for s = 1 to 14    READ Number(s),Income(s),Persons(s)next sdata 2497,12500,2data 3323,13000,5data 4521,18210,4data 6789,8000,2data 5476,6000,1data 4423,16400,3data 6587,25000,4data 3221,10500,4data 5555,15000,2data 0085,19700,3data 3097,20000,8data 4480,23400,5data 0265,19700,2data 8901,13000,3data end, end, endreturn'*********************DISPLAYTABLE**************************************displaytable:print using a1$;Number(s),Income(s),Persons(s)return