home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_25_1988_Transactor_Publishing.d64 / growprint (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  246b  |  7 lines
  1. 0 rem transactor vol. 9, iss. 2 pg. 8
  2. 10 poke 53281,0: a$="growing print":c=1:gosub 2000
  3. 20 print: a$="by jeremy hubble":c=2:gosub2000:end
  4. 2000 d1=10:poke646,c:a=len(a$):if a/2<>int(a/2)then a$=a$+" ":goto2000
  5. 2010 for b=1 to a/2:print tab(21-b)left$(a$,b)right$(a$,b)"[145]"
  6. 2020 ford=1tod1:next:next:print:return
  7.