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