ATARI Rainbow Effect#

;**********************************************************************
;*                                                                    *
;* PhoeniX SoftCrew  ACTION! Programme                                *
;**********************************************************************


;  Programmname    :Rainbow
;  Filename        :RAINBOW.ACT
;  von             :Carsten Strotmann
;  letzte Aenderung:12.10.91
;  Bemerkung       :fuer M.Heinzig


PROC Rainbow ()

BYTE vcount=$D40B, wsync=$D40A,
     rtclok=$14, color=$D018, u=$7,
     ch=764

 ch=$FF

 DO
  wsync=u
  color=vcount+rtclok
 UNTIL ch#$FF
 OD

RETURN

Add new attachment

Only authorized users are allowed to upload new attachments.
« This page (revision-1) was last changed on 03-Feb-2023 16:21 by Carsten Strotmann  
G’day (anonymous guest) My Prefs
© 2010-2021 AtariWiki
All content in the Wiki is licensed under Creative Commons Share Alike License, unless otherwise noted.
JSPWiki v2.8.3