100 CLS
110 A$=STRING$(80,205)
120 PRINT A$
130 PRINT TAB(29)"TEMPERATURE CONVERSION"
140 COLOR 23,0,0
150 PRINT :PRINT :PRINT TAB(39)"IPCO"
160 COLOR 7,0,0
170 PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
180 PRINT :PRINT :PRINT TAB(19)"p.o. box 10426, pittsburgh, pennsylvania 15234"
190 PRINT A$
200 PRINT :PRINT :PRINT :PRINT :PRINT
210 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
220 A$=INKEY$:IF A$="" THEN 220
230 CLS
240 REM JANUARY 2, 1982.
250 CLS:WIDTH 80
260 KEY OFF
270 PRINT "****************************"
280 PRINT "***TEMPERATURE CONVERSION***"
290 PRINT "****************************":PRINT
300 PRINT "WHAT IS THE TEMPERATURE ":BEEP
310 PRINT "YOU WISH TO CONVERT";
320 INPUT T
330 PRINT "IN WHAT SCALE WAS THAT RECORDED?":BEEP
340 PRINT "ENTER:"
350 PRINT "1 FOR FARENHEIT"
360 PRINT "2 FOR CELSIUS"
370 PRINT "3 FOR REAUMUR"
380 PRINT "4 FOR KELVIN"
390 PRINT "5 FOR RANKINE"
400 INPUT S
410 PRINT
420 S=INT(S)
430 IF S<1 THEN 330
440 IF S>5 THEN 330
450 ON S GOTO 460,500,540,580,620
460 IF T<-459.58 THEN 750
470 T1=T
480 PRINT T;" DEGREES FAHRENHEIT = ":PRINT
490 GOTO 670
500 IF T<-273.1 THEN 750
510 T1=32+T*1.8
520 PRINT T;" DEGREES CELSIUS = ":PRINT
530 GOTO 650
540 IF T<-218.48 THEN 750
550 T1=32+T*2.25
560 PRINT T;" DEGREES REAUMUR = ":PRINT
570 GOTO 650
580 IF T<0 THEN 750
590 T1=32+1.8*(T-273.1)
600 PRINT T," DEGREES KELVIN = ":PRINT
610 GOTO 650
620 IF T<0 THEN 750
630 T1=T-459.58
640 PRINT T;" DEGREES RANKINE = ":PRINT
650 PRINT T1," DEGREES FAHRENHEIT"
660 IF S=2 THEN 690
670 PRINT 5*(T1-32)/9," DEGREES CELSIUS"
680 IF S=3 THEN 710
690 PRINT 4*(T1-32)/9," DEGREES REAUMUR"
700 IF S=4 THEN 730
710 PRINT 5*(T1-32)/9+273.1," DEGREES KELVIN"
720 IF S=5 THEN 780
730 PRINT T1+459.58," DEGREES RANKINE"
740 GOTO 780
750 PRINT "TEMPERATURE YOU ENTERED DOES NOT":BEEP
760 PRINT "EXIST!  PLEASE ENTER A NEW ONE."
770 GOTO 300
780 PRINT :BEEP :PRINT "ANOTHER CONVERSION (Y/N)";:INPUT A$ :PRINT
790 IF A$="Y" THEN 300
800 IF A$="y" THEN 300
810 IF A$="N" THEN 840
820 IF A$="n" THEN 840
830 GOTO 780
840 CLS: END
T
790 IF A$="Y" THEN 300
800 IF A$="y" THE