News Games Software Hardware Books Demos Graphics Source code Disks Fonts Ref. cards PC tools Links My projects Atari family Collection Guestbook Contact
Random game
Random game
Random demo
Back button image

Atari 8-bit Source code

Entry name:
 Rysujacy choinke 
Publisher/Developer:

Atarionline.pl forum
(Software library)
  • Category:

    Graphics
  • Year:

    2025
  • Code:

    Anders Skelander
  • Programming language:

    Atari BASIC
Rysujacy choinke Rysujacy choinke Rysujacy choinke
Listing 1 
100 REM SAVE "D:XMAS.BAS"
110 GRAPHICS 0:POKE 623,128
120 POKE 704,144:POKE 705,48
130 POKE 706,50:POKE 707,54
140 POKE 708,90:POKE 709,176
150 POKE 710,180:POKE 711,220
160 POKE 752,255
170 FOR I=0 TO 22
180 FOR J=0 TO I/2
190 POSITION 20-J,I
195 PRINT CHR$(97+J+RND(0)*4)
200 POSITION 20+J,I
205 PRINT CHR$(33+J+RND(0)*4)
210 NEXT J
220 NEXT I
230 IF PEEK(753)=0 THEN GOTO 230
240 GRAPHICS 0
References
https://atarionline.pl/forum/comments.php?DiscussionID=906&page=1
Listing downloads

Copyright holder
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!