BitMap 0,320,200,4 ;erstelle eine 16-farbige Bitmap
BitMapOutput 0 ;und sende die Print-Ausgaben zun ihr
Boxf 0,0,7,7,1 ;ein Viereck auf der Bitmap
GetaShape 0,0,0,8,8 ;als Shape aufnehmen
GetaSprite 0,0 ;Shape in Sprite verwandeln
Free Shape 0 ;und das Shape wieder freigeben
Cls ;Bitmap löschen
BLITZ ;BLITZ MODE!
Slice 0,44,320,200,$fff8,4,8,32,320,320 ;einfaches Slice
Show 0 ;Bitmap im Slice zeigen
For k=1 To 100 ;100 Sterne malen
Plot Rnd(320),Rnd(200),Rnd(14)+1 ;in jeder Farbe außer 15
Next
Circlef 160,100,40,15 ;der tote Stern in Farbe 15
SetColl 15,4 ;Kollision mit Farbe 15
Mouse On ;Maus einschalten
Pointer 0,0 ;Mauszeiger setzen
While Joyb(0)=0 ;während der Mausknopf nicht gedrückt wird...
VWait ;auf Vertical Blank warten
DoColl ;Blitz soll die Kollisionen wahrnehmen
Locate 0,0 ;Position des Cursors
If PColl(0) ;ist das Sprite in Kanal 0 mit der Bitmap kollidiert?
Print "BANG!" ;Ja - BANG!
Else
Print " " ;Nein
EndIf
Wend