home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / windchil.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-10-11  |  1.0 KB  |  15 lines
  1. 10 POKE53280,0:POKE53281,0
  2. 20 PRINTCHR$(147)CHR$(14)
  3. 25 PRINTTAB(4)"û┴N ╧UR ╘OWN ╒. ╙. ┴. ╨ROGRAM.Ü"
  4. 27 FORT=1TO100:NEXT
  5. 30 PRINTTAB(8)"╫IND ├HILL-╘EMPATURE"
  6. 40 PRINTTAB(13)"├ONVERSION."
  7. 50 PRINTTAB(8)"╘EMPATURE ─EGREES ";:INPUTD
  8. 60 PRINTTAB(8)"╫IND (MILES PER HR.) ";:INPUTW
  9. 70 WC=INT(D-(2*(.45*W)))
  10. 80 PRINTTAB(8)"";:PRINT"╫IND ├HILL ╞ACTOR IS "WC
  11. 90 PRINTTAB(8)"┴NOTHER ├ONVERSION Y/N ";:INPUTA$
  12. 100 IF A$="Y"THEN10
  13. 110 SYS64738
  14. 8224                    
  15.