Sorry your browser is not supported!

start:
     CLS
     INPUT "Press ENTER to roll dice...", A$
     PRINT
     Die1 = INT(RND(5) + 1)
     Die2 = INT(RND(5) + 1)
     PRINT "Die 1: "; Die1
     PRINT "Die 2: "; Die2
WAIT KEY : GOTO start

start:
CLS
   PRINT "I am the magical Fortune Teller."
   INPUT "Ask your question here...: ", A$
   PRINT
      Answer = INT(RND(4) + 1)
     SELECT Answer
       CASE 1 : PRINT "Yes, definitely." : ENDCASE
       CASE 2 : PRINT "Ask again, later." : ENDCASE
       CASE 3 : PRINT "No way!" : ENDCASE
       CASE 4 : PRINT "It is certain." : ENDCASE
       CASE 5 : PRINT "Yes." : ENDCASE
     ENDSELECT
WAIT KEY : GOTO start

CLS
   FOR I = 5 TO 200 STEP 5
      CIRCLE 320, 240, I
   NEXT I
WAIT KEY

CLS
   DO
      IF INKEY$() <> "" AND PRESS = 0 THEN PRESS = 1
         IF PRESS = 1
            PRESS = 2
               Key$ = INKEY$()
               PRINT Key$;
         ENDIF
      IF INKEY$() = "" THEN PRESS = 0
   LOOP

CLS
GOSUB COUNTER1
GOSUB COUNTER1
GOSUB COUNTER1
PRINT
GOSUB COUNTER2
GOSUB COUNTER2
GOSUB COUNTER2
WAIT KEY

COUNTER1:
   C = C + 1
   PRINT "C = ",C
RETURN

COUNTER2:
   LOCAL C
   C = C + 1
   PRINT "C = ",C
RETURN

CLS
PRINT "Welcome to Number Guesser"
PRINT "I'm thinking of a number between 1 and 10."
Number = INT(RND(9) + 1)
   DO
      INPUT "What is your guess? ", Guess
      IF Guess = Number
         PRINT "Correct!"
         WAIT KEY : END
            ELSE
               IF Guess < Number
                  PRINT "up"
                     ELSE
                        IF Guess > Number
                           PRINT "down"
                        ENDIF
               ENDIF
      ENDIF
    LOOP