RESERVE 31720 ! This source file belongs to the article sc1%=INT((HIMEM+5000)/256)*256 ! 'GFA Basic tips'n tricks', published in VOID XBIOS(5,L:sc1%,L:sc1%,0) ! ST-News 4.3. Load using the merge option. HIDEM ! I don't feel like remarking all this stuff, OUT 4,&H12 ! So please read my article. ON BREAK CONT SETCOLOR 0,4,5,4 ! Press any key to stop execution. SETCOLOR 1,5,4,3 COLOR 2 FOR i=0 TO PI*2 STEP 0.1 x%=131+130*SIN(i) y%=34+29*COS(i) LINE x%,y%,130,5 NEXT i GET 0,0,319,117-49,a$ sc2%=sc1%+32000 VOID XBIOS(5,L:sc2%,L:sc1%,0) FOR i%=15 TO 0 STEP -1 PUT i%,0,a$ BMOVE sc2%,sc2%+i%*11040,11040 NEXT i% VOID XBIOS(5,L:sc1%,L:sc1%,-1) x%=0 y%=0 DO source%=sc2%+11040*(x% MOD 16) dest%=sc1%+160*y%+INT(x%/16)*8 BMOVE source%,dest%+11040,11040 BMOVE source%,dest%,11040 IF x%<27 INC x1% ELSE DEC x1% ENDIF ADD x%,x1% IF y%<25 INC y1% ELSE DEC y1% ENDIF ADD y%,y1%/2 VSYNC EXIT IF INP?(2) LOOP OUT 4,&H8