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