home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / ultraplus (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  340b  |  16 lines
  1. 6 print"[147]":poke53280,0:poke53281,0:printtab(15)"ultraplus"
  2. 10 gosub1000
  3. 20 poke54277,8:poke54278,255
  4. 30 poke54276,21
  5. 40 forf2=1to150step8:poke54287,f2
  6. 50 forf1=1to255step5:poke54273,f1:nextf1:nextf2
  7. 60 poke54278,15
  8. 70 gosub1000
  9. 80 poke54277,8:poke54278,255
  10. 90 poke54276,21
  11. 100 forf2=150to1step-8:poke54287,f2
  12. 110 forf1=255to1step-25:poke54273,f1:nextf1:nextf2
  13. 120 poke54278,15
  14. 130 end
  15. 1000 forl=54272to54295:pokel,0:next:poke54296,15:return
  16.