HEX VE PROTON BASIC PROGRAMLARI

:10000000000000308A00D6288030A100FE30912008
:10001000013091207530A6003030A128A101A11730
:10002000AE00FE3091202E089128A011240803195B
:10003000A0150530A3002730A80010302B20033076
:10004000A800E8302B20A80164302B20A8010A303A
:100050002B2029083228A7002A08A6002908A50075
:10006000B5202508A500A3030319A011240803192E
:100070003C282302031843282508031DA011A019BA
:100080004328303E91280800AC000910091183165E
:10009000091009110F30880583122C08A0186E284A
:1000A0003E30A6008030A1203330AB0082201330D8
:1000B000A6008830A12082206430A02082206430F5
:1000C000A0202230AB00822028306D200C306D2023
:1000D00006306D20A0142C086E282014AB00201CC4
:1000E0007C280911033C031C812881200530A600CF
:1000F000DC30A120031408002014FE3C03198F28D3
:100100000915201C201009140F3088052B08F03920
:1001100088040910AB0E201882283230A0202C0849
:10012000D128A11B4428A801A700FF30A707031C62
:10013000A807031CD1280330A600DF30A120952892
:10014000A601E83EA500A609FC30031CAA28A507C5
:100150000318A728A5070000A60FA7282518B02870
:10016000A51CB4280000B4280800AA01A901103079
:10017000AB00260DA90DAA0D2708A9022808031C0B
:10018000280FAA020318CB282708A9072808031854
:10019000280FAA070310A50DA60DAB0BB92825083B
:1001A000D12883138312031300000800A001073035
:1001B00083169F008801F030860087018501890140
:1001C000880183128A0104208030A100C0308A0196
:1001D0000E2020308A0144208A0144208A014420D4
:1001E0008A0144208A0144204D308A014420413054
:1001F0008A0144204E308A01442055308A0144202F
:1002000045308A0144204C308A01442020308A0144
:10021000442043308A0144204E308A014420433038
:100220008A01442020308A0144208A0144208A0126
:1002300044208030A10094308A010E2020308A01B1
:10024000442028308A01442063308A014420293028
:100250008A01442020308A01442055308A014420FC
:1002600047308A01442055308A01442052308A01A7
:10027000442020308A0144204F308A0144204E30EF
:100280008A01442045308A0144204E308A014420AE
:1002900020308A01442032308A01442030308A01E3
:1002A00044208A01442037308A01442020308A01CA
:1002B00044200930A800C4308A01942085018A01B5
:1002C00004208030A10080308A010E204D308A0148
:1002D000442045308A01442056308A01442043306E
:1002E0008A01442055308A01442054308A01442038
:1002F00020308A0144204D308A0144204F308A0149
:10030000442044308A0144203D308A01442020307A
:100310008A0144204F308A01442046308A0144201B
:100320008A01442020308A01442053308A0144202D
:1003300045308A01442054308A01442020308A010B
:100340004420BE01BD01C001BF01C201C101803016
:10035000A100C0308A010E2058308A0144203D306F
:100360008A014420A4013E08AA003D08A9008A0190
:1003700015208030A100C3308A010E2020308A0170
:1003800044208A0144208A0144208A0144208A01B1
:1003900044208A0144204D308A01442049308A019A
:1003A00044204B308A01442052308A0144204F308F
:1003B0008A0144204E308A0144208030A1009430CC
:1003C0008A010E2059308A0144203D308A014420A0
:1003D000A4014008AA003F08A9008A011520803026
:1003E000A10097308A010E2020308A0144208A0122
:1003F00044208A0144208A0144208A0144208A0141
:1004000044204D308A01442049308A0144204B3039
:100410008A01442052308A0144204F308A0144200E
:100420004E308A0144208030A100D4308A010E2051
:100430005A308A0144203D308A014420A4014208F8
:10044000AA004108A9008A0115208030A100D730F8
:100450008A010E2020308A0144208A0144208A012A
:1004600044208A0144208A0144208A0144204D30DE
:100470008A01442049308A0144204B308A014420BB
:1004800052308A0144204F308A0144204E308A0184
:10049000442087018A110A122F18852A8030A10072
:1004A00080308A010E2020308A0144208A014420B5
:1004B0008A0144208A0144208A0144208A01442080
:1004C0008A0144204D308A0144204F308A01442063
:1004D00044308A0144203D308A01442020308A0182
:1004E00044204B308A01442045308A014420593051
:1004F0008A01442020308A0144208A0144208A0154
:1005000044208A0144208A0144208A110A122F1CA7
:10051000C22A8030A10080308A010E2020308A015A
:1005200044208A0144208A0144208A0144208A010F
:1005300044208A0144208A0144204D308A0144200D
:100540004F308A01442044308A0144203D308A01E2
:10055000442020308A01442046308A014420523011
:100560008A01442045308A0144205A308A014420BF
:1005700045308A01442020308A0144208A014420E9
:100580008A014420B801FA30B700860106148A11A6
:100590000A12DB22860186148A110A12FB228601C6
:1005A00006158A110A121B23860186158A110A1262
:1005B0003B238A014A2A8A110A12061EE32A8A115B
:1005C0000A12FD2508008A110A12861EEB2A8A11DA
:1005D0000A12A52608008A110A12061FF32A8A1198
:1005E0000A12482708008A110A12861FFB2A8A115C
:1005F0000A12EC2708008A110A12061E032B8A1120
:100600000A125C2308008A110A12861E0B2B8A111B
:100610000A121D2408008A110A12061F132B8A11C0
:100620000A12D82408008A110A12861F1B2B8A1569
:100630000A128F2008008A110A12061E232B8A151F
:100640000A127F2108008A110A12861E2B2B8A1596
:100650000A12C72108008A110A12061F332B8A15B5
:100660000A12112208008A110A12861F3B2B8A15D2
:100670000A12562208008A110A12061E432B8A15F6
:100680000A129F2208008A110A12861E4B2B8A1515
:100690000A12E82208008A110A12061F532B8A1533
:1006A0000A12312308008A110A12861F5B2B8A1551
:1006B0000A127A2308000800123006028A110A1270
:1006C0000319632B08008A150A12C3238030A10086
:1006D00080308A010E204D308A01442045308A0145
:1006E000442056308A01442043308A01442055304A
:1006F0008A01442054308A01442020308A01442059
:100700004D308A0144204F308A01442044308A0110
:1007100044203D308A01442020308A0144205A3050
:100720008A01442020308A01442059308A01442023
:1007300055308A0144204B308A01442041308A01DF
:10074000442052308A01442049308A0144202E300E
:1007500042028A110A12031CB82B8A110A12031DC5
:10076000B72BE13041028A110A12031CB82B080092
:10077000113085000630A500A50BBC2B0000000041
:10078000133085000630A500A50BC42B0000000027
:10079000123085000630A500A50BCC2B0000000010
:1007A000163085000630A500A50BD42B00000000F4
:1007B000143085000630A500A50BDC2B00000000DE
:1007C0001C3085000630A500A50BE42B00000000BE
:1007D000183085000630A500A50BEC2B00000000AA
:1007E000313085000630A500A50BF42B0000000079
:1007F00085010730C1070318C20A8030A100D43038
:100800008A010E205A308A0144203D308A0144205A
:10081000A4014208AA004108A9008A01152030302D
:100820008A0144208A110A12061E1B2C8A015C2BA5
:100830008A110A121C2C08000800223006028A11B4
:100840000A120319242C08008A150A12C3238030C7
:10085000A10080308A010E204D308A0144204530AD
:100860008A01442056308A01442043308A014420C2
:1008700055308A01442054308A01442020308A01B6
:1008800044204D308A0144204F308A0144204430B6
:100890008A0144203D308A01442020308A014420CE
:1008A0008A0144205A308A01442020308A014420A1
:1008B00041308A01442053308A01442041308A016A
:1008C000442047308A01442049308A0144204208AC
:1008D00041048A110A12031D6E2C0800183085008D
:1008E0000630A500A50B722C000000001C3085000E
:1008F0000630A500A50B7A2C0000000014308500FE
:100900000630A500A50B822C0000000016308500E3
:100910000630A500A50B8A2C0000000012308500CF
:100920000630A500A50B922C0000000013308500B6
:100930000630A500A50B9A2C0000000011308500A0
:100940000630A500A50BA22C000000003130850068
:100950000630A500A50BAA2C000000008501073079
:10096000C1020030031C013EC2028030A100D4301D
:100970008A010E205A308A0144203D308A014420E9
:10098000A4014208AA004108A9008A0115203030BC
:100990008A01442020308A0144208A110A12861ECE
:1009A000D62C8A011D2C8A110A12D72C08000800A7
:1009B000423006028A110A120319DF2C0800803027
:1009C000A10080308A010E204D308A01442045303C
:1009D0008A01442056308A01442043308A01442051
:1009E00055308A01442054308A01442020308A0145
:1009F00044204D308A0144204F308A014420443045
:100A00008A0144203D308A01442020308A0144205C
:100A10004F308A01442054308A0144204F308A01EB
:100A2000442020308A01442044308A01442045304B
:100A30008A0144204C308A01442020308A0144201D
:100A40004208BC004108BB00420841048A110A1256
:100A5000031D2B2D0800183085000630A500A50BBE
:100A60002F2D000000001C3085000630A500A50BCE
:100A7000372D00000000143085000630A500A50BBE
:100A80003F2D00000000163085000630A500A50BA4
:100A9000472D00000000123085000630A500A50B90
:100AA0004F2D00000000133085000630A500A50B77
:100AB000572D00000000113085000630A500A50B61
:100AC0005F2D00000000313085000630A500A50B29
:100AD000672D000000000730C1020030031C013EFA
:100AE000C2028030A100D4308A010E205A308A011F
:100AF00044203D308A014420A4014208AA00410854
:100B0000A9008A01152030308A01442020308A0152
:100B10004420420841048A110A12031D922D8A11B1
:100B20000A12942D8A012B2D183085000630A5005D
:100B3000A50B982D00000000313085000630A5007F
:100B4000A50BA02D00000000113085000630A50087
:100B5000A50BA82D00000000133085000630A5006D
:100B6000A50BB02D00000000123085000630A50056
:100B7000A50BB82D00000000163085000630A5003A
:100B8000A50BC02D00000000143085000630A50024
:100B9000A50BC82D000000001C3085000630A50004
:100BA000A50BD02D0000000085010730C1070318F8
:100BB000C20A8030A100D4308A010E205A308A0146
:100BC00044203D308A014420A4014208AA00410883
:100BD000A9008A01152030308A0144203C084202D5
:100BE0008A110A12031DFB2D3B0841028A110A12C9
:100BF000031DFB2D08008A01942D113006028A1175
:100C00000A120319042E08008A150A12C323803021
:100C1000A10080308A010E204D308A0144204530E9
:100C20008A01442056308A01442043308A014420FE
:100C300055308A01442054308A01442020308A01F2
:100C400044204D308A0144204F308A0144204430F2
:100C50008A0144203D308A01442020308A0144200A
:100C60008A01442058308A01442020308A014420DF
:100C700049308A0144204C308A01442045308A01A1
:100C8000442052308A01442049308A01442088306F
:100C90003E028A110A12031C582E8A110A12031DE1
:100CA000572EB9303D028A110A12031C582E080033
:100CB0000830870019308A01A0200C3087001930D5
:100CC0008A01A0200430870019308A01A020063054
:100CD000870019308A01A0200230870019308A016C
:100CE000A0200330870019308A01A020013087003E
:100CF00019308A01A0200930870019308A01A0200C
:100D000087010730BD070318BE0A8030A100C0303C
:100D10008A010E2058308A0144203D308A01442047
:100D2000A4013E08AA003D08A9008A011520303020
:100D30008A0144208A110A12061EA32E8A01FD2D63
:100D40008A110A12A42E08000800213006028A1116
:100D50000A120319AC2E08008A150A12C323803028
:100D6000A10080308A010E204D308A014420453098
:100D70008A01442056308A01442043308A014420AD
:100D800055308A01442054308A01442020308A01A1
:100D900044204D308A0144204F308A0144204430A1
:100DA0008A0144203D308A01442020308A014420B9
:100DB0008A01442058308A01442020308A0144208E
:100DC00047308A01442045308A01442052308A014C
:100DD000442049308A01442020308A0144203E08C2
:100DE0003D048A110A12031DF62E08000130870007
:100DF00019308A01A0200330870019308A01A02011
:100E00000230870019308A01A0200630870019308F
:100E10008A01A0200430870019308A01A0200C30FC
:100E2000870019308A01A0200830870019308A0114
:100E3000A0200930870019308A01A02087010730DF
:100E4000BD020030031C013EBE028030A100C03054
:100E50008A010E2058308A0144203D308A01442006
:100E6000A4013E08AA003D08A9008A0115203030DF
:100E70008A01442020308A0144208A110A12861EE9
:100E8000462F8A01A52E8A110A12472F0800080052
:100E9000413006028A110A1203194F2F08008A15E1
:100EA0000A12C3238030A10080308A010E204D3009
:100EB0008A01442045308A01442056308A0144206A
:100EC00043308A01442055308A01442054308A013D
:100ED000442020308A0144204D308A0144204F3084
:100EE0008A01442044308A0144203D308A01442054
:100EF00020308A0144208A01442059308A0144204C
:100F000020308A01442049308A0144204C308A0133
:100F1000442045308A01442052308A01442049301F
:100F20008A014420883040028A110A12031CA32F30
:100F30008A110A12031DA22FB9303F028A110A1228
:100F4000031CA32F08008030870019308A01A020DD
:100F5000C030870019308A01A02040308700193046
:100F60008A01A0206030870019308A01A02020303B
:100F7000870019308A01A0203030870019308A019B
:100F8000A0201030870019308A01A02090308700FF
:100F900019308A01A02087010730BF070318C00A53
:100FA0008030A10094308A010E2059308A014420FB
:100FB0003D308A014420A4014008AA003F08A9004E
:100FC0008A01152030308A0144208A110A12061F36
:100FD000EB2F8A01482F0800813006028A110A127D
:100FE0000319F32F08008A150A12C3238030A100C9
:100FF00080308A010E204D308A01442045308A011C
:10100000442056308A01442043308A014420553020
:101010008A01442054308A01442020308A0144202F
:101020004D308A0144204F308A01442044308A01E7
:1010300044203D308A01442020308A0144208A0126
:10104000442059308A01442020308A01442047300E
:101050008A01442045308A01442052308A014420CC
:1010600049308A01442020308A01442040083F044E
:101070008A150A12031D3D28080010308700193018
:101080008A01A0203030870019308A01A02020304A
:10109000870019308A01A0206030870019308A014A
:1010A000A0204030870019308A01A020C03087007E
:1010B00019308A01A0208030870019308A01A020D1
:1010C0009030870019308A01A02087010730BF02C5
:1010D0000030031C013EC0028030A10094308A0120
:1010E0000E2059308A0144203D308A014420A40159
:1010F0004008AA003F08A9008A01152030308A0163
:10110000442020308A0144208A150A12861F8D2827
:101110008A01EC2F8A150A128E28080008008230F6
:1011200006028A150A120319962808008030A100C9
:1011300080308A010E204D308A01442045308A01DA
:10114000442056308A01442043308A0144205530DF
:101150008A01442054308A01442020308A014420EE
:101160004D308A0144204F308A01442044308A01A6
:1011700044203D308A01442020308A0144204F30F1
:101180008A01442046308A0144208A0144202030CC
:101190008A01442053308A01442045308A0144208A
:1011A00054308A01442020308A014420BE01BD0110
:1011B000C001BF01C201C1018030A100C0308A015D
:1011C0000E2058308A0144203D308A014420A40179
:1011D0003E08AA003D08A9008A0115208030A10020
:1011E000C3308A010E2020308A0144208A01442025
:1011F0008A0144208A0144208A0144208A01442033
:101200004D308A01442049308A0144204B308A0104
:10121000442052308A0144204F308A0144204E300D
:101220008A0144208030A10094308A010E20593078
:101230008A0144203D308A014420A4014008AA00CC
:101240003F08A9008A0115208030A10097308A014B
:101250000E2020308A0144208A0144208A01442043
:101260008A0144208A0144208A0144204D308A01A9
:10127000442049308A0144204B308A0144205230B6
:101280008A0144204F308A0144204E308A01442094
:101290008030A100D4308A010E205A308A014420C7
:1012A0003D308A014420A4014208AA004108A90057
:1012B0008A0115208030A100D7308A010E2020300D
:1012C0008A0144208A0144208A0144208A01442062
:1012D0008A0144208A0144204D308A01442049304B
:1012E0008A0144204B308A01442052308A01442034
:1012F0004F308A0144204E308A01442008001430C7
:1013000006028A150A120319862908008030A100F6
:1013100080308A010E2020308A0144208A01442036
:101320008A0144204D308A0144204F308A014420F4
:1013300044308A0144203D308A01442020308A0113
:10134000442046308A01442052308A0144204530EE
:101350008A0144205A308A01442045308A014420C1
:1013600020308A01442041308A014420C7308A015C
:10137000442049308A0144204B308A0144202030E7
:101380008A0144208A01442005162F1408002430C5
:1013900006028A150A120319CE2908008030A1001E
:1013A00080308A010E2020308A0144208A014420A6
:1013B0004D308A0144204F308A01442044308A0154
:1013C00044203D308A01442020308A0144204630A8
:1013D0008A01442052308A01442045308A01442049
:1013E0005A308A01442045308A01442020308A0145
:1013F00044204B308A01442041308A01442050303F
:101400008A01442041308A0144204C308A01442022
:1014100049308A01442020308A01442005122F10CF
:101420000800443006028A150A120319182A080017
:101430008030A10080308A010E204D308A01442086
:1014400045308A01442056308A01442043308A01C5
:10145000442055308A01442054308A0144202030F1
:101460008A0144204D308A0144204F308A014420B3
:1014700044308A0144203D308A01442020308A01D2
:10148000442050308A01442057308A0144204D3096
:101490008A01442020308A0144208A0144208A01A4
:1014A00044208A0144208A01442008008430060236
:1014B0008A150A1203195D2A08008030A1008030C5
:1014C0008A010E204D308A01442045308A01442093
:1014D00056308A01442043308A01442055308A0125
:1014E000442054308A01442020308A0144204D3069
:1014F0008A0144204F308A01442044308A0144202C
:101500003D308A01442020308A0144204B308A013A
:10151000442041308A01442052308A014420453021
:101520008A01442020308A0144204B308A01442023
:1015300055308A01442052308A0144200800183076
:1015400006028A150A120319A62A08008030A10093
:1015500080308A010E204D308A01442045308A01B6
:10156000442056308A01442043308A0144205530BB
:101570008A01442054308A01442020308A014420CA
:101580004D308A0144204F308A01442044308A0182
:1015900044203D308A01442020308A0144204B30D1
:1015A0008A01442041308A01442052308A0144207B
:1015B00045308A01442020308A01442043308A018A
:1015C000442049308A0144205A308A0144200800CE
:1015D000283006028A150A120319EF2A0800803003
:1015E000A10080308A010E204D308A014420453010
:1015F0008A01442056308A01442043308A01442025
:1016000055308A01442054308A01442020308A0118
:1016100044204D308A0144204F308A014420443018
:101620008A0144203D308A01442020308A01442030
:1016300044308A014420D6308A01442052308A0145
:10164000442054308A01442047308A0144204530E8
:101650008A0144204E308A01442020308A014420EF
:101660000800483006028A150A120319382B0800B0
:101670008030A10080308A010E204D308A01442044
:1016800045308A01442056308A01442043308A0183
:10169000442055308A01442054308A0144202030AF
:1016A0008A0144204D308A0144204F308A01442071
:1016B00044308A0144203D308A01442020308A0190
:1016C000442044308A014420D6308A0144205230DC
:1016D0008A01442054308A01442047308A01442042
:1016E00045308A0144204E308A01442020308A014E
:1016F00044200800883006028A150A120319812B3B
:1017000008008030A10080308A010E204D308A010F
:10171000442045308A01442056308A014420433019
:101720008A01442055308A01442054308A014420E3
:1017300020308A0144204D308A0144204F308A01F4
:10174000442044308A0144203D308A014420203026
:101750008A01442044308A014420D6308A01442042
:1017600052308A01442054308A01442047308A0193
:10177000442045308A0144204E308A0144202030E4
:101780008A0144200800380837048A150A12031D0C
:10179000CA2B08003808A80037088A019420FA30BC
:1017A000B7020030031C013EB8020130B6000B3016
:1017B00036028A150A120318EA2B851602308A01AE
:1017C0009320851202308A019320B60A8A150A12E4
:0E17D000031DD72B080063008A150A12EB2BAD
:02400E00313F40
:00000001FF
	'XYZ MASA KONTROLU
	'(c) Uğur ÖNEN 2007
    	DEVICE 16F877
	CONFIG XT_OSC,WDT_OFF , PWRTE_ON , CP_OFF , LVP_OFF , BODEN_OFF
	XTAL = 4	
	ADCON1=%00000111	  		 ' port A analog port E digital
	TRISD=%00000000		
	TRISB=%11110000				 ' PORTB GIRIS / ÇIKIS
	TRISC=0					 		  ' PORTC ÇIKIS  
	TRISA=0							  ' port A çikis yapildi
	TRISE=0							  ' PORTE ÇIKIS
	TRISD=0	 				  		  ' PORTD ÇIKIS YAPILDI	      
        
	DECLARE SHOW_SYSTEM_VARIABLES = ON 'SISTEM DEGISKENLERINI GöSTER
    	DECLARE LCD_INTERFACE 4			   ' LCD 4 BIT
    	DECLARE LCD_LINES 4	  		  	   	 ' LCD 4 SATIR	
	DECLARE LCD_DTPIN PORTD.4				   		   
    	DECLARE LCD_RSPIN PORTE.2		   ' PORTE NIN 1. BITI LCD R/W 
    	DECLARE LCD_ENPIN PORTE.0 		   ' PORTE NIN 0 BITI LCD ENABLE
	              
	DIM X1	           AS WORD
	DIM Y1	           AS WORD	
	DIM Z1	            AS WORD
	DIM ZIL	            AS BYTE
	DIM AZAL          AS WORD
	DIM YARICAP   AS WORD
	DIM BOY	          AS WORD
	DIM KX              AS WORD
	DIM KY              AS WORD
	DIM KZ              AS WORD
	DIM YAN            AS BYTE
	DIM F                 AS BIT

	CLS				 		 		   	  	  	   	 	   	   	 	  	  			 
	PRINT AT 2,1,"     MANUEL CNC   "		
	PRINT AT 3,1," (c) UGUR ONEN 2007 "		
	DELAYMS 2500
	PORTA=0   
	CLS
	PRINT AT 1,1,"MEVCUT MOD= OFF SET " 
       	KX=0: KY=0 : KZ=0
	PRINT AT 2,1,"X=",DEC KX: PRINT AT 2,4,"      MIKRON"
	PRINT AT 3,1,"Y=",DEC KY: PRINT AT 3,4,"      MIKRON"
	PRINT AT 4,1,"Z=",DEC KZ: PRINT AT 4,4,"      MIKRON"		  
	PORTC=0
KEY:  	 
		IF F =0 THEN PRINT AT 1,1,"       MOD= KEY     "
		IF F =1 THEN PRINT AT 1,1,"       MOD= FREZE   "
		AZAL=250 
		PORTB=0
		PORTB.0=1:GOSUB TARA1
		PORTB=0
		PORTB.1=1:GOSUB TARA2			   
		PORTB=0
		PORTB.2=1:GOSUB TARA3
		PORTB=0			
		PORTB.3=1:GOSUB TARA4	   			  	
		GOTO	KEY			   	   
TARA1:    
	   		    IF PORTB.4=1 THEN GOSUB PROG1: RETURN	
	   		    IF PORTB.5=1 THEN GOSUB PROG2: RETURN	
	   		    IF PORTB.6=1 THEN GOSUB PROG3: RETURN	
	   		    IF PORTB.7=1 THEN GOSUB PROG4: RETURN				   			   			   	   		   
TARA2: 
	   		   IF PORTB.4=1 THEN GOSUB PROG5: RETURN	   
	   		   IF PORTB.5=1 THEN GOSUB PROG6: RETURN	 
	   		   IF PORTB.6=1 THEN GOSUB PROG7: RETURN	 			   
	   		   IF PORTB.7=1 THEN GOSUB PROG8: RETURN	   
TARA3: 
	   		   IF PORTB.4=1 THEN GOSUB PROG9:   RETURN   			   
	   		   IF PORTB.5=1 THEN GOSUB PROG10: RETURN 		   
	   		   IF PORTB.6=1 THEN GOSUB PROG11: RETURN   			   
	   		   IF PORTB.7=1 THEN GOSUB PROG12: RETURN			   
TARA4: 
	   		   IF PORTB.4=1 THEN GOSUB PROG13:RETURN   			   
	   		   IF PORTB.5=1 THEN GOSUB PROG14:RETURN 		   
	   		   IF PORTB.6=1 THEN GOSUB PROG15:RETURN   			   
	   		   IF PORTB.7=1 THEN GOSUB PROG16:RETURN
			   RETURN
			   
PROG5:	 IF PORTB<>18 THEN RETURN
	   	GOSUB BUZZER	
	        PRINT AT 1,1,"MEVCUT MOD= Z YUKARI" 
	        IF KZ>12000 THEN RETURN
		PORTA=17:DELAYUS 20  	 '00000001
           	PORTA=19:DELAYUS 20		 '00000011	
		PORTA=18:DELAYUS 20		 '00000010	
		PORTA=22:DELAYUS 20		 '00000110	
		PORTA=20:DELAYUS 20		 '00000100	
		PORTA=28:DELAYUS 20		 '00001100	
		PORTA=24:DELAYUS 20		 '00001000	
		PORTA=49:DELAYUS 20		 '00001001
		PORTA=0 
		KZ=KZ+7
		PRINT AT 4,1,"Z=",DEC KZ,"0"	
		IF PORTB.4=1 THEN PROG5 :ELSE RETURN			
    		RETURN
					 	
PROG6:	IF PORTB<>34 THEN RETURN
	   	GOSUB BUZZER     	
	   	PRINT AT 1,1,"MEVCUT MOD=  Z ASAGI"
		IF KZ=0 THEN RETURN
		PORTA=24:DELAYUS 20		'00011000
		PORTA=28:DELAYUS 20		'00011100
		PORTA=20:DELAYUS 20		'00010100
		PORTA=22:DELAYUS 20		'00010110
		PORTA=18:DELAYUS 20		'00010010
		PORTA=19:DELAYUS 20		'00010011
		PORTA=17:DELAYUS 20		'00010001
		PORTA=49:DELAYUS 20		'00011001	
		PORTA=0 
		KZ=KZ-7
		PRINT AT 4,1,"Z=", DEC KZ,"0 "
		IF PORTB.5=1 THEN PROG6 :ELSE RETURN		
           	RETURN	
			   
PROG7:  	IF PORTB<>66 THEN RETURN
         	        PRINT AT 1,1,"MEVCUT MOD= OTO DEL " 
	        BOY=KZ
	        IF KZ=0 THEN RETURN
IN:							  	   	
	PORTA=24:DELAYUS 20	  '00011000
	PORTA=28:DELAYUS 20	  '00011100
	PORTA=20:DELAYUS 20	  '00010100
	PORTA=22:DELAYUS 20	  '00010110
	PORTA=18:DELAYUS 20	  '00010010	
	PORTA=19:DELAYUS 20	  '00010011
	PORTA=17:DELAYUS 20	  '00010001
	PORTA=49:DELAYUS 20	  '00011001	
	KZ=KZ-7:PRINT AT 4,1,"Z=", DEC KZ,"0 "		
	IF KZ=0 THEN GOTO CIK
	GOTO  IN
CIK:
	PORTA=24:DELAYUS 20	'00001000	
	PORTA=49:DELAYUS 20	'00001001
	PORTA=17:DELAYUS 20	'00000001
           PORTA=19:DELAYUS 20	'00000011	
	PORTA=18:DELAYUS 20     '00000010	
	PORTA=22:DELAYUS 20	'00000110	
	PORTA=20:DELAYUS 20     '00000100	
	PORTA=28:DELAYUS 20     '00001100	
	PORTA=0
	KZ=KZ+7:PRINT AT 4,1,"Z=", DEC KZ,"0"
	IF KZ=BOY THEN RETURN
	GOTO CIK
		  		   
PROG1: 
       	IF PORTB<>17 THEN RETURN
	GOSUB BUZZER
          PRINT AT 1,1,"MEVCUT MOD=  X ILERI"
        	IF KX>35000 THEN RETURN	
        	PORTC=8 :DELAYUS 25	 '00001000
        	PORTC=12: DELAYUS 25    '00001100
        	PORTC=4:DELAYUS 25 	 '00000100
        	PORTC=6:DELAYUS 25 	 '00000110
        	PORTC=2:DELAYUS  25	 '00000010
        	PORTC=3:DELAYUS  25	 '00000011
        	PORTC=1:DELAYUS  25	 '00000001
        	PORTC=9:DELAYUS  25	 '00001001			
        	PORTC=0
	KX=KX+7
	PRINT AT 2,1,"X=", DEC KX,"0"
	IF PORTB.4=1 THEN PROG1 :ELSE RETURN	
	RETURN
						
PROG2:		
	IF PORTB<>33 THEN RETURN
	GOSUB BUZZER			
	PRINT AT 1,1,"MEVCUT MOD=  X GERI "  
	IF KX=0 THEN RETURN	
	PORTC=1:DELAYUS 25	 '00000001
	PORTC=3:DELAYUS 25	 '00000011
	PORTC=2:DELAYUS 25	 '00000010
	PORTC=6:DELAYUS 25	 '00000110
	PORTC=4:DELAYUS 25	 '00000100
	PORTC=12:DELAYUS 25	'00001100
	PORTC=8:DELAYUS 25	 '00001000	
	PORTC=9:DELAYUS 25	 '00001001
	PORTC=0
	KX=KX-7
	PRINT AT 2,1,"X=", DEC KX,"0 "
	IF PORTB.5=1 THEN PROG2 :ELSE RETURN
	RETURN
	
PROG3:	

	IF PORTB<>65 THEN RETURN	
	GOSUB BUZZER		
	PRINT AT 1,1,"MEVCUT MOD=  Y ILERI"
	IF KY> 35000 THEN RETURN	
	PORTC=128:DELAYUS 25   '10000000
	PORTC=192:DELAYUS 25   '11000000
	PORTC=64:DELAYUS 25     '01000000
	PORTC=96:DELAYUS 25	'01100000
	PORTC=32:DELAYUS 25	'00100000
	PORTC=48:DELAYUS 25	'00110000
	PORTC=16:DELAYUS 25	'00010000
	PORTC=144:DELAYUS 25   '10010000
	PORTC=0		
	KY=KY+7
	PRINT AT 3,1,"Y=", DEC KY,"0"
	IF PORTB.6=1 THEN PROG3
	RETURN
	
PROG4:
      	IF PORTB<>129 THEN RETURN	
	GOSUB BUZZER
	PRINT AT 1,1,"MEVCUT MOD=  Y GERI " 
	IF KY=0 THEN RETURN
	PORTC=16:DELAYUS 25	  '00010000	
	PORTC=48:DELAYUS 25	  '00110000	
	PORTC=32:DELAYUS 25	  '00100000	
	PORTC=96:DELAYUS 25	  '01100000
	PORTC=64:DELAYUS 25	  '01000000	
	PORTC=192:DELAYUS 25	 '11000000
	PORTC=128:DELAYUS 25	 '10000000
	PORTC=144:DELAYUS 25	 '10010000	
	PORTC=0
	KY=KY-7 
	PRINT AT 3,1,"Y=",DEC KY,"0 "
	IF PORTB.7=1 THEN PROG4 :ELSE RETURN	
	RETURN
	
PROG8: 	
	IF PORTB<>130 THEN RETURN
	PRINT AT 1,1,"MEVCUT MOD= OFF SET " 
       	  KX=0: KY=0 : KZ=0
	  PRINT AT 2,1,"X=",DEC KX: PRINT AT 2,4,"      MIKRON"
	  PRINT AT 3,1,"Y=",DEC KY: PRINT AT 3,4,"      MIKRON"
	  PRINT AT 4,1,"Z=",DEC KZ: PRINT AT 4,4,"      MIKRON"
	  RETURN
PROG9:   IF PORTB<>20 THEN RETURN
	  PRINT AT 1,1,"   MOD= FREZE AÇIK  " 
   	  PORTA.4=1 : F=1  	   		   	 		   	  		   				  	   
	  RETURN   
					 	  			  
PROG10: IF PORTB<>36 THEN RETURN	
	 PRINT AT 1,1,"  MOD= FREZE KAPALI "
	 PORTA.4=0 : F=0  		   	 		   	  		   				  	   
	 RETURN  
PROG11: IF PORTB<>68 THEN RETURN	
     	 PRINT AT 1,1,"MEVCUT MOD= PWM     " 
  	 RETURN
PROG12: IF PORTB<>132 THEN RETURN
             PRINT AT 1,1,"MEVCUT MOD= KARE KUR" 
        	  RETURN
PROG13: IF PORTB<>24 THEN RETURN	
        	  PRINT AT 1,1,"MEVCUT MOD= KARE CIZ" 
	  RETURN
PROG14:    IF PORTB<>40 THEN RETURN	
        	        PRINT AT 1,1,"MEVCUT MOD= DÖRTGEN " : RETURN
PROG15: 	IF PORTB<>72 THEN RETURN		   
        	         PRINT AT 1,1,"MEVCUT MOD= DÖRTGEN " : RETURN
PROG16: 	IF PORTB<>136 THEN RETURN	
        	         PRINT AT 1,1,"MEVCUT MOD= DÖRTGEN " : RETURN
BUZZER:
           	IF AZAL=0 THEN RETURN
	        DELAYMS AZAL
	        AZAL= AZAL-250		
	        FOR ZIL=1 TO 10
	        PORTA.5=1
	        DELAYMS 2	
	        PORTA.5=0
	        DELAYMS 2
	        NEXT ZIL	
	RETURN 
















































































































			END