98 100 PRINT 110 PRINT "Enter the temperature "; 120 INPUT REPLY$ 130 TEMP = VAL(REPLY$) 140 SCALE$=RIGHT$(REPLY$,1) 150 GOODSCALE=FALSE 160 IF SCALE$="C" THEN PROCCENT 170 IF SCALE$="F" THEN PROCFAHR 180 IF SCALE$="K" THEN PROCKELVIN 190 PROCEND 200 UNTIL FALSE 210 END 220 230 DEF PROCCENT 240 GOODSCALE=TRUE 250 ENDPROC 260 270 DEF PROCFAHR 280 REM CONVERT TO CELSIUS 290 TEMP=(TEMP-32)*5/9 300 GOODSCALE=TRUE 310 ENDPROC 320 330 DEF PROCKELVIN 340 REM CONVERT TO CELSIUS 350 TEMP=TEMP-273.16 360 GOODSCALE=TRUE 370 ENDPROC 380 390 DEF PROCEND 400 IF GOODSCALE AND TEMP>=-273.16 THEN PROCRESULTS 410 IF NOT GOODSCALE THEN PROCILLEGAL_SCALE 420 IF TEMP 430 ENDPROC 440 450 DEF PROCRESULTS 460 PRINT'' 470 PRINT TEMP; " Celius" 480 PRINT TEMP+273.16; " Kelvin" 490 PRINT TEMP*9/5 + 32; " Fahrenheit" 500 PRINT 510 ENDPROC 520 530 DEF PROCILLEGAL_SCALE