Rename_Prog0
LANGUAGE: Karel
CREATED: 2017-05-17
MODIFIED: 2019-11-21
CODE 
/PROG RENAME_PROG0
/ATTR
OWNER = MNEDITOR;
COMMENT = “”;
PROG_SIZE = 1708;
CREATE = DATE 19-06-08 TIME 12:37:12;
MODIFIED = DATE 19-11-21 TIME 11:36:06;
FILE_NAME = RENAME_P;
VERSION = 0;
LINE_COUNT = 45;
MEMORY_SIZE = 2168;
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
/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: !Product Selection ;
18: SELECT R[21:ProdSelection]=1,JMP LBL[1] ;
19: =2,JMP LBL[2] ;
20: =3,JMP LBL[3] ;
21: =4,JMP LBL[4] ;
22: R[21:ProdSelection]=0 ;
23: JMP LBL[100] ;
24: ;
25: LBL[1] ;
26: SR[1]=SR[51] ;
27: JMP LBL[100] ;
28: LBL[2] ;
29: SR[1]=SR[52] ;
30: JMP LBL[2] ;
31: LBL[3] ;
32: SR[1]=SR[53] ;
33: JMP LBL[100] ;
34: LBL[4] ;
35: SR[1]=SR[54] ;
36: JMP LBL[100] ;
37: ;
38: LBL[100] ;
39: CALL RENAME_PROG1(2,SR[1],’_MAINSEQ’) ;
40: CALL RENAME_PROG1(3,SR[1],’_HOMING’) ;
41: CALL RENAME_PROG1(4,SR[1],’_PARAM’) ;
42: CALL RENAME_PROG1(5,SR[1],’_INIT’) ;
43: CALL RENAME_PROG1(6,SR[1],’_PICK’) ;
44: CALL RENAME_PROG1(7,SR[1],’_DROP’) ;
45: CALL RENAME_PROG1(8,SR[1],’_REJECT’) ;
/POS
/END