home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01b.d64 / fall letters2.fb (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  370 b   |  13 lines
  1. 10 print"[147]"
  2. 20 m$="[158] * * *  f a l l i n g     [144]"
  3. 30 ln=10
  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. 110 print""
  8. 120 m$="        l e t t e r s  * * *[144]"
  9. 130 ln=13
  10. 140 b=len(m$):ct=(40-b)/2-1:for a=1tob:x$=mid$(m$,a,1):printchr$(19)
  11. 150 if x$<>" "thenfor t=1to ln-2:printtab(ct+a)x$chr$(145):printtab(ct+a)" "
  12. 160 next:printtab(ct+a)x$:next
  13.