;redcode ;name Proteus ;author Matt Hastings ptr DAT #0, #0 mouse MOV #12, ptr loop MOV @ptr,