rem: Just copy these variables if you don't already have them and
rem: Paste the code somewhere under the "sub: main"

rem: ALSO - remember to use the "init" command or else the "set speed"
rem: commands will crash the VMU!!!

row = var: 1
col = var: 1
baseadd = var: 1

sub: clrscr
   set speed:fast

   rem: Clear top half of screen
   xbnk = #0
   call: clrhalf

   rem: Clear bottom half of screen
   xbnk = #1
   call: clrhalf

   set speed:slow
end sub

sub: clrhalf
   rem: Sub to clear all 6 bytes of all 16 rows of
   rem: the upper or lower LCD screen (selected with 'xbnk')
   row = #0
   loop
      baseadd = calc_row: row
      col = #0
      loop
         setsfr: baseadd, col, #0
      exit loop: col, #6, #1
   exit loop: row, #16, #1
end sub