home *** CD-ROM | disk | FTP | other *** search
/ Super Games / visualcdgame.iso / dosgames / contintl / metric.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-06-30  |  2.8 KB  |  40 lines
  1. 10  REM ------------------------------------
  2. 20  REM    M E T R I C   C O N V E R S I O N
  3. 30  REM ------------------------------------
  4. 40  REM
  5. 50  CLS : COLOR 7,0 : KEY OFF
  6. 60  PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  7. 70  PRINT "OPEN "; : COLOR 0,7 : PRINT "             M E T R I C   C O N V E R S I O N   P R O G R A M             "; : COLOR 7,0 : PRINT " OPEN"
  8. 80  PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  9. 90  CL$ = "                                                                               " 'Clear Line
  10. 100  LOCATE 5,23 : PRINT "ENTER NUMBER YOU WISH TO CONVERT"
  11. 110  LOCATE 7,33 : PRINT "NUMBER: "; : COLOR 15 : INPUT "",N$
  12. 120  N = VAL(N$)
  13. 130  IF N = 0 AND N$ <> "0" THEN LOCATE 7,23 : PRINT "                      " : GOTO 110
  14. 140  LOCATE 7,1 : PRINT CL$ : LOCATE 7,33 : COLOR 7 : PRINT "NUMBER:"; : COLOR 15 : PRINT N
  15. 150  IF N <= 0 THEN GOTO 340
  16. 160  LOCATE 9,1 : COLOR 7 : PRINT "INCHES -"; CHR$(16); " CENTIMETERS"; : COLOR 15 : PRINT TAB(24) N * 2.54; "cm"
  17. 170  LOCATE 10,1 : COLOR 7 : PRINT "CENTIMETERS -"; CHR$(16); " INCHES"; : COLOR 15: PRINT TAB(24) N * 0.3937; "in"
  18. 180  LOCATE 11,1 : COLOR 7 : PRINT "FEET -"; CHR$(16); " CENTIMETERS"; : COLOR 15 : PRINT TAB(24) N * 30.48; "cm"
  19. 190  LOCATE 12,1 : COLOR 7 : PRINT "CENTIMETERS -"; CHR$(16); " FEET"; : COLOR 15 : PRINT TAB(24) N * 0.0328; "ft"
  20. 200  LOCATE 13,1 : COLOR 7 : PRINT "FEET -"; CHR$(16); " METERS"; : COLOR 15 : PRINT TAB(24) N * 0.3048; "m"
  21. 210  LOCATE 14,1 : COLOR 7 : PRINT "METERS -"; CHR$(16); " FEET"; : COLOR 15 : PRINT TAB(24) N * 3.2808; "ft"
  22. 220  LOCATE 15,1 : COLOR 7 : PRINT "MILES -"; CHR$(16); " KILOMETERS"; : COLOR 15 : PRINT TAB(24) N * 1.609; "km"
  23. 230  LOCATE 16,1 : COLOR 7 : PRINT "KILOMETERS -"; CHR$(16); " MILES"; : COLOR 15 : PRINT TAB(24) N * 0.6215; "mi"
  24. 240  LOCATE 17,1 : COLOR 7 : PRINT "MILES -"; CHR$(16); " NAUTICAL MILES"; : COLOR 15 : PRINT TAB(24) N * 0.86898; "mi"
  25. 250  LOCATE 18,1 : COLOR 7 : PRINT "NAUTICAL MILES -"; CHR$(16); " MILES"; : COLOR 15 : PRINT TAB(24) N * 1.1508; "nm"
  26. 260  LOCATE 9,41 : COLOR 7 : PRINT "GALLONS -"; CHR$(16); " LITERS"; : COLOR 15 : PRINT TAB(65) N * 3.785; "l"
  27. 270  LOCATE 10,41 : COLOR 7 : PRINT "LITERS -"; CHR$(16); " GALLONS"; : COLOR 15 : PRINT TAB(65) N * 0.2642; "gal"
  28. 280  LOCATE 11,41 : COLOR 7 : PRINT "OUNCES -"; CHR$(16); " GRAMS"; : COLOR 15 : PRINT TAB(65) N * 28.3527; "gm"
  29. 290  LOCATE 12,41 : COLOR 7 : PRINT "GRAMS -"; CHR$(16); " OUNCES"; : COLOR 15 : PRINT TAB(65) N * 0.03527; "oz"
  30. 300  LOCATE 13,41 : COLOR 7 : PRINT "POUNDS -"; CHR$(16); " KILOGRAMS"; : COLOR 15 : PRINT TAB(65) N * 0.4536; "kg"
  31. 310  LOCATE 14,41 : COLOR 7 : PRINT "KILOGRAMS -"; CHR$(16); " POUNDS"; : COLOR 15 : PRINT TAB(65) N * 2.2046; "lbs"
  32. 320  LOCATE 15,41 : COLOR 7 : PRINT "KILOWATTS -"; CHR$(16); " BTU(thous)"; : COLOR 15 : LOCATE 15,65 : PRINT USING "##,###"; N * 34.1311; : PRINT " btu"
  33. 330  LOCATE 16,41 : COLOR 7 : PRINT "DECIMAL -"; CHR$(16); " HEXADECIMAL"; : COLOR 15 : IF N > 65000 THEN PRINT TAB(66) "OUT OF RANGE" ELSE PRINT TAB(66) HEX$(N)
  34. 340  LOCATE 17,41 : COLOR 7 : PRINT "FAHRENHEIT -"; CHR$(16); " CELSIUS"; : COLOR 15 : A$ = STR$((N - 32) * (5 / 9)) : PRINT TAB(65) A$; CHR$(248);"C"
  35. 350  LOCATE 18,41 : COLOR 7 : PRINT "CELSIUS -"; CHR$(16); " FAHRENHEIT"; : COLOR 15 : A$ = STR$(N * 9 / 5 + 32) : PRINT TAB(65) A$; CHR$(248);"F"
  36. 360  LOCATE 23,30 : COLOR 15 : PRINT "C"; : COLOR 7 : PRINT "ONTINUE or "; : COLOR 15 : PRINT "Q"; : COLOR 7 : PRINT "UIT" : A$ = INPUT$(1)
  37. 370  IF LEFT$(A$,1) = "C" OR LEFT$(A$,1) = "c" THEN GOTO 50
  38. 380  IF LEFT$(A$,1) = "Q" OR LEFT$(A$,1) = "q" THEN RUN "TECHMENU"
  39. 390  GOTO 360
  40.