' File: finescr2.lst
'
'  ' Example of fine screen scrolling
'  ====================================
'
FOR xo=0 TO 639 STEP 30                 ! Generate a test picture
  FOR xu=220+xo/60 TO 420 STEP 10
    LINE xo,0,xu,399
  NEXT xu
NEXT xo
'
ass$=SPACE$(100)        ! Load the assembler part
ass%=VARPTR(ass$)
BLOAD "finescr2.sup",ass%    ! you can change the filename if required
'
DO
  VOID C:ass%()
LOOP