Data update
This commit is contained in:
parent
9817d9b99b
commit
07c7092a52
140 changed files with 2712 additions and 241 deletions
|
|
@ -0,0 +1,13 @@
|
|||
10 CLS : REM 10 HOME for Applesoft BASIC : DELETE for Minimal BASIC
|
||||
20 PRINT "Kelvin Degrees ";
|
||||
30 INPUT K
|
||||
40 IF K <= 0 THEN 130
|
||||
50 LET C = K-273.15
|
||||
60 LET F = K*1.8-459.67
|
||||
70 LET R = K*1.8
|
||||
80 PRINT K;" Kelvin is equivalent to"
|
||||
90 PRINT C;" Degrees Celsius"
|
||||
100 PRINT F;" Degrees Fahrenheit"
|
||||
110 PRINT R;" Degrees Rankine"
|
||||
120 GOTO 20
|
||||
130 END
|
||||
Loading…
Add table
Add a link
Reference in a new issue