MODULE Module1
	CONST robtarget Target_10:=[[0,0,0],[1,0,0,0],[0,0,-2,0],[9E9,9E9,9E9,9E9,9E9,9E9]];
PROC Path_10()
	MoveL Target_10,v1000,z100,MyTool\WObj:=Workobject_2;
ENDPROC

PROC slobo_N(num x,num y)
    MoveL Offs(Target_10,x+0,y+0,-20),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+0,y+40,0),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+0,y+40,-20),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+0,y+40,0),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+30,y+40,0),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+30,y+0,0),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+30,y+0,-20),v100,z0,MyTool\WObj:=Workobject_2;
ENDPROC

PROC slovo_L(num x,num y)

    MoveL Offs(Target_10,x+0,y+0,-20),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+0,y+0,0),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+0,y+40,0),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+30,y+40,0),v100,z0,MyTool\WObj:=Workobject_2;
    MoveL Offs(Target_10,x+30,y+40,-20),v100,z0,MyTool\WObj:=Workobject_2;

ENDPROC

PROC main()
    VAR num dx;
    VAR num dy;
    VAR string slova_za_ispisivanje;
    VAR string karakter;
    VAR num fk;

    WHILE fk<>5 DO

        TPReadNum dx,"Unesite x koordinatu";

    WHILE dx<5 OR dx>205 DO
    TPReadNum dx,"Unesite x koordinatu";
    TPWrite "Koordinata ucitana";
    ENDWHILE

    TPReadNum dy,"Unesite y koordinatu";

    WHILE dy<5 OR dy>292 DO
    TPReadNum dy,"Unesite y koordinatu";
    TPWrite "Koordinata ucitana";

    ENDWHILE

    slova_za_ispisivanje:=UIAlphaEntry(\Message:="Unesite karaktere za ispisivanje:");

    FOR i FROM 1 TO StrLen(slova_za_ispisivanje) DO

        karakter:=StrPart(slova_za_ispisivanje,i,1);
        IF dx>185 THEN
        dx:=0;
        dy:=dy+50;
        ENDIF
        TEST karakter
        CASE "l":
        slovo_L dx,dy;
        dx:=dx+35;
        CASE "n":
        slobo_N dx,dy;
        dx:=dx+35;
        DEFAULT:
        TPWrite "Uneti karakter nije definisan";
        ENDTEST

    ENDFOR

    TPReadFK fk,"Da li zelite novi upis?","DA","","","","NE";
    ENDWHILE

ENDPROC

ENDMODULE