0 REM PRIMA-APRILIS 2015 COMPO
1 REM AUTORZY SIKOR, SEBAN, BLUKI
10 GOSUB 1000:REM SINE PLOTS
11 GOSUB 1010:REM SIERPINSKI TRIANGLE
12 GOSUB 1100: REM SINE DRAWS
13 GOSUB 2000: REM SIERPINSKI AGAIN
99 GOTO 99:REM INF. LOOP
999 REM --- SINE PLOTS / SIKOR ---
1000 GRAPHICS 24:POKE 710,0:POKE 709,15:COLOR 1:DEG
1001 FOR I=0 TO 359:X=INT(10*SIN(I*COS(I))*20):Y=INT(10*COS(I)*SIN(I*2)*20)
1002 IF X<0 THEN X=-X
1003 IF Y<0 THEN Y=-Y
1004 PLOT X,Y:PLOT 319-X,191-Y:PLOT X,191-Y:PLOT 319-X,Y:NEXT I
1005 RETURN
1009 REM -- SLOW SIERPINSKI / SEBAN ---
1010 FOR I=0 TO 15:POKE 709,15-I:POKE 710,I:POKE 712,I:NEXT I:PUT #6,125:COLOR 1
1011 PX=0:PY=191:FOR I=1 TO 2048:R=INT(RND(0)*3):PLOT PX,PY
1012 IF R=0 THEN PX=PX/2:PY=(PY+191)/2:GOTO 1015
1013 IF R=1 THEN PX=(PX+319)/2:PY=(PY+191)/2:GOTO 1015
1014 PX=(PX+160)/2:PY=PY/2
1015 NEXT I:RETURN
1099 REM --- SINE DRAWS / BLUKI ---
1100 PUT #6,125:COLOR 1:FOR I=15 TO 0 STEP -0.1:SETCOLOR 2,0,I:POKE 712,PEEK(710):NEXT I
1110 FOR I=0 TO 8 STEP 0.1:SETCOLOR 2,14,I:POKE 712,PEEK(710):NEXT I
1120 PLOT 140,32:FOR R=-90 TO -16 STEP 2:FOR I=0 TO 360 STEP 10
1130 DRAWTO 160+COS(I-R)*(R-45),8+SQR(ABS(I+R)*(R+96)):NEXT I:NEXT R
1140 RETURN
1999 REM --- SIERPINSKI AGAIN / SEBAN ---
2000 T=PEEK(106)-4:POKE 106,T:GRAPHICS 16:POKE 752,1:? :FNT=T*256:POKE 710,128:POKE 712,128:POKE 709,15:POKE 77,0
2001 DATA 104,104,104,133,212,104,104,37,212,133,212,169,0,133,213,96,128,64,32,16,8,4,2,1
2002 RESTORE 2001:FOR I=1536 TO 1551:READ D:POKE I,D:NEXT I:I=0:PTR=PEEK(88)+256*PEEK(89)
2003 FOR I=0 TO 7:READ D:POKE FNT+512+I,D:NEXT I:I=0
2008 FOR DY=0 TO 23 STEP 8
2009 FOR DX=0 TO 39 STEP 8
2010 FOR X=0 TO 7:FOR Y=0 TO 7
2020 POKE PTR+(Y+DY)*40+X+DX,Y+X*8
2031 IF I<512 THEN POKE FNT+I,0:POKE FNT+512+I,PEEK(FNT+512+Y):I=I+1
2040 NEXT Y:NEXT X:NEXT DX:NEXT DY
2052 POKE 756,T
2061 FOR X=0 TO 63:FOR Y=0 TO 63
2062 IF USR(1536,X,Y)=0 THEN PTR=FNT+Y+64*INT(X/8):POKE PTR,PEEK(PTR)+PEEK(FNT+512+X)
2063 NEXT Y:NEXT X
2070 FOR I=64 TO 255 STEP 4: FOR J=255 TO I STEP -I/8: SOUND 0,J,10,J/15:POKE 709,PEEK(53770): NEXT J:NEXT I
2071 SOUND 0,0,0,0: POKE 709,128:POKE 756,224:POKE 106,T+4:GRAPHICS 0
2072 POKE 710,128:POKE 712,128:POKE 709,15:POKE 752,1:? ":)":RETURNFiSh 0.70 Bocianu wydał FiSh 0.70, shell ułatwiający przeszukiwanie zasobów serwerów TNFS.
Street Fighter II już na Atari 8-bit! Vega i jego zespół wydali finalną wersję kultowej bijatyki. Wymaga 4MB cartridge i 64KB RAM.
Elite Demo 6 na Atari 8-bit! Trwają prace nad konwersją kultowej gry Elite. Szóste demo wprowadza liczne poprawki błędów.
vbcc v5 dla 6502 Kompilator C vbcc doczekał się piątej wersji dystrybucji dla 6502. Zapewnia dużo szybszą arytmetykę FPU i nowe narzędzia.
HDDRIVER 12.75 Sterownik HDDRIVER, kluczowe narzędzie dla pamięci masowej Atari 16/32-bit, otrzymał aktualizację 12.75, która naprawia błąd w HDDRUTIL.
