BASIC-UCITEL 1 yR—"BASIC-UCITEL 1"Ü"CRT:M1" þ¢ ÜB$ô"A3A3D4A3F4G3B6"C$ô"A3A3D4A3F4G3B6"D$ô"A3A3D4A3F4G3B6" þ£„þ¢C$;B$;D$ ›9 þ [‚]†4,„p,"BASIC",ƒ ,ƒ ,: þ [‚@]† ,ˆ ,"UCITEL",ƒ ,ƒ ,$ þ¤„P,„:"S˜¡ž MZ-800"! þ¤„p,„ :"K·¸ & B’" þ¤…,„0:" 1987"/þ¤„P,„P:"*** DIL 1 ***":þ‚@*þ¤„0,„p:"*** U«·œ ***" N: X  _6þ¤‚,„:"P·©¡Ÿ·«¡°¦ ž·—¡³¥ Æ ¤–¦¤©°¦"+þ¤‚,„ :" ¸¦š·«·¸°·¥ ©¸¡«’¤¥"3þ¤‚,„`:"N¡«¡– °¡ ž’œŸ˜·¢¦ ¤–¡°¥ "1þ˜[‚@]‡L,‡~,ˆ,ˆ ,‚@9þ¤‚,…:" ©¸¡«’¤·¥ ":þ¤„P,…:" Z "  [“A$ô"Z"⃠ _5þ¤‚,ƒ:"T’°–· P·—¡³³ ¥Ÿ¦ ¢¡©¸¡œ¥³ "-þ¤‚,ƒ :"ž·—¡³·«¡Ÿ¦˜· ¯¡¢½©¡"-þ¤‚,ƒ`:" BASIC"1þ¤‚,„:"ž· ž·Ÿ¦–¡Ÿ S˜¡ž MZ-800."5þ¤‚,„0:"Oœž·«¦œ¡¯¦Ÿ¦ ¤–¡°¥ ¢ M¡°¥¡¸¥"4 þ¤‚,„@:"š¥œ’–’ ³¦– ¢·š¡¢’°¥ « œ·¸°¦":!þ¤‚,„P:"Ÿ¡¤–¦ ž·š¦¡°’ ¤–¡°©½ ¢ ¥Ÿ¦–’¸’ "("IôàŒz:Ž:Iôàƒ`+#þ¤‚,…:"M¡°¥¡¸ ¤–¡°¡: X-X" $¾ˆ+%þ¤‚,…:"M¡°¥¡¸ ¤–¡°¡: " &¾ˆ'Ž+(þ¤‚,…:"M¡°¥¡¸ ¤–¡°¡: X-X" ) X * ^+þ¤„P,„:"PRINT",þ¤„P,„ :"FUNKCE" -þ¤„P,„@:"PROMENNE" . X / _::@0þ¤,‚@: "PRINT ¯’ ¯’œ’° ¢’ ¢¡©¸¡œ°¦Ÿ˜ PRIKAZU"!1þ¤,ƒ: "« BASICU">2þ¤,ƒ@: "T’°–· ž¦©¸¡œ «¡³ ¥©¡¢’ ¯¡© ¢·š¡¢¦– "<3þ¤,ƒ`: "«½¤–¥ž°¦ œ¡–¡ °¡ ·š¡¢·«©¥.":¾‹;€%4þ¤,„: "P¦©¸¡œ:":5þ‚:¾Šz<6þ¤,„0:"PRINT ";ÿ (");"D·š½ œ’° !";ÿ (")7þ‚@:¾‹;€58þ¤,„P:"N¡ ·š¡¢·«Ÿ’ ¤’ ·š¯’«¦ °¡ž¦¤:"9þ‚:¾Šz*:þ¤,…:"D·š½ œ’°!":¾‹;€ ;þ‚@,<þ¤,…:"M¡°¥¡¸ ¤–¡°¡: 6-24" = X > _+?þ¤,‚:" FUNKCE"*@þ¤,ƒ:"N¥³’¦Ÿ©’ FUNKCE:"2Aþ¤,ƒ@:"ABS(X) - A𤷏¥–°¦ ˜·œ°·–¡"=Bþ¤,„:"T¡–· ª¥°©Ÿ’ «½–«¡¦ ¡š¤·¸¥–°¦ ˜·œ°·–¥":Cþ¤,„:"¢ X, –.¯. ž¦¡œ¦ ³¥ ¯’˜· ˜·œ°·–¥ "4Dþ¤,„ :"š’¢ ·˜¸’œ¥ °¡ ¯’˜· ¢°¡³’°©·." Eþ¤,„0:"P¦©¸¡œ:"=Fþ¤,„P:"J’¤–¸¦¢’ ¯’ X=-2.6 ž¡© ABS(X)= 2.6"6Gþ¤,„p:"V BASIC¥ «½ž¡œ¡ ¢¡ž¦¤ –¡©–· :"Hþ‚:¾Šz?Iþ¤,…:"X = -2.6 : X = ABS(X) : PRINT X":¾Šz3JXôø‚&fff:Xôÿ(X):X$ôÿ¡(X):þ¤,…:X$ Kþ‚@,Lþ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 5-10" M [N“A$ô"Z"â / O _3Pþ¤,‚:"SGN (X) - S¦—°¥³ (¢°¡³’°©·)"5Qþ¤,ƒ:"H·œ°·–¡ –’–· ª¥°©Ÿ’ °¡³ ¥œ¡«¡"+Rþ¤,ƒ :"¢°¡³’°©· ž·³’°°’ X"7Sþ¤,ƒ@:"¯’¤–¸¦¢’ X < 0 ,ž¡© SGN(X)= -1"7Tþ¤,ƒ`:"¯’¤–¸¦¢’ X > 0 ,ž¡© SGN(X)= 1"7Uþ¤,„:"¯’¤–¸¦¢’ X = 0 ,ž¡© SGN(X)= 0"(Vþ¤,„@:"P¦©¸¡œ:":¾Šz Wþ‚>Xþ¤,„`:"X = -25 : A = SGN(X) : PRINT A":¾Šz)YXôø…H:Xôÿ‹(X):þ¤,„p:X Zþ‚@,[þ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-10" \ []“A$ô"Z"â > ^ _*_þ¤,‚:"INT(X) - C’¸¡ Ÿ¡¤–"6`þ¤,ƒ:"H·œ°·–¡ –’–· ª¥°©Ÿ’ °¡³ ¥œ¡«¡ ";aþ¤,ƒ :"°’¯«’–¤¦ Ÿ’¸’ Ÿ¦¤¸· ,©–’’ ¯’ ³’°¤¦"$bþ¤,ƒ@:"°’š· ·«°· X" cþ¤,„:"P¦©¸¡œ:"dþ‚:¾‹;€7eþ¤,„ :"X = 2.59 : PRINT INT(X)":¾Šz,fXô‚%Â\:þ¤,„0:ÿ€(X):¾‹;€/gþ¤,„P:"X =-9.38 : PRINT INT(X)"-hXôø„zâ:þ¤,„`:ÿ€(X):¾‹;€/iþ¤,…:"X = 4.00 : PRINT INT(X)",jXôƒ:þ¤,…:ÿ€(X):¾Šz kþ‚@,lþ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-10" m [n“A$ô"Z"â O o _0pþ¤,‚:"SQR(X) - D¥˜¡ ·œ³·Ÿ°¦°¡";qþ¤,ƒ:"P·³·Ÿ¦ –’–· ª¥°©Ÿ’ ¢¦¤©¡³’ œ¥˜·¥ ",rþ¤,ƒ :"·œ³·Ÿ°¦°¥ ¢ Ÿ¦¤¸¡ X":sþ¤,ƒ@:"J’-¸¦ X ³’°¤¦ °’¢ 0,·š¯’«¦ ¤’ –¢«."4tþ¤,ƒ`:"C˜½š·«’ ˜¸¡¤’°¦ «¦¢. ž¦©¸¡œ"uIôàŠa:Ž vþ¤,„:"P¦©¸¡œ:" wþ‚-xþ¤,„0:"X = 25 : PRINT SQR(X)"yIôàŠa:Ž$zXô…H:þ¤,„@:ÿ‡(X){IôàŠa:Ž-|þ¤,„`:"X =-25 : PRINT SQR(X)"}IôàŠa:Ž-~þ¤,„p:"I¸¸’—¡¸ œ¡–¡ ’·":þIôàŠa:Ž €þ‚@,þ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-10" ‚ [ƒ“A$ô"Z"â ^ „ _&…þ¤,‚:"SIN(X) - S¦°¥¤"9†þ¤,ƒ:"T¡–· ª¥°©Ÿ’ «½–«¡¦ ˜·œ°·–¥ S¦°¥¤"6‡þ¤,ƒ :"ž·³’°°’ X ¢¡œ¡°’ « ¡œ¦¡°’Ÿ˜ "7ˆþ¤,ƒ@:"¯’¤–¸¦¢’ ¢¡œ¡«¡³’ X «’ ¤–¥ž°¦Ÿ˜":‰þ¤,ƒ`:"³¥¤¦³’ ˜· ž¤¡– œ· ¡—¥³’°–¥ ª¥°©Ÿ’"1Šþ¤,„:"S¦°¥¤ ¯¡©· °¡¤·š’© ÿ/180 "5‹þ¤,„:"–’œ½ (X*ÿ/180) - «¦¢. ž¦©¸¡œ" Œ¾‰z7þ¤,„0:þ‚@:"X « ¡œ¦¡°’Ÿ˜":þ‚-Žþ¤,„@:"X = 45 : PRINT SIN(X)"$Xô†4:þ¤,„P:ÿ‚(X)?¾Š;€:þ¤,„p:þ‚@:"X «’ ¤–¥ž°¦Ÿ˜":þ‚5‘þ¤,…:"X = 45 : PRINT SIN(X * ÿ/180)"-’þ¤,…:ÿ‚(Xüäûˆ4):þ‚@ “¾Š;€,”þ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-10" • [–“A$ô"Z"â o — _5˜þ¤,‚:"LOG(X) - D’¤¦–©·«½ ¸·—¡¦–³¥¤"5™þ¤,‚@:"LN(X) - P¦·¢’°½ ¸·—¡¦–³¥¤"6šþ¤,ƒ :"T½–· ª¥°©Ÿ’ «½–«¡’¯¦ ˜·œ°·–½ "4›þ¤,ƒ@:"¸·—¡¦–³¥ · ¢¡©¸¡œ¥ œ’¤’– ¡ ".œþ¤,ƒ`:"ž¦·¢’°’˜· ¸·—¡¦–³¥."Iôà‹:Ž žþ¤,„:"P¦©¸¡œ:" Ÿþ‚- þ¤,„0:"X = 31 : PRINT LOG(X)"¡IôàŠa:ŽR¢Xô…x:þ¤,„@:ÿŒ(X);:þ‚@:" = D’¤¦–©·«½ ¸·—¡¦–³¥¤":þ‚£Iôà‹;€:Ž,¤þ¤,„`:"X = 31 : PRINT LN(X)"¥IôàŠa:ŽA¦þ¤,„p:ÿ…(X);:þ‚@:" = P¦·¢’°½ ¸·—¡¦–³¥¤ ",§þ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-11" ¨ [©“A$ô"Z"â „ ª _1«þ¤,‚:" R’–’¢Ÿ·«’ ª¥°©Ÿ’":¬þ¤,ƒ:"T½–· ª¥°©Ÿ’ ž¡Ÿ¥¯¦ ¤ ’–’¢Ÿ·«½³¦";­þ¤,ƒ :"©·°¤–¡°–¡³¦ ¡ ž·³’°°½³¦. K·°¤–¡°–½"K®þ¤,ƒ@:"¯¤·¥ ·˜¡°¦Ÿ’°½ ";ÿ (");ÿ (")",©–’’ ¤’ œ· °¦Ÿ˜"6¯þ¤,ƒ`:"°’¢¡ž·Ÿ¦–¡«¡¯¦,¥ ž·³’°°½Ÿ˜ ¤’":°þ¤,„:"© ¯³’°¥ ž·³’°°’ ž¦œ¡«¡ $ °¡ž.X$""±þ¤,„ :"LEFT$(X$,°)=²þ¤,„0:"H·œ°·–·¥ –’–· ª¥°©Ÿ’ ¯’ ° ¢°¡©¥ ¢¸’«¡"4³þ¤,„@:"¢ œ¡°’ ’–’¢Ÿ·«’ ž·³’°°’ X$"0´þ¤,„P:"° ³¥¢’ š½– ·œ 0 œ· 255 "µIôàŒH:Ž ¶þ¤,„p:"P¦©¸¡œ:" ·þ‚¸IôàŠa:ŽL¹þ¤,…:"X$=";ÿ (");"D·š½ œ’°!";ÿ (");":PRINTLEFT$(X$,3)"ºIôàŠa:Ž3»X$ô"D·š½ œ’°!":þ¤,…:ÿº(X$,‚@)¼IôàŒZÀ:Ž ½þ‚@,¾þ¤,… :"M¡°¥¡¸ ¤–¡°¡: 5-11" ¿ [À“A$ô"Z"â — Á _$Âþ¤,‚:"MID$(X$,³,°)":Ãþ¤,ƒ:"H·œ°·–·¥ –’–· ª¥°©Ÿ’ ¯’ ° ¢°¡©¥ ¢"<Äþ¤,ƒ :"œ¡°’ ’–’¢Ÿ·«’ ž·³’°°’ X$ ·œ ³-–’˜·"!Åþ¤,ƒ@:"ž·Ÿ¦°¡¯’."0Æþ¤,ƒ`:"³ ³¥¢’ š½– ·œ 1 œ· 255, ".Çþ¤,„:"° ³¥¢’ š½– ·œ 0 œ· 255"ÈIôàŒZÀ:Ž Éþ¤,„0:"P¦©¸¡œ:" Êþ‚ËIôàŠa:ŽOÌþ¤,„P:"X$ = ";ÿ (");"D·š½ œ’°!";ÿ (");":PRINTMID$(X$,3,6)"ÍIôàŒ €:Ž*Îþ¤,„`:ÿ¼(X$,‚@,ƒ@)ÏIôàŒ@:Ž Ðþ‚@,Ñþ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-11" Ò [Ó“A$ô"Z"â ª Ô _$Õþ¤,‚:"RIGHT$(X$,°)"8Öþ¤,ƒ:"H·œ°·–·¥ –’–· ª¥°©Ÿ’ ¯’ ° ¢°¡©¥";×þ¤,ƒ :"¢ž¡«¡ ¢ œ¡°’ ’–’¢Ÿ·«’ ž·³’°°’ X$"0Øþ¤,ƒ@:"° ³¥¢’ š½– ·œ 0 œ· 255"ÙIôàŒT€:Ž Úþ¤,„:"P¦©¸¡œ:"ÛIôàŠa:Ž Üþ‚OÝþ¤,„ :"X$ = ";ÿ (");"D·š½ œ’°!";ÿ (");":PRINTRIGHT$(X$,4)"ÞIôà‹:Ž#ßþ¤,„0:ÿ»(X$,ƒ)àIôàŒZÀ:Ž áþ‚@,âþ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-11" ã [!ä“A$ô"Z"âX$ô"D·š½ œ’°!":€ Á å _*æþ¤,‚:"TAB(°) - T¡š’¸¡–·";çþ¤,ƒ:"T¡–· ª¥°©Ÿ’ ž·¤·¥«¡ ©¥¢· °¡ °+1 "8èþ¤,ƒ :"ž·¢¦Ÿ¦ «ž¡«· ·œ ž¥«·œ°¦ ž·¸·˜½.";éþ¤,ƒ@:"J’-¸¦ ° ³’°¤¦ °’¢ ¯’ ž·¸·˜¡ ©¥¢·¥"4êþ¤,ƒ`:"¯’ –¡–· ˜·œ°·–¡ ¦—°··«¡°¡ ¡".ëþ¤,„:"·ž’¡Ÿ’ °’°¦ ž·«¡œ’°¡"ìIôàŒH:Ž íþ¤,„ :"P¦©¸¡œ:" îþ‚ïIôà‹:ŽHðþ¤,„@:"X$ = ";ÿ (");"MZ-800";ÿ (");":PRINTTAB(12)X$"ñIôàŠa:Ž-òX$ô"MZ-800":þ¤,„P:æ(„@)X$óIôàŒH:Ž ôþ‚@,õþ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-11" ö [!÷“A$ô"Z"âX$ô"D·š½ œ’°!":€ Ô ø _)ùþ¤,‚:"SPC(°) - M’¢’°¦©"<úþ¤,ƒ:"T¡–· ª¥°©Ÿ’ ¤’ ž·¥¢¦«¡ ž· «½–«¡’°¦":ûþ¤,ƒ :"³’¢’ « –¦¤©¥,¯’¯¦ ˜·œ°·–·¥ ¯’ °":üþ¤,ƒ@:"ž¡¢œ°½Ÿ˜ ³¦¤– «’ «½¤¸’œ°’³ –¦¤©¥.":ýþ¤,ƒ`:"N¡ ž¦©¸¡œ¥ ¯’ ¢°¡¢·°’°· ¥³¦¤–’°¦"9þþ¤,„:"°¡ž¦¤¥ C·³ž¥–’ ž·³·Ÿ¦ ª¥°©Ÿ’ SPC"'ÿþ¤,„:"« ž¦©¡¢¥ PRINT"1þ¤,„ :"° ³¥¢’ š½– ·œ 0 œ· 255 "IôàŒH:Ž þ¤,„@:"P¦©¸¡œ:" þ‚IôàŠa:Ž?þ¤,„`:"PRINTSPC(12)";ÿ (");"C·³ž¥–’";ÿ (")IôàŠa:Ž)þ¤,„p:ç(„@)"C·³ž¥–’"IôàŒ;€:Ž? þ¤,…:"PRINTSPC(55)";ÿ (");"C·³ž¥–’";ÿ (") IôàŠa:Ž) þ¤,…:ç(†\)"C·³ž¥–’"2 þ˜[‚,],,,‰,ˆ> Iôà@:Ž þ‚@,þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 5-12"  [“A$ô"Z"â å  _/þ¤,‚:" P’«¡œ’°¦ ž·³’°°½Ÿ˜"<þ¤,ƒ:"STR$(°) - Ÿ¦¤’¸°’ ž·³’°°’ (Ÿ¦¤¸¡) Æ"2þ¤„0,ƒ :"’–’¢Ÿ·«’ ž·³’°°’ (–’›–½)"6þ¤,ƒ`:"T¡–· ª¥°©Ÿ’ ž’«¡œ¦ Ÿ¦¤’¸°’ °¡"+þ¤,„:"’–’¢Ÿ·«’ ž·³’°°’."<þ¤,„:"Z°¡³’°©· + ¤’ °’–¦¤©°’, - ¤’ –¦¤©°’." ¾‹;€ þ¤,„0:"P¦©¸¡œ:" þ‚ ¾‰zaþ¤,„P:"A = 35 :A$=STR$(A) Æ A$=";ÿ (");"35";ÿ ("):þ¤,„`:"PRINT A$" ¾‹z$Aô† :þ¤,„p:ÿ¡(A) IôàŒ;€:Žc!þ¤,…:"A = -13 :A$=STR$(A) Æ A$=";ÿ (");"-13";ÿ ("):þ¤,…:"PRINT A$" "¾‰z%#Aôø„P:þ¤,…:ÿ¡(A)$Iôà@:Ž %þ‚@,&þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 5-12" ' [(“A$ô"Z"â ø ) _=*þ¤,‚:"VAL(X$) - ’–’¢Ÿ·«’ ž·³’°°’(–’›–½) Æ"/+þ¤„0,‚@:"Ÿ¦¤’¸°’ ž·³’°°’(Ÿ¦¤¸¡)"9,þ¤,ƒ :"T¡–· ª¥°©Ÿ’ ¯’ ·ž¡Ÿ°¡ © STR$(°).":-þ¤,ƒ@:"J’¤–¸¦¢’ ¯’ « –’›–¥ ž·¥¢¦–· Ÿ¦¤¸·,":.þ¤,ƒ`:"–¡–· ª¥°©Ÿ’ ž¦¡œ¦ ˜·œ°·–¥ –·˜·–·"7/þ¤,„:"Ÿ¦¤¸¡ ¢«·¸’°’ Ÿ¦¤’¸°’ ž·³’°°’."90þ¤,„:"J’-¸¦ ž·¥¢¦–· ˜’›¡œ’Ÿ¦³¡¸°¦ Ÿ¦¤¸·":1þ¤,„ :"(ž’œ Ÿ¦¤¸’³ ¯’ ¢°¡© $ °¡ž.:$FF),"42þ¤,„0:"ž’«¡œ¦ ¤’ °¡ °·³¡¸°¦ –«¡ "3Iôà@:Ž 4þ¤,„P:"P¦©¸¡œ:" 5þ‚L6þ¤,„p:"X$ = ";ÿ (");"12.3XYZ";ÿ (");":A=VAL(X$):PRINT A"7IôàŠa:Ž)8X$ô"12.3XYZ":þ¤,…:ÿ­(X$)H9þ¤,…:"X$ = ";ÿ (");"$1F";ÿ (");":A=VAL(X$):PRINT A":IôàŒ €:Ž%;X$ô"$1F":þ¤,…:ÿ­(X$) <þ‚@=IôàŒH:Ž,>þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 5-12" ? [@“A$ô"Z"â  A _4Bþ¤,‚:"ASC(X$) - Z°¡© Æ ASCII-K·œ"8Cþ¤,ƒ:"T¡–· ª¥°©Ÿ’ ž¦¡¢¥¯’ ¢°¡©¥ ¯’˜·"7Dþ¤,ƒ :"Ÿ¦¤¸· « –¡š¥¸Ÿ’ –¢«.ASCII ©·œ¥."8Eþ¤,ƒ@:"U –’›–¥ š’’ « ¥«¡˜¥ «¢œ½ ¯’°·³ ";Fþ¤,ƒ`:"ž«°¦ ¢°¡© « ’–’¢Ÿ¦ ¡ ž¦¡¢¥¯’ ³¥"'Gþ¤,„:"¯’˜· ASCII ©·œ."HIôàŒH:Ž Iþ¤,„ :"P¦©¸¡œ:" Jþ‚KIôàŠ/:ŽBLþ¤,„@:"X$ = ";ÿ (");"C";ÿ (");": PRINTASC(X$)"MIôàŠa:Ž#NX$ô"C":þ¤,„P:ÿ«(X$)OIôàŒ €:ŽIPþ¤,„p:"X$ = ";ÿ (");"C·³ž¥–’";ÿ (");": PRINTASC(X$)"QIôàŠa:Ž*RX$ô"C·³ž¥–’":þ¤,…:ÿ«(X$)SIôàŒH:Ž Tþ‚@,Uþ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-12" V [W“A$ô"Z"â ) X _4Yþ¤,‚:"CHR$(°) - ASCII-K·œ Æ Z°¡©":Zþ¤,ƒ:"P·œ¸’ –¡š¥¸©½ ASCII ©·œ¥ ž¦¡¢¥¯’"9[þ¤,ƒ :"© œ¡°’³¥ Ÿ¦¤¸¥ ° («’–¤¦³¥ °’¢ 32)":\þ¤,ƒ@:"ž¦¤¸¥¤°½ ¢°¡©. C˜Ÿ’³’-¸¦ ³¦– «¦Ÿ’"9]þ¤,ƒ`:"¢°¡©¥ ³¥¢’³’ ¯’¯¦Ÿ˜ Ÿ¦¤¸¡ ž¤¡– ¢¡"1^þ¤,„:"¤’š’ ¡ ·œœ’¸¦– ¯’ Ÿ¡©·¥."_IôàŒH:Ž `þ¤,„ :"P¦©¸¡œ:" aþ‚.bþ¤,„@:"A = 77 : PRINT CHR$(A)"cIôàŠa:Ž$dAô‡:þ¤,„P:ÿ (A)eIôàŒ €:Ž5fþ¤,„p:"PRINT CHR$(77,90,45,56,48,48)"gIôàŠa:ŽChþ¤,…:ÿ (‡,‡4,†4,†`,†@,†@)iIôàŒH:Ž jþ‚@,kþ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-13" l [m“A$ô"Z"â A n _/oþ¤,‚:"LEN(X$) - D’¸©¡ ’–’¢Ÿ’"<pþ¤,ƒ:"T¡–· ª¥°©Ÿ’ °¡³ ¥œ¡«¡ œ’¸©¥ ’–’¢Ÿ’,"<qþ¤,ƒ :"–¯. ž·Ÿ’– ¢°¡©¥ « œ¡°’³ ’–’¢Ÿ¦ °’š·"2rþ¤,ƒ@:"« œ¡°’ ’–’¢Ÿ·«’ ž·³’°°’."sIôàŒH:Ž tþ¤,„:"P¦©¸¡œ:" uþ‚vIôàŠ/:ŽFwþ¤,„ :"X$ = ";ÿ (");"MZ-800";ÿ (");": PRINTLEN(X$)xIôàŠa:Ž(yX$ô"MZ-800":þ¤,„0:ÿ¬(X$)zIôàŠa:ŽE{þ¤,„P:"X$ = ";ÿ (");"-35";ÿ (");" : PRINTLEN(X$)"|IôàŠa:Ž%}X$ô"-35":þ¤,„`:ÿ¬(X$)~IôàŠa:ŽDþ¤,…:"X$ = ";ÿ (");"35";ÿ (");" : PRINTLEN(X$)"€IôàŠa:Ž$X$ô"35":þ¤,…:ÿ¬(X$)‚IôàŒ@:Ž ƒþ‚@,„þ¤,… :"M¡°¥¡¸ ¤–¡°¡: 5-13" … [†“A$ô"Z"â X ‡ _1ˆþ¤,‚:"G’°’¡–· °¡˜·œ°½Ÿ˜ Ÿ¦¤’¸"‰þ¤„ ,ƒ:"RND(°)":Šþ¤,ƒ@:"T¡–· ª¥°©Ÿ’ —’°’¥¯’ °¡˜·œ°¡ Ÿ¦¤¸¡"#‹þ¤,ƒ`:"« ¦°–’«¡¸¥",Œþ¤,„:"·œ 0.00000001",þ¤,„ :"œ· 0.99999999":Žþ¤,„@:"N¡ž¦©¸¡œ —’°’¡Ÿ’ °¡˜·œ°½Ÿ˜ Ÿ¦¤’¸"Eþ¤,„P:"·œ 0 œ· 9 ¤’ « BASIC¥ ž·«’œ’ –¡©–·:":þ‚<þ¤,„p:" A=INT(RND(1)*10) : PRINTA":þ‚@‘Iôà‹:ŽD’þ¤,…:"V½¤¸’œ©’³ ·ž’¡Ÿ’ ¯’ Ÿ’¸’ Ÿ¦¤¸· : ";:þ‚“Iôà„p:þ:Ž$”ÿ€(ÿˆ()ü„ ):þ‚@6•þ¤,…:"F¥°©Ÿ’ RND ¤’ œ¡ ž·¥¢¦– «’¸³¦ ""–þ¤,… :"·¢³¡°¦–’." — [˜“A$ô"Z"â n ™ _<šþ¤,‚:"N¡ž¦©¸¡œ ¤’ ¥ž¸¡–°¦ « ¥¢°½Ÿ˜ ˜¡Ÿ˜".›þ¤,‚@:"¡ ¥Ÿ’š°¦Ÿ˜ ž·—¡³’Ÿ˜."6œþ¤,ƒ :"U«¦œ¦–’ ³·¢°’ ž·¥¢¦–¦ «’ ˜’ ¡"*þ¤,ƒ@:"ž¦¤¸¥¤°½ ž·—¡³." ž [Ÿ“A$ô"Z"â ‡   _ ¡Aô¢AôA÷£S$ôÿ (ñ):W$ôÿ (h)¤Xôÿ€(ÿˆ()ü†H)¥“Xö ë Xõ†â ¤¦Yôÿ€(ÿˆ()ü† )§“Yö ë Yõ…8â ¦¨“XôâXô4©“Xô† ë Xôâþ¤X,Y:W$;:þ:¾… :€ ¢ª“YôâYô4«“Yô…8 ë Yôâþ¤X,Y:W$;:þ:¾… :€ ¢¬Iôàƒ`­þ¤X,Y:S$ ®¾¯þ¤X,Y:" "°Ž±“Aö‡Hâ ¢:²þ [‚@]… ,†H,"RND(°)",ƒ@,„ , ³ [´“A$ô"Z"â ™µ›(¶" *** RND-P·—¡³ ***"· ¸‡ ¡- ² ¹ [º“A$ô"Z"â   » _.¼þ¤,‚:" P·³’°°’"8½þ¤,ƒ:"D¡–¡ ¢¡¥¯¦³¡¯¦ « ž¡³’–¦ ž·Ÿ¦–¡Ÿ’"%¾þ¤,ƒ :"¥Ÿ¦–’ ³¦¤–·."5¿þ¤,ƒ@:"T¡³ ¯’ ³¥¢’³’ ¥©¸¡œ¡–, ³’°¦–,".Àþ¤,ƒ`:"«½«·¸¡«¡–, ž’ž¦¤·«¡–."8Áþ¤,„:"R¥¢°’ œ¥˜½ ž·³’°°½Ÿ˜ ¢¡¥¯¦³¡¯¦"8Âþ¤,„:"·¢œ¦¸°½ ž·Ÿ’– ž¡³’–·«½Ÿ˜ ³¦¤– «"8Ãþ¤,„ :"ž¡³’–¦ ž·Ÿ¦–¡Ÿ’,¯’ –· ³¦°¦³¡¸°¦ "4Äþ¤,„0:"ž·Ÿ’–,©–’½ ¯¦³ ž·Ÿ¦–¡Ÿ ³¥¢’"!Åþ¤,„@:"ž¦œ’¸¦–." Æ [Ç“A$ô"Z"â µ È _0Éþ¤,‚:" R’–’¢Ÿ·«’ ž·³’°°’"8Êþ¤,ƒ:"T½–· ž·³’°°’ ¯¤·¥ ’–’¢Ÿ¦ ¢°¡©¥":Ëþ¤,ƒ :"¡ °’³¥¢’³’ ¤ °¦³¦ ž·«¡œ’– ž·Ÿ’–°¦"-Ìþ¤,ƒ@:"·ž’¡Ÿ’ ¯¡©· ¤ Ÿ¦¤¸½."=Íþ¤,ƒ`:"P·Ÿ’– ¢°¡©¥ « ’–’¢Ÿ¦ ¯’ ·œ 0 œ· 255." Îþ¤,„:"P¦©¸¡œ:" Ïþ‚ÐIôàŒ;€:ŽRÑþ¤,„0:"A$ = ";;ÿ (");"MZ-800";;ÿ (");" : PRINT A$":A$ô"MZ-800"Òþ¤,„@:A$ÓIôàŒ;€:Ž Ôþ‚@+Õþ¤,…:"M¡°¥¡¸ ¤–¡°¡: 5-5" Ö [דA$ô"Z"â » Ø _2Ùþ¤,‚:" N¥³’¦Ÿ©’ ž·³’°°’ ":Úþ¤,ƒ:"T½–· ž·³’°°’ ·š¤¡˜¥¯¦ ¯’° Ÿ¦¤’¸°¡"3Ûþ¤,ƒ :"œ¡–¡,©–’¡ ³·˜·¥ š½– ž’œ’³"7Üþ¤,ƒ@:"¢¡œ¡°¡ °’š· ³·˜·¥ «¢°¦©¡– š’˜’³"'Ýþ¤,ƒ`:"ž¡Ÿ’ ž·—¡³¥."=Þþ¤,„:"P·³’°°’ ³·˜·¥ ³¦– ¥¢°’ œ¸·¥˜¡ ¯³’°¡"<ßþ¤,„:"(¯’œ°¡ ž·³’°°¡-¯’œ°· ¯³’°·),¡¸’ ž·-"<àþ¤,„ :"Ÿ¦–¡Ÿ ·¢¸¦¤¥¯’ ¯’° ž«°¦ œ«¡ ¢°¡©½."9áþ¤,„0:"P«°¦ ¢°¡© «’ ¯³’°¥ ž·³’°°’ ³¥¤¦"<âþ¤,„@:"š½– «’¸©’ ž¦¤³’°·,œ¡¸¤¦ ³¥¢’ š½– š¥œ"1ãþ¤,„P:"«’¸©’ ž¦¤³’°· °’š· Ÿ¦¤¸·." äþ¤,„p:"P¦©¸¡œ:" åþ‚æIôà‹z:Ž5çþ¤,…:"MZ = 150 : PRINT MZ":MZôˆèþ¤,…:MZ éþ‚@ ê [ë“A$ô"Z"â È ì _ íþ‚6îþ¤,‚:"A1 = 23.5 : PRINT A1":A1ô…<ïþ¤,‚@:A1ðIôàŠz:Ž)ñþ¤,„:"PRINT MZ,A1,MZ*A1"!òþ¤,„ :MZ,A1,MZüA1óIôàŒ;€:Ž ôþ‚@+õþ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 5-5" ö [÷“A$ô"Z"â Ø ø _/ùþ¤,‚:" I°œ’›·«¡°’ ž·³’°°’":úþ¤,ƒ:"V¦Ÿ’ ž·³’°°½Ÿ˜ ¤–’¯°’˜· –½ž¥ ³¥¢’"4ûþ¤,ƒ :"š½– ·¢¸¦¤’°· š¥œ ·¢°¡Ÿ’°¦³ ";üþ¤,ƒ@:"¥¢°½³¦ ¯³’°½ ¯¡©· °¡ž.: (A,B,A1),":ýþ¤,ƒ`:"°’š· ³¥¢’ ³¦– ¯’° ¯’œ°· ¯³’°· ,¡¸’"2þþ¤,„:"·¢°¡Ÿ’°’ ¦°œ’›’³. I°œ’› ¤’",ÿþ¤,„:"¢¡ž¦¤¥¯’ œ· ¢¡«·’©." þ¤,„0:"P¦©¸¡œ:"IôàŒ@:Ž þ‚9þ¤,„P:"A(1) = 10 : A(2) = 3.4 : A(3) = 4"C–A(‚@):A()ô„ :A(‚)ô‚Y™™š:A(‚@)ôƒ:8þ¤,„`:"PRINT A(1):PRINT A(2):PRINT A(3)"IôàŠa:Žþ¤,„p:A()þ¤,…:A(‚) þ¤,…:A(‚@) IôàŒ;€:Ž þ‚@+ þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 5-6"  [“A$ô"Z"â ì  _*þ¤,‚:"K·°–·¸°¦ ž¦©¸¡œ½"9þ¤,ƒ:"P’Ÿ–’–’ ¤¦ ¥¸·˜¥ ¡ ž·œ¸’ ¢«·¸’°’"<þ¤,ƒ :"³·¢°·¤–¦ ·œž·«’¢–’ ¤–¦¤©°¥–¦³ š¥œ A,"!þ¤,ƒ@:"B °’š· C.";þ¤,„:"1. K–’¡ ¢ °¡¤¸’œ¥¯¦Ÿ¦Ÿ˜ ž·³’°°½Ÿ˜"2þ¤ƒ,„:"¯’ °’¤ž¡«°’ ž·¯³’°·«¡°¡ ?" þ‚þ¤,„0:"A. M8"þ¤,„P:"B. BB"þ¤,„p:"C. A›" þ‚@­A$:“A$ô""â .“A$ô"A"â =:IôàŠa:Ž: _:€ .“A$ô"B"â =:IôàŠa:Ž: _:€ $“A$ô"C"â >:Iôà‹m€:Ž  [ “A$ô"Z"â  ! _9"þ¤,„:"2. K–’½ ¢ °¡¤¸’œ¥¯¦Ÿ¦Ÿ˜ ž¦©¸¡œ¥"$#þ¤ƒ,„:"¯’ Ÿ˜½š°½ ?" $þ‚%%þ¤,„0:"A. RND=LEN(X)"#&þ¤,„P:"B. A=RND(X)"#'þ¤,„p:"C. B=LOG(Y)" (þ‚@)­A$:“A$ô""â ).*“A$ô"A"â >:IôàŠa:Ž: [:€ -.+“A$ô"B"â =:IôàŠa:Ž: _:€ !.,“A$ô"C"â =:IôàŠw€:Ž: _:€ !-“A$ô"Z"â  . _9/þ¤,„:"3. K–’½ ¢ °¡¤¸’œ¥¯¦Ÿ¦Ÿ˜ ž¦©¸¡œ¥"$0þ¤ƒ,„:"¯’ Ÿ˜½š°½ ?" 1þ‚ 2þ¤,„0:"A. A$=25"3þ¤,„P:"B. B=17"#4þ¤,„p:"C. C=RND(1)" 5þ‚@6­A$:“A$ô""â 6)7“A$ô"A"â >:IôàŠa:Ž: [.8“A$ô"B"â =:IôàŠa:Ž: _:€ ..9“A$ô"C"â =:Iôà‹m€:Ž: _:€ .:“A$ô"Z"â ! ;€ ?<˜2= _:þ¤ƒ`,„0:"N’¤ž¡«°¡ ·œž·«’œ !":„C> _:þ¤„0,„0:"Sž¡«°¡ ·œž·«’œ !":Iôà‹z:Ž:„ ? _&@þ¤„@,ƒ :"K·°’Ÿ L’©Ÿ’ 1"JAþ¤„,„:"C˜Ÿ’–’ ¸’©Ÿ¦ ·ž¡©·«¡– ? Æ";:þ‚:" R":þ‚@JBþ¤„,„@:"C˜Ÿ’–’ L’©Ÿ¦ 2 ? Æ";:þ‚:" L":þ‚@(Cþ¤„,…8:"S–¦¤©°¦ ©¸¡«’¤¥!"D­A$:“A$ô""â DE“A$ô"R"âƒF“A$ô"L"â _G“A$ô"L"âHBô:: € D:Hþ¤ƒ,„:"MATE ZALOZENU KAZETU S PROGRAMEM ?"2Iþ¤ƒ,„ :" ANO / NE Æ (A/N) "J­A$:“A$ô""â JK“A$ô"A"â L:: € J;Lþ¤„p,„P:"PLAY ";ÿ ():ƒ"CMT:BASIC-UCITEL 2"M˜NYôà…8-O“Yõ ì Yö…8âVô::ÂVô!P“VôâXô:X1ô†Q“Vôâþ¤X,Y:"*"R“Vôâþ¤X1,Y:"*"S“Vô†WTXôà†:5U“Xõ ì Yõ ì Xö† ì Y ö…8†WVþ¤X,Y:"*" WŽ:Ž:„*Xþ¤„,…8:" S–¦¤©°¦ ©¸¡«’¤¥! "Y­A$:“A$ô""â XZ„N[þ¤„,…8:" S–¦¤©°¦ ©¸¡«’¤¥! ":þ¤…P,…8:[‚]"(Z ZPET)"\­A$:“A$ô""â \]„<^›:þ˜[‚,],,‰@€,ˆ>,‚:„5_›:þ˜[‚,],,‰,ˆ>:„