A simple numbers game Guess the number

A simple numbers game
Guess the number that the computer thinks

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem *********************************************************************************************************************************************
Rem
Rem
Rem                           AAAA    AAAA   AA   AA AAAAA   AA      AAAAAA           AAAA     AA    AA   AA AAAAAA
Rem                          AA  AA    AA    AA   AA AA  AA  AA      AA              AA  AA   AAAA   AA   AA AA
Rem                          AA        AA    AAA AAA AA  AA  AA      AA              AA  AA  AA  AA  AAA AAA AA
Rem                           AA       AA    AA A AA AA  AA  AA      AA              AA      AA  AA  AA A AA AA
Rem                            AA      AA    AA A AA AAAAA   AA      AAAAA           AA      AA  AA  AA A AA AAAAA
Rem                             AA     AA    AA A AA AA      AA      AA              AA AAA  AAAAAA  AA A AA AA
Rem                              AA    AA    AA   AA AA      AA      AA              AA  AA  AA  AA  AA   AA AA
Rem                          AA  AA    AA    AA   AA AA      AA      AA              AA  AA  AA  AA  AA   AA AA
Rem                           AAAA    AAAA   AA   AA AA      AAAAAA  AAAAAA           AAAAA  AA  AA  AA   AA AAAAAA
Rem
Rem
Rem                          AAAAA   AA  AA          AAAAAA  AAAAA   AA   AA   AA    AA   AA AA   AA  AAAA
Rem                          AA  AA  AA  AA          AA      AA  AA  AA   AA  AAAA   AA   AA AA   AA AA  AA
Rem                          AA  AA  AA  AA          AA      AA  AA  AAA AAA AA  AA  AAA  AA AAA  AA AA  AA
Rem                          AA  AA  AA  AA          AA      AA  AA  AA A AA AA  AA  AAAA AA AAAA AA AA  AA
Rem                          AAAAA    AAAA           AAAAA   AAAAA   AA A AA AA  AA  AA AAAA AA AAAA AA  AA
Rem                          AA  AA    AA            AA      AA AA   AA A AA AAAAAA  AA  AAA AA  AAA AA  AA
Rem                          AA  AA    AA            AA      AA  AA  AA   AA AA  AA  AA   AA AA   AA AA  AA
Rem                          AA  AA    AA            AA      AA  AA  AA   AA AA  AA  AA   AA AA   AA AA  AA
Rem                          AAAAA     AA            AAAAAA  AA  AA  AA   AA AA  AA  AA   AA AA   AA  AAAA
Rem
Rem
Rem                                             AA    AAAA   AAAAAA    AA    AA      AA  AA   AA
Rem                                            AA      AA      AA     AAAA   AA      AA  AA    AA
Rem                                            AA      AA      AA    AA  AA  AA      AA  AA    AA
Rem                                           AA       AA      AA    AA  AA  AA      AA  AA     AA
Rem                                           AA       AA      AA    AA  AA  AA       AAAA      AA
Rem                                           AA       AA      AA    AAAAAA  AA        AA       AA
Rem                                           AA       AA      AA    AA  AA  AA        AA       AA
Rem                                           AA       AA      AA    AA  AA  AA        AA       AA
Rem                                            AA     AAAA     AA    AA  AA  AAAAAA    AA      AA
Rem                                            AA                                              AA
Rem                                             AA                                            AA
Rem
Rem
Rem *********************************************************************************************************************************************

oldSize=text size()
set text size 32
Center text 320,50,"Guess the number that I think !"
set text size oldSize
Center text 320,80,"Simple game 1-99"
mynumber=rnd(98)+1
main:
ink rgb(255,255,255),0
set cursor 20,120+y : input "Write your number ";yournumber
Rem check
set text size 32

if yournumber=mynumber
  center text 320,400,"RIGHT!"
  goto fine
endif
if yournumber<mynumber
 center text 320,400,"TOO SMALL!"
 clear()
endif
if yournumber>mynumber
 center text 320,400,"TOO BIG!"
 clear()
endif
set text size oldSize
inc y,12
goto main
fine:
wait key
end

function clear()
sleep 1000
ink 0,0
box 10,380,640,450
endfunction