10 REM Test GET/PUT graphics sprites
20 SCREEN 1
30 DIM SP%(50)
40 REM Draw a small box
50 LINE (10,10)-(20,20), 1, BF
60 REM Capture it
70 GET (10,10)-(20,20), SP%
80 REM Check header (width in bits, height)
90 PRINT "WIDTH BITS="; SP%(0)
100 PRINT "HEIGHT="; SP%(1)
110 REM Clear screen and PUT it elsewhere with XOR
120 CLS
130 PUT (50,50), SP%, XOR
140 REM Check a pixel was placed
150 IF POINT(55,55) > 0 THEN PRINT "XOR PUT OK" ELSE PRINT "XOR PUT FAIL"
160 REM PUT again with XOR to erase
170 PUT (50,50), SP%, XOR
180 IF POINT(55,55) = 0 THEN PRINT "XOR ERASE OK" ELSE PRINT "XOR ERASE FAIL"
190 REM Test PSET mode
200 PUT (50,50), SP%, PSET
210 IF POINT(55,55) > 0 THEN PRINT "PSET PUT OK" ELSE PRINT "PSET PUT FAIL"
220 REM Test OR mode
230 CLS
240 PUT (50,50), SP%, OR
250 IF POINT(55,55) > 0 THEN PRINT "OR PUT OK" ELSE PRINT "OR PUT FAIL"
260 SCREEN 0
270 PRINT "DONE"