Listing of file='LONINT.BAS;01' on disk='vmedia/utility-sector.ccvf'
5 PLOT 12 10 PRINT "INTEREST CALCULATOR" 20 FOR D= 1TO 1000:NEXT D 30 PRINT 40 INPUT "HOW MUCH MONEY ON LOAN? ";A 50 INPUT "AT WHAT INTEREST RATE? ";B 60 INPUT "FOR WHAT DURATION OF YEARS? ";C 70 D= A* (B/ 100)* C 80 E= D+ A 90 FOR X= 1TO 1000:NEXT X 95 PRINT 100 PRINT "THE INTEREST ON $";A;" FOR";C;" YEARS AT";B;" %" 110 PRINT "WOULD BE $";D;" MAKING A TOTAL OF $";E;"." 130 FOR X= 1TO 1000:NEXT X 140 END