0 Members and 4 Guests are viewing this topic.
Code: [Select]:Return→A:int(rand,-1:Goto A
:Return→A:int(rand,-1:Goto A
FuncLbl "INTERRUPT ;the Lbl "INTERRUPT part will return the location of the routineRepeat getKey=15rand/1024→Yrand/683→Xrand/1024→RCircle(Y,X,R,3EndGoto Lbl "Stop ;Jumps to the end of the code.INTERRUPTDispGraphEnd ;Ends the interrupt.StopStop
Send(768,"EHI