home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
601-625
/
apd602
/
warp9.amos
/
warp9.amosSourceCode
Wrap
AMOS Source Code
|
1993-02-25
|
777b
|
53 lines
Rem
Rem Take us out of here Mr Scott, warp factor 9!
Rem
Rem BOUCH '91
Rem
Screen Open 0,320,270,32,Lowres
Screen Display 0,128,40,320,270
Double Buffer
Autoback 1
Curs Off
Flash Off
Hide
Cls 0
Randomize Timer
SIZE=0
Colour 31,0
For CL=0 To 30
Colour CL,0
Ink CL
Bar 2+SIZE,2+SIZE To 319-SIZE,250-SIZE
Add SIZE,4
Next
R=0
G=0
B=0
L=0
RR=0
RG=0
RB=0
Do
If L=0
RR=0
RG=0
RB=0
C=Rnd(2)
If C=0 : RR=-Sgn(R-14) : End If
If C=1 : RG=-Sgn(G-14) : End If
If C=2 : RB=-Sgn(B-14) : End If
L=15
End If
For A=0 To 30
Colour A,Colour(A+1)
Next
Add R,RR
Add G,RG
Add B,RB
Dec L
Colour 30,R*256+G*16+B
Exit If Inkey$<>""
Wait Vbl
Loop
Rem
Rem If I give her any more she'll blow!!