function main()

   Scroll()
   DevPos (MAXROW(), 0)
   Qout( "If the GT API was linked in, the rest of the screen should be blank now." )
   Pause()
   Scroll()
   DevPos (0, 0)
   QQOUT("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   QOUT ("01234567890123456789012345678901")
   DevPos (3, 5)
   Qqout ("                      ")
   DevPos (4, 5)
   Qqout (" This is a test.      ")
   DevPos (5, 5)
   Qqout (" This is only a test. ")
   DevPos (6, 5)
   Qqout (" Had this been a real ")
   DevPos (7, 5)
   Qqout (" emergency, you would ")
   DevPos (8, 5)
   Qqout (" be dead now.         ")
   DevPos (9, 5)
   Qqout ("                      ")
   Pause()
   Scroll (1, 1, 11, 30, -2, -5)
   pause()
   Scroll (1, 1, 11, 30, 2, 5)
   pause()
   Scroll (1, 1, 11, 30, -5, 2)
   pause()
   Scroll (1, 1, 11, 30, 7, -12)
   pause()
   Scroll (1, 1, 11, 30)
   pause()

return nil

function pause()
   DevPos (MAXROW() - 2, 0)
   __ACCEPT ("pause: ")
return nil