Atari ST series - Page 178

CHAPTER 7
move.w dO,DELX(a5) * = width of this character
clr.w SOURCEY(a5) * start at top line of character
dc.w Textblt * print the character
bra blit_one * then do the next one
*** wait for key press, then end
exit:
move.w #l,-(sp) * call conin() to wait for key press
trap #1
addg.l #2,sp
move.l #0,-(sp) * GEMDOS terminate command
trap «l * call GEMDOS and exit
*** String data is stored here
.data
string: dc.b "I'm feeling a bit skewed today...",0
*** Temporary storage area for special effects buffer
.bss
buffer ds.w 6
.end
170