CC.BAS

CLS
PRINT TAB(10); "JOGO DA CARA OU COROA"
   PRINT TAB(10); "====================="
5  FOR E = 0 TO 10000
   NEXT E
   CLS
   PRINT

10 PRINT "CARA OU COROA?"
   DO
   INPUT ESCOLHA$
   LET ESCOLHA$ = UCASE$(ESCOLHA$)
   LOOP UNTIL ESCOLHA$ = "THAU" OR ESCOLHA$ = "CARA" OR ESCOLHA$ = "COROA"
   IF ESCOLHA$ = "THAU" THEN END
   IF ESCOLHA$ = "CARA" OR ESCOLHA$ = "COROA" THEN 20

20 RANDOMIZE TIMER
   A = INT(RND * 4)
   IF A > 2 THEN SORTE$ = "CARA"
   IF A < 2 THEN SORTE$ = "COROA"
   IF SORTE$ = ESCOLHA$ THEN PRINT "SAIU "; SORTE$; "! VOCE GANHOU!"
   IF SORTE$ <> ESCOLHA$ THEN PRINT "SAIU "; SORTE$; "! VOCE PERDEU!"
   GOTO 5