Temp Conversion Problem 2

Gallery

Source Code

  10 REM TEMP CONVERSION 2
 100 PRINT TAB (15),"**************"
 110 PRINT TAB (15),"*            *"
 120 PRINT TAB (15),"*TEMPERATURE *"
 130 PRINT TAB (15),"*CONVERSION  *"
 140 PRINT TAB (15),"*PROBLEM 2   *"                     
 150 PRINT TAB (15),"**************"
 160 LET E=0
 170 LET K=0
 180 PRINT 
 190 PRINT "FOR CONVERSION FROM C TO F, TYPE 1"
 200 PRINT "FOR CONVERSION FROM F TO C, TYPE 2"
 210 PRINT "TO TERMINATE THE PROGRAM, TYPE 3"
 220 PRINT 
 230 INPUT Q
 240 IF Q=1 THEN GOTO 320
 250 IF Q=2 THEN GOTO 400
 260 IF Q=3 THEN GOTO 500
 270 LET E=E+1
 280 IF E>3 THEN GOTO 480
 290 PRINT "EXCUSE ME, ONLY 1,2,OR 3 PLEASE"
 300 IF E>3 THEN GOTO 480
 310 GOTO 230
 320 LET K=K+1
 330 PRINT "PLEASE TYPE IN YOUR CELSIUS TEMPERATURE"
 340 INPUT C
 350 LET F=(9*C+160)/5
 360 PRINT 
 370 PRINT "CASE NUMBER";K
 380 PRINT "THE EQUIVALENT FAHRENHEIT TEMPERATURE IS ";F
 390 GOTO 180
 400 LET K=K+1
 410 PRINT "PLEASE TYPE IN YOUR FAHRENHEIT TEMPERATURE"
 420 INPUT F
 430 LET C=(5*F-160)/9
 440 PRINT 
 450 PRINT "CASE NUMBER";K
 460 PRINT "THE EQUIVALENT CELSIUS TEMPERATURE IS ";C
 470 GOTO 180
 480 PRINT "I/M SORRY, BUT YOU HAVE MADE TOO MANY MISTAKES"
 490 PRINT "THEREFORE,YOUR RUN IS TERMINATED"
 600 STOP 
 610 SAVE "1010%8"
 620 RUN