' test program for colours

global y2 y3 y4 y5 y6

MAIN

' FUNCTION ShowMin()
  y2 = format("˙Reservation˙","M16")
'   screen print 22 1 14 15 y2
  screen print 22 1 14 7 y2
  y3 = format(" Not ready for delivery ","M27")
  screen print 22 17 4 7 y3
  y4 = format(" Ready for delivery ","M23")
  screen print 22 44 10 7 y4
'   y5 = format("˙Order HELD˙","M12")
'   screen print 22 58 fgp bge y5
  y6 = format("˙Assisting ","M14")
  screen print 22 67 11 7 y6
inchar
' END FUNCTION ' ShowMin()
END MAIN