Calculator that converts between many popular values.
Gallery
Source Code
10 REM FECIT T. SIMON 20 BORDER 0: PAPER 0: INK 7: CLS 30 PRINT " THIS IS A CONVERSION PROGRAM"'" CHOOSE ONE OF THE FOLLOWING: "'''' 40 PRINT TAB 4;"1. CELSIUS TO FARENHEIT"';TAB 4;"2. CENTIMETERS TO INCHES";TAB 4;"3. GRAMS TO GRAINS" 50 PRINT TAB 4;"4. MILLILITERS TO OUNCES";TAB 4;"5. GRAINS TO MILLIGRAMS" 60 PRINT TAB 4;"6. DRAMS TO MILLILITERS";TAB 4;"7. DRAMS (AVDP) TO GRAINS" 70 PRINT TAB 4;"8. IMP.OZS. TO US.FL.OZ.";TAB 4;"9. IMP. GALLONS TO LITERS" 80 PRINT TAB 3;"10. POUNDS TO GRAMS";TAB 3;"11. OUNCES TO MILLILITERS" 90 INPUT A: IF A=1 THEN GO SUB 210 100 IF A=2 THEN GO SUB 260 110 IF A=3 THEN GO SUB 310 120 IF A=4 THEN GO SUB 360 130 IF A=5 THEN GO SUB 410 140 IF A=6 THEN GO SUB 460 150 IF A=7 THEN GO SUB 510 160 IF A=8 THEN GO SUB 560 170 IF A=9 THEN GO SUB 610 180 IF A=10 THEN GO SUB 660 190 IF A=11 THEN GO SUB 710 200 GO TO 30 210 CLS : PRINT "CONVERTING CELSIUS TO FAHRENHEIT"''' 220 INPUT "ENTER CELSIUS TEMPERATURE ";C 230 LET F=1.8*C+32 240 PRINT ''C;" CELSIUS= "; FLASH 1;F; FLASH 0;" FARENHEIT" 250 PRINT AT 21,0;"PRESS ANY KEY TO RESTART": PAUSE 0: CLS : RETURN 260 CLS : PRINT "CONVERTING CENTEMETERS TO INCHES" 270 INPUT "ENTER CENTEMETERS ";C 280 LET I=.3937*C 290 PRINT ''C;" CENTEMETERS = "; FLASH 1;I; FLASH 0;" INCHES" 300 GO SUB 250: RETURN 310 CLS : PRINT "CONVERTING GRAMS TO GRAINS" 320 INPUT ''"ENTER GRAMS ";G 330 LET N=15.432*G 340 PRINT ''G;" GRAMS = "; FLASH 1;N; FLASH 0;" GRAINS" 350 GO SUB 250: RETURN 360 CLS : PRINT "CONVERTING MILLILITERS TO OUNCES" 370 INPUT ''"ENTER MILLILITERS ";M 380 LET O=M/29.573 390 PRINT ''M;" MILLITERS = "; FLASH 1;O; FLASH 0;" OUNCES" 400 GO SUB 250: RETURN 410 CLS : PRINT "CONVERTING GRAINS TO MILLIGRAMS "''' 420 INPUT '"ENTER GRAINS ";N 430 LET G=N*64.799 440 PRINT N;" GRAINS = "; FLASH 1;G; FLASH 0;" MILLIGRAMS" 450 GO SUB 250: RETURN 460 CLS : PRINT "CONVERTING DRAMS TO MILLILITERS"'' 470 INPUT "ENTER DRAMS ";D 480 LET M=3.552*D 490 PRINT D;" DRAMS = "; FLASH 1;M; FLASH 0;" MILLIGRAMS" 500 GO SUB 250: RETURN 510 CLS : PRINT "CONVERTING DRAMS(AVDP) TO GRAINS" 520 INPUT "ENTER DRAMS ";D 530 LET G=27.334*D 540 PRINT ''D;" DRAMS = "; FLASH 1;G; FLASH 0;" GRAINS" 550 GO SUB 250: RETURN 560 CLS : PRINT "CONVERTING IMP.OZS. TO US.FL.OZS" 570 INPUT "ENTER IMPERIAL OUNCES ";I 580 LET U=1.041*I 590 PRINT ''I;" IMP. OUNCES = "; FLASH 1;U; FLASH 0;" US. OUNCES" 600 GO SUB 250: RETURN 610 CLS : PRINT "CONVERTING IMP.GALLONS TO LITERS"'' 620 INPUT "ENTER IMPERIAL GALLONS ";I 630 LET L=4.546*I 640 PRINT I;" IMP.GALS. = "; FLASH 1;L; FLASH 0;" LITERS" 650 GO SUB 250: RETURN 660 CLS : PRINT "CONVERTING POUNDS TO GRAMS"'' 670 INPUT "ENTER POUNDS ";P 680 LET G=453.59*P 690 PRINT P;" POUNDS = "; FLASH 1;G; FLASH 0;" GRAMS" 700 GO SUB 250: RETURN 710 CLS : PRINT "CONVERTING OUNCES TO MILLILITERS" 720 INPUT "ENTER OUNCES ";O 730 LET M=29.573*O 740 PRINT O;" OUNCES = "; FLASH 1;M; FLASH 0;" MILLILITERS" 750 GO SUB 250: RETURN 760 SAVE "CONVERSION" LINE 5: PRINT "REWIND TAPE AND VERIFY": VERIFY "": RUN 770 CLS : PRINT "1) Renumber"'"2) Remkill"'"3) Delete"'"4) Variable list": INPUT fff: LET zzz=(64048 AND fff=1)+(64841 AND fff=2)+(65017 AND fff=3)+(65184 AND fff=4): IF NOT zzz THEN GO TO 770 780 LET ttt=100: LET fff=ttt: IF zzz=64048 THEN INPUT "Start ";fff,"Step ";ttt 790 IF zzz=65017 THEN INPUT "From ";fff,"To ";ttt 800 IF fff>9999 OR fff<1 OR ttt>9999 OR ttt<1 OR (fff>ttt AND zzz=65017) THEN GO TO 770 810 POKE 23300,INT (fff/256): POKE 23299,fff-265*PEEK 23300: POKE 23302,INT (ttt/256): POKE 23301,ttt-256*PEEK 23302: IF zzz=65184 THEN PRINT USR zzz: STOP 820 RANDOMIZE USR zzz