Do you want a typewriter effect? That is very possible.
set display mode 1024,768,32
hide mouse
sync on
sync rate 10
rem we store our complete message here
msg$ = "Once upon a time, in a land far, far away... there was a coder called ACP2142. A ver strange name indeed..."
disp$ = "" :`this stores the part of the message that has been "typed" for display
c = 0 :`this points to the next character to copy to disp$
`---------------
` Main Loop
`---------------
Do
if c <= len(msg$)
disp$ = left$(msg$,c)
inc c
endif
ink -2,0
print disp$
rem graphical display to show we can do other things while
rem the typewriter is writing. It doesn't halt the program.
boxo(20,20,1004,748,20)
sync:cls
Loop
`----------------
` Functions
`----------------
Function boxo(ax,ay,bx,by,space)
ink 0-rnd(16777215),0
box ax,ay,bx,by
if (bx-ax)+(by-ay) > (space+space) then boxo(ax+space,ay+space,bx-space,by-space,space)
Endfunction
TGC Forum - converting error messages into sarcasm since 2002.