BASIC-UCITEL 2 ‘P— "BASIC-UCITEL 2"Ü"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 2 ***":þ‚@6þ¤ƒ ,„p:"*** BASIC-¢¡©¸¡œ°¦ ž¦©¡¢½ ***" ä: î  õ/þ¤,‚:" STAVBA PROGRAMU":þ¤,ƒ@:"Aš½ ³·˜¸ ž·—¡³ ž¡Ÿ·«¡–,¯’ –’š¡";þ¤,ƒ`:"¯’œ°·–¸¦«’ ¡œ©½ ·š¤¡˜¥¯¦Ÿ¦ ž¦©¡¢½"8þ¤,„:"Ÿ¦¤¸·«¡–. P·Ÿ¦–¡Ÿ ž¡© ¢ž¡Ÿ·«¡«¡"<þ¤,„:"ž·—¡³ ž·œ¸’ –’Ÿ˜–· Ÿ¦¤’¸ ¥¤ž·¡œ¡-"'þ¤,„ :"°½Ÿ˜ «¢’¤–¥ž°’.":þ¤,„0:"J¤·¥ –· Ÿ’¸¡ Ÿ¦¤¸¡ ·œ 1 œ· 65 555.";þ¤,„@:"Aš½ š½¸ ž·—¡³ «½–«·’° ž’˜¸’œ°’,"9þ¤,„P:"³¡ ¤’ «·¸¦– Ÿ¦¤¸·«¡°¦ ¤’ ¤–’¯°½³¦"6þ¤,„`:"·œ¤–¥ž½ ,³¥¢’³’ ž¡© œ·œ¡–’Ÿ°’ "7þ¤,„p:"©œ½©·¸¦« «¡œ¦– œ¡¸¤¦ ž·«’¸·«’ ":þ¤,…:"¡œ©½. K·³’ –·˜· ¢¦¤©¡«¡ –¡©·«½–·"2þ¤,…:"ž·—¡³ °¡ ž’˜¸’œ°·¤–¦. ". þ¤,… :"M¡°¥¡¸ ¤–¡°¡ : 3-4 " ! î "€ ? # õ $þ¤,‚:"P¦©¸¡œ:" %þ‚ &þ¤,ƒ:"10 A = 0""'þ¤,ƒ :"20 PRINT A"$(þ¤,ƒ@:"30 A = A + 1"0)þ¤,ƒ`:"40 IF A <10 THEN GOTO 20"*þ¤,„:"50 END +þ‚@6,þ¤,„ :"K ¤¦³¥¸¡Ÿ¦ ¯’œ°·–¸¦«½Ÿ˜ ©·©¥ "7-þ¤,„0:"ž·—¡³¥ ¤–¦¤©°’–’ «¢œ½ ¯’œ°·¥ " .þ¤,„@:"©¸¡«’¤¥!" / î\0þ‚@:þ¤,ƒ:"10 A = 0":þ‚: î:þ¤,ƒ:"10 A = 0":þ‚@N1þ¤,ƒ :"20 PRINT A":þ¤…,ƒ :A:AôA÷:þ‚: îP2þ¤,ƒ :"20 PRINT A":þ‚@:þ¤,ƒ@:"30 A = A + 1": îb3þ‚:þ¤,ƒ@:"30 A = A + 1":þ‚@:þ¤,ƒ`:"40 IF A <10 THEN GOTO 20">4 î:þ‚:þ¤,ƒ`:"40 IF A <10 THEN GOTO 20"5þ‚@:“Aö„ â 16Iôàƒ`97þ‚@:þ¤…,ƒ :" ":þ¤„ ,ƒ`:" "8Dôà‰z:ŽL9þ‚@:þ¤…,ƒ :"10":þ¤„ ,ƒ`:"10":Dôà‰z:Ž:ŽIX;Aô:þ¤,„:"50 END": î:þ‚:þ¤,„:"50 END":þ‚@ < ñ=“A$ô"Z"â M >€ c ? õ,@þ¤,‚:" GOTO":Aþ¤,ƒ@:"T¦³–· ž¦©¡¢’³ ¯’ ³·¢°· ·«¸¦«°·«¡–"<Bþ¤,ƒ`:"«½©·°¡«¡°¦ ž·—¡³¥, ©–’½ ž·¤–¥ž¥¯’"*Cþ¤,„:"ž·œ¸’ Ÿ¦¤’¸ ¡œ©¥.":Dþ¤,„:"Oš¯’«¦-¸¦ ¤’ ž·©½° GOTO , «’–«¦ ¤’";Eþ¤,„ :"ž·—¡³ ž·œ¸’ ¢¡œ¡°’˜· Ÿ¦¤¸¡ ¡œ©¥."9Fþ¤,„@:"P¦ –«·š’ ž·—¡³¥ ¯’ –’š¡ œš¡–"<Gþ¤,„P:"°¡ –· , ¡š½ ¤©·© °’š½¸ «’œ’° œ·«°¦–"8Hþ¤,„`:"Ÿ½©¸¥ FOR-NEXT . Zž¥¤·š¦¸· š½ –·"3Iþ¤,„p:"Ÿ˜½š¥ ¡ ¢¡¤–¡«’°¦ ž·—¡³¥.",Jþ¤,… :"M¡°¥¡¸ ¤–¡°¡: 6-16" K ñL“A$ô"Z"â  M õ3Nþ¤,‚:" IF ... THEN ...:ELSE"6Oþ¤,ƒ:"P·œ·š°’ ¯¡©· ž¦©¡¢ GOTO «’œ’ "9Pþ¤,ƒ :"–’°–· ž¦©¡¢ © «’–«’°¦ ž·—¡³¥. "=Qþ¤,ƒ@:"Z¡–¦³Ÿ· ž¦©¡¢ GOTO «½«·¸¡ °’ž·œ³¦°’-"=Rþ¤,ƒ`:"°’ «’–«’°¦, ¯’ –¦³–· ž¦©¡¢’³ «’–«’°¦"8Sþ¤,„:"«¡¢¡°· °¡ ¯¦¤–·¥ ž·œ³¦°©¥. P·¥¢’"6Tþ¤,„:"©œ½¢ (IF) ¯’ ž·œ³¦°©¡ ¤ž¸°’°¡,"4Uþ¤,„ :"ž¡© (THEN) ¤’ ž·—¡³ «’–«¦."5Vþ¤,„0:"J¦°¡© ž·—¡³ ž·©¡Ÿ¥¯’ ž·œ¸’"5Wþ¤,„@:"Ÿ¦¤¸·«¡°¦ ¡œ’© š’¢ ž·«’œ’°¦"=Xþ¤,„P:"«’–«’°¦. P¦œ¡-¸¦ ¤’ ž¦©¡¢ ELSE, ¸¢’"7Yþ¤,„`:"«’–«¦– ¢¡³’°’ ¦ ž¦ °’¤ž¸°’°¦ ":Zþ¤,„p:"ž·œ³¦°©½. N¡¤¸’œ¥¯¦-¸¦ ¢¡ ž¦©¡¢’³"<[þ¤,…:"IF-THEN °¡ ¡œ©¥ œ¡¸¤¦ ž¦©¡¢½,©–’’"=\þ¤,…:"³¡¯¦ š½– «½©·°¡°½, ¯¤·¥ ž¦ °’¤ž¸°’°¦"5]þ¤,…:"ž·œ³¦°©½ ¦—°··«¡°½ ¡ ž·—¡³"3^þ¤,…:"ž·©¡Ÿ¥¯’ ·œ œ¡¸¤¦˜· ¡œ©¥.",_þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-20" ` ña“A$ô"Z"â ? b€ # c õ/dþ¤,‚:" FOR ... NEXT"9eþ¤,ƒ:"Aš½ ¤’ ¥Ÿ¦–’ ¥¤’©½ ž·—¡³¥ œ¡¸½"9fþ¤,ƒ :"«¦Ÿ’°¡¤·š°’ ¢ž¡Ÿ·«¡–, ¸¢’ ž·¥¢¦–":gþ¤,ƒ@:"ž¦©¡¢ GOTO ¡°’š· ž¦©¡¢ IF..THEN."<hþ¤,ƒ`:"J’œ°·œ¥¤’¯¦ ¡ ’¸’—¡°–°’¯¦ ¤’ «¤¡© œ¡"=iþ¤,„:"–’°–· ž·š¸’³ ’¤¦– ¤³½Ÿ©·¥ FOR..NEXT"<jþ¤,„:" P·³·Ÿ¦ ž·³’°°’˜· Ÿ¦¤¸¡ (°¡ž. X)"2kþ¤,„ :"¯¤·¥ ž·—¡³·«’ ¥¤’©½ ³’¢¦"7lþ¤,„0:"FOR ¡ NEXT –¡© œ¸·¥˜· ·ž¡©·«¡°’"3mþ¤,„@:"¢ž¡Ÿ·«¡«¡°½, ¡¢ ž·³’°°¡ X"9nþ¤,„P:"œ·¤¡˜°’ ©·°’Ÿ°·¥ ¢¡œ¡°·¥ ˜·œ°·–¥."8oþ¤,„`:"H·œ°·–¡ ž·³’°°’ ¤’ ¡¥–·³¡–¦Ÿ©½ "9pþ¤,„p:"¢«½¤¥¯’ · ¯’œ°¥. P¦œ¡°¦³ ž¦©¡¢¥"7qþ¤,…:"STEP ¸¢’ ¤¦©¥ ©·©¥ ¸¦š·«·¸°’ "#rþ¤,…:"œ’ª¦°·«¡–. ",sþ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-14" t ñu“A$ô"Z"â # v õ0wþ¤,‚:" GOSUB ... RETURN"2xþ¤,ƒ:"Aš½ ¤’ « ž·—¡³¥ ¢š½–’Ÿ°’"7yþ¤,ƒ :"°’ž¸½–«¡¸· ³¦¤–’³ « ž¡³’–¦, ¯’ "7zþ¤,ƒ@:"¥Ÿ’¸°’ ¢¡¸·¢¦– ¯¡©· ž·œž·—¡³ "7{þ¤,ƒ`:"¥Ÿ¦–’, ¤–¡¸’ ž·–’š°’ ¥–¦°½. ";|þ¤,„:"V·¸¡°¦ ž·œž·—¡³¥ ¤’ œ’¯’ ž¦©¡¢’³";}þ¤,„:"GOSUB . P·œž·—¡³ ³¥¤¦ š½– ¥©·°Ÿ’°"7~þ¤,„ :"ž¦©¡¢’³ RETURN , ©–’½ ž’œ¡«¡"6þ¤,„0:"¦¢’°¦ °¡ œ¡¸¤¦ ¡œ’© ˜¸¡«°¦˜·"3€þ¤,„@:"ž·—¡³¥. J’¤–¸¦¢’ ¯’ –’°–·"8þ¤,„P:"ž¦©¡¢ «½°’Ÿ˜¡°, œ·¯œ’ © Ÿ˜½š’ ,"6‚þ¤,„`:"ž·—¡³ °’ž·©¡Ÿ¥¯’ °¡¤¸’œ°½³ ",ƒþ¤,„p:"¡œ©’³ ¡ ¢¡¤–¡«¦ ¤’.",„þ¤,… :"M¡°¥¡¸ ¤–¡°¡: 6-18" … ñ†“A$ô"Z"â c ‡ õ+ˆþ¤,‚:" END"5‰þ¤,ƒ:"P· ž¦©¡¢¥ END ¯’ «½©·°¡«¡°¦ "=Šþ¤,ƒ :"ž·—¡³¥ ¥©·°Ÿ’°· ¡ I°–’ž’– BASIC¥"7‹þ¤,ƒ@:"¤’ ·Ÿ¦–¡ ·ž’– « ž¦³’³ ³·œ¥ . "9Œþ¤,ƒ`:"N·³¡¸°’ °’°¦ –’°–· ž¦©¡¢ °¥–°½."7þ¤,„:"P· «½©·°¡°¦ ž·¤¸’œ°¦˜· ¡œ©¥ ¤’"7Žþ¤,„:"I°–’ž’– ¡¥–·³¡–¦Ÿ©½ «¡Ÿ¦ œ·"6þ¤,„ :"ž¦³’˜· ³·œ¥. A«¤¡© © ·œœ’¸’°¦"8þ¤,„0:"ž·œž·—¡³¥ ·œ ˜¸¡«°¦˜· ž·—¡³¥"4‘þ¤,„@:"¯’ –’š¡ š’¢ž·œ³¦°’Ÿ°’ –’°–·"5’þ¤,„P:"ž¦©¡¢ ž·¥¢¦–, ¯¦°¡© œ·Ÿ˜¡¢¦ "!“þ¤,„`:"© Ÿ˜½š’. "+”þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-13" • ñ–“A$ô"Z"â v— õ:Xô ˜þ¤,‚:"P¦©¸¡œ:" ™þ‚*šþ¤,ƒ@:"10 FOR X = 1 TO 10""›þ¤,ƒ`:"20 PRINT X"œþ¤,„:"30 NEXT"$þ¤,„:"40 GOSUB 100""žþ¤,„ :"50 PRINT B"Ÿþ¤,„0:"60 END". þ¤,„@:"100 B = INT(RND(1)*10)""¡þ¤,„P:"120 RETURN"=¢þ‚@:þ¤,…:"K’ ¢ž¡Ÿ·«¡°¦ ©·© ž· ©·©¥ "9£þ¤,…:"¤–¦¤©°’–’ «¢œ½ ¯’° ¯’œ°·¥ ©¸¡«’¤¥! ¤ î¥XôX÷8¦þ‚@:þ¤,ƒ@:"10 FOR X = 1 TO 10": î3§þ‚:þ¤,ƒ@:"10 FOR X = 1 TO 10"C¨þ‚@:þ¤,ƒ`:"20 PRINT X":þ¤…8,ƒ`:X: î+©þ‚:þ¤,ƒ`:"20 PRINT X"Qªþ‚@:þ¤,„:"30 NEXT": î:þ‚:þ¤,„:"30 NEXT"«“Xö„ â ¥ ¬Xô2­þ‚@:þ¤,„:"40 GOSUB 100": î-®þ‚:þ¤,„:"40 GOSUB 100"T¯þ‚@:þ¤,„@:"100 B = INT(RND(1)*10)":Bôÿ€(ÿˆ()ü„ ): î7°þ‚:þ¤,„@:"100 B = INT(RND(1)*10)"0±þ‚@:þ¤,„P:"110 RETURN": î+²þ‚:þ¤,„P:"110 RETURN"C³þ‚@:þ¤,„ :"50 PRINT B":þ¤…@,„ :B: î+´þ‚:þ¤,„ :"50 PRINT B",µþ‚@:þ¤,„0:"60 END": î ¶ ñ·“A$ô"Z"â ‡ ¸ õ,¹þ¤,‚:" INPUT"6ºþ¤,ƒ:"B’˜’³ ž·«¡œ’°¦ ž·—¡³¥ ¸¢’ ":»þ¤,ƒ :"«©¸¡œ¡– œ¡–¡ ¢ ©¸¡«’¤°¦Ÿ’ ž¦©¡¢’³":¼þ¤,ƒ@:"INPUT . P¦ ž·¥¢¦–¦ –·˜·–· ž¦©¡¢¥"<½þ¤,ƒ`:"¤’ ž·—¡³ ¢¡¤–¡«¦ ¡ °¡ ·š¡¢·«Ÿ’ ¤’"8¾þ¤,„:"·š¯’«¦ ·–¡¢°¦©. V ž·¢¦Ÿ¦ ©¥¢·¥"4¿þ¤,„:"·Ÿ’©¡«¡ ž·Ÿ¦–¡Ÿ «¸·¢’°¦ œ¡–."9Àþ¤,„ :"V©¸¡œ¡°¦ œ¡– ¤’ ¥©·°Ÿ¥¯’ ©¸¡«’¤·¥";Áþ¤,„0:"[CR] . D¡–¡ ¯¤·¥ ž¦¡¢’°¡ ž·³’°°’":Âþ¤,„@:"¤ž’Ÿ¦ª¦©·«¡°’ «’ «¤–¥ž°¦³ ž¦©¡¢¥."<Ãþ¤,„P:"V¤–¥ž°¦³ ž¦©¡¢’³ ¸¢’ ¥Ÿ·«¡– ¦ «¦Ÿ’"6Äþ¤,„`:"ž·³’°°½Ÿ˜. T½–· ¯¤·¥ °¡«¢¡¯’³")Åþ¤,„p:"·œœ’¸’°½ Ÿ¡©·¥. "7Æþ¤,…:"U ž¦©¡¢¥ INPUT ¸¢’ œ· ¥«·¢·«’©"5Çþ¤,…:"°¡ž¤¡– «½¤«’–¸¥¯¦Ÿ¦ –’›–, ¡¸’"6Èþ¤,…:"³¥¤¦³’ ¯’¯ ·œœ’¸¦– ·œ ž·³’°°’"#Éþ¤,…:"¤–’œ°¦©’³.",Êþ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-29" Ë ñÌ“A$ô"Z"â ‡ Í õ+Îþ¤,‚:" GET";Ïþ¤,ƒ:"N¡·¢œ¦¸ ·œ ž¦©¡¢¥ INPUT ¤’ ž·³·Ÿ¦";Ðþ¤,ƒ :"ž¦©¡¢¥ GET «¸·¢¦ ž·¥¢’ ¯’œ’° ¢°¡©."9Ñþ¤,ƒ@:"P·Ÿ¦–¡Ÿ ž·«’œ’ ©·°–·¸¥, ¢œ¡ ¯’ ";Òþ¤,ƒ`:"¤–¦¤©°¥–¡ °’©–’¡ ©¸¡«’¤¡ ¡ ž¦¡œ¦"4Óþ¤,„:"¥œ¡°’ ž·³’°°’ ¢°¡© ž¦ž¡œ°’"9Ôþ¤,„:"Ÿ¦¤¸· ž·œ¸’ ¤ž’Ÿ¦ª¦©¡Ÿ’ ž·³’°°’ "6Õþ¤,„ :"¡ ¤–¦¤©°¥–’ ©¸¡«’¤½. N’š½¸¡-¸¦"9Öþ¤,„0:"¤–¸¡Ÿ’°¡ ¢¡œ°¡ ©¸¡«’¤¡, ž¦¡¢¥¯’":×þ¤,„@:"¤’ ž·³’°°’ ˜·œ°·–¡ 0 °’š· ž¡¢œ°½"2Øþ¤,„P:"¢°¡©. U ž¦©¡¢¥ GET °’¸¢’ "7Ùþ¤,„`:"(°¡ ·¢œ¦¸ ·œ INPUT) ¢¡¢°¡³’°¡–"*Úþ¤,„p:"«½¤«’–¸¥¯¦Ÿ¦ –’›–.",Ûþ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-29" Ü ñÝ“A$ô"Z"â ¸ Þ õ/ßþ¤,‚:" READ ... DATA"7àþ¤,ƒ:"T¡©’ ž¦©¡¢’³ READ ¤’ ¢¡œ¡«¡¯¦ "8áþ¤,ƒ :"œ¡–¡. T½–· ¯¤·¥ «¤¡© ¥¢ ·š¤¡¢’°¡"7âþ¤,ƒ@:"« ž·—¡³¥ ¡ ·¢°¡Ÿ’°¡ œ’©¸¡¡Ÿ¦"9ãþ¤,ƒ`:"DATA . P¦©¡¢’³ READ ¤’ ž¦¡¢¥¯¦"9äþ¤,„:"œ¡°½³ ž·³’°°½³ ž¦¤¸¥¤°’ ˜·œ°·–½";åþ¤,„:"°’š· ¢°¡©½ ¢ š¸·©¥ DATA. J’œ°·–¸¦«¡";æþ¤,„ :"œ¡–¡ « š¸·©¥ DATA ³¥¤¦ š½– ·œœ’¸’°¡"8çþ¤,„0:"Ÿ¡©¡³¦, ’–’¢Ÿ·«’ ž·³’°°’ ¯¤·¥"9èþ¤,„@:"¢œ’ ¢¡ž¤¡°½ š’¢ ¥«·¢·«’©. V ž·Ÿ¦-"8éþ¤,„P:"–¡Ÿ¦ ¯’ ž·¥¢¦– ¦°–’°¦ ¥©¡¢¡–’¸,":êþ¤,„`:"©–’½ ž· ©¡¢œ’³ ž¦©¡¢’ READ ¥©¡¢’"8ëþ¤,„p:"°¡ °¡¤¸’œ¥¯¦Ÿ¦ ¤¡œ¥ œ¡–. Z –·˜· "8ìþ¤,…:"«½ž¸½«¡, ¢’ « ž·—¡³¥ ³¥¤¦ š½– "9íþ¤,…:"ž¡«’ –·¸¦© œ¡–·«½Ÿ˜ š¸·©¥, ©·¸¦©"8îþ¤,…:"¯’ ž·¥¢¦–· ž¦©¡¢¥ READ. T· °’°¦";ïþ¤,…:"°¡ž. ž¦ ¤–’¯°½Ÿ˜ œ¡–’Ÿ˜ ’ª’©–¦«°¦":ðþ¤,… :"¡ ž·–· ¤’ ž·¥¢¦«¡ ž¦©¡¢ RESTORE.",ñþ¤,…0:"M¡°¥¡¸ ¤–¡°¡: 6-31" ò ñó“A$ô"Z"â Í ô õ-õþ¤,‚:" RESTORE"<öþ¤,ƒ:"T¦³–· ž¦©¡¢’³ ¸¢’ °¡¤–¡«¦– ¦°–’°¦ "5÷þ¤,ƒ :"¥©¡¢¡–’¸ « ž¦©¡¢¥ READ-DATA.":øþ¤,ƒ@:"V ž¦³’³ ³·œ¥ ž¦©¡¢ RESTORE «¡Ÿ¦"6ùþ¤,ƒ`:"¥©¡¢¡–’¸ °¡ ž«°¦ œ¡–·«½ š¸·©."=úþ¤,„:"V ž·—¡³¥ Ÿ¦°¦ –·–’¢ ž¦©¡¢ RESTORE0"<ûþ¤,„:"°’š· ¯’° RESTORE. J’-¸¦ ¢¡œ¡°· Ÿ¦¤¸·"8üþ¤,„ :"¡œ©¥ °’š· °¡«’¤–¦ °¡¤–¡«¥¯’ ¤’ ";ýþ¤,„0:"¥©¡¢¡–’¸ ž·œ¸’ °’¯. P¦©¡¢ READ Ÿ–’"<þþ¤,„@:"ž¡© œ¡–¡ ¢ œ¡–·«’˜· š¸·©¥ °¡ ¢¡œ¡°’³"9ÿþ¤,„P:"¡œ©¥ °’š· ¢ °’¯š¸¦¢¤¦˜· ž· °’³ ¡"<þ¤,„`:"°’š· ¢ °’¯š¸¦¢¤¦˜· š¸·©¥ ž· °¡«’¤–¦.",þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-33"  ñ“A$ô"Z"â Þ  õT$ô"DOBRY DEN"B$ô"":AN$ô"":N$ô"" þ¤,‚:"P¦©¸¡œ:"Mþ¤,ƒ:þ‚:"10 RESTORE 0:T$=";ÿ (");"DOBRY DEN";ÿ (")R þ¤,ƒ :þ‚:"20 INPUT ";ÿ (");"Z¡œ’¯–’ ¯³’°· :";ÿ (");";N$"H þ¤,ƒ`:"30 IF LEN(N$)>12 THEN N$=";ÿ (");ÿ (");":RUN"G þ¤,„:"40 PRINT";ÿ (");"M¥¢/Z’°¡(S–¦¤©°’–’ M °’š· Z)"B þ¤,„ :"50 GET B$:IF B$=";ÿ (");ÿ (");"THEN 50"` þ¤,„0:"60 IF B$<>";ÿ (");"M";ÿ (");" AND B$<>";ÿ (");"Z";ÿ (");"THEN 50"#þ¤,„@:"70 READ AN$"Eþ¤,„P:"80 IF B$=";ÿ (");"Z";ÿ (");"THEN READ AN$"*þ¤,„`:"90 PRINT T$,AN$,N$"þ¤,…:"100 END"*þ¤,…:"200 DATA PANE,PANI">þ‚@:þ¤,…:"K ¤¦³¥¸¡Ÿ¦ ¯’œ°·–¸¦«½Ÿ˜ ©·©¥"6þ¤,… :"¤–¦¤©°’–’ «¢œ½ ¯’œ°·¥ ©¸¡«’¤¥!"  î2þ‚@:þ¤,ƒ:"10 RESTORE 0": î-þ‚:þ¤,ƒ:"10 RESTORE 0"Eþ‚@:þ¤„`,ƒ:"T$=";ÿ (");"DOBRY DEN";ÿ ("): î@þ‚:þ¤„`,ƒ:"T$=";ÿ (");"DOBRY DEN";ÿ (")Wþ‚@:þ¤,ƒ :"20 INPUT ";ÿ (");"Z¡œ’¯–’ ¯³’°· :";ÿ (");";N$": îRþ‚:þ¤,ƒ :"20 INPUT ";ÿ (");"Z¡œ’¯–’ ¯³’°· :";ÿ (");";N$"4þ‚@::þ¤ƒ,ƒ@:‘"Z¡œ’¯–’ ¯³’°· :";N$Fþ¤,ƒ`:"30 IF LEN(N$)>12 THEN N$=";ÿ (");ÿ ("): îJþ¤,ƒ`:þ‚:"30 IF LEN(N$)>12 THEN N$=";ÿ (");ÿ (")8“ÿ¬(N$)õ„@âþ‚@:þ¤…h,ƒ`:"RUN": î8 “ÿ¬(N$)õ„@âþ‚@:þ¤…h,ƒ`:"RUN":€ U!þ‚@:þ¤,„:"40 PRINT";ÿ (");"M¥¢/Z’°¡(S–¦¤©°’–’ M °’š· Z)": îP"þ‚:þ¤,„:"40 PRINT";ÿ (");"M¥¢/Z’°¡(S–¦¤©°’–’ M °’š· Z)"=#þ‚@:þ¤ƒ,„:"M¥¢/Z’°¡(S–¦¤©°’–’ M °’š· Z)"2$þ‚@:þ¤,„ :"50 GET B$":¾‡ 2%þ‚:þ¤,„ :"50 GET B$":¾‡ I&þ‚@:þ¤„0,„ :"IF B$=";ÿ (");ÿ (");"THEN 50":¾‡ I'þ‚:þ¤„0,„ :"IF B$=";ÿ (");ÿ (");"THEN 50":¾‡ (­B$1)þ‚@:þ¤†,…0:"B$ :";B$:þ‚7*“B$ô""âþ‚@:þ¤†,…0:"B$ : ":þ‚+“B$ô""â $K,þ‚:þ¤,„ :"50 GET B$:IF B$=";ÿ (");ÿ (");"THEN 50"h-þ‚@:þ¤,„0:"60 IF B$<>";ÿ (");"M";ÿ (");" AND B$<>";ÿ (");"Z";ÿ (");"THEN 50 . îh/þ‚:þ¤,„0:"60 IF B$<>";ÿ (");"M";ÿ (");" AND B$<>";ÿ (");"Z";ÿ (");"THEN 500“B$ï"M" ì B$ï"Z"â $1“B$ô"M"âAN$ô"PANE"2“B$ô"Z"âAN$ô"PANI"13þ‚@:þ¤,„@:"70 READ AN$": î,4þ‚:þ¤,„@:"70 READ AN$"*5þ‚@:þ¤„ ,…:"PANE": î%6þ‚:þ¤„ ,…:"PANE"S7þ‚@:þ¤,„P:"80 IF B$=";ÿ (");"Z";ÿ (");"THEN READ AN$": îN8þ‚:þ¤,„P:"80 IF B$=";ÿ (");"Z";ÿ (");"THEN READ AN$"9“B$ï"Z"â <*:þ‚@:þ¤„p,…:"PANI": î%;þ‚:þ¤„p,…:"PANI"8<þ‚@:þ¤,„`:"90 PRINT T$,AN$,N$": î3=þ‚:þ¤,„`:"90 PRINT T$,AN$,N$"(>þ‚@:þ¤ƒ,„p:T$,AN$,N$-?þ‚@:þ¤,…:"100 END": î(@þ‚:þ¤,…:"100 END"AT$ô"":AN$ô"":N$ô""&Bþ‚@:þ¤†,…0:" " C ñD“A$ô"Z"â ô E õ-Fþ¤,‚:" CONSOLE"8Gþ¤,ƒ:"T’°–· ž¦©¡¢ œ·«·¸¥¯’ œ’ª¦°·«¡– ":Hþ¤,ƒ :"ž·¸’ ·š¡¢·«©½ °¡ž. ž¦ ž·«¡œ’°¦"9Iþ¤,ƒ@:"¸¦¤–·«¡°¦ ž·—¡³¥ ž¦©¡¢’³ LIST."8Jþ¤,ƒ`:"L¢’ ¢·š¡¢¦– 25 ¡œ©¥ ( 0 - 24 )"8Kþ¤,„:"P’œ’³ °¡¤–¡«’°½ ·¢¤¡˜ ¢¡˜°¥¯’"<Lþ¤,„:"¡œ©½ 0 - 24 - –’œ½ Ÿ’¸·¥ ·š¡¢·«©¥."6Mþ¤,„ :"Aš½Ÿ˜·³ °¡ž¦©¸¡œ –’°–· ·¢¤¡˜"7Nþ¤,„0:"«½³’¢¦¸¦ °¡ ¡œ©½ 6 - 18 ³¥¤¦³’"1Oþ¤,„@:"¢¡œ¡– °¡¤¸’œ¥¯¦Ÿ¦ ž¦©¡¢:"1Pþ¤,„`:" > CONSOLE 6,18 <"4Qþ¤,…:"P¦ ¢¡œ¡°¦ ž¦©¡¢¥ © ³¡¢¡°¦ "7Rþ¤,…:"·š¡¢·«©½ ¤’ –’œ «½³¡¢¡«¡ ž·¥¢’"5Sþ¤,…:"ž·¸’ ¥Ÿ’°’ ž¦©¡¢’³ CONSOLE."+Tþ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-9" U ñV“A$ô"Z"â W›:¸XIôà…0Y" ";ZDôàƒ@["TEST ";\Ž:]Ž(^þ¤„P,„ :" "(_þ¤„P,„0:" CONSOLE 0,24 "(`þ¤„P,„@:" " a îb¸ƒ@,… cþ‚dIôƒ@à…e" ";fDôàƒ@g"TEST "; hŽ::Žiþ‚@:þ¤,„:(jþ¤„P,„0:" "(kþ¤„P,„@:" CONSOLE 6,18 "(lþ¤„P,„P:" ")mþ¤„`,…:"S–¦¤©°¦ ©¸¡«’¤¥ !"n­A$:“A$ô""â no¸ p õ;qþ [‚@]†8,‡ ,"CONSOLE",ƒ,ƒ,;rþ [‚@]†8,‡>,"",ƒ,ƒ, s ñt“A$ô"Z"â E u õ-vþ¤,‚:" CURSOR"7wþ¤,ƒ:"P·Ÿ¦–¡Ÿ MZ-800 ž·¤©½–¥¯’ œ·¤–¦ "6xþ¤,ƒ :"©·°ª·–°¦ ©¥¢··«’ ·«¸¡œ¡°¦. "8yþ¤,ƒ@:" N¡³¦¤–· ¢œ¸·¥˜¡«’ ³¡°¦ž¥¸¡Ÿ’ "6zþ¤,ƒ`:"¤ ž¦©¡¢½ PRINT ¡ TAB ¥³·¢°¥¯’"6{þ¤,„:"ž¦©¡¢ CURSOR ¯’œ°·œ¥¤’ «·¸¦– "9|þ¤,„:"©–’·¥©·¸¦« ¤·¥¡œ°¦Ÿ¦ ·š¡¢·«©½,":}þ¤,„ :"¡ ·œ °¦ ¢¡Ÿ¦– °¡ž. –¦¤©°·¥– –’›–."-~þ¤,„0:"Sž¡«°½ ž¦©¡¢ ¢°¦: "2þ¤,„@:" > CURSOR X,Y <"1€þ¤,„P:"V’ 40-–¦ ¢°¡©·«’³ ’¢¦³¥ "8þ¤,„`:"¯’ X ·œ 0 œ· 39 - –’œ½ 40 ¢°¡©¥ "9‚þ¤,„p:"°¡ ¡œ’©, « 80-–¦ ¢°¡©·«’³ ’¢¦³¥"8ƒþ¤,…:"¯’ X ·œ 0 œ· 79 - –’œ½ 80 ¢°¡©¥ "8„þ¤,…:"°¡ ¡œ’©. Y ¯’ ·œ 0 œ· 24 - –’œ½";…þ¤,…:"25 ¡œ’© °¡ ·š¡¢·«©¥ ¯¡© «’ 40-–¦,"4†þ¤,…:"–¡© « 80-–¦ ¢°¡©·«’³ ’¢¦³¥.",‡þ¤,…(:"M¡°¥¡¸ ¤–¡°¡: 6-10" ˆ ñ ‰ õ:Šþ [‚@]†`,‡ ,"CURSOR",ƒ,ƒ,:‹þ [‚@]†`,‡>,"",ƒ,ƒ, Œ î  õ"Žþ”,†(,†H,†("þ”†H,†(,†H,þ¤ƒ@,ƒ :"Y=5"‘þ¤ƒ@,:"X=6"=’þ [‚@]„ ,‡ ,"CURSOR6,5",ƒ,ƒ,=“þ [‚@]„ ,‡>,"",ƒ,ƒ, ” î • õ"–þ”,‡,ˆ,‡"—þ”ˆ,‡,ˆ,˜þ¤…,„:"Y=8"™þ¤…,:"X=16">šþ [‚@]…p,‡H,"CURSOR16,8",‚@,ƒ,>›þ [‚@]…p,‡\,"",‚@,ƒ, œ ñ“A$ô"Z"â ‰ ž õ5Ÿþ¤‚,„ :"D¦«’ °’¢ ž¦¤–·¥ž¦–’ © œ¡¸¤¦"8 þ¤‚,„0:"¸’©Ÿ¦ «½’¤–’ ž·¤¦³ °¡¤¸’œ¥¯¦Ÿ¦"¡þ¤‚,„@:"¥©·¸½!" ¢ ñ£“A$ô"Z"â • ¤ õ5¥þ¤,„:"K–’’ ¢ °¡¤¸’œ¥¯¦Ÿ¦Ÿ˜ –«¢’°¦"#¦þ¤,„ :"¯’ ¤ž¡–°’ ?"?§þ‚:þ¤,„@:"A. IF...THEN ž·œ³¦°’°’ «’–«’°¦"2¨þ¤,„`:"B. CURSOR ¥Ÿ¥¯’ «’¸¦©·¤– "8©þ¤ƒ,„p:"¢·š¡¢¦–’¸°’˜· ž·¸’ °¡ ·š¡¢·«Ÿ’";ªþ¤,…:"C. FOR...NEXT «½¢¡œ¥¯’ ¢¡œ¡°¦ ž·Ÿ–¥"!«þ¤ƒ,…:"·ž¡©·«¡°¦"¬þ‚@: î­“A$ô""â ¬®“A$ô"A"â Ó:€ ¤¯“A$ô"B"â Ô:€ ²°“A$ô"C"â Ó:€ ¤ ±€ ¬ ² ñ³“A$ô"Z"â ž ´ õ5µþ¤,„:"K–’½ ¢ °¡¤¸’œ¥¯¦Ÿ¦Ÿ˜ ž¦©¡¢¥"#¶þ¤,„ :"¯’ ¤ž¡–°’ ?"G·þ‚:þ¤,„@:"A. INPUT";ÿ (");"J³’°·:";ÿ (");";N"!¸þ¤,„`:"B. GET N$">¹þ¤,…:"C. PRINT";ÿ (");"J³’°·:";ÿ (");"N$"ºþ‚@: A$ô""â º¼“A$ô"A"â Ô:€ À½“A$ô"B"â Ó:€ ´¾“A$ô"C"â Ó:€ ´ ¿€ º À ñÁ“A$ô"Z"â ¤  õ6Ãþ¤,„:"K–’’ ¢ °¡¤¸’œ¥¯¦Ÿ¦Ÿ˜ –«¢’°¦ "#Äþ¤,„ :"¯’ ¤ž¡–°’ ?"@Åþ‚:þ¤,„@:"A. RESTORE ¥©·°Ÿ¥¯’ ž·œž·—¡³ "0Æþ¤,„`:"B. END ¥©·°Ÿ¥¯’ ž·—¡³ "3Çþ¤,…:"C. DATA ¯’œ°·–¸¦«¡ œ¡–¡ ¤’ "(Èþ¤ƒ,…:"·œœ’¸¥¯¦ Ÿ¡©·¥ "Éþ‚@: îÊ“A$ô""â ÉË“A$ô"A"â Ô:€ ÏÌ“A$ô"B"â Ó:€ ÂÍ“A$ô"C"â Ó:€  ΀ É Ï ñГA$ô"Z"â ´ Ñ€ ÕÒ˜:Ó õ:þ¤ƒ`,„0:"N’¤ž¡«°¡ ·œž·«’œ !":¾Šz:„CÔ õ:þ¤„0,„0:"Sž¡«°¡ ·œž·«’œ !":Iôà‹z:Ž:„ Õ õ&Öþ¤„@,ƒ :"K·°’Ÿ L’©Ÿ’ 2"J×þ¤„,„:"C˜Ÿ’–’ ¸’©Ÿ¦ ·ž¡©·«¡– ? Æ";:þ‚:" R":þ‚@JØþ¤„,„@:"C˜Ÿ’–’ L’©Ÿ¦ 3 ? Æ";:þ‚:" L":þ‚@2Ùþ¤„P,…8:þ‚@:"S–¦¤©°¦ ©¸¡«’¤¥ !"Ú­A$:“A$ô""â ÚÛ“A$ô"R"âƒÜ“A$ô"L"â õÝ“A$ô"L"âHBô:: € Ú:Þþ¤ƒ,„:"MATE ZALOZENU KAZETU S PROGRAMEM ?"/ßþ¤ƒ,„ :" ANO / NE Æ (A/N)"à­A$:“A$ô""â àá“A$ô"A"â â:: € à;âþ¤…,„P:"PLAY ";ÿ ():ƒ"CMT:BASIC-UCITEL 3"ã˜äYôà…8-å“Yõ ì Yö…8âVô::ÂVô!æ“VôâXô:X1ô†ç“Vôâþ¤X,Y:"*"è“Vôâþ¤X1,Y:"*"é“Vô†íêXôà†:5ë“Xõ ì Yõ ì Xö† ì Y ö…8†íìþ¤X,Y:"*" íŽ:Ž:„)îþ¤„P,…8:"S–¦¤©°¦ ©¸¡«’¤¥ !"ï­A$:“A$ô""â îð„Pñþ¤„,…8:"S–¦¤©°¦ ©¸¡«’¤¥ ! ":þ¤…P,…8:[‚]"([Z] ZPET)"ò­A$:“A$ô""â òó„=ô›:þ˜[‚,],,,‰@€,ˆ>,‚:„6õ›:þ˜[‚,],,,‰,ˆ>:„öIôàŒ;€:Ž:„