image of READY prompt

Wang2200.org

Listing of file='20B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 461, program filename = '20B'
0010 PRINT
0020 PRINT "PRICE";
0030 INPUT P
   : PRINT
0040 PRINT "NET SALVAGE VALUE AFTER N YRS.";
0050 INPUT L
   : PRINT
0060 PRINT "LIFE OF STUDY PERIOD (YRS.)";
0070 INPUT N
   : PRINT
0080 PRINT
0090 PRINT "DEPRECIATION RATE=";100*(1-(L/P)^(1/N))
0100 PRINT
   : PRINT
0110 PRINT "MORE INPUT (1=YES,0=NO)";
0120 INPUT P
0130 IF P=1 THEN 10
0140 END