10 REM ======================================== 20 REM A BASIC PROGRAM THAT PICKS THE CARD 30 REM THAT THE USER IS THINKING OF 40 REM BY Mr. PELLEGRINO – 2018 01 28 50 REM ======================================== 60 REM 100 PRINT "WELCOME TO MY PROGRAM!" 110 PRINT "========================================" 120 PRINT " THINK OF A FACECARD FROM A DECK OF" 125 PRINT " PLAYING CARDS" 130 PRINT "(PRESS ENTER WHEN YOU'VE THOUGHT OF ONE)" 140 PRINT "========================================" 150 INPUT A$ 160 PRINT "IS IT (R)ED or (B)LACK";:INPUT RB$ 170 IF RB$="R" THEN GOTO 220 180 IF RB$="B" THEN GOTO 750 190 IF RB$="r" THEN GOTO 220 200 IF RB$="b" THEN GOTO 750 210 PRINT "I don't understand! - Please re-enter":GOTO 160 220 REM RED 221 PRINT "IS IT (M)ALE OR (F)emale";:INPUT FM$ 230 IF FM$="M" THEN GOTO 410 240 IF FM$="m" THEN GOTO 410 250 IF FM$="F" THEN GOTO 280 260 IF FM$="f" THEN GOTO 280 270 PRINT "I don't understand! - Please re-enter":GOTO 220 280 REM RED – FEMALE 290 PRINT "WHICH HAND IS THE FLOWER IN, (R)IGHT or (L)EFT";:INPUT FH$ 320 IF FH$="R" THEN GOTO 370 330 IF FH$="r" THEN GOTO 370 340 IF FH$="L" THEN GOTO 390 350 IF FH$="l" THEN GOTO 390 360 PRINT "I don't understand! - Please re-enter":GOTO 290 370 REM RED – FEMALE – RIGHT HAND 380 PRINT "QUEEN OF DIAMONDS!":GOTO 5000 390 REM RED – FEMALE – LEFT HAND 400 PRINT "QUEEN OF HEARTS!":GOTO 5000 410 REM RED – MALE 420 PRINT "(O)NE EYED OR (T)WO EYED";:INPUT EYED$ 440 IF EYED$="O" THEN GOTO 490 450 IF EYED$="o" THEN GOTO 490 460 IF EYED$="T" THEN GOTO 620 470 IF EYED$="t" THEN GOTO 620 480 PRINT "I don't understand! - Please re-enter":GOTO 420 490 REM RED – MALE – ONE-EYED 500 PRINT "DOES HE HAVE A FEATHER IN HIS HAND (Y)ES/(N)O";:INPUT F$ 530 IF F$="Y" THEN GOTO 580 540 IF F$="y" THEN GOTO 580 550 IF F$="N" THEN GOTO 600 560 IF F$="n" THEN GOTO 600 570 PRINT "I don't understand! - Please re-enter":GOTO 500 580 REM RED – MALE – ONE-EYED – FEATHER 590 PRINT "JACK OF HEARTS":GOTO 5000 600 REM RED – MALE – ONE-EYED – NO FEATHER 610 PRINT "KING OF DIAMONDS":GOTO 5000 620 REM RED – MALE – TWO-EYED 630 PRINT "IS A SWORD STICKING INTO HIS HEAD (Y)ES/(N)O";:INPUT SW$ 660 IF SW$="Y" THEN GOTO 710 670 IF SW$="y" THEN GOTO 710 680 IF SW$="N" THEN GOTO 730 690 IF SW$="n" THEN GOTO 730 700 PRINT "I don't understand! - Please re-enter":GOTO 630 710 REM – RED – MALE – TWO-EYED – KING 720 PRINT "KING OF HEARTS":GOTO 5000 730 REM – RED – MALE – TWO-EYED – JACK 740 PRINT "JACK OF DIAMONDS":GOTO 5000 750 REM – BLACK CARD 760 PRINT "DOES IT HAVE (O)NE OR (T)WO EYES";:INPUT EYED$ 770 IF EYED$="O" THEN PRINT "JACK OF SPADES.":GOTO 5000 780 IF EYED$="o" THEN PRINT "JACK OF SPADES.":GOTO 5000 790 IF EYED$="T" THEN GOTO 820 800 IF EYED$="t" THEN GOTO 820 810 PRINT "I don't understand! - Please re-enter":GOTO 760 820 REM BLACK – TWO-EYED 830 PRINT "(M)ALE OR (F)EMALE";:INPUT FM$ 840 IF FM$="M" THEN GOTO 890 850 IF FM$="m" THEN GOTO 890 860 IF FM$="F" THEN GOTO 1040 870 IF FM$="f" THEN GOTO 1040 880 PRINT "I don't understand! - Please re-enter":GOTO 830 890 REM BLACK – TWO-EYED – MALE 900 PRINT "IS HE LOOKING TO HIS (L)EFT OR (R)IGHT";:INPUT LR$ 910 IF LR$="R" THEN PRINT "KING OF CLUBS":GOTO 5000 920 IF LR$="r" THEN PRINT "KING OF CLUBS":GOTO 5000 930 IF LR$="L" THEN GOTO 960 940 IF LR$="l" THEN GOTO 960 950 PRINT "I don't understand! - Please re-enter":GOTO 900 960 REM BLACK – TWO-EYED – MALE – LOOKING TO THEIR LEFT 970 REM EITHER KS or JC 980 PRINT "DOES HE HAVE A SWORD? (Y)ES/(N)O";:INPUT X$ 990 IF X$="Y" THEN PRINT "KING OF SPADES":GOTO 5000 1000 IF X$="y" THEN PRINT "KING OF SPADES":GOTO 5000 1010 IF X$="N" THEN PRINT "JACK OF CLUBS":GOTO 5000 1020 IF X$="n" THEN PRINT "JACK OF CLUBS":GOTO 5000 1030 PRINT "I don't understand! - Please re-enter":GOTO 980 1040 REM BLACK – TWO-EYES - FEMALE 1050 PRINT "IS SHE LOOKING TO HER (R)IGHT OR (L)EFT HAND";:INPUT FL$ 1060 IF FL$="R" THEN PRINT "QUEEN OF CLUBS":GOTO 5000 1070 IF FL$="r" THEN PRINT "QUEEN OF CLUBS":GOTO 5000 1080 IF FL$="L" THEN PRINT "QUEEN OF SPADES":GOTO 5000 1090 IF FL$="l" THEN PRINT "QUEEN OF SPADES":GOTO 5000 1100 PRINT "I don't understand! - Please re-enter":GOTO 1050 5000 REM PLAY AGAIN? 5010 PRINT "WOULD YOU LIKE TO HAVE ME GUESS AGAIN";:INPUT AG$ 5030 IF AG$="Y" THEN GOTO 100 5040 IF AG$="y" THEN GOTO 100 5050 IF AG$="N" THEN 5080 5060 IF AG$="n" THEN 5080 5070 PRINT "I don't understand! - Please re-enter":GOTO 5010 5080 PRINT "OKAY- BYE!":END