Random demo
Random software
Random game
  • Entry name:
     Animation 130 XE 
  • Category:
    Graphics
  • Publisher/Developer:
    Bajtek, Flop 5
  • Year:
    1989
  • Inlay/Poster art:
    GIA Software
  • Programming language:
    Atari BASIC
Animation 130 XE Animation 130 XE Animation 130 XE Animation 130 XE Animation 130 XE Animation 130 XE Animation 130 XE Animation 130 XE Animation 130 XE
Listing 1
1 REM 
2 REM | ANIMATION 130 XE |
3 REM 
4 REM (c) 1989 BAJTEK
5 REM Upraveno:​
6 REM GIA Software
7 REM Pozor!
8 REM Tento program pracuje pouze
9 REM s pocitacem ATARI 130 XE.
10 GRAPHICS 0:​?:​?:​? " Zadej pocet stran N=";:​INPUT N:​IF N<3 OR N>INT(N) THEN 10
20 F=106:​T=128:​D=193:​H=80:​A=120:​B=30:​Q=35:​P=160:​KT=360/N:​N=KT/16:​DEG
30 FOR K=0 TO 8 STEP 8:​E=4-K:​POKE F,​T-4*K:​FOR J=0 TO 3:​IF J THEN D=D+E
40 POKE 54017,​D:​GOSUB H:​NEXT J:​NEXT K:​POKE L,​P:​GOTO A
50 FOR I=1 TO N:​IF PEEK(53279)=5 THEN IF N>0 THEN N=N-0.3
60 IF PEEK(53279)=6 THEN N=N+0.3
70 NEXT I:​RETURN
80 GRAPHICS 8+16:​COLOR 1:​SETCOLOR 2,​0,​0
90 FOR I=0 TO 360 STEP KT:​X=P+A*COS(I+N):​Y=Q+B*SIN(I+N):​IF I THEN PLOT R,​S:​DRAWTO X,​Y:​DRAWTO X,​Y+A:​DRAWTO R,​S+A
100 R=X:​S=Y:​NEXT I:​FOR I=1 TO 300:​NEXT I:​N=N+KT/8:​IF N<KT THEN RETURN
110 L=F:​F=561:​T=96:​H=50:​RETURN
120 L=77:​P=0:​A=30:​N=10:​GOTO A
130 REM *****************************	

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!