Calculator that converts between many popular values.
Content
Image 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