home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / IRID / IRID.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  11.3 KB  |  27 lines
  1. 5 POKE53272,24:POKE53269,1:POKE53271,0:POKE53277,0:POKE53276,1
  2. 10 POKE53280,0:POKE53281,0:PRINT"[147]"
  3. 20 PRINT"A 'LITTLE SOMETHING' FROM IRIDIS-ALPHA";
  4. 30 POKE53264,0:POKE53287,8:POKE53285,2:POKE53286,1
  5. 40 POKE2040,211:POKE53249,60
  6. 50 FORX=0TO230:POKE53248,X:FORD=1TO5:NEXT:NEXT
  7. 60 FORX=231TO240:POKE53248,X:FORD=1TO50:NEXT:NEXT
  8. 70 RESTORE:FORX=0TO2:READA:POKE2040,A:FORD=1TO150:NEXT:NEXT
  9. 80 DATA211,210,207,208,209
  10. 85 FORG=207TO203STEP-1:POKE2040,G:FORD=1TO250:NEXT:NEXT
  11. 90 FORY=60TO100:POKE53249,Y:FORD=1TO5:NEXT:NEXT
  12. 100 FORY=100TO150:POKE53249,Y:NEXT
  13. 110 FORY=150TO196STEP2:POKE53249,Y:NEXT
  14. 120 FORC=0TO2:FORG=200TO203:POKE2040,G:FORD=1TO100:NEXT:NEXT:NEXT
  15. 130 G=193:FORX=240TO41STEP-1:POKE2040,G:G=G+1:IFG>199THENG=193
  16. 140 POKE53248,X:FORD=1TO10:NEXT:NEXT
  17. 150 FORC=0TO2:FORG=200TO203:POKE2040,G:FORD=1TO200:NEXT:NEXT:NEXT
  18. 160 G=199:FORX=41TO240:G=G-1:IFG<193THENG=199
  19. 170 POKE2040,G:POKE53248,X:FORD=1TO20:NEXT:NEXT
  20. 180 FORG=200TO203:POKE2040,G:FORD=1TO200:NEXT:NEXT:POKE2040,200
  21. 190 FORY=196TO100STEP-1:POKE53249,Y:NEXT
  22. 200 FORG=203TO207:POKE2040,G:FORD=0TO250:NEXT:NEXT
  23. 210 FORY=100TO60STEP-1:POKE53249,Y:NEXT
  24. 220 FORC=0TO1:READG:POKE2040,G:FORD=0TO200:NEXT:NEXT
  25. 230 FORX=240TO0STEP-2:POKE53248,X:NEXT
  26. 240 FORD=1TO10000:NEXT:RUN
  27.