home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01b.d64 / fall letters1.fb (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  185 b   |  7 lines
  1. 10 print"[147]"
  2. 20 m$="* * * falling letters * * *"
  3. 30 ln=05
  4. 40 b=len(m$):ct=(40-b)/2-1:for a=1tob:x$=mid$(m$,a,1):printchr$(19)
  5. 50 if x$<>" "thenfor t=1to ln-2:printtab(ct+a)x$chr$(145):printtab(ct+a)" "
  6. 60 next:printtab(ct+a)x$:next
  7.