Makes random numbers for LOTO Games

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Project ZEDBEL LOTO
Rem Created: 21-09-2004 16:26:21

REM START ZEDBELWORLD

REM LOAD BITMAP
LOAD BITMAP "pics\bd07.bmp"

SET CURSOR 100,100
PRINT "ZEDBEL  LOTO  HELP"
WAIT (2000)
SET CURSOR 200,200
PRINT "WELCOME TO THIS PROGRAM"
WAIT (2000)
SET CURSOR 200,220
PRINT "CHARGING TOOLS"
WAIT (1000)
SET CURSOR 200,220
PRINT "CHARGING TOOLS."
WAIT (1000)
SET CURSOR 200,220
PRINT "CHARGING TOOLS.."
WAIT (1000)
SET CURSOR 200,220
PRINT "CHARGING TOOLS..."
WAIT (1000)
SET CURSOR 200,220
PRINT "CHARGING TOOLS...."
WAIT (1000)
CLS

REM LOAD BITMAP
LOAD BITMAP "pics\bd07.bmp"

SET CURSOR 250,250
PRINT "COMPLETE"
WAIT (2000)
CLS
SET CURSOR 100,250
PRINT "WHENEVER YOU WANT TO LEAVE THE PROGRAM PRESS ESCAPE"
WAIT (5000)
cls

REPEAT

REM LOAD BITMAP
LOAD BITMAP "pics\bd02.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD
SET CURSOR 250,250
INPUT "PRESS ENTER>";a$
SET CURSOR 270,270
PRINT RND(49)
WAIT (5000)
CLS

REM LOAD BITMAP
LOAD BITMAP "pics\bd04.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD
SET CURSOR 250,250
INPUT "PRESS ENTER>";a$
SET CURSOR 270,270
PRINT RND(49)
WAIT (5000)
CLS

REM LOAD BITMAP
LOAD BITMAP "pics\bd02.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD
SET CURSOR 250,250
INPUT "PRESS ENTER>";a$
SET CURSOR 270,270
PRINT RND(49)
WAIT (5000)
CLS

REM LOAD BITMAP
LOAD BITMAP "pics\bd04.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD
SET CURSOR 250,250
INPUT "PRESS ENTER>";a$
SET CURSOR 270,270
PRINT RND(49)
WAIT (5000)
CLS

REM LOAD BITMAP
LOAD BITMAP "pics\bd02.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD
SET CURSOR 250,250
INPUT "PRESS ENTER>";a$
SET CURSOR 270,270
PRINT RND(49)
WAIT (5000)
CLS

REM LOAD BITMAP
LOAD BITMAP "pics\bd04.bmp"

REM a$ LETTER SIMBOLIZES THE EXPRESSION ZEDBELWORLD
SET CURSOR 250,250
INPUT "PRESS ENTER>";a$
SET CURSOR 270,270
PRINT RND(49)
WAIT (5000)
CLS

REM LOAD JPEG
LOAD BITMAP "pics\bd07.bmp"
WAIT (3000)
PRINT "A NEW ROUND WILL START IN 5 SECONDS"
WAIT (5000)
CLS
UNTIL 0
ENABLE ESCAPEKEY