Temp Conversion Problem 1

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Temp Conversion Problem 1

Source Code

  10 REM TEMPERATURE CONVERSION
 100 PRINT TAB (15),"***************"
 110 PRINT TAB (15),"*             *"
 120 PRINT TAB (15),"* TEMPERATURE *"
 130 PRINT TAB (15),"* CONVERSION  *"
 140 PRINT TAB (15),"* PROBLEM     *"
 150 PRINT TAB (15),"*             *"
 160 PRINT TAB (15),"***************"
 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 290
 250 IF Q=2 THEN GOTO 370
 260 IF Q=3 THEN GOTO 450
 270 PRINT "EXCUSE ME, ONLY 1,2, OR 3,PLEASE"
 280 GOTO 230
 290 LET K=K+1
 300 PRINT "PLEASE TYPE IN YOUR CELSIUS TEMPERATURE"
 310 INPUT C
 320 LET F=(9*C+160)/5
 330 PRINT 
 340 PRINT "CASE NUMBER";K
 350 PRINT "THE EQUIVALENT FAHRENHEIT TEMPERATURE IS ";F
 360 GOTO 180
 370 LET K=K+1
 380 PRINT "PLEASE TYPE IN YOUR FAHRENHEIT TEMPERATURE"
 390 INPUT F
 400 LET C=(5*F-160)/9
 410 PRINT 
 420 PRINT "CASE NUMBER";K
 430 PRINT "THE EQUIVALENT CELSIUS TEMPERATURE IS ";C
 440 GOTO 180
 441 SAVE "1010%6"
 450 RUN 

People

No people associated with this content.

Scroll to Top