start tok64 d64-VN6Eps 100 GOTO140 110 the following was inspired by the may 1987 READer's digest article 115 entitled "how to stay thin after 25" the FORmula FOR recommENDed weight AND 120 calORie INTake are taken from the article. (i added the frame size after 125 many complaINTs of my over 40 friENDs) this is ONly an attempt TO be used as 130 a humORous guide AND NOT TO be used as a serious diet plan!!! 140 CLR 150 POKE 53280,14:POKE 53281,1 160 PRINT"{clear}{red}{down*2}" 170 PRINT:PRINT 180 PRINTTAB(13)"chubby checker":PRINT 190 PRINTTAB(20)"by":PRINT 200 PRINTTAB(12)"patrick m. wagner":PRINT:PRINT 210 PRINTTAB(7)"enter activity level" 220 PRINTTAB(9)"a) very inactive" 230 PRINTTAB(9)"b) slightly inactive" 240 PRINTTAB(9)"c) moderately active" 250 PRINTTAB(9)"d) very active" 260 PRINTTAB(9)"e) strenuously active" 270 PRINT:PRINT 280 PRINTTAB(15)"{reverse on} be honest !" 290 GETal$:IFal$=""THEN290 300 IF al$>"e"THEN290 310 PRINT:PRINT"{right*2}please select your frame size" 320 PRINT:PRINT"{right*4}{reverse on}s{reverse off}mall {reverse on}m{reverse off}edium or {reverse on}l{reverse off}arge" 330 GET fr$:IF fr$=""THEN330 340 PRINT"{clear}{down*2}" 350 PRINT"please enter {reverse on}m{reverse off}ale or {reverse on}f{reverse off}emale" 360 GET s$:IF s$=""THEN360 370 IFs$ ="m"ORs$="f"THEN390 380 GOTO 360 390 INPUT"enter height-put comma between feet and inches";f,i 400 t=i:IF f=6THEN t=t+12 410 IFs$="f"THENGOSUB450 420 IFs$="m"THENGOSUB520 440 FORz=1TO3000:NEXT:GOTO580 450 rw=100+t*5:REM recommended weight 460 IF fr$="m" THEN rw=rw+10 470 IF fr$="l" THEN rw=rw+20 480 PRINT"at"f"feet"i"inches 490 PRINT"your recommended weight ="rw 500 RETURN 510 : 520 rw=110+t*5:REM recommended weight 530 PRINT"at"f"feet"i"inches 540 IF fr$="m" THEN rw=rw+10 550 IF fr$="l" THEN rw=rw+20 560 PRINT"your recommended weight ="rw 570 RETURN 580 PRINT"{clear}{black}{down*2}" 590 POKE 53281,4:POKE 53280,4:POKE646,13 600 IF al$="a" THEN PRINT"{right*10}{reverse on}very inactive" 610 IF al$="b" THEN PRINT"{right*10}{reverse on}slightly inactive" 620 IF al$="c" THEN PRINT"{right*10}{reverse on}moderately active" 630 IF al$="d" THEN PRINT"{right*10}{reverse on}very active" 640 IF al$="e" THEN PRINT"{right*10}{reverse on}strenuously active" 650 PRINT:PRINT:POKE646,1 660 INPUT"enter current weight";cw 670 IF al$="a" THEN cd=cw*13 680 IF al$="b" THEN cd=cw*14 690 IF al$="c" THEN cd=cw*15 700 IF al$="d" THEN cd=cw*16 710 IF al$="e" THEN cd=cw*17 720 PRINT:PRINT 730 IF rw=>cwTHENPRINT"very good skinny, your have good weight control":GOTO810 740 IF rw