home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mis / mach_#.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  27 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS' PROG by STAN KENDALL * WILMETTE         IL 60091
  3. 2 BEEP:PRINT@90,"PROG 'MACH #' 10/84"
  4. 3 LINE(30,10)-(210,50),1,B:LINE(28,8)-(212,52),1,B
  5. 4 PRINT@166,"    <>    <>    <>    <>"
  6. 5 PRINT@206,"PRESS  <1>  RUN   <4>  MENU"
  7. 7 G=VAL(INKEY$):IF G=4THENMENU
  8. 8 IF G=1THEN300
  9. 9 GOTO2
  10. 10 'STANLEY KENDALL CIS [73136,3055]
  11. 300 CLS:LINE(60,10)-(180,30),1,BF:LINE(62,12)-(178,28),0,B
  12. 310 PRINT@94,"INSTRUCTIONS"
  13. 340 BEEP:PRINT@162,"Enter air speed in knots and pressure"
  14. 350 PRINT@212,"altitude in feet.":PRINTSTRING$(39,"^")
  15. 360 FOR S=400TO 3000STEP25:SOUND S,5:NEXTS
  16. 400 CLS:LINE(30,10)-(210,50),1,B:LINE(28,8)-(212,52),1,B
  17. 410 LINE(0,0)-(30,10):LINE(210,10)-(239,0):LINE(30,50)-(0,0):LINE(210,50)-(239,0)
  18. 420 PRINT@87,;:INPUT"  AIR SPEED in KNOTS= ";KN
  19. 430 PRINT@126,;:INPUT"P.ALTITUDE in FEET= ";PA
  20. 440 A=((KN/661.5)^2)*.2+1:A1=A^3.5-1
  21. 450 B=.000006875*PA:B1=(1-B)^-5.2656
  22. 460 C=((A1*B1+1)^.286-1)*5:M=C^.5
  23. 470 PRINT@206,USING"MACH NO.=##.####";M;:INPUT" <ENTER>";U
  24. 490 CLS:PRINT@168,"DO AGAIN? Y=1  N=4":BEEP:A$=INKEY$:IF A$=""THEN 490
  25. 500 G=VAL(A$):IF G=1THEN 400 ELSE MENU
  26. 600 'This is a simple program which can be dressed up with graphics. Maybe I'll do it when I have more time. It could also be combined with my prog. 'WCT'.
  27.