54 lines
1.4 KiB
Plaintext
54 lines
1.4 KiB
Plaintext
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
|