Package FScr3
\
  FillScreen3
              \
Type
    WordPtr is ^Word
Var
   TextScreen as ^Word
   I as Word
Enter
  For I=0 To &H1FFF Do
     (WordPtr(&HB800,&H0000)+(I<<1))^=~((Word(High(I))<<8)|Low(I));
Leave