Atari 8-bit Source code

0 DIM A$(60):A$="          Dziekujemy AtariPuzzle!          "
20 GRAPHICS 2+16:POKE 752,1
30 FOR I=1 TO LEN(A$)-19
40 C=I-INT(I/16)*16
50 POSITION 0,5:PRINT #6;A$(I,I+19)
70 SETCOLOR 0,C,10
80 SETCOLOR 4,15-C,2
90 FOR D=1 TO 50:NEXT D
100 NEXT I
110 GOTO 30	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!