LANGUAGE: Karel

CREATED: 2019-06-08

MODIFIED: 2019-11-21

CODE   

/PROG  PDEMO_HOMING
/ATTR
OWNER  = MNEDITOR;
COMMENT  = “”;
PROG_SIZE = 1289;
CREATE  = DATE 19-06-08  TIME 12:50:36;
MODIFIED = DATE 19-11-21  TIME 11:35:20;
FILE_NAME = ;
VERSION  = 0;
LINE_COUNT = 34;
MEMORY_SIZE = 1793;
PROTECT  = READ_WRITE;
TCD:  STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,*,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL

AUTO_SINGULARITY_HEADER;
ENABLE_SINGULARITY_AVOIDANCE   : FALSE;
/MN
1:  –eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ;
2:  –eg: ;
3:  –eg:Redistribution and use in source and binary forms, with or without ;
4:  –eg:modification, are permitted provided that the following conditions
:  are ;
5:  –eg:met: ;
6:  –eg: ;
7:  –eg:Redistributions of source code must retain the above copyright ;
8:  –eg:notice, this list of conditions and the following disclaimer. ;
9:  –eg:Redistributions in binary form must reproduce the above ;
10:  –eg:copyright notice, this list of conditions and the following
:  disclaimer ;
11:  –eg:in the documentation and/or other materials provided with the ;
12:  –eg:distribution. ;
13:  –eg:Neither the name of DIY-Robotics.com nor the names of its ;
14:  –eg:contributors may be used to endorse or promote products derived from ;
15:  –eg:this software without specific prior written permission. ;
16:  –eg: ;
17:  UFRAME_NUM=1 ;
18:  UTOOL_NUM=1 ;
19:   ;
20:  OVERRIDE=10% ;
21:   ;
22:  IF (UO[7:At perch]=ON OR R[4]=0),JMP LBL[9000] ;
23:   ;
24:  !Zone Section ;
25:   ;
26:   ;
27:   ;
28:  LBL[9000] ;
29:  UFRAME_NUM=1 ;
30:  UTOOL_NUM=1 ;
31:  CALL GET_HOME    ;
32:J PR[1:At Perch] 100% FINE    ;
33:  END ;
34:   ;
/POS
/END