home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / -rainbow roller (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  383 b   |  9 lines
  1. 10 POKE808,234:POKE53281,0:POKE53280,12:D$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][146]":PRINT"[150][147][142]"
  2. 20 FORI=1TO7:PRINTTAB(10)D$:NEXT:PRINT:PRINT:PRINT:PRINT
  3. 30 PRINTTAB(7)"PRESS SPACEBAR TO STOP"
  4. 40 DIMC(16):FORI=1TO16:READC(I):NEXT:DATA2,8,10,7,13,3,14,4,2,8,10,7,13,3,14,4
  5. 50 POKE648,212:FORJ=1TO8:PRINT"":FORI=JTOJ+6:POKE646,C(I):PRINTTAB(10)D$
  6. 60 NEXTI,J
  7. 70 GETA$:IFA$<>" "THEN50
  8. 80 POKE648,4:POKE808,237:POKE646,1:POKE198,0:END
  9.