Here - 1000 BiT

1 REM A12B-410 REM *** PICK A CARD ***15 POKE 53281,0: LET G=120 PRINT H(clr)(yel)(dn)(dn)(dn)"22 PRINT" PLAYER2: TURN YOUR BACK (dnj(cyn)"24 PRINT" PLAYER1: THINK OF A CARD, HIT RETURN (dn)"26 IN PUT A$30 PRINT"(clr)(dn)(dn)(dn)"32 PRINT " PLAYER1: TELL ME THE SUIT (dn)(pur)"34 PRINT " HEARTS, DIAMONDS. CLUBS OR SPADES (dn)"36 INPUT S$40 PRINT "(cyn)(dn)(dn)(dn)"42 PRINT" NOW, TELL ME THE VALUE 1 TO 13 (dn)"44 INPUT V50 PRINT "(clr)(yel)(dn)(dn)(dn)"52 PRINT" PLAYER2: GUESS THE CARD. WHICH SUIT? (dnj(pur)"54 PRINT " HEARTS, DIAMONDS, CLUBS OR SPADES {dn)"60 INPUT GS$: IF GS$=S$ THEN GOTO 7062 PRINT "(grn)(dn)(dn)"64 PRINT " WRONG, GUESS AGAIN. WHICH SUIT? (dn)(pur)"68 LET G=G+$1: GOTO 6070 PRINT "(clr)(yel)(dn)(dn)(dn)"72 PRINT " RIGHT! NOW, WHAT VALUE 1 TO 13? (dn)"80 INPUT GV: IF GV=V THEN GOTO 9082 PRINT "(grn)(dn)(dn)"84 IF GVV THEN PRINT " WRONG, GUESS LOWER. WHAT VALUE? (dn)(yel)"88 LET G=G+$1: GOTO 8090 PRINT "(clr)(yel)(dn)(dn)(dn)"92 PRINT" CONGRATULATIONS!"94 PRINT" YOU GUESSED IT IN ONLY";G;"TRIES (dn)(dn)"96 PRINT " PLAY AGAIN";: INPUT A$: IF A$="YES" THEN GOTO 1098 PRINT "(dn)(dn)(dn)(dn)"99 PRINT" SEE YOU AGAIN SOON! (wht)"1 REM A13-110 REM*** DICE***15 POKE 53281.020 PRINT "(clr)(dn)(dn)(dn)"22 LET D1=1+$INT(RND(8)*6)24 LET D2=1+$INT(RND(8)*6)30LETD=D1+$D235 PRINT "(dn)";TAB(5);"THE FIRST DIE ";D140 PRINT "(dn)";TAB(5);'THE SECOND DIE";D245 PRINT "(dn)";TAB(5);"THE DICE";D60 FOR T=1 TO 1000: NEXT T99 GOTO 20219