daily pastebin goal
13%
SHARE
TWEET

Untitled

a guest Apr 16th, 2018 65 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top