1 MEMORY 23999
10 ON BREAK GOSUB 12
11 GOTO 20
12 |MUSIC:CALL &BC02:PAPER 0:PEN 1:MODE 1:END
20 CALL &BC02
30 DEFINT A-Z:MODE 0
31 LOCATE 4,4:PRINT "TEST COLISION" 
50 CALL &6B78
60 |3D,0:|SETLIMITS,0,80,0,200
80 FOR i=0 TO 31:|SETUPSP,i,0,0:NEXT
90 cod=0:cor=0:|COLSPALL,@cor,@cod
91 a=10:b=27
92 |COLSP,32,0,31
100 |SETUPSP,a,9,16:|SETUPSP,a,5,0,-1:|LOCATESP,a,100,80:|SETUPSP,a,0,32+8+1
110 |SETUPSP,b,9,28:|SETUPSP,b,5,0,1:|LOCATESP,b,100,0:|SETUPSP,b,0,2+8+1  
120 REM ciclo
130 |AUTOALL:|PRINTSPALL:|COLSPALL
141 LOCATE 1,1:PRINT cor,cod
142 IF cor<32 THEN BORDER 7 ELSE BORDER 0
150 GOTO 120