Space
- 10 DIM X%(255)
- 20 DIM Y%(255)
- 30 DIM S%(255)
- 40 DIM R%(255)
- 50 DIM G%(255)
- 60 DIM B%(255)
- 70 FOR I%=0 TO 254
- 80 X%(I%)=RAND(0,240)
- 90 Y%(I%)=RAND(0,320)
- 100 S%(I%)=RAND(5,10)
- 110 R%(I%)=RAND(0,255)
- 120 G%(I%)=RAND(0,255)
- 130 B%(I%)=RAND(0,255)
- 140 NEXT I%
- 150 SETCOLOR 0,0,0
- 160 FILLRECT 0,0,240,320
- 170 FOR I%=0 TO 254
- 180 SETCOLOR R%(I%),G%(I%),B%(I%)
- 190 PLOT X%(I%),Y%(I%)
- 200 Y%(I%)=Y%(I%)+S%(I%)
- 210 IF Y%(I%)>320 THEN GOTO 250
- 220 NEXT I%
- 230 REPAINT
- 240 GOTO 150
- 250 X%(I%)=RAND(0,240)
- 260 Y%(I%)=-1
- 270 R%(I%)=RAND(0,255)
- 280 G%(I%)=RAND(0,255)
- 290 B%(I%)=RAND(0,255)
- 300 GOTO 190
Анимация космоса. Код симетричен 
