Category : Science and Education
Archive   : ALPHA-1.ZIP
Filename : ALPHA2.GL

"$alpha2.txtÈvideo g

opengl flixlogo
call flix
resetgl

opengl title
call title
resetgl

color 0
clearscr

fload russell

set rseed (@rseed>>13)^@rseed ;rnd routine
set rseed ((@rseed<<18)^@rseed)&0x7fffffff ;rnd routine
set letter @rseed%20+1 ;a random number between 1 and 20



another:
set rseed (@rseed>>13)^@rseed ;rnd routine
set rseed ((@rseed<<18)^@rseed)&0x7fffffff ;rnd routine
set color @rseed%63+1 ;a random number between 1 and 63
if @color==0 another
if @color==8 another
if @color==16 another
if @color==24 another
if @color==32 another
if @color==40 another
if @color==48 another
if @color==49 another
if @color==56 another



setpage 0 0
gosub @letter

set letter @letter+1
if @letter>26
set letter 1
goto more
else

more:

waitkey 100
color 0
clearscr

goto another

exit

15:
opengl acorn
call acorn
resetgl
return

17:
opengl banana
call banana
resetgl
return

12:
opengl cat
call cat
resetgl
return

4:
opengl deer
call deer
resetgl
return

9:
opengl ear
call ear
resetgl
return

21:
opengl fish
call fish
resetgl
return

19:
opengl gate
call gate
resetgl
return

1:
opengl hammer
call hammer
resetgl
return

8:
opengl ice
call ice
resetgl
return

26:
opengl jack
call jack
resetgl
return

5:
opengl kite
call kite
resetgl
return

18:
opengl leaf
call leaf
resetgl
return

14:
opengl monkey
call monkey
resetgl
return

2:
opengl net
call net
resetgl
return

3:
opengl orange
call orange
resetgl
return

16:
opengl pencil
call pencil
resetgl
return

24:
opengl quarter
call quarter
resetgl
return

6:
opengl ruler
call ruler
resetgl
return

20:
opengl scissors
call scissors
resetgl
return

22:
opengl turtle
call turtle
resetgl
return

10:
opengl umbrella
call umbrella
resetgl
return

11:
opengl volcano
call volcano
resetgl
return

25:
opengl wagon
call wagon
resetgl
return

23:
opengl xray
call xray
resetgl
return

13:
opengl yoyo
call yoyo
resetgl
return

7:
opengl zebra
call zebra
resetgl
return