home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 29 / applic / scroog.bas < prev    next >
Encoding:
BASIC Source File  |  1985-11-19  |  5.1 KB  |  146 lines
  1. 20    COLOR 3,1,1,1,1
  2. 30    FULLW 2:CLEARW 2:GOTOXY 0,0
  3. 40    ?"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  4. 50    FOR I=1 TO 5
  5. 60    ?"$$$                                                             $$$"
  6. 70    NEXT I
  7. 80    ?"$$$                      SCROOGE ver. 6.1                       $$$"
  8. 90    ?"$$$                                                             $$$"
  9. 100   ?"$$$                  Monthly Financial Planner                  $$$"
  10. 110   FOR I=1 TO 5
  11. 120   ?"$$$                                                             $$$"
  12. 130   NEXT I
  13. 140   ?"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  14. 145   GOSUB 1900
  15. 150   INPUT "Hit 'ENTER' to continue...";M$
  16. 160   COLOR 1,0
  17. 190   FULLW 2:CLEARW 2:GOTOXY 0,0
  18. 200   INPUT "What is today's date?"; D$
  19. 210   INPUT "How many bills this time?";N
  20. 220   DIM A$ (N-1),O(N-1),IN(N-1),P(N-1),BL(N-1)
  21. 230   defdbl T,H,F
  22. 240   CLEARW 2: FULLW 2
  23. 300   FOR I=0 TO N-1
  24. 305   GOTOXY 0,0
  25. 310   ? "For account number ";I+1
  26. 320   INPUT "Name?";A$(I)
  27. 330   INPUT "Amount owed?";O(I)
  28. 340   INPUT "Interest billed?";IN(I)
  29. 350   INPUT "Amount paid?";P(I)
  30. 360   BL(I)=O(I)-P(I)
  31. 370   CLEARW 2: NEXT I
  32. 380   GOTOXY 0,0:INPUT "What is the house debt?";HD
  33. 390   INPUT "What is the house payment?";HP
  34. 400   INPUT "How much interest?";HI
  35. 410   HB=HD-HP
  36. 420   CLEARW 2:? "Processing array..."
  37. 500   TD=0:TI=0:TP=0:TB=0
  38. 510   For S=0 to N-1
  39. 520   TD=TD+O(S):TI=TI+IN(S):TP=TP+P(S):TB=TB+BL(S)
  40. 530   NEXT S
  41. 540   FO=TD+HD:FI=TI+HI:FP=TP+HP:FB=TB+HB
  42. 700   CLEARW 2:GOTOXY 0,0
  43. 710   ? "Account";:PRINT TAB (23) "Owed  Interest      Paid   Balance"
  44. 720   FOR S=0 TO N-1
  45. 730   ? A$(S);:PRINT TAB (17);:PRINT USING "#######.##";O(S),IN(S),P(S)           BL(S)
  46. 800   NEXT S
  47. 810   ? SPC(18);"--------  --------  --------  --------"
  48. 820   ?"TOTALS";:PRINT TAB (17);:PRINT USING "$$#####.##"; TD,TI,TP,TB
  49. 830   ? "HOUSE";:PRINT TAB (17);:PRINT USING "#######.##";HD,HI,HP,HB
  50. 840   ? SPC(18);"--------  --------  --------  --------"
  51. 850   ? "GRAND TOTALS";:PRINT SPC(4);:PRINT USING "$$#####.##";FO,FI,FP,FB
  52. 1000  INPUT "Hit 'Enter' to continue...";M$
  53. 1010  CLEARW 2:GOTOXY 0,0
  54. 1020  ?"Do you want to:"
  55. 1030  ?"See the table again?   <T>"
  56. 1040  ?"Change an entry?       <C>"
  57. 1050  ?"Print the table?       <P>"
  58. 1060  ?"End the program?       <E>"
  59. 1070  INPUT C$
  60. 1100  IF C$="T" THEN 700
  61. 1110  IF C$="C" THEN 1200
  62. 1120  IF C$="P" THEN 1600
  63. 1130  IF C$="E" THEN GOSUB 1900 ELSE GOTO 1010
  64. 1135  END
  65. 1200  CLEARW 2:GOTOXY 0,0:INPUT "Enter name of account to be changed...";A1$
  66. 1210  FOR S=0 TO N-1
  67. 1220  IF A$(S)=A1$ THEN 1270
  68. 1230  NEXT S
  69. 1240  ?"Account not found..."
  70. 1250  INPUT "Hit 'Enter' to continue...";M$:GOTO 1010
  71. 1270  CLEARW 2:GOTOXY 0,0
  72. 1280  ? "For ";A$(S);" the current listing is:"
  73. 1290  ? "Owed  ";O(S)
  74. 1300  ? "Interest  ";IN(S)
  75. 1310  ? "Paid  ";P(S)
  76. 1320  ? "Balance   ";BL(S)
  77. 1330  ?:? "Do you want to change:"
  78. 1340  ?"The title?        <T>"
  79. 1345  ?"The amount owed   <O>"
  80. 1350  ?"The amount paid   <P>"
  81. 1360  ?"Interest?         <I>"
  82. 1370  INPUT CH$:IF CH$="T" THEN 1400
  83. 1380  IF CH$="P" THEN 1420
  84. 1390  IF CH$="O" THEN 1440
  85. 1395  IF CH$="I" THEN 1460 ELSE GOTO 1270
  86. 1400  INPUT "What is the new title?", A$(S)
  87. 1410  GOTO 1500
  88. 1420  INPUT "What is the new payment?", P(S)
  89. 1430  GOTO 1500
  90. 1440  INPUT "What is the new amount owed?", O(S)
  91. 1450  GOTO 1500
  92. 1460  INPUT "What is the new interest amount?",IN(S)
  93. 1470  GOTO 1500
  94. 1500  CLEARW 2:GOTOXY 0,0:?"Here is the new listing:"
  95. 1505  BL(S)=O(S)-P(S)
  96. 1510  ?"Title:   ";A$(S)
  97. 1520  ?"Owed:    ";O(S)
  98. 1530  ?"Interest ";IN(S)
  99. 1540  ?"Paid:    ";P(S)
  100. 1550  ?"Balance  ";BL(S)
  101. 1560  ?"Is this correct?   <Y/N>"
  102. 1570  INPUT CH$: IF CH$="Y" THEN GOTO 500
  103. 1580  GOTO 1270
  104. 1600  'LPRINT section
  105. 1610  FOR I=1 TO 4:LPRINT:NEXT I
  106. 1620  LPRINT TAB(35) "THE SCORE"
  107. 1630  LPRINT TAB(36) D$
  108. 1640  LPRINT:LPRINT
  109. 1650  LPRINT "Account";:LPRINT TAB(23) "Owed  Interest      Paid   Balance"
  110. 1660  FOR S=0 TO N-1
  111. 1670  LPRINT A$(S);:LPRINT TAB(17);:LPRINT USING "#######.##";O(S),IN(S),P(S),BL(S)
  112. 1680  NEXT S
  113. 1690  LPRINT TAB(19) "--------  --------  --------  --------"
  114. 1700  LPRINT "TOTALS";:LPRINT TAB (17);:LPRINT USING "$$#####.##";TD,TI,TP,TB
  115. 1710  LPRINT "HOUSE";:LPRINT TAB (17);:LPRINT USING "#######.##";HD,HI,HP,HB
  116. 1720  LPRINT TAB(19) "--------  --------  --------  --------"
  117. 1730  LPRINT "GRAND TOTALS";:LPRINT SPC(4);:LPRINT USING "$$#####.##";FO,FI,FP,FB
  118. 1740  LPRINT:LPRINT:LPRINT "Scrooge v6.0"
  119. 1750  GOTO 1010
  120. 1900  FOR M=1 TO 2
  121. 2000  SOUND 1,12,5,4,8
  122. 2010  SOUND 1,12,8,4,14
  123. 2020  SOUND 1,12,5,4,8
  124. 2030  SOUND 1,12,6,4,10
  125. 2040  SOUND 1,12,8,4,15
  126. 2045  FOR D=1 TO 90:NEXT
  127. 2050  NEXT
  128. 2060  FOR D=1 TO 90:NEXT
  129. 2070  SOUND 1,12,5,5,10
  130. 2075  SOUND 1,0,0,0,0
  131. 2080  SOUND 1,12,5,5,10
  132. 2085  SOUND 1,0,0,0,0
  133. 2090  SOUND 1,12,5,5,10
  134. 2100  SOUND 1,12,3,5,10
  135. 2110  SOUND 1,12,1,5,10
  136. 2120  SOUND 1,12,3,5,10
  137. 2130  SOUND 1,12,1,5,10
  138. 2140  SOUND 1,12,5,5,10
  139. 2150  SOUND 1,12,1,5,10
  140. 2160  SOUND 1,0,0,0,0
  141. 2170  SOUND 1,12,1,5,10
  142. 2180  SOUND 1,12,3,5,10
  143. 2190  SOUND 1,12,1,5,16
  144. 2200  SOUND 1,0,0,0,0
  145. 2210  RETURN
  146. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə