10 FOR I=0 TO 57:READ X:POKE 1536+I,X:S=S+X:NEXT I›20 IF S<>8259 THEN ? "BLAD W DATA":STOP ›30 DATA 104,104,104,170,104,104,133,204,169,0,133,203,133,19,133,20,169,3,133,205,230›40 DATA 203,230,203,198,205,240,244,173,11,212,10,24,101,203,141,10,212,141,10,212›50 DATA 157,22,208,173,11,212,201,130,240,229,165,19,197,204,208,227,96›60 GRAPHICS 7:COLOR 2›70 FOR A=30 TO 120›80 PLOT A/3+50,60:DRAWTO A,80:NEXT A›90 COLOR 3:FOR A=60 TO 10 STEP -1›100 PLOT 60,A:DRAWTO 90,A:NEXT A›110 COLOR 1:FOR A=60 TO 90›120 PLOT 75,0:DRAWTO A,10:NEXT A›130 POKE 36858,7:POKE 36859,7:POKE 36860,7›140 PRINT "--- http://atari.4ever.cc/ ---"›145 PRINT "ATARI ZONE"›150 FOR A=1 TO 5:Q=USR(1536,A-A*(A=3),0.5):NEXT A:GOTO 150›