home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / WEIGHTS-PLANETS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  41 lines
  1. 0 REM  NO GUARANTEE IS GIVEN FOR THE             ACCURACY OF YOUR WEIGHT!!     .
  2. 1 REM      UPLOADED BY JIM GREEN                      AUTHOR UNKNOWN           .
  3. 2 REM      FROM Q-LINK DISK X43        .
  4. 8 PRINT"[147]":DIMPL$(9),G(9):POKE53280,15:POKE53281,15
  5. 10 FORI=1TO9:READPL$(I),G(I):NEXT
  6. 11 G$="  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] [146]"
  7. 12 J$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT"[147][151]"J$;
  8. 14 PRINT"     [217]OUR [215]EIGHT ON [207]THER [208]LANETS":PRINTJ$;:PRINT""J$;:PRINT""J$;
  9. 20 REM  FORI=1TO9:READPL$(I),G(I):NEXT
  10. 40 INPUT"[145][145]  [200]OW MUCH DO YOU WEIGH IN POUNDS";P$:P=VAL(P$)
  11. 50 IFP<0ORP>500THEN12
  12. 60 POKE53265,11
  13. 70 PRINT"[147]"G$"        [212]YPE IN A NUMBER AND PRESS      "
  14. 90 PRINT"     <[210][197][212][213][210][206]> TO SEE HOW MUCH YOU'D    "
  15. 100 PRINT"        WEIGH ON ANOTHER PLANET.       ":PRINTG$
  16. 104 PRINTTAB(12)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":FORT=1TO9:PRINTTAB(12)"[221]              [146][221]"
  17. 110 NEXT:PRINTTAB(12)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  18. 115 PRINT"";
  19. 120 FORI=1TO9:PRINTTAB(13)""I"[157]- "PL$(I):NEXT
  20. 155 PRINT""G$:PRINT"                                       ":PRINTG$
  21. 160 POKE53265,27:INPUT"[145][145]     [215]HICH NUMBER DO YOU CHOOSE";N
  22. 170 IFN<1ORN>9THEN70
  23. 172 POKE53265,11:PRINT"[147]";
  24. 174 PRINTG$:PRINT"                                       "
  25. 176 PRINT"                                       ":PRINTG$
  26. 180 PRINT    
  27. 4640           (null)OU WOULD WEIGH"[181](G(N)[173]9.72[172]P)
  28. 200 [153]"           POUNDS ON "PL$(N)"."
  29. 205 [153]""G$
  30. 220 [153]"    (null)RESS <(null)> TO TRY ANOTHER PLANET,   "
  31. 230 [153]"    <(null)> TO ENTER ANOTHER WEIGHT, CLOSE     "
  32. 240 [153]"    OR <(null)> TO QUIT.                    ":[153]G$:[151]53265,27
  33. 250 [161]K$:[139]K$[178]""[167]250
  34. 270 [139]K$[178]"P"[167]60
  35. 280 [139]K$[178]"W"[167][138]
  36. 290 [139]K$[179][177]"Q"[167]250
  37. 300 [128]
  38. 1000 [131] MERCURY,3.78,VENUS,8.6,THE MOON,1.62
  39. 1010 [131] MARS,3.73,JUPITER,27.89,SATURN,12.831
  40. 1020 [131] URANUS,9.03,NEPTUNE,11.95,PLUTO,0.291
  41.