image of READY prompt

Wang2200.org

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

# Sector 562, program filename = '21B'
0010 PRINT
0020 PRINT "PRICE";
0030 INPUT P
   : PRINT
0040 PRINT "DEPRECIATION RATE (%)";
0050 INPUT F
   : PRINT
0060 PRINT "AGE (YRS.)";
0070 INPUT N
   : PRINT
0090 PRINT "SALVAGE VALUE=$";INT(100*P*(1-F/100)^N+.5)/100
0100 PRINT
   : PRINT
0120 PRINT "MORE INPUT (1=YES,0=NO)";
0130 INPUT P
0140 IF P=1 THEN 10
0150 END