home *** CD-ROM | disk | FTP | other *** search
- 0 REM NO GUARANTEE IS GIVEN FOR THE ACCURACY OF YOUR WEIGHT!! .
- 1 REM UPLOADED BY JIM GREEN AUTHOR UNKNOWN .
- 2 REM FROM Q-LINK DISK X43 .
- 8 PRINT"[147]":DIMPL$(9),G(9):POKE53280,15:POKE53281,15
- 10 FORI=1TO9:READPL$(I),G(I):NEXT
- 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]"
- 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$;
- 14 PRINT" [217]OUR [215]EIGHT ON [207]THER [208]LANETS":PRINTJ$;:PRINT""J$;:PRINT""J$;
- 20 REM FORI=1TO9:READPL$(I),G(I):NEXT
- 40 INPUT"[145][145] [200]OW MUCH DO YOU WEIGH IN POUNDS";P$:P=VAL(P$)
- 50 IFP<0ORP>500THEN12
- 60 POKE53265,11
- 70 PRINT"[147]"G$" [212]YPE IN A NUMBER AND PRESS "
- 90 PRINT" <[210][197][212][213][210][206]> TO SEE HOW MUCH YOU'D "
- 100 PRINT" WEIGH ON ANOTHER PLANET. ":PRINTG$
- 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]"
- 110 NEXT:PRINTTAB(12)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
- 115 PRINT"";
- 120 FORI=1TO9:PRINTTAB(13)""I"[157]- "PL$(I):NEXT
- 155 PRINT""G$:PRINT" ":PRINTG$
- 160 POKE53265,27:INPUT"[145][145] [215]HICH NUMBER DO YOU CHOOSE";N
- 170 IFN<1ORN>9THEN70
- 172 POKE53265,11:PRINT"[147]";
- 174 PRINTG$:PRINT" "
- 176 PRINT" ":PRINTG$
- 180 PRINT
- 4640 (null)OU WOULD WEIGH"[181](G(N)[173]9.72[172]P)
- 200 [153]" POUNDS ON "PL$(N)"."
- 205 [153]""G$
- 220 [153]" (null)RESS <(null)> TO TRY ANOTHER PLANET, "
- 230 [153]" <(null)> TO ENTER ANOTHER WEIGHT, CLOSE "
- 240 [153]" OR <(null)> TO QUIT. ":[153]G$:[151]53265,27
- 250 [161]K$:[139]K$[178]""[167]250
- 270 [139]K$[178]"P"[167]60
- 280 [139]K$[178]"W"[167][138]
- 290 [139]K$[179][177]"Q"[167]250
- 300 [128]
- 1000 [131] MERCURY,3.78,VENUS,8.6,THE MOON,1.62
- 1010 [131] MARS,3.73,JUPITER,27.89,SATURN,12.831
- 1020 [131] URANUS,9.03,NEPTUNE,11.95,PLUTO,0.291
-