home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 25 / Digital_Talk_25_1997-05-25_Digital_Talk_de_Side_A.d64 / !basic-flackern (.txt) next >
Commodore BASIC  |  2023-02-26  |  433b  |  12 lines
  1. 0 s=0 : d=1 : a$=" [161] " : for i=0 to 22 : a$=a$+"[157][157][157] [161] " : next
  2. 1 fori=0to1:print""spc(s)a$;:s=s+d:d=d*(1+(s=0or37=s)*2):i=peek(198):next
  3. 2 poke 198, 0
  4. 3 :
  5. 4 clr: c=53272: b=231 : s=1: d=1 : a=56 : a$="[161]": fori=0to22: a$=a$+"[157][161]": next
  6. 5 fori=0to1:poke648,a:print"[147]"spc(s)a$;:s=s+d:d=d*(1+(s=1or38=s)*2)
  7. 6 wait53265,128:pokec,b:a=116-a:b=478-b:i=peek(198):next
  8. 7 poke 198, 0 : poke 648, 4 : poke 53272, 23
  9. 8 :
  10. 9 clr : a=53280 : b=53266 : poke 56334, 0
  11. 10 pokea,0:waitb,64:pokea,7:pokea,5 :goto10
  12.