$%&╞()*╞                         DEMO BAS#FMOD-XPADBAS'R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  C&$В XPAD DEMONSTRATION PROGRAM 2&LВ COPYRIGHT 1982, KURTA CORPORATION&R(В&l)В TOP MENU FUNCTIONS:&Я*В BOX 1 COPY CONTENTS OF BOX TO NEW LOCATION&╪+В BOX 2 ENTER TEXT FROM KEYBOARD AT GIVEN LOCATION' ,В BOX 3 DRAW CONTINUOUSLY WHILE PEN IS DOWN'=-В BOX 4 PAINT COLOR SELECTED FROM LOWER MENU'R.В BOX 5 ERASE'И/В BOX 6 DRAW A STRAIGHT LINE BETWEEN TWO POINTS'╬0В BOX 7 DRAW A CIRCLE AROUND A CENTER POINT WITH DEFINED RADIUS(1В BOX 8 DRAW A BOX AT DIAGONAL CORNER POINTS( 2В BOX 9 CLEAR THE SCREEN(&3В(@4В BOTTOM MENU COLORS:(T5В BOX 1 BLACK(h6В BOX 2 GREEN(}7В BOX 3 YELLOW(Р8В BOX 4 BLUE(в9В BOX 5 RED(╡:В BOX 6 BUFF(╚;В BOX 7 CYAN(▐<В BOX 8 MAGENTA(є=В BOX 9 ORANGE(∙>В)FВ ************************)4PВ SOME HANDY VARIABLES:)QZВ X=HORIZONTAL PEN POSIT)ldВ Y=VERTICAL PEN POSIT)nВ S=PEN STATUS)ЮxВ MU=CURRENT MENU FUNCTION)║ВВ C=CURRENT PAINT COLOR)╫МВ B=CURRENT BORDER COLOR)ЇЦВ TP=TEXT POSIT SELECTED*ШВ CS=COLOR SET*&аВ *************************,бВ*YвВ THIS PROGRAM WILL RUN IN A 16K MACHINE*ГгВ IF THE FOLLOWING LINES ARE DELETED:*гдВ 200-210,610-690,1080,1160*╦еВ THIS DISABLES THE "COPY" FUNCTION*╤кВ*ъ┤В INITIALIZE PROGRAM*∙╥М V(30,30)+▄М AZ$(25)+цА LE │ 0 е 25+'ЁН AZ$(LE)+0·Л LE+9CS│1+L╝:╚ 3,1:┐ 1,CS+UMU│0+["В+y,В ***********************+Р6В TOP OF MAIN LOOP+м@В DECODE PEN STATUS AND+╟JВ DISPATCH ACCORDINGLY+цLВ IF TEXT IS BEING ENTERED,NВ DECODE AND DRAW THE LETTER,%TВ ***********************,1^Бж 2870,BhЕ S▓15 з 350,hrS│Sл1: В "ON S" MUST START WITH 1,└|И S Бж 2900,2900,530,780,2900,2900,2900,3630,2900,2900,2900,890,2900,2900,2900,2900,╥ЖЕ MU┤▓2 з 350,уРЕ TP│0 з 350,эЪA$│ Т, дЕ A$│"" з 350-оЕ "A"▓A$ ▒ "Z"┤A$ з 350-0╕╞ AZ$( К(A$)м65)-?┬╞ "BR5BU7"-J╠Бе 350-P╓В-nрВ ***********************-ВъВ PEN STATUS 2:-ЬЇВ "PEN NOT DEPRESSED"-▒■В DISPLAY CURSOR-╤В IF DOING A "COPY" DISPLAY-шВ THE FLOATING BOX.В ***********************.Е MU│1 з 600.%A│ а(X,Y).5&А W │ 0 е 8.C0╜ (X,Y,W).K:Л W.YD╜ (X,Y,A)._NР.ЕPВ DISPLAY FLOATING BOX FOR "COPY".ЧXЕ X┤15 з X│15.йZЕ Y┤15 з Y│15.┴\Е X ▓ 240 з X │ 240.┘^Е Y ▓ 176 з Y │ 176.уb╚ 3,5.юl┐ 1,CS.·v╟ 1 е 5/А╟ 2 е 6/К╟ 3 е 7/Ф╟ 4 е 8/@Ю╗ (Xм15,Yм15)м(Xл15,Yл15),╜,B/Jи╚ 3,1/U▓┐ 1,CS/[╝Р/a╞В/╨В ***********************/У┌В PEN STATUS 3:/╜фВ "PEN DEPRESSED ON THE DISPLAY AREA"/▄юВ DISPATCH TO THE FUNCTION/ў°В SELECTED ON THE MENU0В ***********************0N И MU Бж 1030,1520,1700,1850,2070,2190,2400,2620,28000TР0Z В0x*В ***********************0Н4В PEN STATUS 11:0│>В "PEN DEPRESSED ON THE TOP MENU"0╤HВ WAIT UNTIL IT IS LIFTED0ыRВ CALCULATE WHICH BOX1\В DISPATCH TO ANY THAT 1#fВ NEED IMMEDIATE ACTION1ApВ ***********************1MzБж 28901^ДЕ S│11 з 8901tОMU│ Б(Xо28.334)л11БШ╔  И(MU)1║мИ MU Бж 1010,1502,2900,1810,2900,2160,2370,2590,28001└╢Р1╞└В1ф╩В ***********************1·╘В TOP MENU BOX 1:2▐В "COPY CONTENTS OF THE BOX"28шВ **********************2AЄSW│02G№Р2XИ SW Бе 11202dБж 28902uЕ S│3 з 10402З$Е X┤15 з X│152Щ.Е Y┤15 з Y│152▒0Е X ▓ 240 з X │ 2402╔2Е Y ▓ 176 з Y │ 1762ы8─ (Xм15,Yм15)м(Xл15,Yл15),V,G2ЇBSW│12·LР3&VВ ENTRY POINT FOR "PUT" END OF THE MOVE32`Бж 28903CjЕ S│3 з 11203UtЕ X┤15 з X│153g~Е Y┤15 з Y│153АЕ X ▓ 240 з X │ 2403ЧВЕ Y ▓ 176 з Y │ 1763╣И┼ (Xм15,Yм15)м(Xл15,Yл15),V,╜3┬ТSW│03╦ЬMU│03╤жР3╫░В3ї║В ***********************4 ─В TOP MENU BOX 2:4╬В "TEXT"46╪В ***********************4QтЖ BD1D6U4NR5U2E1R3F1D64rьЖ ND7R4F1D1G1NL4F1D2G1NL4BR14ЧЎЖ BD1D5F1R3E1U1BU3U1H1L3G1BD6BR54░Ж D7R4E1U5H1L4BD7BR54├ Ж NR5D3NR4D4R54╫Ж NR5D3NR4D4BR54 Ж BD1D5F1R3E1U2NL2BU2U1H1L3G1BD6BR55(Ж D7U4R5NU3D45%2Ж R4L2D7L2R4BR15<<Ж BD5D1F1R3E1U6BD75TFЖ D7U4R3E2NU1G2F2D25_PЖ D7R55uZЖ ND7F2BD1E3D7BR25ЙdЖ D1ND6E1R3F1D65йnЖ BD1D5F1R3E1U5H1L3G1BD6BR55├xЖ ND7R4F1D2G1L4BD3BR55фВЖ BD1D5F1R3E1U5H1L3G1D4BR3F25¤МЖ ND7R4F1D1G1NL4F1D36#ЦЖ BD1D1F1R3F1D2G1L3H1BU5E1R3F1BD663аЖ R4L2D7BR36GкЖ D6F1R3E1U6BD76\┤Ж D5F2E2U5BD7BR16q╛Ж D7E3F3U7BD7BR16К╚Ж D1F5D1BL5U1E5U1BD76в╥Ж D2F2ND3E2U2BD7BR16│▄Ж R5D1G5D1R56╫▐TP│0: :ГTEXT POSIT NOT SELECTED6▌рР6√цВ ENTRY FOR TEXT POSITION7ЁБж 28907·Е S│3 з 15207#╞ "S4"71╞ "BM0,0"7=Е X▓0 з7M"А I │ 1 е X7Y,╞ "BR1"7a6Л I7m@Е Y▓0 з7}JА I │ 1 е Y7ЙT╞ "BD1"7С^Л I7▒hTP│1: :ГTEXT POSIT SELECTED7╖rР7╘|В **********************7ъЖВ TOP MENU BOX 3:7ўРВ "DRAW"8ЪВ **********************8!д╜(X,Y,1)8/оX1│X:Y1│Y8;╕Бж 28708J┬Е S┤▓3 з Р8_╠╗(X1,Y1)м(X,Y),╜8k╓Бе 17108qрВ8ОъВ **********************8дЇВ TOP MENU BOX 4:8▓■В "PAINT"8╧В **********************8▄B│8: C│88хSW│08ы&Р90В ENTRY TO SELECT COLOR9:И SW Бе 19709$DБж 289095NЕ S│3 з 18609EXЕ Y┤192 з Р9XbC│ Б(Xо28.334)9alCS│09rvЕ C▓4 з CS│19}А┐ 1,CS9ЛК╔  И(Cл1)9ФФSW│19ЪЮР9╛иВ ENTRY TO SELECT AREA TO PAINT9╩▓Бж 28909█╝Е S│3 з 19709ы╞Е Y▓191 з Р9√╨├ (X,Y),C,B:┌Р:фВ:$юВ **********************::°В TOP MENU BOX 5::HВ "ERASE":e В **********************:r╜(X,Y,1):АX1│X:Y1│Y:МБж 2870:ЫЕ S┤▓3 з Р:▒╗ (X1,Y1)м(X,Y),╛:╜ Бе 2072:├>В:рHВ **********************:ЎRВ TOP MENU BOX 6:;\В "LINE"; fВ **********************;)pSW│0;/zР;OДВ ENTRY FOR FIRST END POINT;`ОИ SW Бе 2270;lШБж 2890;}вЕ S│3 з 2200;Йм╜ (X,Y);Ч╢X1│X:Y1│Y;а└SW│1;ж╩Р;╟╘В ENTRY FOR SECOND END POINT;╙▐Бж 2890;фшЕ S│3 з 2270;·Є╗ (X1,Y1)м(X,Y),╜<№SW│0< Р< В<, В ********************** <И SW Бе 2700> FБж 2890>' PЕ S│3 з 2630>3 Z╜ (X,Y)>A dX1│X:Y1│Y>J nSW│1>P xР>v ВВ ENTRY FOR DIAGANOL CORNER POINT>В МБж 2890>У ЦЕ S│3 з 2700>л а╗ (X1,Y1)м(X,Y),╜,B>┤ кSW│0>║ ┤Р>└ ╛В>▌ ╚В **********************>є ╥В TOP MENU BOX 9:? ▄В "CLEAR DISPLAY AREA"?+ цВ **********************?1 Ё╝?7 ·Р?= В?[ В ***********************?x В ROUTINE TO READ STATUS?Т "В AND POSITION OF PEN?░ ,В ***********************?└ 6X│ Ж(65376)?╨ @Y│ Ж(65377)?р JS│ Ж(65378)?ц TР@ ╕В ***********************@ ┬В ROUTINE TO DISPLAY@7 ╠В HORIZONTAL RESISTOR@U ╓В ***********************@z рБж 2870:Е S┤▓3 з Бж 540 : Бе3040@З ъSN│6:A│5@в Ї╗(X,Y)м(XлA,Y),╜:X│XлA@▒ ■А I│1 е 10@┼ X1│X:Y1│Y:X│Xл4@▌ Е I MOD 2│0з SN│мSN@ш Y│YлSN@¤ &╗(X1,Y1)м(X,Y),╜A 0Л I A :╗ (X,Y)м(XлA,Y),╜A" DРA@ NВ ***********************AY XВ ROUTINE TO DISPLAYAs bВ A VERTICAL RESISTORAС lВ ***********************A╖ vБж 2870:Е S┤▓3 з Бж 540 : Бе 3190A─ АSN│6:A│5A▀ К╗(X,Y)м(X,YлA),╜:Y│YлAAь ФА I│1е10B ЮX1│X:Y1│Y:Y│Yл2B иЕ I MOD 2 │ 0 з SN│мSNB& ▓X│XлSNB; ╝╗(X1,Y1)м(X,Y),╜BC ╞Л IBX ╨╗(X,Y)м(X,YлA),╜B^ ┌РB| фВ ***********************BХ юВ ROUTINE TO DISPLAYB▓ °В A HORIZONTAL CAPACITORB╨ В ***********************B∙ Бж 2870 : Е S┤▓ 3 з Бж 540 : Бе 3340C A│5C ╗(Xм2нA,YлA)м(Xл2нA,YлA),╜CC *╗(Xм2нA,Yл2нA)м(Xл2нA,Yл2нA),╜CX 4╗(X,Y)м(X,YлA),╜Cs >╗(X,Yл2нA)м(X,Yл3нA),╜Cy HРCЧ RВ ***********************C░ \В ROUTINE TO DISPLAYC╦ fВ A VERTICAL CAPACITORCщ pВ ***********************D zБж 2870:Е S┤▓3 з Бж 540 : Бе 3450D ДA│5D2 О╗(XлA,YмA)м(XлA,YлA),╜DQ Ш╗(Xл2нA,YмA)м(Xл2нA,YлA),╜Df в╗(X,Y)м(XлA,Y),╜DБ м╗(Xл2нA,Y)м(Xл3нA,Y),╜DЗ ╢РDе └В ***********************D╛ ╩В ROUTINE TO DISPLAYD╪ ╘В A TRANSISTOR SYMBOLDЎ ▐В ***********************E шБж 2870:Е S┤▓3 з Бж 540: Бе 3560E$ ЄA│10E; №╗(X,Y)м(Xл2нA,Y),╜EZ╗(Xл2нA,YмA)м(Xл2нA,YлA),╜E}╗(Xл2нA,YлAо3)м(Xл4нA,Yл2нA),╜Eа╗(Xл2нA,YмAо3)м(Xл4нA,Yм2нA),╜Eж$РE─.В SIDE BOX IDENTIFICATIONE╥8SW│0:MU│0EцBBX│ Б(Yо19.2)л1EєL╔  И(BX)F VЕ  Ж(65378)│7 з 3670F6`И BX Бе 3040,3190,3340,3450,3560,3620F<jРFB                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            O&$В XPAD DEMONSTRATION PROGRAM 2&LВ COPYRIGHT 1982, KURTA CORPORATION&R(В&l)В TOP MENU FUNCTIONS:&Я*В BOX 1 COPY CONTENTS OF BOX TO NEW LOCATION&╪+В BOX 2 ENTER TEXT FROM KEYBOARD AT GIVEN LOCATION' ,В BOX 3 DRAW CONTINUOUSLY WHILE PEN IS DOWN'=-В BOX 4 PAINT COLOR SELECTED FROM LOWER MENU'R.В BOX 5 ERASE'И/В BOX 6 DRAW A STRAIGHT LINE BETWEEN TWO POINTS'╬0В BOX 7 DRAW A CIRCLE AROUND A CENTER POINT WITH DEFINED RADIUS(1В BOX 8 DRAW A BOX AT DIAGONAL CORNER POINTS( 2В BOX 9 CLEAR THE SCREEN(&3В(@4В BOTTOM MENU COLORS:(T5В BOX 1 BLACK(h6В BOX 2 GREEN(}7В BOX 3 YELLOW(Р8В BOX 4 BLUE(в9В BOX 5 RED(╡:В BOX 6 BUFF(╚;В BOX 7 CYAN(▐<В BOX 8 MAGENTA(є=В BOX 9 ORANGE(∙>В)FВ ************************)4PВ SOME HANDY VARIABLES:)QZВ X=HORIZONTAL PEN POSIT)ldВ Y=VERTICAL PEN POSIT)nВ S=PEN STATUS)ЮxВ MU=CURRENT MENU FUNCTION)║ВВ C=CURRENT PAINT COLOR)╫МВ B=CURRENT BORDER COLOR)ЇЦВ TP=TEXT POSIT SELECTED*ШВ CS=COLOR SET*&аВ *************************,бВ*YвВ THIS PROGRAM WILL RUN IN A 16K MACHINE*ГгВ IF THE FOLLOWING LINES ARE DELETED:*гдВ 200-210,610-690,1080,1160*╦еВ THIS DISABLES THE "COPY" FUNCTION*╤кВ*ъ┤В INITIALIZE PROGRAM*∙╥М V(30,30)+▄М AZ$(25)+цА LE │ 0 е 25+'ЁН AZ$(LE)+0·Л LE+9CS│1+L╝:╚ 3,1:┐ 1,CS+UMU│0+["В+y,В ***********************+Р6В TOP OF MAIN LOOP+м@В DECODE PEN STATUS AND+╟JВ DISPATCH ACCORDINGLY+цLВ IF TEXT IS BEING ENTERED,NВ DECODE AND DRAW THE LETTER,%TВ ***********************,1^Бж 2870,BhЕ S▓15 з 350,hrS│Sл1: В "ON S" MUST START WITH 1,└|И S Бж 2900,2900,530,780,2900,2900,2900,2900,2900,2900,2900,890,2900,2900,2900,2900,╥ЖЕ MU┤▓2 з 350,уРЕ TP│0 з 350,эЪA$│ Т, дЕ A$│"" з 350-оЕ "A"▓A$ ▒ "Z"┤A$ з 350-0╕╞ AZ$( К(A$)м65)-?┬╞ "BR5BU7"-J╠Бе 350-P╓В-nрВ ***********************-ВъВ PEN STATUS 2:-ЬЇВ "PEN NOT DEPRESSED"-▒■В DISPLAY CURSOR-╤В IF DOING A "COPY" DISPLAY-шВ THE FLOATING BOX.В ***********************.Е MU│1 з 600.%A│ а(X,Y).5&А W │ 0 е 8.C0╜ (X,Y,W).K:Л W.YD╜ (X,Y,A)._NР.ЕPВ DISPLAY FLOATING BOX FOR "COPY".ЧXЕ X┤15 з X│15.йZЕ Y┤15 з Y│15.┴\Е X ▓ 240 з X │ 240.┘^Е Y ▓ 176 з Y │ 176.уb╚ 3,1.юl┐ 1,CS.·v╟ 1 е 5/А╟ 2 е 6/К╟ 3 е 7/Ф╟ 4 е 8/@Ю╗ (Xм15,Yм15)м(Xл15,Yл15),╜,B/Jи╚ 3,1/U▓┐ 1,CS/[╝Р/a╞В/╨В ***********************/У┌В PEN STATUS 3:/╜фВ "PEN DEPRESSED ON THE DISPLAY AREA"/▄юВ DISPATCH TO THE FUNCTION/ў°В SELECTED ON THE MENU0В ***********************0N И MU Бж 1030,1520,1700,1850,2070,2190,2400,2620,28000TР0Z В0x*В ***********************0Н4В PEN STATUS 11:0│>В "PEN DEPRESSED ON THE TOP MENU"0╤HВ WAIT UNTIL IT IS LIFTED0ыRВ CALCULATE WHICH BOX1\В DISPATCH TO ANY THAT 1#fВ NEED IMMEDIATE ACTION1ApВ ***********************1MzБж 28901^ДЕ S│11 з 8901tОMU│ Б(Xо28.334)л11БШ╔  И(MU)1║мИ MU Бж 1010,1502,2900,1810,2900,2160,2370,2590,28001└╢Р1╞└В1ф╩В ***********************1·╘В TOP MENU BOX 1:2▐В "COPY CONTENTS OF THE BOX"28шВ **********************2AЄSW│02G№Р2XИ SW Бе 11202dБж 28902uЕ S│3 з 10402З$Е X┤15 з X│152Щ.Е Y┤15 з Y│152▒0Е X ▓ 240 з X │ 2402╔2Е Y ▓ 176 з Y │ 1762ы8─ (Xм15,Yм15)м(Xл15,Yл15),V,G2ЇBSW│12·LР3&VВ ENTRY POINT FOR "PUT" END OF THE MOVE32`Бж 28903CjЕ S│3 з 11203UtЕ X┤15 з X│153g~Е Y┤15 з Y│153АЕ X ▓ 240 з X │ 2403ЧВЕ Y ▓ 176 з Y │ 1763╣И┼ (Xм15,Yм15)м(Xл15,Yл15),V,╜3┬ТSW│03╦ЬMU│03╤жР3╫░В3ї║В ***********************4 ─В TOP MENU BOX 2:4╬В "TEXT"46╪В ***********************4QтЖ BD1D6U4NR5U2E1R3F1D64rьЖ ND7R4F1D1G1NL4F1D2G1NL4BR14ЧЎЖ BD1D5F1R3E1U1BU3U1H1L3G1BD6BR54░Ж D7R4E1U5H1L4BD7BR54├ Ж NR5D3NR4D4R54╫Ж NR5D3NR4D4BR54 Ж BD1D5F1R3E1U2NL2BU2U1H1L3G1BD6BR55(Ж D7U4R5NU3D45%2Ж R4L2D7L2R4BR15<<Ж BD5D1F1R3E1U6BD75TFЖ D7U4R3E2NU1G2F2D25_PЖ D7R55uZЖ ND7F2BD1E3D7BR25ЙdЖ D1ND6E1R3F1D65йnЖ BD1D5F1R3E1U5H1L3G1BD6BR55├xЖ ND7R4F1D2G1L4BD3BR55фВЖ BD1D5F1R3E1U5H1L3G1D4BR3F25¤МЖ ND7R4F1D1G1NL4F1D36#ЦЖ BD1D1F1R3F1D2G1L3H1BU5E1R3F1BD663аЖ R4L2D7BR36GкЖ D6F1R3E1U6BD76\┤Ж D5F2E2U5BD7BR16q╛Ж D7E3F3U7BD7BR16К╚Ж D1F5D1BL5U1E5U1BD76в╥Ж D2F2ND3E2U2BD7BR16│▄Ж R5D1G5D1R56╫▐TP│0: :ГTEXT POSIT NOT SELECTED6▌рР6√цВ ENTRY FOR TEXT POSITION7ЁБж 28907·Е S│3 з 15207#╞ "S4"71╞ "BM0,0"7CЕ X┤│0 з 16007S"А I │ 1 е X7_,╞ "BR1"7g6Л I7y@Е Y┤│0 з 16407ЙJА I │ 1 е Y7ХT╞ "BD1"7Э^Л I7╜hTP│1: :ГTEXT POSIT SELECTED7├rР7р|В **********************7ЎЖВ TOP MENU BOX 3:8РВ "DRAW"8 ЪВ **********************8-д╜(X,Y,1)8;оX1│X:Y1│Y8G╕Бж 28708V┬Е S┤▓3 з Р8k╠╗(X1,Y1)м(X,Y),╜8w╓Бе 17108}рВ8ЪъВ **********************8░ЇВ TOP MENU BOX 4:8╛■В "PAINT"8█В **********************8шB│5: C│88ёSW│08ў&Р90В ENTRY TO SELECT COLOR9$:И SW Бе 197090DБж 28909ANЕ S│3 з 18609QXЕ Y┤192 з Р9dbC│ Б(Xо28.334)9mlCS│09~vЕ C▓4 з CS│19ЙА┐ 1,CS9ЧК╔  И(Cл1)9аФSW│19жЮР9╩иВ ENTRY TO SELECT AREA TO PAINT9╓▓Бж 28909ч╝Е S│3 з 19709ў╞Е Y▓191 з Р:╨├ (X,Y),C,B: ┌Р:фВ:0юВ **********************:F°В TOP MENU BOX 5::TВ "ERASE":q В **********************:~╜(X,Y,1):МX1│X:Y1│Y:ШБж 2870:зЕ S┤▓3 з Р:╜╗ (X1,Y1)м(X,Y),╛:╔ Бе 2072:╧>В:ьHВ **********************;RВ TOP MENU BOX 6:;\В "LINE";,fВ **********************;5pSW│0;;zР;[ДВ ENTRY FOR FIRST END POINT;lОИ SW Бе 2270;xШБж 2890;ЙвЕ S│3 з 2200;Хм╜ (X,Y);г╢X1│X:Y1│Y;м└SW│1;▓╩Р;╙╘В ENTRY FOR SECOND END POINT;▀▐Бж 2890;ЁшЕ S│3 з 2270<Є╗ (X1,Y1)м(X,Y),╜<№SW│0< Р< В<8 В ********************** 2В ENTRY FOR FIRST CORNER POINT> <И SW Бе 2700>" FБж 2890>3 PЕ S│3 з 2630>? Z╜ (X,Y)>M dX1│X:Y1│Y>V nSW│1>\ xР>В ВВ ENTRY FOR DIAGANOL CORNER POINT>О МБж 2890>Я ЦЕ S│3 з 2700>╖ а╗ (X1,Y1)м(X,Y),╜,B>└ кSW│0>╞ ┤Р>╠ ╛В>щ ╚В **********************>  ╥В TOP MENU BOX 9:? ▄В "CLEAR DISPLAY AREA"?7 цВ **********************?= Ё╝?C ·Р?I В?g В ***********************?Д В ROUTINE TO READ STATUS?Ю "В AND POSITION OF PEN?╝ ,В ***********************?╠ 6X│ Ж(65376)?▄ @Y│ Ж(65377)?ь JS│ Ж(65378)?Є TР@ ╕В ***********************@) ┬В ROUTINE TO DISPLAY@C ╠В HORIZONTAL RESISTOR@a ╓В ***********************@Ж рБж 2870:Е S┤▓3 з Бж 540 : Бе3040@У ъSN│6:A│5@о Ї╗(X,Y)м(XлA,Y),╜:X│XлA@╜ ■А I│1 е 10@╤ X1│X:Y1│Y:X│Xл4@щ Е I MOD 2│0з SN│мSN@Ї Y│YлSNA &╗(X1,Y1)м(X,Y),╜A 0Л I A( :╗ (X,Y)м(XлA,Y),╜A. DРAL NВ ***********************Ae XВ ROUTINE TO DISPLAYA bВ A VERTICAL RESISTORAЭ lВ ***********************A├ vБж 2870:Е S┤▓3 з Бж 540 : Бе 3190A╨ АSN│6:A│5Aы К╗(X,Y)м(X,YлA),╜:Y│YлAA° ФА I│1е10B ЮX1│X:Y1│Y:Y│Yл2B' иЕ I MOD 2 │ 0 з SN│мSNB2 ▓X│XлSNBG ╝╗(X1,Y1)м(X,Y),╜BO ╞Л IBd ╨╗(X,Y)м(X,YлA),╜Bj ┌РBИ фВ ***********************Bб юВ ROUTINE TO DISPLAYB╛ °В A HORIZONTAL CAPACITORB▄ В ***********************C Бж 2870 : Е S┤▓ 3 з Бж 540 : Бе 3340C A│5C, ╗(Xм2нA,YлA)м(Xл2нA,YлA),╜CO *╗(Xм2нA,Yл2нA)м(Xл2нA,Yл2нA),╜Cd 4╗(X,Y)м(X,YлA),╜C >╗(X,Yл2нA)м(X,Yл3нA),╜CЕ HРCг RВ ***********************C╝ \В ROUTINE TO DISPLAYC╫ fВ A VERTICAL CAPACITORCї pВ ***********************D zБж 2870:Е S┤▓3 з Бж 540 : Бе 3450D# ДA│5D> О╗(XлA,YмA)м(XлA,YлA),╜D] Ш╗(Xл2нA,YмA)м(Xл2нA,YлA),╜Dr в╗(X,Y)м(XлA,Y),╜DН м╗(Xл2нA,Y)м(Xл3нA,Y),╜DУ ╢РD▒ └В ***********************D╩ ╩В ROUTINE TO DISPLAYDф ╘В A TRANSISTOR SYMBOLE ▐В ***********************E' шБж 2870:Е S┤▓3 з Бж 540: Бе 3560E0 ЄA│10EG №╗(X,Y)м(Xл2нA,Y),╜Ef╗(Xл2нA,YмA)м(Xл2нA,YлA),╜EЙ╗(Xл2нA,YлAо3)м(Xл4нA,Yл2нA),╜Eм╗(Xл2нA,YмAо3)м(Xл4нA,Yм2нA),╜E▓$РE╨.В SIDE BOX IDENTIFICATIONE▐8SW│0:MU│0EЄBBX│ Б(Yо19.2)л1E L╔  И(BX)FVЕ  Ж(65378)│7 з 3670FB`И BX Бе 3040,3190,3340,3450,3560,3620FHjРFN