\
  FillScreen1
              \
Var
   WP as @Word
   WPP as @LongInt
\  B as Byte \
   I as Word
   P as Pointer
Enter
  P=@@WP
  @WPP=P
  For I=0 To &H1FFF Do
    WPP=&HB8000000+2*I
  \ B=I \
    WP=&H0500+I\B\
  Next
Leave