10 REM ①②②②②②②②②②②②②②②②②❎¢20 REM | SOFT - BLITTER |¢30 REM ə②②②②②②②②②②②②②②②②⇨¢40 REM - for all ATARI XL/XE¢50 REM - includes demo program¢60 REM (c) 1991 by GIA Software¢70 REM ¢200 DIM GR$(300),HG$(300)¢210 GGET=1536:GPUT=1539¢220 GRAPHICS 2+16¢230 POSITION 2,4:PRINT #6;"SOFT-BLITTER DEMO"¢240 POSITION 2,6:PRINT #6;" סכדIJצדáתIJחק"¢250 GOSUB 30000¢300 REM ¢305 GRAPHICS 8:COLOR 1¢310 PLOT 55,20:DRAWTO 63,0:POSITION 47,12:GOSUB 700¢320 DRAWTO 15,12:POSITION 0,20:GOSUB 700¢330 PLOT 43,30:DRAWTO 38,20:PLOT 25,20:POSITION 35,30:GOSUB 700¢335 REM BILD IN STRING¢340 X=USR(GGET,0,0,8,30,ADR(GR$))¢390 REM ¢400 GRAPHICS 8+16:SETCOLOR 2,1,0¢410 FOR X=0 TO 32 STEP 8¢420 FOR Y=0 TO 140 STEP 35¢430 A=USR(GPUT,X,Y,0,ADR(GR$))¢440 NEXT Y:NEXT X¢450 FOR Y=0 TO 140 STEP 35¢460 FOR X=0 TO 32 STEP 8:SOUND 0,Y,10,10¢470 A=USR(GPUT,X,Y,64,ADR(GR$))¢480 SOUND 0,0,0,0:FOR I=0 TO 7:GOSUB 800:NEXT I¢490 NEXT X:NEXT Y¢500 REM ¢510 M=69:GOSUB 900:SOUND 0,15,0,10¢515 Y=100:FOR X=32 TO 0 STEP -1:Y=Y-2¢520 A=USR(GGET,X,Y,X+7,Y+30,ADR(HG$))¢530 A=USR(GPUT,X,Y,0,ADR(GR$))¢540 FOR I=0 TO 4:GOSUB 800:NEXT I¢560 A=USR(GPUT,X,Y,128,ADR(HG$))¢570 NEXT X:SOUND 0,0,0,0¢590 GOTO 400¢700 REM XIO - FILLROUTINE¢710 POKE 765,1:XIO 18,#6,0,0,"S:"¢790 RETURN ¢800 REM 1/50 SEC WARTEN¢810 T=PEEK(20)¢820 IF PEEK(20)=T THEN 820¢830 RETURN ¢900 REM ¢910 GRAPHICS 8:SETCOLOR 2,8,0¢920 FOR I=0 TO 319 STEP 31:PLOT 159,M:DRAWTO I,M+90:NEXT I¢930 I=0¢940 Q=I*I+M:IF Q<=159 THEN PLOT 0,Q:DRAWTO 319,Q:I=I+1:GOTO 940¢990 RETURN ¢30000 REM SOFT-BLITTER¢30010 S=0:RESTORE 30100¢30020 FOR A=1536 TO 1785:READ D:POKE A,D:S=S+D:NEXT A¢30030 IF S<>34981 THEN ? "CHYBA V DATECH!":STOP ¢30090 RETURN ¢30100 DATA 76,6,6,76,98,6,216,104,104,104,133,218,104,104,133,217¢30110 DATA 104,104,133,220
