'

'

'

Procedure STORM

Rem *******************************************

Rem ** produced with storm rainbow editor v1 **

Rem **               storm rainbow!          **

Rem **               copyright 1992          **

Rem *******************************************

Restore MAGICCOLOURS

Set Rainbow 1,0,280,"","",""

Rainbow 1,0,0,280

For I=0 To 279

Read A : Rain(1,I)=A

Next I : View

MAGICCOLOURS:

data $0,$0,$0,$0,$0,$0,$0,$0

data $0,$0,$0,$0,$100,$200,$200,$200

data $200,$200,$200,$200,$200,$200,$200,$300

data $400,$400,$400,$400,$400,$400,$400,$400

data $400,$400,$400,$500,$600,$600,$600,$600

data $600,$600,$600,$600,$700,$700,$700,$700

data $700,$700,$800,$900,$900,$900,$900,$A00

data $A00,$A00,$A00,$A00,$B00,$B00,$B00,$B00

data $B00,$C00,$C00,$C00,$C00,$C00,$C00,$D00

data $D00,$D00,$D00,$D00,$E00,$E00,$E00,$E00

data $E00,$F00,$F00,$F00,$F00,$F00,$F00,$F00

data $F00,$F00,$F00,$F00,$F00,$F00,$F00,$F10

data $F10,$F10,$F20,$F20,$F20,$F20,$F30,$F30

data $F30,$F40,$F50,$F50,$F50,$F60,$F60,$F60

data $F70,$F70,$F70,$F80,$F90,$F90,$F90,$F90

data $F90,$F90,$F90,$F90,$F90,$F90,$FA0,$FA0

data $FA0,$FA0,$FB0,$FB0,$FB0,$FC0,$FC0,$FC0

data $FC0,$FC0,$FC0,$FC0,$FC0,$FC0,$FC0,$FD0

data $FD0,$FD0,$FD0,$FD0,$FD0,$FD0,$FE0,$FE0

data $FE0,$FE0,$FE0,$FF0,$FF0,$FF0,$FF0,$FF0

data $FF0,$FF1,$FF1,$FF1,$FF1,$FF1,$FF1,$FF2

data $FF2,$FF2,$FF2,$FF2,$FF3,$FF3,$FF3,$FF3

data $FF3,$FF4,$FF4,$FF4,$FF4,$FF5,$FF5,$FF5

data $FF5,$FFA,$FFA,$FFA,$FFA,$FFB,$FFB,$FFE

data $FFE,$FCF,$FCF,$FCF,$FAF,$FAF,$FAF,$FAF

data $FAF,$F8F,$F8F,$F8F,$F8F,$F7F,$F5F,$F5F

data $F4F,$F1F,$F1F,$F1F,$F1F,$D0F,$D0F,$C0F

data $C0F,$90F,$80F,$80F,$50F,$40F,$30F,$30F

data $30F,$30F,$20F,$20F,$10F,$10F,$F,$F

data $E,$E,$E,$E,$E,$E,$D,$D

data $D,$C,$C,$C,$C,$A,$A,$A

data $9,$9,$8,$7,$7,$6,$6,$6

data $6,$6,$6,$6,$5,$5,$4,$4

data $4,$3,$3,$3,$3,$3,$3,$3

data $3,$3,$2,$2,$1,$1,$1,$0

REM ** storm 92 **

End proc