Guess My Number - Printable Version

Code: (Select All)

    a = 100: DIM d(a): x=0: k=0: t$=CHR$(9): RANDOMIZE TIMER 'tas_ten.bas

    PRINT ,: FOR i = 1 TO a: d(i)=i: NEXT

    FOR i = 1 TO 5: PRINT d(i);: NEXT: PRINT ,

    FOR i = a-3 TO a: PRINT d(i);: NEXT: z = TIMER

    OPEN "control.txt" FOR OUTPUT AS #1 



WHILE x < 1

v = 0: FOR i = 1 TO a



1 m = INT(RND*a)+1: IF ABS(d(i)-d(m)) < .1*a THEN v = v+1: GOTO 1



PRINT #1, ABS(d(i)-d(m)); t$; d(i); t$; d(m); t$; i; t$; m; t$; d(i)/d(m); t$; d(m)/d(i)

t = d(i): d(i) = d(m): d(m) = t

NEXT   

        s = 0: FOR i = 1 TO a

            IF d(i) = i THEN s = s+1

        NEXT



       5 k = k+1: PRINT: PRINT s; v,: IF s=0 THEN x = x+1

     

        FOR i = 1 TO 5

            IF d(i) = i THEN PRINT -d(i); ELSE PRINT d(i);

        NEXT: PRINT ,

        FOR i = a-3 TO a

            IF d(i) = i THEN PRINT -d(i); ELSE PRINT d(i);

        NEXT

WEND



PRINT: PRINT "    = "; k, TIMER-z: END

Code: (Select All)

 41     70     29     91     18     2.413793     .4142857

 59     24     83     92     38     .2891566     3.458333

 14     32     46     93     44     .6956522     1.4375

 23     10     33     94     88     .3030303     3.3

 29     19     48     95     36     .3958333     2.526316

 11     41     30     96     11     1.366667     .7317073

 38     1     39     97     21     2.564103E-02     39

 60     26     86     98     55     .3023256     3.307692

 17     4     21     99     58     .1904762     5.25

 26     100     74     100     59     1.351351     .74

Code: (Select All)

00 00 01 11 10 01 11 10 01 11 10 01 ...

A  A  B  D  C  B  D  C  B  D  C  B ...

AABDCBDCBDCB ...

Code: (Select All)

1 SCREEN _NEWIMAGE(1280, 720, 32)

2

3 FOR j = 0 TO 1

   4 CLS

   5 PRINT "Bite MY Lucky Seven"

   6 PRINT "Most games want you to guess from 1 to 100, but I'm smarter than them."

   7 PRINT "Choose any whole number from 0 to 127, and give me 7 guesses."

   8 PRINT "I bet after that time, I can tell you what the number is."

   9 PRINT CHR$(13); "Choose your number and press any key to begin"

   10 junk$ = INPUT$(1)

   11 guess = 64

   12 CLS

   13 FOR i = 5 TO 0 STEP -1

       14 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i + 1)

       15 PRINT "For Guess #"; (6 - i); ", my guess is"; guess

       16 PRINT CHR$(13); "Am I:  (0) Correct   (1) High   (2) Low"; CHR$(13)

       17 PRINT "PRESS 0, 1, or 2 please for your answer =>";

       18 a = VAL(INPUT$(1))

       19 PRINT a; CHR$(13); CHR$(13)

       20 i = i - ((a - 1) AND 2) / 2 * i 'answer 0, and we win

   21 NEXT

   22 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i +1)

   23 PRINT "Your number is "; guess

   24 PRINT

   25 PRINT "Would you like to:     (1) Try again"

   26 PRINT "                       (2) Run away crying, unable to stop my awesome power"

   27 a = VAL(INPUT$(1))

   28 j = 1 - (1 AND a)

29 NEXT

30 END

Code: (Select All)

n = 1000: Dim d(80,80): Randomize Timer ' kletka.bas

Dim a(n): For i = 1 To n: a(i) = Int(rnd+0.5): Next

' wave ' a(i)=Sin(i)+Cos(i) 

For k = 60 To 13 Step -1: s = Int(n/k): Screen 12



    f = 0: For i = 1 To s: For j = 1 To k ' DANILIN

    f = f+1: d(i,j) = a(f): Next: Next: Cls



    For i = 1 To s: For j = 1 To k

        If d(i,j) = 1 Then c = 7 Else c = 0 'color c=(i+j) Mod 5 

            For m = 0 To 7:

            Line (i*8,j*8+m)-(i*8+7,j*8+m),c

    Next: Next: Next

_Delay .5: Next: End