image of READY prompt

Wang2200.org

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

# Sector 676, program filename = '19B'
0010 PRINT
0020 PRINT "PRICE";
0030 INPUT P
   : PRINT
0040 PRINT "DEPRECIATION RATE (%)";
0050 INPUT F
   : PRINT
0055 F=F/100
0060 PRINT "AGE AT END OF YEAR TO BE CONSIDERED";
0070 INPUT Y
   : PRINT
0080 PRINT
0090 P=P*F*(1-F)^(Y-1)
0100 PRINT "DEPRECIATION CHARGE=$";INT(100*P+.5)/100
0110 PRINT
   : PRINT
0120 PRINT "MORE INPUT (1=YES,0=NO)";
0130 INPUT P
0140 IF P=1 THEN 10
0150 END