10 REM > BLib.HiBASIC2 1.00 26Nov1997
   20 :
   30 REM Run Programs above BASIC on 65Tube by byte copying
   40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   50 :
   60 DEFFNhimem0:IFHIMEM=&B800 OR HIMEM>&FFFF:=HIMEM
   70 A%=130:IF((USR&FFF4)AND&FFFF00)=&FFFF00 OR ?&FFF7<>&6C:=HIMEM
   80 IFPAGE=&C000:LOMEM=&800:=&8000
   90 FORA%=0TOTOP-PAGE+3STEP4:A%!&C000=A%!PAGE:NEXT
  100 PAGE=&C000:HIMEM=&F800:RUN
  110 DEFFNhimem1:IFHIMEM<PAGE:=&F800 ELSE =HIMEM
  120 DEFFNhimem2:IFHIMEM<PAGE:PAGE=&800:?&801=-1:=HIMEM ELSE =HIMEM