10 REM CONVERT DEGREES F TO C AND VICA-VERSA.  BY:JERRY TRAVIS 4/13/78
 20 PRINT
 25 PRINT"PLEASE TYPE AN 'F' IF"
 30 PRINT"THE TEMP YOU WISH TO"
 35 PRINT"CONVERT IS FAHRENHEIT"
 40 PRINT"OR A 'C' IF THE TEMP"
 45 PRINT"YOU WISH TO CONVERT IS"
 50 PRINT"CELSIUS."
 60 PRINT:PRINT
 70 PRINT"TYPE 'S' TO STOP."
 80 PRINT:PRINT
 90 INPUT A$
 100 IF MID$(A$,1,1)="F" THEN GOTO 200
 110 IF MID$(A$,1,1)="C" THEN GOTO 300
 120 IF MID$(A$,1,1)="S" THEN STOP
 130 GOTO 20
 200 PRINT"TYPE IN THE TEMP YOU"
 210 PRINT"WISH TO CONVERT TO"
 220 PRINT"CELSIUS."
 230 INPUT F
 240 LET C=(5/9)*(F-32)
 250 PRINT F"F="C"C"
 260 GOTO 20
 300 PRINT"TYPE IN THE TEMP YOU"
 310 PRINT"WISH TO CONVERT TO"
 320 PRINT"FAHRENHEIT."
 330 INPUT C
 340 LET F=(9/5)*C+32
 350 PRINT C"C="F"F"
 360 GOTO 20
 400 END