Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/equity-sector.ccvf'

100 REM  ** EQUITY MENU DEC 21,1978 **
110 PLOT 29,14,6,2,12,27,11,3,11,0
120 PRINT "C O M P U C O L O R   C O R P O R A T I O N"
130 PLOT 3,18,2,6,40
140 PRINT " E Q U I T Y    P R O G R A M ":PLOT 6,2,15
150 PRINT "EQUITY CONSISTS OF TWO BASIC PROGRAMS WHICH WILL CALCULATE"
160 PRINT "DEPRECIATION AND CAPITALIZED COST OF ASSETS.  SEE THE"
170 PRINT "DOCUMENTATION FOR DETAILED INSTRUCTIONS ON THEIR USE.  THE"
180 PRINT "FOLLOWING CALCULATIONS MAY BE PERFORMED:"
190 PRINT :PRINT
200 PLOT 14:PRINT "1 - DEPRECIATION PROGRAM":PLOT 15
210 PRINT "      A. STRAIGHT-LINE METHOD"
220 PRINT "      B. DOUBLE-DECLINING BALANCE METHOD"
230 PRINT "      C. CONSTANT PERCENTAGE METHOD"
240 PRINT "      D. SUM-OF-THE-DIGITS METHOD"
250 PRINT "      E. SINKING FUND METHOD":PRINT :PRINT
260 PLOT 14:PRINT "2 - CAPITALIZATION PROGRAM":PLOT 15
270 PRINT "      A. PERIODIC CHARGES OF AN ASSET"
280 PRINT "      B. CAPITALIZED COST OF AN ASSET"
290 PRINT "      C. SOLVE FOR ANY VALUE IN THE CAPITALIZATION EQUATION"
300 PRINT "      D. COMPARE UP TO THREE ALTERNATIVE ASSETS"
310 PLOT 14,6,3,3,0,30
320 INPUT "ENTER NUMBER OF PROGRAM DESIRED AND HIT RETURN KEY ";P
330 ON PGOTO 350,360
340 PLOT 28,11:GOTO 320
350 LOAD "DEP":RUN
360 LOAD "CAPT":RUN