Create SPRITES.BAS

Author: RetroNick2020

gwbasic/GWBASIC MEMCOPY/SPRITES.BAS

@@ -0,0 +1,50 @@
+10 ' SPRITE SHEET DEMO - ASM MEMCOPY
+20 SCREEN 1: CLS: KEY OFF
+30 STRIDE% = 34: SBYTES% = 68
+40 DIM BIG%(169): DIM SPR%(33): DIM MC%(19)
+50 ' Pre-allocate all variables
+60 MEMCOPY=0: SRC%=0: DST%=0: CNT%=0
+70 N%=0: X%=0: A$=""
+80 DEF SEG
+90 BLOAD "MEMCOPY.BSV",VARPTR(MC%(0))
+100 MEMCOPY = VARPTR(MC%(0))
+110 ' Draw 5 sprites side by side
+120 LINE (0,0)-(15,15), 1, BF
+130 CIRCLE (27,7), 7, 2: PAINT (27,7), 2
+140 LINE (40,0)-(55,15), 3: LINE (55,0)-(40,15), 3
+150 LINE (67,0)-(75,7),1: LINE (75,7)-(67,15),1
+160 LINE (67,15)-(60,7),1: LINE (60,7)-(67,0),1
+170 PAINT (67,7), 1
+180 LINE (87,0)-(80,15), 2
+190 LINE (80,15)-(95,15), 2
+200 LINE (95,15)-(87,0), 2: PAINT (87,10), 2
+210 LOCATE 5,1: PRINT "Sprites drawn. Press key..."
+220 A$ = INPUT$(1)
+230 ' GET each into SPR%, copy to BIG%
+240 CNT% = SBYTES%
+250 FOR N% = 0 TO 4
+260   X% = N% * 20
+270   GET (X%,0)-(X%+15,15), SPR%
+280   SRC% = VARPTR(SPR%(0))
+290   DST% = VARPTR(BIG%(0)) + N% * SBYTES%
+300   CALL MEMCOPY(SRC%, DST%, CNT%)
+310 NEXT
+320 ' Clear and display from BIG%
+330 CLS
+340 LOCATE 2,1: PRINT "From BIG%:"
+350 FOR N% = 0 TO 4
+360   SRC% = VARPTR(BIG%(0)) + N% * SBYTES%
+370   DST% = VARPTR(SPR%(0))
+380   CALL MEMCOPY(SRC%, DST%, CNT%)
+390   PUT (20 + N% * 55, 30), SPR%
+400 NEXT
+410 LOCATE 10,1: PRINT "Reversed:"
+420 FOR N% = 4 TO 0 STEP -1
+430   SRC% = VARPTR(BIG%(0)) + N% * SBYTES%
+440   DST% = VARPTR(SPR%(0))
+450   CALL MEMCOPY(SRC%, DST%, CNT%)
+460   PUT (20 + (4-N%) * 55, 90), SPR%
+470 NEXT
+480 LOCATE 23,1: PRINT "Done! Press key..."
+490 A$ = INPUT$(1)
+500 SCREEN 0: WIDTH 80: END