home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / OSBORNE / MGWO1.ZIP / MGW01.BAS next >
BASIC Source File  |  2000-06-30  |  1KB  |  31 lines
  1.                                                            
  2.  1 PRINT CHR$(26)
  3.  2 PRINT TAB(20)"*****************************************"
  4.  3 PRINT TAB(20)"*      MAXIMUM GAME WEIGHT PROGRAM      *"
  5.  4 PRINT TAB(20)"*  Based on EDWARD MATUNAS's Dec 1988   *"
  6.  5 PRINT TAB(20)"*  article in AMERICAN HUNTER magazine  *"
  7.  6 PRINT TAB(20)"*      CHARLES COTHAM (41 L.O.G.)       *"
  8.  7 PRINT TAB(20)"*          NEDERLAND, TEXAS             *"
  9.  8 PRINT TAB(20)"*****************************************"
  10.  9 INPUT "TYPE OF CARTRIDGE? (1=BIG GAME  2=VARMINT)";Q1
  11. 10 INPUT "WHAT IS DOWN RANGE VELOCITY(fps)";V 
  12. 20 INPUT "WHAT IS BULLET WEIGHT(grs)";B
  13. 21 IF Q1=2 THEN GOTO 42   
  14. 30 O=V^3*B^2*1.5E-12   
  15. 40 PRINT "MAXIMUM BIG GAME WEIGHT(lbs)=";CINT(O)
  16. 41 GOTO 50
  17. 42 Z=V^3*B^2*5.0E-13  
  18. 43 PRINT"MAXIMUM VARMINT WEIGHT(lbs)=";CINT(Z)
  19. 50 INPUT"WHAT IS YOUR CHOICE? (1=CONTINUE 2=END PROGRAM)";Q4
  20. 60 IF Q4=1 THEN GOTO 1 
  21. 70 IF Q4=2 THEN PRINT TAB(29)"END":END
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31. OUR CHOICE? (1=CONTINUE 2=END PROGRAM