Sorry on the Email,but yea, Thats great! on the code
by
(no login)
Ok Bob,
I can't imagen what it is on the e-mail,
I tried 2 more useing upper case,..that seem odd, but like you said on the code,
that works good,
----code below again-----
SCREEN 12
OPEN "Agmen.AXB" FOR BINARY AS #1
ArraySIZE& = (LOF(1) - 7) / 2
DIM AgmenARRAY(1 TO ArraySIZE&) AS INTEGER
CLOSE #1
DEF SEG = VARSEG(AgmenARRAY(1))
BLOAD "Agmen.AXB", VARPTR(AgmenARRAY(1))
DEF SEG
'Set palette
OUT &H3C8, 0
FOR n = 9 TO 56
OUT &H3C9, AgmenARRAY(n)
NEXT n
'Display the frames in sequence
FOR i = 0 TO AgmenARRAY(57) - 1
PUT (100, 100), AgmenARRAY(58 + i * 1635), PSET
a$ = INPUT$(1) 'pause between frames ,on
'this line, when I hit anykey, it moves
'to the next frame,What would need to do so
'it just keeps looping by itself, with no
'key input
NEXT i
---------end code-----
There is some questions, on a couple of lines, I inserted them above, and then Where would I want to put in a line :
PLAY "MBabcdefg"
so that these notes are play each time it
loops ?
There is no hurry on this, and I like the
original code, as it is, as with that I can move slowly thru the sequence,one at a
time, for me this is very useful,........
Do I make sense ? hope so,
Ok guess thats about it, hope you are not missing e-amails, that seems strange,
Also in the meanwhile I will keep looking
in your tutorial, to see if I can understand more, I hate to keep bothering
you...
thanks from
Garry