start tok64 d64-QtsQMI
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<cwTHEN760
750 FOR z=1TO3000:NEXT
760 ow=cw-rw
770 IFcw<rw+5THEN PRINT"not bad, you are only"ow"lbs.overweight!":GOTO810
780 ts%=ow/5
790 IF rw<cwTHENPRINT"oh oh tubby!,you are"ow"lbs. overweight ":PRINT
800 PRINT"{right*4}{reverse on}or" ts% " inches too short{!*3}{reverse off}"
810 PRINT:FORz=1TO3000:NEXT
820 PRINT "to maintain your current weight of";cw:PRINT
830 PRINT"you need";cd;"calories per day":PRINT:PRINT
840 cd=cd-500
850 wa$="{yellow}{reverse on}never go on a diet of less than 1300{space*4}calories"
860 IF cd<1300 THEN PRINT wa$:GOTO880
870 PRINT "reduce your intake to";cd;"to lose one{space*2}pound per week"
880 PRINT:PRINT
890 PRINT"{white}{right*2} exercise to lose more than 1 pound{space*16}per week"
900 PRINT:PRINT"{yellow}{right*4}{reverse on}don't cut more calories !"
910 PRINT:PRINT
920 PRINT"{white}{right*4}do another ? y/n{space*2}n{left*3}";:INPUTch$
930 IF ch$="y" THEN140
940 END
stop tok64
(bastext 1.0)