home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / Fade Away (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  339 b   |  12 lines
  1. 10 poke53280,0:poke53281,0:print"[147]":c$="[155][152][151][144]":d$=""
  2. 20 a$="hello":s=24:e=1:gosub60000
  3. 25 a$="&":s=24:e=3:gosub60000
  4. 30 a$="good-bye":s=24:e=5:gosub60000
  5. 40 end
  6. 60000 forx=stoestep-1:fory=0to(s-x)+(x<s-4)*(s-4-x)
  7. 60010 printleft$(d$,x+y)tab(20-len(a$)/2)mid$(c$,y+1,1)a$"":nexty,x
  8. 60020 forc=2to5:fory=1to5-c
  9. 60025 printleft$(d$,e+y)tab(20-len(a$)/2)mid$(c$,c+y,1)a$""
  10. 60030 nexty,c
  11. 60035 return
  12.