' Esto es un comentario y la ' se podria sustituir por REM
' Defino p como variable de doble precision, esto implica
' que esta variable podra guardar mas informacion que si
' fuese entera.

DEFDBL p 

' cada get que yo haga sera de unas dimensiones equivalentes
' a las definidas por (x1,y1)-(x2,y2).

y1=0
y2=10
x1=0
x2=0

' prec es 8 por el hecho de que p es de doble pre-
' cision, esto quiere decir que cada p nos almacenara 
' 8 bytes de nuestro dibujo, el determinado por (X1,Y1)-(X2,Y2).

PREC=8

' TAM& me dice la dimension de la matriz P que dependera de
' (X1,Y1)-(X2,Y2), del numero de colores y del tipo de varia-
' ble que sea p, en este caso de doble precision.

' D es la profuncidad de pantalla y 2^D nos da el numero de
' colores.

D=1 ' 2^1=2 colores.

tam&=(6+(y2-y1+1)*2*INT((x2-x1+16)/16)*D)/PREC

DIM p(tam&)

' Este es el texto que voy a "scrolar"

T$="AMIGAZETA 1989"

SCREEN 2,320,200,D,1
WINDOW 1,"AQUI PONGO EL TEXTO",(0,0)-(311,185),16,2
LOCATE 1,1
PRINT  T$
WINDOW 2,"AQUI HAGO EL SCROLL",(0,0)-(311,185),0,2

' Este bucle se repite hasta que la altura a la que 
' hacemos el escroll llege a ser el borde inferior de
' nuestra ventana (h=180).

WHILE h<180
  FOR i=0 TO 311
    WINDOW OUTPUT 1
    GET (i,0)-(i,10),p
    WINDOW OUTPUT 2
    SCROLL (0,0)-(311,185),-1,0
    PUT(311,h),p,PSET 
  NEXT i
  h=h+10
WEND
           
END