Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape15a_acorn_eu_1990_october.wav » R.TmpConv

R.TmpConv

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape15a_acorn_eu_1990_october.wav
Filename: R.TmpConv
Read OK:
File size: 02AA bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10 REM Temperature Converter
   20 REM by Peter Shaw
   30 REM (c) The Micro User
   40 REM October 1990
   50 REPEAT:MODE 7:VDU 23,1,0;0;0;0;
   60 title$="Temperature Converter"
   70 PRINT CHR$(141);SPC(9);title$
   80 PRINT CHR$(141);SPC(9);title$
   90 PRINT CHR$(145);SPC(9);STRING$(21,",")''':cel$="Celcius":far$="Farenheit"
  100 PRINT "1) ";cel$;" to ";far$
  110 PRINT "2) ";far$;" to ";cel$
  120 PRINT "3) Exit program"
  130 PRINT''''':A=GET
  140 IF A=49 PROCcf
  150 IF A=50 PROCfc
  160 IF A=51 THEN CLS:END
  170 UNTIL FALSE
  180 DEFPROCcf:PRINT "Temperature in degrees ";cel$;" :";:INPUT ""C%
  190 F%=C%*1.8+32:PRINT '"That's ";F%;"degrees ";far$''"Press any key...":A=GET:ENDPROC
  200 DEFPROCfc:PRINT "Temperature in degrees ";far$;" :";:INPUT ""F%
  210 C%=(F%-32)/1.8:PRINT '"That's ";C%;" degrees ";cel$''"Press any key...":A=GET:ENDPROC

 � 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
R.TmpConv.m0
R.TmpConv.m1
R.TmpConv.m2
R.TmpConv.m4
R.TmpConv.m5