� Temperature Converter
 � by Peter Shaw
 � (c) The Micro User
( � October 1990
2 �:� 7:� 23,1,0;0;0;0;
<# title$="Temperature Converter"
F � �(141);�(9);title$
P � �(141);�(9);title$
Z> � �(145);�(9);�21,",")''':cel$="Celcius":far$="Farenheit"
d � "1) ";cel$;" to ";far$
n � "2) ";far$;" to ";cel$
x � "3) Exit program"
� �''''':A=�
� � A=49 �cf
� � A=50 �fc
� � A=51 � �:�
� � �
�7 ��cf:� "Temperature in degrees ";cel$;" :";:� ""C%
�K F%=C%*1.8+32:� '"That's ";F%;"degrees ";far$''"Press any key...":A=�:�
�7 ��fc:� "Temperature in degrees ";far$;" :";:� ""F%
�N C%=(F%-32)/1.8:� '"That's ";C%;" degrees ";cel$''"Press any key...":A=�:�
�

00000000  0d 00 0a 1c 20 f4 20 54  65 6d 70 65 72 61 74 75  |.... . Temperatu|
00000010  72 65 20 43 6f 6e 76 65  72 74 65 72 0d 00 14 14  |re Converter....|
00000020  20 f4 20 62 79 20 50 65  74 65 72 20 53 68 61 77  | . by Peter Shaw|
00000030  0d 00 1e 19 20 f4 20 28  63 29 20 54 68 65 20 4d  |.... . (c) The M|
00000040  69 63 72 6f 20 55 73 65  72 0d 00 28 13 20 f4 20  |icro User..(. . |
00000050  4f 63 74 6f 62 65 72 20  31 39 39 30 0d 00 32 1a  |October 1990..2.|
00000060  20 f5 3a eb 20 37 3a ef  20 32 33 2c 31 2c 30 3b  | .:. 7:. 23,1,0;|
00000070  30 3b 30 3b 30 3b 0d 00  3c 23 20 74 69 74 6c 65  |0;0;0;..<# title|
00000080  24 3d 22 54 65 6d 70 65  72 61 74 75 72 65 20 43  |$="Temperature C|
00000090  6f 6e 76 65 72 74 65 72  22 0d 00 46 19 20 f1 20  |onverter"..F. . |
000000a0  bd 28 31 34 31 29 3b 89  28 39 29 3b 74 69 74 6c  |.(141);.(9);titl|
000000b0  65 24 0d 00 50 19 20 f1  20 bd 28 31 34 31 29 3b  |e$..P. . .(141);|
000000c0  89 28 39 29 3b 74 69 74  6c 65 24 0d 00 5a 3e 20  |.(9);title$..Z> |
000000d0  f1 20 bd 28 31 34 35 29  3b 89 28 39 29 3b c4 32  |. .(145);.(9);.2|
000000e0  31 2c 22 2c 22 29 27 27  27 3a 63 65 6c 24 3d 22  |1,",")''':cel$="|
000000f0  43 65 6c 63 69 75 73 22  3a 66 61 72 24 3d 22 46  |Celcius":far$="F|
00000100  61 72 65 6e 68 65 69 74  22 0d 00 64 1d 20 f1 20  |arenheit"..d. . |
00000110  22 31 29 20 22 3b 63 65  6c 24 3b 22 20 74 6f 20  |"1) ";cel$;" to |
00000120  22 3b 66 61 72 24 0d 00  6e 1d 20 f1 20 22 32 29  |";far$..n. . "2)|
00000130  20 22 3b 66 61 72 24 3b  22 20 74 6f 20 22 3b 63  | ";far$;" to ";c|
00000140  65 6c 24 0d 00 78 18 20  f1 20 22 33 29 20 45 78  |el$..x. . "3) Ex|
00000150  69 74 20 70 72 6f 67 72  61 6d 22 0d 00 82 0f 20  |it program".... |
00000160  f1 27 27 27 27 27 3a 41  3d a5 0d 00 8c 0f 20 e7  |.''''':A=..... .|
00000170  20 41 3d 34 39 20 f2 63  66 0d 00 96 0f 20 e7 20  | A=49 .cf.... . |
00000180  41 3d 35 30 20 f2 66 63  0d 00 a0 11 20 e7 20 41  |A=50 .fc.... . A|
00000190  3d 35 31 20 8c 20 db 3a  e0 0d 00 aa 08 20 fd 20  |=51 . .:..... . |
000001a0  a3 0d 00 b4 37 20 dd f2  63 66 3a f1 20 22 54 65  |....7 ..cf:. "Te|
000001b0  6d 70 65 72 61 74 75 72  65 20 69 6e 20 64 65 67  |mperature in deg|
000001c0  72 65 65 73 20 22 3b 63  65 6c 24 3b 22 20 3a 22  |rees ";cel$;" :"|
000001d0  3b 3a e8 20 22 22 43 25  0d 00 be 4b 20 46 25 3d  |;:. ""C%...K F%=|
000001e0  43 25 2a 31 2e 38 2b 33  32 3a f1 20 27 22 54 68  |C%*1.8+32:. '"Th|
000001f0  61 74 27 73 20 22 3b 46  25 3b 22 64 65 67 72 65  |at's ";F%;"degre|
00000200  65 73 20 22 3b 66 61 72  24 27 27 22 50 72 65 73  |es ";far$''"Pres|
00000210  73 20 61 6e 79 20 6b 65  79 2e 2e 2e 22 3a 41 3d  |s any key...":A=|
00000220  a5 3a e1 0d 00 c8 37 20  dd f2 66 63 3a f1 20 22  |.:....7 ..fc:. "|
00000230  54 65 6d 70 65 72 61 74  75 72 65 20 69 6e 20 64  |Temperature in d|
00000240  65 67 72 65 65 73 20 22  3b 66 61 72 24 3b 22 20  |egrees ";far$;" |
00000250  3a 22 3b 3a e8 20 22 22  46 25 0d 00 d2 4e 20 43  |:";:. ""F%...N C|
00000260  25 3d 28 46 25 2d 33 32  29 2f 31 2e 38 3a f1 20  |%=(F%-32)/1.8:. |
00000270  27 22 54 68 61 74 27 73  20 22 3b 43 25 3b 22 20  |'"That's ";C%;" |
00000280  64 65 67 72 65 65 73 20  22 3b 63 65 6c 24 27 27  |degrees ";cel$''|
00000290  22 50 72 65 73 73 20 61  6e 79 20 6b 65 79 2e 2e  |"Press any key..|
000002a0  2e 22 3a 41 3d a5 3a e1  0d ff                    |.":A=.:...|
000002aa