daily pastebin goal
59%
SHARE
TWEET

Untitled

a guest Apr 16th, 2018 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'display text to screen
  2. SUB DText(byref texttoprnt as string, byval xin as integer, byval yin as integer)
  3. xin-=1
  4.  
  5.   for ctd as integer = 1 TO len(texttoprnt)
  6.   cval=asc(texttoprnt,ctd)
  7.  
  8. ' end of line or edge of screen
  9.   if cval<1 or ctd>z-4 then exit for
  10.    
  11.     if mo=1 then
  12.     xtot=sx(xin+ctd):ytot=sy(yin)
  13.     elseif mo=2 then
  14.     xtot=sx(xmax+1-yin):ytot=sy(xin+ctd)
  15.     elseif mo=3 then
  16.     xtot=sx(xmax+1-(xin+ctd)):ytot=sy(ymax+1-yin)
  17.     elseif mo=4 then
  18.     xtot=sx(yin):ytot=sy(ymax+1-(ctd+xin))
  19.     end if
  20.  
  21. 'screen 0
  22. 'print texttoprnt
  23. 'print mo,xin,xtot,yin,ytot
  24. 'print cval,chr(cval)
  25. 'sleep
  26.  
  27.     put (xtot,ytot), chardisp (mo,cval), TRANS
  28.  
  29.   next
  30. End Sub
RAW Paste Data
Top