Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'display text to screen
- SUB DText(byref texttoprnt as string, byval xin as integer, byval yin as integer)
- xin-=1
- for ctd as integer = 1 TO len(texttoprnt)
- cval=asc(texttoprnt,ctd)
- ' end of line or edge of screen
- if cval<1 or ctd>z-4 then exit for
- if mo=1 then
- xtot=sx(xin+ctd):ytot=sy(yin)
- elseif mo=2 then
- xtot=sx(xmax+1-yin):ytot=sy(xin+ctd)
- elseif mo=3 then
- xtot=sx(xmax+1-(xin+ctd)):ytot=sy(ymax+1-yin)
- elseif mo=4 then
- xtot=sx(yin):ytot=sy(ymax+1-(ctd+xin))
- end if
- 'screen 0
- 'print texttoprnt
- 'print mo,xin,xtot,yin,ytot
- 'print cval,chr(cval)
- 'sleep
- put (xtot,ytot), chardisp (mo,cval), TRANS
- next
- End Sub
Add Comment
Please, Sign In to add comment