Listing of file='MENU.BAS;02' on disk='vmedia/ncc_8_real-sector.ccvf'
5000 PLOT 6,2,12,15,29,3,24,1:PRINT "INVESTMENTS" 5010 PLOT 15,3,0,4:PRINT "REGULAR NOMINAL NUM. OF PERIOD FUTURE INITIAL PERIODS" 5020 PLOT 3,0,5:PRINT "DEPOSITS/ INTEREST DEPOSITS";SPC( 11);"VALUE AMOUNT PER" 5030 PLOT 3,0,6:PRINT "W/DRAWALS RATE OR WITHS";SPC( 19);"INVESTED YEAR" 5040 PLOT 3,19,7:PRINT "PER YEAR" 5050 PLOT 3,0,8:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeo " 5060 PLOT 3,0,9:PRINT "1 YES n YES n YES n YES n CALC n";SPC( 8);"n";SPC( 8);" b " 5070 PLOT 3,0,10:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 5080 PLOT 3,0,11:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 5090 PLOT 3,0,12:PRINT "2";SPC( 8);"n CALC n";SPC( 8);"n YES n YES n YES n YES b " 5100 PLOT 3,0,13:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 5110 PLOT 3,0,14:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 5120 PLOT 3,0,15:PRINT "3 CALC n YES n YES n YES n YES n";SPC( 8);"n";SPC( 8);" b " 5130 PLOT 3,0,16:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 5140 PLOT 3,0,17:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 5150 PLOT 3,0,18:PRINT "4 CALC n YES n YES n YES n";SPC( 8);"n YES n";SPC( 8);" b " 5160 PLOT 3,0,19:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 5170 PLOT 3,0,20:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 5180 PLOT 3,0,21:PRINT "5";SPC( 8);"n YES n";SPC( 8);"n YES n YES n CALC n YES b " 5190 PLOT 3,0,22:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 5200 PLOT 3,0,23:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 5210 PLOT 3,0,24:PRINT "6 WITH. n YES n WITH. n YES n";SPC( 8);"n CALC n";SPC( 8);" b " 5220 PLOT 3,0,25:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 5230 PLOT 3,0,26:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 5240 PLOT 3,0,27:PRINT "7";SPC( 8);"n CALC n";SPC( 8);"n YES n YES n YES n";SPC( 8);" b " 5250 PLOT 3,0,28:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 5260 PLOT 3,0,29:PRINT " eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee " 5270 PLOT 3,0,30:PRINT "ENTER SELECTION OR <RETURN> FOR NEXT PAGE: ";:INPUT "";A 5280 IF A> 7THEN PLOT 7,28,11:GOTO 5270 5290 IF A= 0THEN 6000 5300 IF A= 1THEN LOAD "FUVAL":RUN 5310 IF A= 2THEN LOAD "NOMINT":RUN 5320 IF A= 3THEN LOAD "REGDEP":RUN 5330 IF A= 4THEN LOAD "INVANN":RUN 5340 IF A= 5THEN LOAD "INTINV":RUN 5350 IF A= 6THEN LOAD "MININV":RUN 5360 IF A= 7THEN LOAD "EFFINT":RUN 6000 PLOT 6,2,12,15,29,3,25,1:PRINT "LOANS" 6010 PLOT 15,3,25,2:PRINT "-----" 6020 PLOT 3,0,4:PRINT "REGULAR ANNUAL NUM. OF PERIOD FINAL LOAN BALANCE" 6030 PLOT 3,0,5:PRINT "PAYMENTS INTEREST PAYMENTS";SPC( 11);"PAYMENT PRINCIPALREMAINING" 6040 PLOT 3,10,6:PRINT "RATE PER YEAR" 6050 PLOT 3,0,8:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeo " 6060 PLOT 3,0,9:PRINT "1 YES n YES n YES n YES n";SPC( 8);"n CALC n";SPC( 8);" b " 6070 PLOT 3,0,10:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 6080 PLOT 3,0,11:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 6090 PLOT 3,0,12:PRINT "2 CALC n YES n YES n YES n";SPC( 8);"n YES n";SPC( 8);" b " 6100 PLOT 3,0,13:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 6110 PLOT 3,0,14:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 6120 PLOT 3,0,15:PRINT "3 YES n YES n YES n YES n CALC n YES n";SPC( 8);" b " 6130 PLOT 3,0,16:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 6140 PLOT 3,0,17:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 6150 PLOT 3,0,18:PRINT "4 YES n YES n YES n";SPC( 8);"n YES n YES n CALC b " 6160 PLOT 3,0,19:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 6170 PLOT 3,0,20:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 6180 PLOT 3,0,21:PRINT "5 YES n CALC n YES n YES n";SPC( 8);"n YES n";SPC( 8);" b " 6190 PLOT 3,0,22:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 6200 PLOT 3,0,23:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 6210 PLOT 3,0,24:PRINT "6 YES n YES n YES n CALC n";SPC( 8);"n YES n";SPC( 8);" b " 6220 PLOT 3,0,25:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 6230 PLOT 3,0,26:PRINT " eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee " 6240 PLOT 3,0,30:PRINT "ENTER SELECTION OR <RETURN> FOR NEXT PAGE:";:INPUT "";A:IF A> 6THEN PLOT 28,11,7:GOTO 6240 6250 IF A= 0THEN 7000 6260 IF A= 1THEN LOAD "LNPRIN":RUN 6270 IF A= 2THEN LOAD "REGPAY":RUN 6280 IF A= 3THEN LOAD "LASPAY":RUN 6290 IF A= 4THEN LOAD "REMBAL":RUN 6300 IF A= 5THEN LOAD "ANNINT":RUN 6310 IF A= 6THEN LOAD "LNTERM":RUN 7000 PLOT 6,2,12,15,29,3,28,1:PRINT "DEPRECIATION" 7010 PLOT 15,3,10,4:PRINT "DEPRAT'N ORIGINAL DEPRAT'N YEAR OF RESIDUAL AGE" 7020 PLOT 3,10,5:PRINT "AMOUNT PRICE RATE DEPRAT'N VALUE" 7030 PLOT 3,10,6:PRINT "IN GIVEN" 7040 PLOT 3,10,7:PRINT "YEAR" 7050 PLOT 3,9,8:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeo " 7060 PLOT 3,0,9:PRINT "1. n CALC n YES n YES n YES n";SPC( 8);"n";SPC( 8);" b " 7070 PLOT 3,9,10:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 7080 PLOT 3,9,11:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 7090 PLOT 3,0,12:PRINT "2. n";SPC( 8);"n YES n CALC n";SPC( 8);"n YES n YES b " 7100 PLOT 3,9,13:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 7110 PLOT 3,9,14:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 7120 PLOT 3,0,15:PRINT "3. n";SPC( 8);"n YES n YES n";SPC( 8);"n CALC n YES b " 7130 PLOT 3,9,16:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 7140 PLOT 3,10,17:PRINT " eeeeeeee eeeeeeee eeeeeeee eeeeeeee eeeeeeee eeeeeeee " 7150 PLOT 3,32,19:PRINT "TABLES" 7160 PLOT 15,3,9,20:PRINT "n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 7170 PLOT 3,0,21:PRINT "4. n TERM n ANNUAL n LOAN n REGULAR n MONTHLY n";SPC( 8);" b " 7180 PLOT 3,9,22:PRINT "n";SPC( 8);"nINTERESTn PRIN. n PAYMENT n BRKDOWN n";SPC( 8);" b " 7190 PLOT 3,9,23:PRINT "n eeeeee e e n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeeeb " 7200 PLOT 3,0,24:PRINT "5. n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 7210 PLOT 3,9,25:PRINT "n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);"n";SPC( 8);" b " 7220 PLOT 3,2,26:PRINT "DISC'NTn eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee n eeeeeeee b " 7230 PLOT 3,0,27:PRINT "6.COMM'ALn FUTURE n DISC. nDAYS TO n DISCOUNT n NET COST n";SPC( 8);" b " 7240 PLOT 3,2,28:PRINT "PAPER n_VALUE__n_RATE___nMATURE__n________n________n________ b " 7250 PLOT 3,0,30:PRINT "ENTER SELECTION OR <RETURN> FOR NEXT PAGE:";:INPUT "";A:IF A> 6THEN PLOT 7,28,11:GOTO 7250 7260 IF A= 0THEN 8000 7270 IF A= 1THEN LOAD "DEPAMT":RUN 7280 IF A= 2THEN LOAD "DEPRAT":RUN 7290 IF A= 3THEN LOAD "SALVAL":RUN 7300 IF A= 4THEN LOAD "EARINT":RUN 7310 IF A= 5THEN LOAD "INTRST":RUN 7320 IF A= 6THEN LOAD "COMPAP":RUN 8000 PLOT 6,2,12,15,29,3,26,5:PRINT "SUNDRY" 8010 PLOT 15,3,26,6:PRINT "------" 8020 PLOT 3,13,11:PRINT "1. REAL ESTATE EVALUATOR." 8030 PLOT 3,13,13:PRINT "2. STOCK MARKET GAME." 8040 PLOT 3,13,15:PRINT "3. DECIMAL STORAGE DUMP." 8050 PLOT 3,0,31:PRINT "ENTER SELECTION OR <RETURN> TO CONTINUE:";:INPUT "";A 8060 IF A> 3THEN PLOT 7,28,11:GOTO 8050 8070 IF A= 0THEN 5000 8080 IF A= 1THEN LOAD "INVEST":RUN 8090 IF A= 2THEN LOAD "STOCKM":RUN 8100 IF A= 3THEN LOAD "DECDMP":RUN