10 REM > BLib.HiBASIC2 1.00 26Nov1997
   20 :
   30 REM Run Programs above BASIC on 65Tube by byte copying
   40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   50 :
   60 DEFFNhimem0:A%=130:IF((USR&FFF4)AND&FFFF00)=&FFFF00:=HIMEM
   70 IF?&FFF7<>&6C OR HIMEM=&B800:=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:=HIMEM ELSE =HIMEM