cls
COLOUR RGB(GREEN)                     'set text colour
sp1$ = "Graph_01.spr"                 'parameters 242, 1, 260  
'sp1$ = "Graph_01A.spr"                'parameters 242 1, 260    NOTE, no comma after 242        

print @(10, 20)  "Sprite File = " sp1$
box 1, 1, mm.hres - 1, mm.vres - 15

do  
 print @(10,40) "Iterations  = " str$(ctr)
 sprite load sp1$, 1                 'load the graph sprite
 sprite load sp1$, 2                 'load graph sprite as #2
 sprite load sp1$, 3                 'load graph sprite as #3
 sprite show 1, 30, 200, 1           'display the sprite
 sprite show 2, 270,200, 1           'display the sprite displaced 240 pixels
 sprite show 3, 510,200, 1           'display the sprite displaced another 240 pix
 pause 50
 sprite hide all
 pause 50
 SPRITE CLOSE ALL
 ctr = ctr + 1
loop

mode 1,12
page write 1:cls
page write 0:cls

' draw grid and stuff on page 0, which is behind
for x = 0 to MM.HRES step 25
 line x,0,x,MM.VRES,1,&hF404040
next x

for x = 0 to MM.VRES step 25
 line 0,x,MM.HRES,x,1,&hF404040
next x

' add some text, background colour = -1 so grid is not erased behind text
text 100, 50,"A slowly changing signal",,2,,rgb(red),-1
text 100, 75,"A medium signal",,2,,rgb(green),-1
text 100,100,"A faster signal",,2,,rgb(blue),-1
text MM.HRES/2,MM.VRES/2+10,"Press any key to quit...","CM",,,,-1

' draw chart on page 2, which will get copied to page 1 later
page write 2
t = 0
do
 cls
 ps1 = PlotFunc(1,t)
 ps2 = PlotFunc(1.7,t)
 ps3 = PlotFunc(3,t)
 for i = 5 to MM.HRES step 5
   pe1 = PlotFunc(1,i+t)
   pe2 = PlotFunc(1.7,i+t)
   pe3 = PlotFunc(3,i+t)
   line i-5,ps1,i,pe1,1,rgb(red)
   line i-5,ps2,i,pe2,1,rgb(green)
   line i-5,ps3,i,pe3,1,rgb(blue)
   ps1 = pe1
   ps2 = pe2
   ps3 = pe3
 next i
 t = t + 5
page copy 2,1,B   ' copy to plot to page 1, the top page
loop until inkey$ <> ""


function PlotFunc(pitch,x)
 PlotFunc = MM.VRES/2 + MM.VRES/2 * .95 * sin(pitch * x / 500)
end function

mode 1,12
page write 1:cls
page write 0:cls

' draw grid and stuff on page 0, which is behind
for x = 0 to MM.HRES step 25
 line x,0,x,MM.VRES,1,&hF404040
next x

for x = 0 to MM.VRES step 25
 line 0,x,MM.HRES,x,1,&hF404040
next x

' add some text, background colour = -1 so grid is not erased behind text
text 100, 50,"A slowly changing signal",,2,,rgb(red),-1
text 100, 75,"A medium signal",,2,,rgb(green),-1
text 100,100,"A faster signal",,2,,rgb(blue),-1
text MM.HRES/2,MM.VRES/2+10,"Press any key to quit...","CM",,,,-1

' draw chart on page 2, which will get copied to page 1 later
page write 2 : cls

t = MM.HRES
ps1 = PlotFunc(1  ,t) ' compute starting y-coord of plot segments
ps2 = PlotFunc(1.7,t)
ps3 = PlotFunc(3  ,t)
do
 blit 5,0,0,0,MM.HRES-5,MM.VRES : box MM.HRES-5,0,5,MM.VRES,0,,0
'  page scroll 2,-5,0,0  ' scroll page 2 left 5 pixels, fill in with black
 t = t + 5
 pe1 = PlotFunc(1  ,t) ' compute ending y-coord of plot segments
 pe2 = PlotFunc(1.7,t)
 pe3 = PlotFunc(3  ,t)
 line MM.HRES-5,ps1,MM.HRES,pe1,1,rgb(red)
 line MM.HRES-5,ps2,MM.HRES,pe2,1,rgb(green)
 line MM.HRES-5,ps3,MM.HRES,pe3,1,rgb(blue)
 ps1 = pe1   ' start next segment from end of previous
 ps2 = pe2
 ps3 = pe3
 page copy 2,1,B   ' copy to plot to page 1, the top page
loop until inkey$ <> ""

function PlotFunc(pitch,x)
 PlotFunc = MM.VRES/2 + MM.VRES/2 * .95 * sin(pitch * x / 500)
end function