0 REM PREGNANCY SEX DETERMINATION
20 LET X = 0 
30 INPUT "BABY'S HEART RATE / MIN?" ,A 
40 IF A < 140 THEN LET X = X + 1 
45 LET Q = 0
47 IF A > 199  THEN LET Q = 2
50 INPUT "MORNING SICKNESS?" ,A 
60 IF A = 1 THEN LET X = X + 1 
70 INPUT "DESIRE SALTY OR SOUR FOOD?" ,A 
80 IF A = 1 THEN LET X = X + 1 
90 INPUT "DARK URINE?" ,A 
100 IF A = 1 THEN LET X = X + 1 
110 INPUT "DRY SKIN?" ,A 
120 IF A = 1 THEN LET X = X + 1 
130 INPUT "PREFER TO SLEEP ON LEFT?" ,A 
140 IF A = 1 THEN LET X = X + 1 
150 INPUT "COLD HANDS/FEET?" ,A 
160 IF A = 1 THEN LET X = X + 1 
170 INPUT "HAIR GROW FASTER?" ,A 
180 IF A = 1 THEN LET X = X + 1 
190 INPUT "LARGE BELLY BUT NOT FAT?" ,A 
200 IF A = 1 THEN LET X = X + 1 
210 INPUT "LOTS OF PIMPLES?" ,A 
220 IF A = 1 THEN LET X = X + 1 
230 INPUT "RIGHT BREAST GOT LARGER?" ,A 
240 IF A = 1 THEN LET X = X + 1 
250 INPUT "DEVELOP BOLD PERSONALITY?" ,A 
260 IF A = 1 THEN LET X = X + 1 
270 INPUT "LOW BELLY BULGE?" ,A 
280 IF A = 1 THEN LET X = X + 1 
290 INPUT "LONG OR CROOKED DARK BELLY LINE?" ,A 
300 IF A = 1 THEN LET X = X + 1 
305 PRINT " THINKING ......."
306 COLOR WHITE ,RED 
307 IF Q = 2 THEN PRINT " WOW ... YOU ARE HAVING TWINS. "
310 LET P = 0 
320 BEEP 
330 WAIT 500 
340 LET P = P + 1 
350 IF P < 8 THEN GOTO 320 
360 PRINT "" 
370 COLOR BLUE ,YELLOW 
380 IF X > 7 THEN PRINT " YOUR BABY WILL BE A BOY. " 
390 COLOR MAGENTA ,YELLOW 
400 IF X < 8 THEN PRINT " YOUR BABY WILL BE A GIRL. " 
410 IF X < 8 THEN LET Z = (14 - X) / 14 * 100 
420 IF X > 7 THEN LET Z = (X) / 14 * 100 
430 COLOR BLACK ,YELLOW 
440 PRINT " WITH A CONFIDENCE OF " ,Z ,"%. " 
450 
460 
470 IF X < 8 THEN COLOR MAGENTA 
480 IF X > 7 THEN COLOR BLUE 
490 LET A = - 3.140000/ 2 
500 LET Y = 75 
510 LET B = SIN (A) 
520 LET X = B * 100 + 200 
530 IF X > 390 THEN GOTO 600 
540 IF Y > 390 THEN GOTO 600 
550 BOX X ,Y ,X + 2 ,Y + 8 
560 LET Y = Y + 1 
570 WAIT 10 
580 LET A = A + 0.080000
590 GOTO 510 
600 END