' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] Ƀ`hhL^ 5 ; ڶɃ L H h`r,0lm` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>? $+ 2 )( , /"(;"1!*,-*2!!2!  *./!!((,*/* ./2,,/* ./(,2//(./6<4./&<"; ,/  2$:/'/''/:<&*,*./,+,(56124041(9<8==9;<(9;981(=;;4(9=:<9((Ea70?D+19( `A!|Lj@ H" `ȄH [p00-7/00-6/LIHH - ȱH / H ˼ \V(`HJJJJ h) 0:9HVh\`JLǠŠӠ䠠LkHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz`%%%%l^  ȟ QlXJ̥KlV`۰ ` eօ3L e3L &RL &QL d L4 Ne)n `@-eff LL κ`LD   J8`ܥ⥑` L`  ᷩ" H f`  Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\Z ʽ LƴLHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZLƤ?cqH 5ch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFGLOAGSAVTYPDIMODMAKSOUNĭBOOHALƴL#@  no languagbad rangwrite protecteend of datfile not founbad volumi/o errodisk fulfile lockebad syntano bufferbad filetypno memornot allowe µ)JiLJ4)`M22L@,2P #l6&1?IR[fpz- (  Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / /ؼ 5 / 5  ]ƴS0Jȴ 5ȴ)  5 5紅D贅E B 5 X 5 / 0L^ 5Ν `HDH DE hDh 5`Ehhi ŵBѵ-` ѵB-` ܫ鷭귩뷭 JL / / 5JJJJI 5 5I 5 5ED B / /L/8`ǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0" ;B 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` F dz#x? @Р@Ҡ u`TR$(TR$,127)"."TR$6[estnadeseti^ni cifriQHX$"0123456789ABCDEF"zarevdane na obry]enie kym RWTS i na^alni stojnosti na IOBI768809:J:I,J:I 0,169,0,141,0,3,169,3,160,21,32,217,3,144,5,169,1,141,0,3,9R$5simwoli za wsi^ki kodowe ASCII (1-255)TR$"............................... !"(34)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ""["(92)"]^"(95)"`abcdefghijklmnopqrstuvwxyz"I123126:TR$TR$(I):I:TR$TR$"."e na sektor"::"D - izbor na ustrojstwo"::"W - zapis na sektor"::"F - napred kym wtoriq segment"X"B - nazad kym pyrwiq segment":"C - promqna na danni":"E - izhod"bF$"RWPCDEFB":B$(7):D$(4)l signal->B$v mk-D ->D$ ASCII8->T(F$):(F$,F,1)FI$ĂF:B$;:611108 ako ne e PRINTOF3Ģ19:1:958Uw0********************** : na^alno ustanowqwane Dizwevda zaglawie i opisanie na men@tobN:"obsluvwane na diskow sektor":::::"R - ^etenTE ";::"F";::::"ORWARD"Q7::::"P";::::"RINT ";::"B";::::"ACK"k7::"C";::"HANGE"7::"E";::"XIT" priemane na izbraniq revim18:26:"";FI$:((FI$)1)ĺB$;:61110ako nqma takyw revim#F1:IOB(6) na $320<H********************** eR ustanowqwane na revim z\::18::1:958f izwevdane na men@top7:"izberete revim => "z::7::"R";::::"EAD ";::"D";:::"RIVE"7::::"W";::::"RI) na $319$wywevdane # na sektor_21:1:"sektor(0 - 15)?";SI$:((SI$)0):B$;:60120t ako ne e cifraII(SI$)I1II:(SI$,I,1)"0"(SI$,I,1)"9"ĺB$;:60120 ako e izwyn obhwata S(SI$):(S15):B$;:60120794,Swywevdane # na pyte^ka'~19:1:958U20:1:"pyte^ka(0-34)? ";TI$:(TI$)0ıj ako ne e cifraxII(TI$)I1II:((TI$,I,1)"0")((TI$,I,1)"9")ĺB$;:60040 ako e izwyn obhwataT(TI$):(T34)ĺB$;:60040 793,T:IOB(5xi********************** xi prehod nazad kym pyrwiq segment iSP38400:LN128:10000:`********************** j ustanowqwane na pyte^ka i sektor tPa wyzstanowqwane na steka, iztriwane na ekrana i na pamettaZa::`ae********************** e prehod napred kym wtoriq segment e izwevdane na bufera eSP38528:LN128:10000:+ disketata "<P:"ili da slovite nowa disketa s nowo ime"kZ::"natisnete klawi[,za da prodylvite ";zdAN$:1140A6,32, 30,32,0,0,1,96,0,96,1,0,1,239,2162 R BS:L1(DB1):L2(DB2):r H$"0123456789ABCDEF":A$"" P(D16):QD16P:A$(H$,Q1,1)A$:P0:DP:2010 B(DB13):10004 AD(DB)L1256:DAD:2000:AA$A$[ LEL2(DB3)256:DLE:2000:L$A$ ::"parametri des. [est." ::"adres ="20);AD;30);AA$ "dylvina ="20);LE;30);L$ 169,32,160,9,32,217,3,96,0,1,96,1,0,17,15,22)13270 A100& FN3:J1(F$)I P((FEN)128)(F$,J,1)100g ZNN1:J:(FEN)160130n dI n(L10L20)::"fajl s towa ime":"ne sy]estwuwa w kataloga":220 xT,L1:S,L2:40 T,(FE) S,(FE1):1000 T,(DB12):S,<::255:7:"namira parametrite na dwoi^en fajl ":v BS8192:BE8221:DB8222:T8205:S8206:P11:Q221:R35IBSBE:X:I,X:"ime na fajl (dwoi^en) ";F$:F$""220(10002IPQR:FE(DBI):((FE)255)100 <(FE2)4(FE   73,219,213,213,213,213,213,107,9,197,197,197,197,197,197,5,0D m 213,173,27,213,213,213,213,77,41,24,197,197,27,13,197,27,13,197,43,197,5,0 n 213,213,149,171,171,107,9,197,197,197,219,43,45,45,24,197,197,5,0  o. 41,173,219,3,213,213,213,173,27,213,77,41,24,197,197,27,13,197,43,197,197,5,0J j 8,13,213,235,27,213,213,213,213,173,27,213,77,41,24,197,197,27,13,197,43,197,197,5,0 k 213,213,213,146,197,197,197,45,40,40,168,146,219,21,21,5,0 l< 9,113,219,213,213,45,45,5,0 8 fmB 9,213,43,173,219,107,213,221,171,107,213,43,173,27,13,200,232,232,40,0uL gV 213,213,213,213,213,213,69,64,192,24,45,45,0` hj 213,21,213,170,27,213,77,41,24,197,43,216,5,40,40,24,5,0t iB~ 21,16,48)= ";R:R0VL15^X1X:Y1Y:S1SC:R1R:V1VLsh24:" t)ekst p)romqna i)ztriwane k)raj":1040:1410r*** izwevdane na niz|I1(A$)S(((A$),I,1))S31X,Y:XX6IYY30:X0AB$A$J1(B$))S(((B$),J,1))B(S65S90)ī1510IJt"** wywevdane na X i Y koordinati ** ,21:"wywedete na^alni koordinati: "623:868:"X= ";X@23:9:"Y= ";YJ23:17:"SC= ";SC:SC:SC0SC1T23:24:"R(01:1040:B1:::16301,0::16300,0:1590o(X128)(("i"))Ĺ16368,0:XX1:YY1:SCS1:RR1:VLV1:1040:1410(X128)(("k"))Ĺ16368,0:::1410*ne e komanda **wywevdane na tekst**:21:"wywedete grafi^en tekst""";A$:(X12827B1)B0:16368,0:16302,0:16299,0:1410: *pokazwa stranica 2 * ** obrabotwa komanda *(X128)(("t"))Ĺ16368,0:B1:16301,0:16300,0:1510((X128)(("p"))Ĺ16368,0:XX1:YY1:SCS1:RR1:VLVVL1YY7SC:1230/VL2YY7SC:1230HVL3YY9SC:1230UXX7SC\JqVL0:SC1:R0::x * prewkl@^wa ekrana *X(16384):X1271410(X12827B0)B1:16368,0:16301,0:16300,0:1410: * pokazwa stranica 1*lR48VL1.R16VL2-8S(((A$),J,1))ABS64S124: @WLS91S123: [ kVS93S125: ]`S94S126: ^jS73S127: I tS86S128: V~(Y0)Y0(Y191)Y191(S32S64):S31X,Y:1190S63X,YA$T6$:X0:Y2:1040#A$" "2:21:T6$<1410B:{ *** procedura nadpisi *** parametri: SC,R,VL * VL=1 pi[e nagore * * VL=2 pi[e Hadolu * * VL=3 pi[e wertikalno nadolu po bukwi *J1(A$)SC:R $:R48:1040,\A$L9$:X84:Y168:R48:1040NfA$T1$:X105:Y168:R48:1040ppA$T2$:X126:Y168:R48:1040zA$T3$:X147:Y168:R48:1040A$T4$:X174:Y94:R16:1040A$T5$:X188:Y94:SC2:VL3:1040A$T7$:X220:Y70:SC3:VL3:10406: 1,96,1,0,0,0,38,3,0,150,0,0,0,0,0,96,1,0,1,239,216F ili 3 ";SC) SC1NS$"sekciq 1":9E SC2NS$"sekciq 2":9a SC3NS$"sekciq 3":9g i drugi danni ot sekciq 2":"sega ]e risuwam spored tqh"I <"zapo^wam"Y FH09000:o P16304,0:HCHC1~ ZHC7HC0 dHC:G110::X(G1),Y(G1)X(G),Y(G): nH09000: x16303,0 H05000: "sega koq sekciq iskate" "1,2hCJ721:105J,(24576J)::::106,(24577):(105),(24576)K10 PP24576:::J07:::PPJ,(105J):::D$;"RUN";NS$ prepokriwane treta ^ast:"tuk e sekciq 3"D$(4)("imeto, koeto mi predadohte e ";A$9 2"az polu^ih  L$(B3$,4) R$(B3$,4)3" L$"0000"H1$"0"J, L$"0001"H1$"1"a6 L$"0010"H1$"2"x@ L$"0011"H1$"3"J L$"0100"H1$"4"T L$"0101"H1$"5"^ L$"0110"H1$"6"h L$"0111"H1$"7"r L$"1000"H1$"8"| L$"1001"H1$" A$"B"B2$"010"+ A$"C"B2$"011"A A$"D"B2$"101"W A$"E"B2$"110"m A$"F"B2$"111" B1$;" ";B2$;" "; ** B3$ e niz-rezultat ** B3$"00"B1$B2$ ** preobrazuwaHe Ha B3$ ot dwoi^EH w [estnadeseti^eH kod ** *2 I11922!< A$(T$,I,1)4F B$(T$,I1,1)EP 12:I;": ";LZ 5ed B$;" ";A$;" - 00 ";{n B$"A"B1$"001"x B$"B"B1$"010" B$"C"B1$"011" B$"D"B1$"101" B$"E"B1$"110" B$"F"B1$"111" A$"A"B2$"001"Slko "fASASA1138&pB:A,B:A;z12:"blagodarq"[14:"tablicata e zaredena"16:"zapiswane na znakowiq generator":17:"kato dwoi^en fajl wyrhu disketata"(4);"BSAVE tablica.simwoli";",A";SA;",L";113918:(7);"kraj"a"21:"wywedete na^alen adres na tablica:";SAE SA1SA37120_ *** smqta ukazatelqv  *** kym na^aloto* *** na tablicata 4HB(SA256)>LB(SA256HB)H232,LB:233,HBR *** zarevda w pametta\8:"molq po^akajte ma2,213,213,213,213,21,21,5,40,40,24,197,197,197,5,0|J 45,45,45,45,45,45,78,45,45,45,45,45,45,85,85,52,56,23,56,45,45,45,0 *** izwevdane na  *** gotowata konturna *** tablica ***:3:"ili wywedete 1":"ako 37120 wi zadowolqw232,232,24,5,0 @u 13,213,221,171,107,213,221,171,107,213,221,171,43,45,173,43,24,232,232,232,232,232,232,0} ] 202,213,213,21,45,149,42,24,197,197,197,197,197,5,0" I, 202,41,173,27,213,213,213,213,213,43,45,06 V2@ 20  yK 202,170,146,171,45,5,232,232,24,27,45,5,232,232,219,40,45,0S z 202,13,213,221,171,107,213,221,171,107,213,221,171,43,45,237,232,232,232,232,232,232,0 [ 213,13,213,221,171,43,173,235,27,213,13,213,27,77,69,235,232,232,237,24,197,197,13,213,213,213,170,171,43,02 w 202,170,171,43,45,213,219,213,157,45,45,232,40,192,197,29,216,27,45,45,0  x 202,213,213,213,213,213,213,45,45,232,232,216,43,45,0 202,173,171,171,171,171,171,43,45,232,232,216,45,0 ,45,45,40,24,197,5,0< sPF 42,40,173,213,219,171,171,171,171,45,5,40,0 XP tZ 45,45,213,27,213,213,213,213,213,5,0d un 213,213,21,45,213,155,42,45,232,232,232,232,232,232,0x v* 213,213,21,213,131,213,213,13,197,197,197,171,171,171,171,171,45,5,40,24,197,197,197,5,06 p}  213,213,213,213,213,213,77,41,24,197,197,197,197,221,195,45,45,0 q 170,171,45,213,171,27,213,107,9,197,197,197,197,197,197,219,45,45,0( r2 45,173,219,171,171,171,147,197,1979Y 150,0,150,159,80,0,220,0,150,159,0,100,279,100,150,159,279,100,279,30,0,30,0,10,0wedenieto im e: ";N1N2: 2:"wivte dali HGR e nared "J <H09000:X F16304,0o P23:"nared li e?" Z"sega obratno kym TEXT" dH09000: n xH010:X(H),Y(H): "sega ]e izwikam sekciq 3" G09000: NS$"sekciq 3":ZCJ721:105J,(24576J)::::106,(24577):(105),(24576)K10 PP24576:J07:PPJ,(105J):::D$;"RUN";NS$ prepokriwane wtora ^ast:"tuk e sekciq 2""dwete ^isla, koito mi predadohte sa: ";N1;" i ";N2 (:"proiz  @)   ) ) ;? ) ;; ) ) ;;   ;Ղݫkݫ+- ݫ+ ME ݫkݫkݫ+-+-*)+-((------N------խM)  +Օk +--)۫-(M)---իk ---۫--(*(۫-(---՛*-Ճ  ժ+ʪ+-՝--(----+-ʭ+--ʪ--(- ݫk(4);"RUN format"n b22:"s kakwo ime ? "D lTN$J vP  22:"tablicata se zapiswa wyrhu disketata kato: ";TN$  38399 977,166:978,250 D$(4) D$;"BSAVE tekst";TN$;",A16384,L";(N22)(N100)40 :N$ 0 D$;"BSAVE zHak ";CN$;",A16384,L99"6 BD$(4)l ** wry]ane kym glawnata programa **D$:D$;"RUN format"2455,2585:33,33 I :?z ** zapis na simwola w deseti^en kod wyrhu disketa **i "iskate li da zapazite tozi simwol?"} "(d/n) ";:YN$ : YN$"n"3590 ((YN$,1)"d")((YN$,1)"D")3590  D$(4)  "kakwo ime ]e mu slovim ?" C::: I096' C$(HE$,I21,2)6 U$(C$,1)E L$(C$,1)Y M(U$):N(L$)q M57:MM55:3350| MM48 N57:NN55:3370 NN48* D16MN4 D;> D100ĺ" ";H D10ĺ" ";R D(I)D\ LOC,D:LOCLOC1f Ip H$H1$H2$:H$l HE$HE$H$%v IK ** priznak za kraj na simwol **\ HE$HE$"00"r ::I1(HE$)2 (HE$,I,2);" ";:I : LOC16384 ** preobrazuwaHe ot [estHadeseti^eH w deseti^eH kod ** 5:14::"w MoMenta presmqtam" R$"0101"H2$"5"- R$"0110"H2$"6"D R$"0111"H2$"7"[ R$"1000"H2$"8"r R$"1001"H2$"9"& R$"1010"H2$"A"0 R$"1011"H2$"B": R$"1100"H2$"C"D R$"1101"H2$"D"N R$"1110"H2$"E"X R$"1111"H2$"F"b9" L$"1010"H1$"A"0 L$"1011"H1$"B"G L$"1100"H1$"C"^ L$"1101"H1$"D"u L$"1110"H1$"E" L$"1111"H1$"F" R$"0000"H2$"0" R$"0001"H2$"1" R$"0010"H2$"2" R$"0011"H2$"3" R$"0100"H2$"4"9,100,279,30,0,30,0,10,0SA$ P:24> Z"sega celiqt ekran na HGR ]e stane bql":HC7\ dHC:H0191:0,H279,H:y n"sega obratno kym TEXT" xH09000: NS$"sekciq 2":92 NS$"SECT3":9 150,0,150,159,80,0,220,0,150,159,0,100,279,100,150,159,27X(11),Y(11)24584%10_ PP24576:::J07:::PPJ,(105J):::D$;"RUN ";NS$| prepokriwane pyrwa ^ast:"tuk e sekciq 1"(D$(4)2:"molq, wywedete ^islo ";N1<"i o]e edno ";N2 F"a sega wywedete edno ime ";  600D)256($600E)4:A,($600A):A1,($600B):A2,($600D):A3,($600E):B$;" ";D$;",A";A;",L";L:"k .";:G$:40:I0ĺB$;""::"w :";D$YB$;" ";D$:A(21902)256,0:K0:M0:H1:7208TJ3H2::16302,0:1998:970>^hF723:F:1:"";78);"";::"";:F076:"_";::"_";:$7F7,92:rB$;"4":$6000:::I0Ą"w , :";D$|A($600A)256($600B)4:L($J13390J4410(J54206J21440DJ15430RJ24ė:dJ19I0450vJ19I1470J20480J18520J8560J9600"J11620,J106406J16700@J1H1:710JJ2ė::G:16302.":18:40:3);"21. p .":21:40:3);"24. i.":23:4:"i :"; nE$:E$"0"E$(58)ĺE$;:130 x110 F$:F$(8)ĺ(8);:110 F$(13)F$"":160 F$"0"F$"9"130F$:J(E$F$):J12370.":13:40:3);"16. p HIRES .":14:40:3);"17. ":15:40:3);"18. p ." PI0Ģ16:40:3);"19. a ." ZI1Ģ16:40:3);"19. o ";D$;"."j d17:40:3);"20. p 2:"10. z HIRES .":20:2:"11. i HIRES .":21:2:"12. k HIRES ."n F10:40:3);"13. z .":11:40:3);"14. t .":12:40:3);"15. s LORES .":13:3:"4. CATALOG .":14:3:"5. i .":15:3:"6. z SHAPE ."x <16:3:"7. s SHAPE .":17:3:"8. z HIRES .":18:3:"9. z LORES .":19:" >>  ">> "8""> """"""< >> "Hɍ;)? i% HH e$ihhhL )jjjj) j)jj)6"*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>>< (&20 *, **>> "2*&" ,213,63,63,63,63,63,63,23,46,45,45,45,45,45,45,37,4,0,28,36,13,24,44,32,172,18,55,173,63,55,45,53,63,119,37,0,255 "">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2"""""""""""@c)   ) ) ;? ) ;; ) ) ;;   ; Ak ot parolata &P$% &PS$PS$P$4 &PSL(PS$): &PPS$)H &&S$"" f&PWD$"SEG MANAGER.INC"/ p&PWL(PWD$)b z&:"za]ita ot wyH[Hi lica"::::"parola : ":l &9910 &(PWLPSL):(PS$PWD$): &(PS$,PSL)(PWD$,PSL)ī9860 &:"nqmate prawo na dostyp":PCT1100:(7);:PCT::30 &9860:sledwa] zH;R programa za za]ita na dostypa do disketite pri na^alno zarevdane q1010,166:1011,250:1169{9800(1010,191:1011,157:11692:"priqtHa rabota":H& podprograMa za za]ita ot wyH[Hi licaR& whodHa parola \&PS  23,174,45,45,45,45,45,45,12,228,63,63,4,0,173,190,231,36,0,174,57,23,62,8,24,39,0,45,12,45,21,45,4,0,45,45,45,45,45,45,45,62,63,63,255,63,63,63,46q 45,45,109,45,45,45,62,63,63,223,59,63,63,46,45,45,77,41,45,45,254,219,59,255,219,115,45,45,45,45,45,4562,R(R256)256:63,R256:66,0:67,30:0,76:1,44:2,254:0:I74247590:A:I,A:I:232,0:233,29: 8,0,18,0,24,0,43,0,63,0,68,0,76,0,83,0,148,0,62,36,45,54,4,0,63,23,246,63,63,174,21,45,45,45,45,45,12,12,60,63,231,36,0,190,45,62,191,63,63 (2)256(3):30b::0:l768,173:769,48:770,192:771,165:772,0:773,32:774,168:775,252:776,198:777,1:778,208:779,244:780,96:U(175)(176)256:RU6:54,R(R256)256:55,R256:1002gvRU626:60,R(R256)256:61,R256:RR512:14:26:" ":R0ĕ2D,18RR0:MOOM:2,O256:3,O(O256)256p&I17:E(I)ĕ3E(I),F(I)0C(I)ĕ5C(I),D(I):A(I)ĕ4A(I),B(I)D:N1600NIN101:74(I(I18)18)15,180(I18)10:0,I1:1,3:768:IX:O:I11000::I0N1:Q4(I(I18)18)15:T180(I18)10:7Q,T:0,10:1,5:768:7Q,T:0,15:1,10:768:MM10:4:35:M:I13000:I:14:27:" "15:28:" ":14:26:"ANOTHER GAME ?":A$:A$"N"610A$"Y"510&7:"EXTENDED PLAY":I150:0,10:1,50:768:I:I1(100C):6:35:I:0,15:1,10:768:I:HI1:CCC:I12000::14:27:" ":60I16:0,20:1,50:14:28:" ":768:14:28:"GAME OVER":768::N1500~14:27:"BONUS POINTS"18:14:27:"YOU'VE BEEN":15:27:"SUNK !!!!":0,60:1,50:768:14:27:" ":15:27:" ":S150:S:Q:Q1500::2D,18:Q1930:2D,Q:0,Q:1,150:768:2D,Q::R1:C(I)0:I11000::480C(I)0:250M600C48014:2|2E,18:50]8C(I),D(I)4:Q(16336)(16336):8C(I),D(I)4:C(I)D8C(I)D8440zC(I)D13C(I)D1342045014:27:"POWER FAILURE":Q18:0,50:1,50:768::JJ(10((1)11)):J0J014:27:" ":450Q0,11:S19:1,10:768:S:A(I)0:3E(L),L1520:E(L)0:74(N(N18)18)15,180(N18)10:NN1:MM((F(L)2020)(G(L))):KK1:350 T4A(I),B(I) ^ hED:DD(((16384)149)(J25))(((16384)136)(J25)):S136D10 rS149D160@ ;? ) ; ) ; ; ) ; ;?  @ na rabota w registyr kirilicaK (KB43KB90)(KB97KB122)120` KB96:KBKB32m NVKB43 PNA(NV):P48120 F,P:T:120D$D0,0,0,0,0,175,205h Z 216,103,0,185,164,64,0,135,121,145,152,57,52,128,96,242,88,72,195,114,228,76,255 dN147:DN:NA(N)DN:N n^etene na klawiaturata kraj s MK-C xC$ (C$"+")(C$(3))ī120 KB(C$) KB3Ā% normal9 wywevdane na podprograma za izswirwane na edin tonED$(4)`D$;"BLOAD ton,A$02E2"p(F736:T738|2737,64<NA(47)Fwywevdane na ^estotite zawseki klawi[ ot klawiaturata P 128,0,114,103,54,135,121,108,0,92,82,0,68,60,48,108,0,  s komp@tyra!!! movete da startirate programata otnowo" ^^mm";A>936:"sega ]e widite ^asownika na stariq APPLE"HAA1XQ1999:QMIN(((A100(A100))1000.05)((A100))) A1200AA1200:PM1HOUR(AMIN)100:A0HOUR12HOUR0500 :9367*"stiga ste si igraliN "" """."kuku?";ZB$D"tik - tak?";ZC$W"zwynec?";ZD$n((ZD$)89)ī770"":"w kolko ^asa iskate da zwyni?":"wywedete wreme ^^mm";SET770ZB$"N":ZC$"N":ZD$"N"936"izwinete, kolko e ^asyt?)t"iskate li da me izpolzwate":"za pokazwane na wremeto":"ili ]e izpolzwate":"i drugite mi wyzmovnosti?":"""molq, wywedete Y ili N ";ZA$((ZA$)89):765936"koq ot sledwa]ite wyzmovnosti iskate?""wywedete Y ili :32826,141!8253,1410A770790?B:A,B:AdA0:B0:C0:XPH%65:XPM%65:160~A1200AA1200:PM1:"(tazi programa e napisana ot BILL SMITH, GAMBIER ISLAND,B.C. CANADA)"::"az sym ^asownikyt na stariq APPLE":402,3,96XA18:B:A5]A1627816382:B:A,B:A;bHc3:1:0]l232,150:233,63hv16277yA118:B,C3B,C:AA15:B,C4B,C:AA14:B,C5B,C:AA112:B,C6B,C:A5:825,168252,16136,74,110,78,110,82,110,60,73,100,13+ 204,110,178,136,132,148,84,136,60,110,64,74,70,40,86,14,130,2,138,16,170,24,192,46,200,78,192,110,170,132,138,140,106,132,84,110,76,78,84,46,106,24D 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,,219,27,96,12,12,12,12,12,12,12,12,12,12,00: 53,39,00I 44,62,00! 63,63,54,45,53,62,62,62,54,53,53,62,62,46,46,54,55,55,46,46,46,54,63,55,46,45,5,0%& 144,1,148,1,178,14,200,40,204,40,208,74,212,74,216,74,216,74,200,110,146,148,98,136,102,& 100,150,100,250,100,150,50,150b 08,00,18,00,22,00,25,00,32,00,44,00,70,00,73,00,77,00t 36,36,36,00 36,36,00 54,54,54,54,54,14,00  118,118,118,118,118,05,100,100,100,100,100,12,0+ 14,14,14,14,14,14,14,14,14,14,222,219 ( MIN60ALARM(HOUR1)100:405? ALARMHOUR100MINZ PM1ALARMALARM1200m ALARMSET420w E4: SETSET1:E1:R1 AE87 KB(16384) KB127ZD$"N":R0:455 768,255:769,255 770 A 16368,080 ]E1:160 ^# cA03:E6 d768,E:769,50? e770O fF1200:FV gAc iA8365s jF1400:F kA47:E:356 mA11000:A rHHOUR sHOUR0H12 wE1H:768,250:769,100:770 |F1800:F E E500(H133)267 2Q1 3FG60) 6KB(16384): 7KB127ī800A ;FN @B1335c E768,100:769,03l F770~ J780,180:B1 K7168,180:345 O768,70:769,03 P770 T7168,180 U780,180:B2 YG1:A [B1ĕ780,180 \B2ĕ7168,1MIN34)ĘPH%:2953 XPH%PM%XPH%PH%ĘPM%:295W PM%XPH%(PH%PM%1)ĘPM%:295p PH%XPH%ĘXPH%:295 OPM%PM%:XPH%PH%:B1:E1 FLAG1İ350 FLAG0:R0ī120 160 "1140,80: '2140,80: ,7:780,180:G19 1AE48612200" HOUR0:PM1PM0:2006 PM0PM1:200> 12Z PM%MIN6460:PM%:290} PH%(HOUR64PM%)12:PH%:295 PH%XPH%ĘPH%:295 PM%PH%ĘPH%:295 B0ī284 OPM%:290 XPH%:295 OPM%PH%ĘPH%:295 (HOUR6)(9 16277-ZD$(1),ZC$(1),ZB$(1),ZA$(1)6700HZE420(H140)PwE1cx(ZC$)89300q}AE4862KB(16384)KB127800AMINMIN1:((ZD$)89)İ400MIN60ī200MIN0:HOURHOUR1(ZB$)89FLAG1 HOUR          "} } } } } } } } 3U{EUM]E]E        ZZ''''''"&5*} } } } } } } } {E{E{EE?E{EEG       *XX*XXU&'5} } } } } } } } EEE{GEEE@c ;? ) ; ) ; ; ) ; ;?   3(HPI30) AuwicaMM14N140P:0,P:768:N@X1500:XHMM^ 150,120,135,200t 150,135,120,150 120,150,135,200 200,135,120,150MM1H:0,150:768:X1480:X,MM sybira wremeto, izrazhodwano za kukane SCPIwa i risuwa strelkite: TMM30PI:TH((H6)(M360))PI| (AML(TM)),(BML(TM))A,B:A,B(AHL(TH)),(BHL(TH))   izwevda indikaciq sekundi i zwuk sekundi A((R2)(X)),B((R2)(X)) TK(16336) podprograma kuki 0:1010 79 MM1:M60M0:HH1:H13H1C 1010j  postawq wode]a nula za minutite S$"":M10S$"0"  cifrowa indikaciq 23:16:" "; 23:16:H;" : ";S$;M (M0)İ5000:340 330 iz^islqB "(H0H12M0M60)ĺ"gre[ni danni":RX1500:RX:24::260H ,W 61010:470 @ otmerwa sekunda i izwevda indikaciq JSC0 TXSC2PIPI30 ^7:2000 hZZ1TT:ZZ r0:2000 |X  iztriwa poslednite i ^ertae nowi strelknata strelki) risuwane na ^asownika= X02PIPI30I SCSC1] SC5SC0:RX5 A(R(X)),B(R(X))A((RRX)(X)),B((RRX)(X)) RX0 X :23:"wywedete wreme w ^^mm (0-12;1-60)" TM$ H((TM$,2)):M((TM$,2))owina na ekrana: B79: horizontalna polowina na ekranaT R75:radius na krygab PI3.1415 SC1:sekundite zapo^wat s -1 za da se ot^ete narastwaneto TT460:***nastrojwane na to^no wreme*** ML70:HL50:dylvini na ^asowata i na minut  8191.zarevdane na programa za zwuk=A768786L(X:A,X:Af2R75:radius na kryga}<162,255,164,0,136F234,234,234,234,234P208,248,173,48,192Z202,208,240,96d osnowni konstantin::7 xA139: wertikalna pol   E       Z*ZX&&''&&&'5} } } } } } } } U{E]M]]]       *bbz''''''#'#€uuuuuuuu"'""'"bFBgb"'"'''#'#'#&'&#''ggwNuuuuuuuubgb"'"bFBgbf&&gf&&&g&#'#g''ggg]HW>!R*L`@J'@`uUR $ $ $ nPZ A$"UY 5] $ 湭: Q808`OR(IG[ZZZ `ZZZPWSTL``86 8` 8??<3?3?33 3c3>?3kkk30 `86 8` 8??<3?03c3?33333?x0 0 ,80A(I)M  IIP)180(PIT)180)) P: Z"ima li drugi?(d/n) ";K$P d(K$,1,1)"d"55X e:o n"molq,po^akajte!"w sM1 tK0 xI1279 A(I)M80A(I)M80K1 K1MM2 K1ī116 1,80A(1)M I2279 1 Ieniq po Y *! *I016010. +0,I4,I5 ,I= 5:Y 7"amplituda (del.)? ";Ad 8AA10 <"period (del.)? ";P >PP36 ?"defazirane (DEG)? ";F @T360F AI1279 FI,80A(((PIIP)180(PIT)180)) KA(I)A(I)A(((PIA(279),B(279)!I1279,A(I)02@ PI(1)4L ::23S7q * izwevdane na osta X*0,80279,80 * deleniq po X *#I027910$I,78I,82%I& * izwevdane na osta Y*(0,00,160 ) * del  ` 86$>3*p333<333 ~k3363>3336w333333 3k33kk3` 86$>3*p333<333 ~3333333 0w333333 333330x06 3>`8$~;88300633~bk336k;3633333 3*30kk333>333363?>?3kkk33>`8$~;88300633~b3333 073333 3333`>> 03 >>33c33?d<8$>86~~3 3 ><0o?36k 7;6k?33> >k8k>k0363k336k333333 3*30kk3d<8$>86~~3 3 ><0?3;? 0k;37 333  8`0333333 0 k3333333c383>f~ *8~~3 0?03 30~k3336k376c333< 0*3360kpk0o>336?k ;;6k?33>3 3kk>3>f~ *8~~3 0?03 30~33333 3c33;0 333 px>33?33 0 k333333k 3  8$>7*3 3033 3 k33363>3337c33363 3k3363k`k0k3336k777c33363 >*3360kk0 8$>7*3 3033 3 333333 3c3333 3?3 `x3333>3 0 c33>063k>(P2,Q2P2,Q3( K$( KP2,Q2P2,Q3?( Y(P2,Q2P2,Q3n(P2,Q2P2,Q3t( K ***podprogrami za iz~ertawane na minus,dwe i pi***:2(:K<(P1,QP1,QQF(WP(:|Z(P2,Q1P1,Q2P1,Q2P2,Q1d(P2,QP2,Q4P2,Q4n(x(:(P3,Q2P3,Q2: P1(P2,Q2P2,Q3(P2,Q2P2,Q3( (2P2,Q310300'P145:Q154:103002' ***dwojkite***F'P7:Q84:10330\'P266:Q84:10330q'P147:Q4:10330'P150:Q153:10330' ***pi***'P15:Q84:10370'P76:Q84:10370(P213:Q84:10370 (P276:Q84:10370((:4((e na minusi**':':7-'0,80279,80@$'140,0140,160b.'K024535::deleniq wyrhu Xt8'K,79K,81:KB'L014040::deleniq wyrhu YL'139,L141,L:Lj':t' ***minusite***~'P1:Q84:10300'P71:Q84:10300'P140:Q159:aj na programata"   :@ ***funkcii za na~ertawane***F :Q Y(X)W  o Y1((X).0000001)u  Y(X)  pY(X)  &: &***~ertane na osta X** &***~ertane na osta Y** &***~ertane na 2 i pi** &***~ertan000# VP2123:(VP):" ":VP0 J0T1< XS1(J)W N3000,4000,5000,6000f Y40Y80z Y0Y1592270 X1(J),Y J "natisnete klawi{," "za da prodylvi" K$:K$""2290  NN1 N52160 : "kr PI3.1415926536 :E "w momenta se izwyr{wa presmqtaneto;"m "~ertaneto }e zapo~ne sled malko!"s : JII1 *KIJ 4S1(K)JMPI H: RX1(K)140IJ140 \J fN1 pN1ļ3000 zN2ļ4000 N3ļ5000 N4ļ6primeri sa we~e wywedeni,"B "taka ~e ako iskate da gi widite,"_ "naberete: RUN500 "h 255n t :  ***na~alo na osnownata programa*** : 10000:***~ertane na osite*** X1(162),S1(162) 34,20: T162:I81:M40.5,5000 i 6000." A "naprimer, za da na~ertaete funkciqta:"o "Y=SIN(X), trqbwa da naberete slednoto:" "3000Y=SIN(X) " : "sled kato ste wyweli rawenstwata," "wywedete: RUN500 I12000:I : "N.B. nqkoi ;b ***instrukcii za izpolzwane na glawnata programa***Ac:Nd::100|n"programa za ~ertane na trigonometri~ni"o"funkcii. naprimer: SIN(X),COS(X),"p"TAN(3*X) i t.n."x:"wywedete velanata funkciq na redowe:" "3000,4000     3,8??0  33~33333c333 k03>~>33333c333 0k03,8??0  33?3?c33  33 ?>>03 33 c30 >30?`c`c0ŠرǷرčÍàōōàūūàūūàūūčӍ ̠ؠùӍР ލ ؍à̍̍Рàر̍čÍàȍȍčРؠİİİİİİİİ̍ؠؠؠ ̠ؠŸİ¸ƷƍķРؠލַԮԮԮԮÍԮԮԮԮÍԮԮ̍ؠؠЍ͍ĠҬ؍Ѝٍٍ̩ӍҰؠұؠĵĵҲؠĵĵҳؠƍ̠ؠưŰðƸҠؠ̠ؠƶƴưҠؠƷŷƷ÷ÍàȍҠױȍÍàȍҠױȍÍàȍױٍ̩Ġ̬؍Ѝ͍Ġ̬؍Ѝٍٍ̩Ҭ؍Ġٍ̩ ׍Ҡˍ̍̍ҍ̬؍̬̍؍ȍؠķַٍٍ̍ĠҍٍҰٍ͍Ұٍ͍٠̍ҠױȍҍРàͱҍàҫҫР͍àͱӍ Ѝ ҲЍҍЍҫͱ٠ҩٍѠٍɠԍҩٍѠԍ٠ҩٍԮһōҠ؍Ԡàҍ̅ʏʃʞʅʎʸʮʡ٠ҍҫؠڷҩٍٍŠڷàҫ؍ŠڷӍʇʁʞʇʞʒʘʟʎʆŽ͙ʋʌʾʣʲʄʞʞʎʍʥʹ‰ʯʙ4,200,27.8,139,80,0.208,31,30,20,80,1,78,40,20,80,1,100,30,40,80,1,100,10,30,80,1,100V  R111P,Q,K,S,B"1(H(1)61A2K3H540K<(H)VFA1BePXK(PA)tZYK(QA)dX135,Y90nX135,Y90x:A$:::U 7,30,90,1,200,20,10,80,1,72,2,4,90,1,100,3,4,90,1,200,4,3,90,0.5,200,4,3,90,0.  ɛLL{,LL{%$|Ij L{%$ ?{%$~ 6{% $} 6{% $| 6{%$ 6{%$ 6{%&$ 6{`ʵʲʵʬʵʾʵʉʉʓʟʋʉ0`5{ 4{4{5{ 05{5{ L{` HJJJJ A{h) ɺiLL{%$HH Dz(tz)hg())))f())))e())))d())))c())))b())))a())))`())))$$($%%%h`,)ɍ  !!""#$$%%&&'((((((((PPPPPPPP@P@PAQAQBRBRCSCS@P@PAQAQBRBRCSCS@P@PAQAQBRBRCSCSиpX@8Qj攥8eu8e||e}}e~~e`8 $y z愥F֩慥=` Dz&tz'yy)먹yy iy'i' iy'i' iy'i'&=y=y&Ƚy1&=y&`ժժժpaC?~|x` `򄊥0$ȱ  w(  w@$Lx8|D|}}~~ةF慠F慩ȑȩ@Dȑ慥;ީF慠F xLx@ `0Ez쥅E{Ez쥛E{Ez쥙E{I0I)I)LcwQ)婀1 ) ) 8 $y8 $y` E E ` wB xȄ x x wʥ wLw )@@ @@x@z0))LRvQ)驀1 ) ) 8 $y8 $y` E E ` v vƜ` ) 0$)F ) 0$)=LwxyTxxy<yyx$yyx xy榥 [?7 uP4{5{u4{5{ 04{u 0uΩ%&$ 6{` u uƗ` ) 0$) ) 0$$ L{ L{ L{ L{z L{%$z 6{ 6{ 6{ 6{%$ L{ L{ L{ L{ z L{%$ z 6{ 6{ 6{ 6{%$ L{ L{ L{`L`u8,0 Hh,ɛɒLjɅLnɓ ILtx |21:"* e nomeryt na syedinitelq za printera":O }*minawane w grafi^en *l ~*revim * "natisnete koj da e klawi[";:ZZ$:16304,0: C304,0:120 Ctae to^ka"& 6"l ^ertae liniq"D @"i iztriwa ekrana"n J"p* izwevda ^erteva na printer" T"cw smenq cweta" ^"za zapiswa ^erteva na disketa" h"^e zarevda ^ertev ot disketa" r"k kraj na programata"2*G CO$"za"Ą"ime fajl ?";FO$:(4);"BSAVE";FO$;",A8192,L8192":120d *zarevdane na risunka * *ot fajl * CO$"^e"Ą"ime fajl ?";FM$:(4);"BLOAD";FM$:120 120 !*opisanie * "16303,0 ,:"t ^erī230 (CO$,2,1)"9"ī2307 (4);"PR#";(CO$,1)E (9);"G"b *samo za GRAPPLER+ *s (4);"PR#0"| 120 *promqna na cweta * CO$"cw"Ą"cwqt (1-7)";CO:CO:CO0:120 *zapis na risunka * *wyw fajl 0, CO$"l"Ą"ot X,Y";X,Y:"do X,Y";X1,Y1; X,YX1,Y1D 120a *iztriwa ekrana *t CO$"i"ī200 :120 *minawa w tekstow * *revim * CO$"k"Ĺ16303,0: ((CO$,1)"p")ī260 (CO$,2,1)"0"P glawna programaZ#d*n7Yx:24:"komanda (o za opisanie):";:"";CO$vy*ako trqbwa opisanie *CO$"o"İ290*]e se risuwa to^ka *CO$"t"Ą"koordinati X,Y";X,Y:X,Y:120*ako ne e liniq * CO$"l"19     6{ 6{ %$ L{ L{ L{ L{z L{ %$z 6{ 6{ 6{ 6{ %$ L{ L{ L{ L{z L{ %$z 6{ 6{ 6{ 6{%$ L{ L{ L{ L{z L{%$z 6{ 6{ 6{ 6{% 6{ 6{ 6{ 6{ %$ L{ L{ L{ L{z L{ %$z 6{ 6{ 6{ 6{ %$ L{ L{ L{ L{z L{ %$z 6{ 6{ 6{ 6{ %$ L{ L{ L{ L{z L{ %$z 6{ 6{`%$}Ij L{%$ L{,Ɉ 0L+qɍ`L_q%$ L{ L{ L{ L{z L{%$z 6{ 6{ 6{ 6{%$ L{ L{ L{ L{z L{%$z}𷩈 p;%$ ~Ij L{ |H%$'~Ij L{hɛ`Lp p`뷥췠詷  ` H%$}Ij L{h 6{ |%$'~Ij L{~ؐ Loz Ix%$}Ij L{%$}Ij L{ q䪰|}~ tq%$}Ij L{ { o%$}Ij L{ {Lj oL,T,Q %lpЅ@eeee⤑|e|}e}~e~eݩxy 5{ 4{4{5{ 05{ Ix "|L3mL:l Ix % $j}Ij L{NH &hnnnڢnLn`   H&h8 z8|};vT(I0)(W$):I0I01*I0101ī5703550Iklawi[ za prodylveHie")A$:A$""500/I tekst ot klawiaturaf"wywedete tekst ":oI01w&W$0W$"."ī590:I1I0:I00:::280DW$" "ĺW$;:550N((W$)13):::X(W$)64(W$)91ī620b(7);:550lW$a zHaka kyM podprograMata O806:izwevda morzow kod na znaka kym goworitelqM1AN:M:: zakysHeHie Mevdu dwa znaka ot syob]enieto KM13A3N::M: zakysHeHie Mevdu dwe grupi " ";J(13)I::"HatisHete ifri,bukwi i cifri)/grupa 8 6II320,330,340,350K @LB(1):370:^ JLA(1):370: TLLC(1):LL320,320,330: bukwi/cifri w otHo[eHie 2:1 ^I0I01:I0I1ī490 hLT(I0) r(L); |L58LL48 L64LL55807,L: predawMevdu 4 i 24 duMi/MiH ? ";I%0 I%4I%24200B NSPEED(I%):Q I%15270u sMeHq koHstaHtata na skorostta A50:823,15:828,45:841,15 II4ī520 I110:10 reda "J16: 6 grupi/red ,K15: 5 znaka(bukwi,c((1)3)1: koMbiHaciq9 :"test Morzowa azbuka ":V "izberete revim: ":j 10);"1 bukwi"~ 10);"2 cifri" 10):"3 koMbiHaciq" 10):"4 tekst": II:II1II4130 "HeobhodiMo e da wywedete skorost" "cqlo ^islo 5,174,91,3 76,93,3,96H 1050,750,575,450,340,245,175,120,75,25,0k 145,120,97,75,58,43,35,16,8,0x 2I1114 <A:767I,A:I FI424:SPEED(I):I PA100 dA(A)((1)10)48: bukwi nB(A)((1)26)65: cifri  xC(A) - 173,17,3,141,36,3,41,7,141,37,3,46 P 36,3,176,5,169,26,76,61,3,169u 78,141,92,3,169,192,141,95,3,32 93,3,169,26,141,92,3,169,0,141 95,3,32,93,3,206,37,3,208,215,96 48,7,173,48,192,136,208,5,206 92,3,240,9,202,208,2447obu^enie za priemane na telegrafni syob]eniqO:15);"po^akajte"eSPEED(24),T(100) 253,125,61,29,13,5,133,197,229,245 66,132,164,131,1,36,195,4,2,116 163,68,194,130,227,100,212,67,3,129 35,20,99,148,180,196,32,2      8 $yLm8 $y愥Fϩ慥=L3m%$ 6{%&$ 6{xy#z{; "I L:l@8 $y z愥Fܩ慥=Ц ) ) wƖ x "|0L:l0 8iة|}~,P,R,U,W Ix "|L3mLn u vLlLl来őLl t lzex0Fz{ey={z@z@50 xyLmz8{ $yL:l z8{ $y`0xy L:l z0|Ij L{L)k|Ij L{ {ɛLk%$|Ij L{ {ɛ %$ }Ij L{ %$-}Ij L{ |ɛJ |ɛA |ɛ8 |ɛ/ %$F}Ij L{ |ɛɱɺ)LkLj Lkza[\VWQRMMHIDE@A==9:663300-.++()&&$%"# !AEILOU\ohhmap++++++ȱ =i  =iiFȱeHȱeh`,j`,$     ; "I  Ix%$,0 u vꦖ cjꆖPLh,ɘLjalLj i-ȹi,.8/-./`--0./` --0./` ,,0./`,,0./`øz{stmmggajIz x%$}Ij L{ 0    #   C &     9   ;  "   ,P,R,U,W 8 $y愥F慥=٩F ҍҠƍɠРұűРŠҰŰҠԍɠűҰР̭ҍŠРԍР̭ōŠŠҠҍҠҍӍ ٍčҠōӍ ҍ֬؍Ġƍְҫ٠֬؍ɠٍؠٍĠƍҫҫ٠ȰٍРѠ߰ҩٍРѠ߰ҩٍРѠ߰ҩٍР """"    0" "H ,H0360! 6HH121 @N(255HD)H JN32767NN65535U TVAR(N)^ ^290d hI 10,76 11,0:12,3 :< *** do tuk e ***Y *** podprogramata za***{ *** izwevane na zwuk*** * samo za demonstraciq * :"wywedete konstanta:ot 1 do 255" D "natisnete klawi[ite ot 1 do 9" "izliza se s towa e *' Z * prodylvitelnostta *D d* H=1 do 128 i towa e *a n* dylvina na wylnata * x*********************** I768786 : C:I,C:I : 32,12,225,172,161,0,173,160,0,32,168,252,173,48,192,136,208,244,96,10 e# *********************** H * wkl@^wa redowe za * m * polu^awane na zwuk * ( * ^rez USR podprograma* 2 ***********************< * wika se s VAR=USR(N)*F * N=(255*H+D) * P * D=1 do 255 i   z#?? ԠIJ " 렠 頠  נ ˠǠ 񠳠  頠頠頠 粠 ᠠ堠򠠠񠱠񠲠 堠 頠!䠠ᠠᠠ 젠 򠠠  堠 񠠠䡠 砠 堠堠  Š ᠠ 񠲠񠳠頠 ϠɠŲ ˠDZ  X,Y:  c 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,26,3,196,134,0,0,1,0,0,96,1,0,1,239,216(IO13)0EFFA:: wqrno(EFTR::gre[ka2:1052:1052<"gre[ka NO ";(IO13);"pyte^ka ";NT;" sektor ";NS F:"movete da powtorite s:"(posledna disketa be[e ";DN$;" )"]:"slovete druga disketa"::"dajte nomer(ime)":"ne powe^e ot 4 simwola :";DN$((DN$)4)DN$DN$" ":1220(DN$)41210:"po^akajte . . . rabotq":760X029Y:AD((RSTWPO))%8NA$(EN)NA$(EN)N$-BPOJL gotow red za sortiranejVNA$(EN)FT$NA$(EN)FS$DN$r`SEzjCStX9(0)~::"druga disketa? (d/n):";AN$:AN$::(AN$"n"AN$"N"):AN$"d"1150:"swobodna pamet = ";X9(:FTFT128=FT$"?": ako e edin ot nestandartnite tipoweOFT0FT$"T"aFT1FT$"I"sFT2FT$"A"FT4FT$"B" broj zaeti sektoriFS(RS33):FS$S3$(FS):FS$(FS$,3) ime na fajlaNA$(EN)""$PO130.N$2)fNT0810lp prenasq wsi^ki danni za fajlowete na disketata w masiwa na ob]iq katalog za sortiraneyzCS1SCSE17RS((BA256)(CS256)11(SE1)35)FT(RS2)(RS)2551120(RS33)01120ENEN1 (FT128)1260:now RWTS,IOB.BPBA256:NT17:NS15p  osnowen cikyl za ^etene na celiq katalog na wsqka disketa~*BPBP2564IO9,(BP256):IO4,NT:IO5,NS>768: ^ete sektorH1310: prowerkaREFTR1330\SCSC1:NT(BP1):NS(BP na stranicaf((X55)(X55))::(12)::::15);::"ob] katalog stranica ";((X55)1):::l kraj na izwevdaneto(4);"PR#0"::SC0na^alno ustanowqwane na parametrite za pyrwo ^etene na wsqka disketa stranica 1" :@ &pe^at na izrawnen red ot katalogaL 0X1ENT :S6b DX10S7p NX99S5 XS);X;2); b(NA$(X),1); l2); v(NA$(X),2,30); 2); (NA$(X),32,3); 2);"disketa "; (NA$(X),4) krajINCR(INCR3) INCR0340* (7)O  kraj na SHELL SORT t  izbor na pe^ata]oto ustrojstwo :5:"wkl@^ete pe^ata]oto ustrojstwo" :"posle natisnete klawi[":AN$: (4);"PR#1" (9);"80N" :15);"ob] katalogat"! :"ne prekyswajte . . .", "INCR1; ,NN(EN9)M 6INCRNN340_ @INCRINCR31h J310y TJINCR1EN ^IJINCR hX$NA$(J) rI0420 |X$NA$(I)420 NA$(IINCR)NA$(I) IIINCR 370 NA$(IINCR)X$ J razpoznawane", :"(do 4 simwola) :";DN$K (DN$)4DN$DN$" ":200] (DN$)4190 :"po^akajte . . . rabotq": EN0 760 :  programa SHELL SORT  :10:(7):"sega po^akajte dokato":EN;" fajla se sortir:2 xBA34500:TR1:FA0:EF0:AD768:IOAD9:TW2 imenata na fajlowete sa w masiw ot nizowe NA$().dopuskat se ob]o do 750 fajla: NA$(750) : S3$"000" "postawete pyrwata disketa w ustrojstwo 1" :"i wywedete nomer (ime) za{  ************************: izwevda spisykV na fajlowete ot t( nqkolko disketi 2 DOS 3.3 < ************************F34000P:Z:10:"ako ste gotowi,natisnete klawi[";dAN$ n:10     1012,0::5,"DELETE P1I"?"DELETE P3I"R"DELETE ADV"[52l "BLOADP1I"}("BLOADP3I")32768,96:24704-"BLOADADV"2337094216,06643677<"RUN HELLO" 1 ili 2=>] ne se priema.]20:1:958n]"ustrojstwo(1 ili 2)?";DI$::DI$"1"DI$"2"ĺB$;:24040]20:1:958:D(DI$):791,D:805,D:a********************* a kraj na programata I,1)(HX$,K,1)ĂK0ZZZK1:38400JI21,Z7ZIQZ izwevdane na buferau[SP38400:LN128:J127SP38528[10000:]********************** ] ustanowqwane na disketno ustrojstwo ] ako ne e$)2)0)((Z$)2(K1))ĺB$;:23170;Z ako e newalidnaIZKK(HX$)XZI1(Z$)ZK1KK:((Z$,I,1)(HX$,K,1)):K:B$;:23170ZIZKK(HX$)ZI1(Z$)ZK1KK:(Z$,I,1)(HX$,K,1):KZZ16(K1):II1:K1(HX$):(Z$,Z$(HX$,1(Z16),1)(HX$,1Z16(Z16),1):IHdZ20:1:"danni:";Z$nZ wywevdane na nowite danni ( [estnadeseti^ni cifri w sy]iq format )xZako sa izwyn obhwata=> ne se priemat%Z21:1:"nowi :";Z$:((Z$)0)(Z$)30((Z$)2((Z0ĺB$;:23040" Z ako ne e cifra1ZI1(Z$)`Z(Z$,I,1)"0"((Z$,I,1)"9")ĺB$;:23040g(ZI2Z ako e izwyn obhwata0NR(768)0ė::10::05::"w/i gre[ka pri dostyp za zapis "XRU********************** U otpe^atwane na sektor V ]e se izwevda kym syedinitel s e": pNSP38400:LN128:10000% zNU R********************** R zapis na sektor Rwywevdane na nomer na pyte^ka i nomer na sektor ot klawiaturata &R600000R zapis na izbraniq J 4Nwywevdane na nomer na pyte^ka i nomer na sektor ot klawiaturataU >N60000 HN^etene na izbraniq sektor s RWTS RN801,1:IOB(13) \N769: wika RWTS, pri gre[ka $300<>0  fN(768)0ė::10::05::"w/i gre[ka pri dostyp za ^eten ~'Z$(TR$,Z,1)9 'Z$;:J:"* ";:10160:Z$;:F3ĺH 'SPSP8:Ii '"pyte^ka ";T;" sektor ";S: ' zapylwane na Z$ 'Z$((I1)8OF) '(Z$)3Z$"0"Z$:10170 ' N**********************  *N ^etene na sektor e PRINT 1 $'F3ėA .'OFSP38400b 8'I1(LN8):10160:Z$;" ";m B'J03x L'K01 V'Z(SP2JK) `'Z$(HX$,1(Z16),1)(HX$,1Z16(Z16),1) j'Z$;:K:" ";:J t'" *";:J07:Z(SPJ):Z0Z$".":10120zbor na revim. F61000: men@ ^ P prehod kym podprogramatana izbraniq revim ZF20000,21000,22000,23000,24000,25000,26000,27000 d70 '********************** % ' izwevdane na bufera na ekran, ako revimyt ne =- ************************* q obsluvwane na sektor ************************* ( na^alno ustanowqwane262000:poqsneniq, osnowni nizowe, RWTS+IOB < i      642604,(54336)4 "bejsik za mikrokomp@tri" >qwa}a Y kato F(X), zawyr{wa}a s 'RETURN'"O "(3) startirajte otnowo s 'RUN'" :"za da se izobrazi grafikata, natisnete 'now red' i sledete syob}eniqta!" " w n i m a n i e ! ":"ne modificirajte redowete s nomera ot 1 do 300 wkl., za}oto }e ):"programa za grafiki na funkcii"X"======================================="s"napisana ot b.qnkow") :"ako velaete da promenite wywedenata funkciq:":"(1) natisnete ~erweniq buton 'RESET'":"(2) napi{ete ot red 1000 podprograma, iz~isl   䠲젴𮱲却rojstwo 1 &3083,96,3084,1G 0opisanie na disketnoto ustrojstwol :3104,0,3105,1,3106,239,3107,216opisanie na disketnoto ustrojstwo N3104,0,3105,1,3106,239,3107,216SJ  3072,169,3073,12,3074,160,3075,10,3076,32,3077,217,3078,3,3079,96u opisanie na uprawlqwa]iq blok IOB  3082,1,3086,17,3085,0,3088,32,3089,12,3090,0,3091,32,3092,0,3093,0,3095,0,3096,0,3097,96,3098,1 syedinitel (slot) 6; ust rA1380,390,400,410,420,430,4400 |A28206:> A28241:L A28276:Z A28311:h A28346:v A28381: A28416: dostyp do sektor 3087,A4:3094,1 3072:A3(3095) A316A332A364A3128Ā  powikwane na RWTA4015:460 A117:3707 ((A23)255)320Q otkrit e iztrit fajlh (A23),((A229))y "(A229),160 ,3094,2 6470 @A1 JA4 T kraj bez gre[ka ^D$;"CATALOG": hotmestwane na imenata na fajlowete w bufera"itite AN$:* 44505,234:44506,234E D$;"CATALOG,D1,S6,V0"] 44505,48:44506,74 :"wyzstanowqwane na iztrit fajl? (d/n)";AN$ ((AN$,1)"d")Ā powikwane RWTS;IOB i DC A1127:A2,A3:A2,A3: po sektori na kataloga md wyzstanowqwane na fajl4n::D$(13)(4)\x"wyzstanowqwane sled DELETE";(13)"postawete disketata ";(13);"w ustrojstwo 1 na [esti syedinitel";(13);"i natisnete klawi[" pylen katalog na wsi^ki fajlowe,wkl@^itelno i iztr nnite2 "iwan petkow 441179 mladost 1 bl. 20 a"Y "iwan petrow 728853 wolgograd 32" "mimi iwanowa 311214 wito[a 82a"  "stanislaw georgiew 41443 g.dimitrow 2 bl. 49 b 12"Ba A$ 290 I0250( 140H " tuk zapo^wa podprogramata_ ,I1(A$)(B$)1y 6(A$,I,(B$))B$340 @ JI0 T ^"dumata '";B$;"'lipswa" h190 r"dumata '";B$;"' powe^e ne se sre]a!" |190  ot tuk zapo^wat daumata '";B$;"' se namira w zapis: "- A$:V "da prodylva li tyrseneto? (d/n):";b C$:C$y C$"Y"C$"d"240 "druga duma? (d/n):"; C$:C$ C$"Y"C$"d"30 pregled za sledwa]o sre]ane na niza 370:kraj na spisyk  "*informacionna sistema*"?"tyrsi sywpadenie na niz"Ek(wywevdane na niz ot klawiaturataq2<"kl@^owa duma? "FB$P pregled do pyrwo sre]ane na nizaZ350:kraj na spisykadA$n290xI0100# "d   $:X95:Y1851040DA$L2$:X0:Y125:VL1:R48:* zawyrtane *N1040d A$L3$:X32:Y175n1040 A$L4$:X12:Y20:SC2:1040*A$L5$:X120:Y5041040>A$L6$:X40:Y70:1040HA$L7$:X42:Y168:R48:1040 RA$L8$:X63:Y168"'T2$"za obu^enie":T3$"s grafika"GT4$"laboratoriq":T5$"fre"VT7$"wmei"T6$" t)ekst p)romqna i)ztriwane k)raj" *** izwevda nadpisite *** na demonstraciqta *** parametri:SC,R,VLSC1:* skala(ma]ab) * A$L1N21,V22,V:V(X *** etiketi ***FbL1$"h - os":L2$"u - os"plL3$" 10 20 30 40 50 60 70 80 90 100"vL4$" grafi^en tekst":L5$"na"L6$"bejsik za mikrokomp@tri"L7$"bylgarski":L8$"personalen"L9$"mikrokomp@tyr":T1$" praweconstraciq * ::3::0::1/  *** osi ***I 23,3823,172279,172`  *** horizontalniy  *** markeri *** H4523421 H,173H,174:H  *** wertikalni markeri & *** i skala *** 0S18 :V1504521DS15,V3:SS1 stranica";:Q$:470 h7 r *** podprograma, koqtoU | *** izwevda nizowete***d I1(A$)y S(((A$),I,1)) (S32S64)ĕS31X,Y:XX7:430 S63X,Y:XX8 I YY30:X0 :kraj na niza * grafi^na dem 41 42 43 44 45"H L5$" 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60"b "L6$" 61 62 63 64 65"| ,A$L2$:X0:Y22:1660 6A$L3$:1660 @A$L4$:1660 JA$L5$:1660 TA$L6$:1660 ^:21:" za demonstraciq ":"na wtora grafi^na,Y XX18:X266X6:YY30& Si 21:"wywedete ":"za nomerirane na simwolite";:Q$ L2$" 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15" L3$" 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30" L4$" 31 32 33 34 35 36 37 38 39 40Z371201 d(4);"BLOAD tablica.simwoli,A37120"L n *** zarevda simwolnah x *** tablica s na^alen *** adres=37120 *** 232,0:233,145 :: 3:0:1 L1$"nabor simwoli" A$L1$:X80:Y0:380 X6:Y12 S165 SX ************************=* *[* grafi^en tekst za *y(* bylgarski personalen *2* mikrokomp@tyr prawec *<* *F************************ P *** simwolna mreva ***   R(I) &M3M2J 0M3,(M31)' :I. DJ8 N::D XL1L11P bL2L21h l"molq, po~akajte!"q v510R07 J07 LL18 R(L)8191128I1024J40K? JF IM Ko  premestwane na wsi~ki danni  ot grafi~nata stranica na  edna stypka w lqwo L15:L235 U11:U2159 L1L11 :: JL1L2 IU1U2 M2DA1: stypka (w gradusi)- X0,Y0: centyrH FI0360DA: gradusiY ARPIFI180k XX0RA(AR)} YY0RA(AR) "X,Y ,FI 6: @R(192) J:: T"molq, po~akajte!" ^ formirane na masiw ot adresi hL0 rK02 |I1;"-"279RA") = "; xX0% ::P "KOOrdinata Y0("RA1;"-"159RA") = ";X Y0y wywevdane na izbraniq cwqt :: "cwqt (0-7)= ?";CK :: ~ertane na okryvnostta "R = ";RA;" (X0=";X0;";Y0=";Y0")" PI3.1415:CK r *~ertane na okryvnost*; (po zadadeni X0,Y0 i R)AK(:20f2 wywevdane na radiusap<::F"radius R= ";RAP wywevdane na koordinatite na centyraZ (presmqtat se i dopustimite stojnosti)d:: n"KOOrdinata X0("RA    232,40,192,216,195,45,45,0" ck 213,213,213,213,213,213,45,05,21,197,197,235,232,232,232,232,40,0 s d 9,173,171,171,171,171,107,210,213,195,27,197,197,67,67,67,67,169,171,171,171,171,43,45,5,0$ e. 45,45,213,219,171,171,43,45,2' 42,40,173,213,171,27,213,213,42,0/ `} 41,173,219,171,171,171,171,171,45,45,216,3,40,197,43,45,216,107,197,5,0 a 18,5,40,168,21,213,213,213,213,221,219,197,197,45,45,216,27,5,0 b  170,171,43,45,213,219,213,157,45,45,71,210,42,45,40,40,216,27,45,45,24,197,5,0 4H :JR 82,169,19,5,0 R\ ;pf 82,169,19,213,213,43,0 xp <z 82,5,40,168,210,219,21,21,21,5,0 = 18,45,45,213,219,19,45,45,5,0 > 169,21,21,213,171,27,213,43,0 ?147,21,45,5,40,24,197,5,0! 6a 10,5,40,173,218,219,213,45,173,219,171,171,45,5,40,24,5,0i  7 45,45,213,213,171,27,213,171,171,43,0  8* 41,173,219,171,171,45,213,219,213,21,45,5,40,24,5,192,197,5,04 9,> 41,173,219,171,145,0  2B 42,40,173,213,213,27,173,219,213,171,43,45,45,0J 3 45,45,213,213,171,27,173,219,19,21,45,5,40,24,5,0 4 82,213,171,147,73,197,197,219,45,45,197,43,24,197,197,221,42,0 5 42,24,45,45,149,219,27,45,173,219,0 , : 146,74,213,213,43,0(D -<N 146,45,45,5,0DX .Xb 146,146,9,5,0`l /}v 146,18,5,40,40,40,40,0 0 41,173,219,171,171,171,43,213,171,45,5,40,24,197,27,13,197,43,197,5,0 1 9,213,43,213,213,213,213,213,43,216,13,5,0  '&  9,213,213,5,0.  (S  9,213,171,27,213,213,21,21,5,0[  )  9,21,21,213,213,213,171,27,5,0  *  106,168,107,213,219,45,213,171,27,45,213,219,13,13,213,27,5,0  + & 74,213,213,27,45,45,213,27,213,5,03,197,219,45,45,197,43,216,27,45,45,197,43,24,5,09  $  9,213,43,45,213,219,107,213,43,173,27,13,213,219,43,45,213,43,0  %  173,27,109,169,27,213,171,27,213,107,41,213,43,5,0  &  169,27,13,213,27,13,213,171,27,213,21,109,197,43,!  12,4,35,4,58,4,73,4,85,4 ' "> , *** opisanie na ` 6 *** simwolite *** r @ interwal | J 1,0 T ! ^ 9,213,213,213,213,149,43,0 h " r 105,213,27,13,213,27,13,5,0 | #1  169,171,155,169,155,10,13,197,27,1,167,1,178,10 197,1,215,1,220,1,227,1,238,1O 248,1,1,2,11,2,32,2,51,2t 69,2,87,2,113,2,129,2,149,2 162,2,180,2,200,2,225,2,242,2 4,3,26,3,45,3,62,3,80,3  99,3,115,3,128,3,139,3,154,3  176,3,197,3,212,3,226,3,244,3imwoli *** n x 65,02 *** ukazateli kymG *** na^aloto naa *** wseki simwol *** 132,0,134,0,142,0,151,0,176,0 195,0,210,0,228,0,233,0,243,0 253,0,15,1,26,1,32,1,37,1 42,1,50,1,71,1,82,1,96,1 112,1,130,1,149,1 ***********************;* *X* syzdawane na znakow *u(* generator za *2* grafi^en tekst na *<* bejzik za prawec *F* *P***********************Z d*** broj s      60DA ARA3.1415180+ X1X0R(AR)= Y1Y0R(AR)[ 0:iztriwa stariq radiusj X0,Y0X,Yx XX1:YY1 7:^ertae nowiq radius X0,Y0X,Y A KK :: :iztriwa cqlata stranica 20O " na^alno ustanowqwaneEX0140: centyr (koordinata X)h(Y095: centyr (koordinata Y)r2::<"radius R= ";RF"stypka DA=";DAP49234,0:bez 4 reda tekstZ izwevdanedKK15:broj zawyrtaniqnXX0:YY0 xA03     5:"(klawi[yt 'p' prekyswa ^ertaneto)"R 18:"matricata se zapylwa bez wry]ane" 19:"nazad. simwolyt se pokazwa otdqsno." 23:"HatisHete klawi[";:KP$ (:1030 2.* 18:"konturnata tablica na simwola"N 19:"se obrazuwa awtomati^no." 23:"HatisHete klawi[,za da prodylviM";:KP$ :9:"kwadrat^e ot mrevata se zapylwa" 11:"s ili ostawa prazno" 13:"pri wseki drug klawi[."& 1 tC$"4"Ā ~10308 D$:D$;"RUN format opciq 2"Y D$:D$;"RUN format opciq 3" :6:" znakow generator za prawec" 11:"s tazi programa movete da syzdawate 13:"simwoli, kato gi ^ertaete wyrhu " 15:"podhodq]a znakowa mreva15:"molq,po^akajte malko"6 :10:"1) razqsneniq"\ 12:"2) syzdawane na now simwol" 14:"3) izwevdane na simwoli" $16:"4) kraj" .18:" izberete sega..." 8C$ B LD$(4) VC$"1"ī1180 `C$"2"ī1160 jC$"3"ī1170 ********************7 * forMat *R * znakow generator *m * 12/16 za prawec * ********************::2:"==========================":"prawec - zHakow geHerator":"=========================="34,6 12:JjM3,(M31)tJ~I+L1L117L2L21A7500Gc@ ********************* R************************ ***************zL0"K02-I078J07BLL1bR(L)8191128I1024J40KiJpIwK}X *********************]7410L15:L235U120:U2150L1L11LIU1U2QM2R(I)VJL1L2`M3M2FI) YBR(FI) X,Y" ( $I 190,70230,32240,45190,90O p 190,70240,45250,65190,90v ~ : 10 22 "molq, po^akajte malko!" 6000 7000   * o,^udo!  * koteto se dwivi! p ******0 d * da dadem na 8 e * hudovnika po^iwka *@ f23g g"da se premestq li? da,ne ";RP$:s hI150y r s * neka zritelqt t * ne byrza! * u((RP$,1)"d")ī290 |5000 PI3.1415 FI02PI0.05 XAR(S16336& / * risuwame zenicite *7 665,4565,55H @85,4585,55O A0Y B2000` C3j D2020 E * neka myrka! * JI1300:E(S): T * iztriwame zenicite * ^0 _65,4565,55 `85,4585,55 a2020 b3 c200 na tqloto*  6j 100,50120,70190,70230,32240,45190,90190,120200,130200,140180,140180,130 180,130160,110120,110120,140100,140100,10080,80 110,110110,140 " * neka o^ite da migat # * i opa[kata da myrda * ,3 . A65 B50 1000$ A85. 1000J * da ne zabrawim f * [estte simetri^ni * mustaka * 40,6565,65 85,65110,65 40,8065,70 85,70110,80 50,9065,75 85,75100,90 * sega e redeR(192) (6@) * da zapo^nem s u[ite!* }250,2070,4080,40100,20100,6580,8070,8050,6550,20< * a sega - nosyt *F3P70,6080,6075,6570,60Z75,6575,75d * sledwat o^ite * n7xR6     $ ** SS$S$(I,1)9 S$(I,1)"A"S$(I,2)"1"SS$"D"^ S$(I,1)"B"S$(I,2)"1"SS$"E" S$(I,1)"C"S$(I,2)"1"SS$"F" SS$ T$T$SS$ 6:T$ I :( ** zamestwane na stojnostite na t$ sys syotwetni dwoi^ni stojnosti * presmetna li konturnata tablica?(d/n):0 KP$C KP$"d"3590` ** konturna tablica **h : I1192::2::"wektor:";I;" " 4:"komanda:";S$(I,1);" & ";S$(I,2);" = "; ** sybirane na masiwa za dwivenie s masiwa za ^ertane w niza TI:3V . KP$" "S$(N,2)"1":I110:(X10I),Y10(X10I),(Y1010):200X,10Y:I` 8 NN1p B N1922430 L (Y2(Y2))XX1 V (Y2)((Y2))XX1 ` X12Y2(Y2)XX1:YY1 j (X0)(Y2(Y2))XX1:YY1 t 2300' ~ 22:"da0" X0:Y09 22:"movete da popylwate bez wry]ane"d  ** cikyl za popylwaHe Ha Mrevata **m  KP$  KP$"p"ĺ" wie prekysnahte popylwaneto":"na teku]iq siMwol"::3590 $ KP$" "S$(N,2)"0":1:I110:(X10I),Y10(X10I),(Y1010):0 X,Y1X,YX,Y2:X1,Y1( Y,XD 22:"molq,po^akajte !"o  ** ukazwa posoki na dwivenie **  I119224 JII11:S$(J,1)"A":J JI12I23:S$(J,1)"C":J N1 S$(I11,1)"B":S$(I23,1)"B" I:I1192:S$(I,2)" ^ertane **: I1192:S$(I,1)" ":S$(I,2)" ":I:HE$""U  ** ^ertae Mrevata **` *:3:p 4I012010 >I,0I,160:I HI016010 R0,I120,I:I \0,159120,159 f121,40121,120 p122,40121,120 zX1210210 Y421121 *** format ***5 * izgravdane na simwol *@24576c:12:"molq,po^akajte malko "{S$(192,2),NA$(100)D(100),IN(100)SN0 ** pyrwona^alno ustanowqwane na masiw S$(I,1):posoka na dwivenie **  ** S$(I,2):pokazalec za   "؈y̮1w̮1"W ̮؀̮ؕ43ؘ̮̮AYɵʵȱ}  L L `l    9   ;  "   ,P,R,U,W 8 `x愥F慥=٩F,0 u uꦖ &jꆖP          ! ! ! ! !!!!!!!!!" " " " """""""""               (X)X  A1( P1P20ĺ"osta Y e izwyn ~erteva"Q MINMAX0ĺ"osta X e izwyn ~erteva"z (P1P20)A260(P1)Q:A,0A,160 MINMAX0B160(1MINR):0,B1260,B1 ,"funkciqta e neopredelena za X = ";X 6110 primerna funkciqYe sa prawilno zadadeni granicite i stypkata - otkazwam da ~ertaq!":130P 7200Z <1000o FYMAXYMIN110 PH260(XP1)Q ZV160(1(YMIN)R) dH,V nXXD xXP260 "natisnete 'now red' za wry}ane w na~alno systoqnie";A$ :ranica na Y = ";MAX8 ""stypka na izmenenie na X = ";Dr $D0ĺ"** nulewa stypka ne moga da tabuliram! **":34 (QP2P1:RMAXMIN *Q0R0ĺ"** neprawilno zadadeni granici - ne moga da ~ertaq";30 -:3 2XP1G 3P2P1MAXMIND0ĺ"nrazru{ite programata!" 300( A$t "velaete li promqna na granicite i stypkata - otgowor 'd' ili 'n'?";W$ W$"d"ī30 45 "na~alna stojnost na X = ";P1 "krajna stojnost na X = ";P2 "dolna granica na Y = ";MIN !"gorna gI KP$ ::3( 232,0:233,64; 114,0:115,64E 0:1S X10:Y10e I1N:IX,Y XX20:X250X10:YY20 &I 022:" iskate li da zapazite tablicata Ha teksta?" :" (d/n) " DYN$ NYN$"n"4550 XYN$"d"4400;IN(I):LOC(I2)1,0:4250? IN(I)256IN(I)IN(I)256:BB1S IN(I)2564260] 4230 (LOC(I2)),IN(I):(LOC(I2)1),B "zarevdane { ";NA$(I);" }";" ` ";B256IN(I)LOC :D$(4) D$"BLOAD zHak ";NA$(I);",A";B256IN(I)LOC NA$(N)"kraj"4130 NN1& 4070C "::"pokazwa indeksite"M ,NN1 6:"iMaMe ";N;" siMwola":"ot teksta w tablicata " @N0ī4550 J16384,N:16385,0 TLOC16384 ^I1N hIN(I)(N22)99(I1) rB0 |IN(I)256ĹLOC(I2), *** forMat ***B& *** systawqne Ha tekst ot simwoli ***XNA$(100),IN(100)c38399k:"wywedete ime na simwol":"(s se izwevda nabraniqt tekst)":"# ime"34,3N1N10ĺ" ";N")";NA$(N) noweniq masiw ot imena=b w posledowatelniq fajl "gradowe"glD$;"OPEN";F$: otwarq fajl "gradowe"vD$;"WRITE";F$: za zapisN0: broj registrirani gradoweIK1N0NA$(IK)IKD$;"CLOSE";F$: zatwarq fajla: :K)0 Zd:*p komp@tyryt otgowarq7zIK1N0X(NA$(IK),1)(EG$,1)6030lAV(IK)1ī6070tIK:" ne moga da namerq ime"IG$"kraj"6090IG$NA$(IK):AV(IK)0" izbiram: ";IG$:X zapiswa ob sywpada":5030IK1N02EG$NA$(IK)5180:IKKN03005140v "tablicata s imena e zapylnena":5030N0N01NA$(N0)EG$:AV(N0)0(52102 wywedeno e ime<AV(IK)15200F" towa ime we^e e polzuwano !":5030PAV(IIG$NA$(XI):AV(XI)00"pyrwiqt grad e :";IG$6<:f ^ete i prowerqwa otgowora na igra^al" wa[iqt grad : ";EG$EG$"kraj"5210(EG$)15070"imeto e mnogo kratko":5030(EG$,1)(IG$,1)5090"bukwata ne"d"2100 RIK11000:IK< \:: otkl@^wa i trie ekranaB fH p:r nulira masiwa na u^astieto w igrata na wsi^ki izwestni gradowe IK1N0 AV(IK)1 IK :  komp@tyryt zapo^wa igrata  XI((1)N01) na gradowe.":9 " pyrwata bukwa na wseki sledwa]":_ " grad trqbwa da e posledna ":| " za predi[niq grad.": *" napi[ete 'kraj',ako se otkazwate!": 434,15: zakl@^wa pyrwite 15 reda >:"gotow li ste? da,ne ";A$ H(A$,1) D$;"READ";F$: za ^etene& N03 IK1N0@ $NA$(IK)H .IKu 8D$;"CLOSE";F$: zatwarq fajla "gradowe"{ B L:  ukazaniq za igrata : " moga da igraq s was na gradowe": " ]e se reduwame da dawame imena": " samo edna igra? da,ne"; A$! B (A$,1)"n"(A$,1)"N"240^ IK11000:IK: zabawqg 110 7000: zapiswa otnowo imenata na disketata :  ^ete masiwa s imena na gradowe ot disketata D$;"OPEN";F$: otwarq fajla "gradowe" s imena ot disketata: n2000: dawa poqsneniq za igrataa x3000: oswobovdawa wsi^ki gradowe 4000: komp@tyryt zapo^wa 5000: igra^yt otgowarq EG$"kraj"180 6000: komp@tyryt otgowarq IG$"kraj"140 " ]e izigraem li o]e  ****************/ * izmisli grad *F ****************L(:b2 glawna programa~<D$(4): MK-D (CTRL-D)FF$"gradowe"PNA$(300): pomni imena na gradoweteZAV(300): pomni polzuwano li e imeto_: d1000: ^ete masiwa     ``aa䜰L1@00 څHHHH` ) GL@ 8鰰L L @_H^HL1@, ,խꥸ` Z ۆ` ,`$L܅^_hhhhHHHH L@ tB ": ,iȅȱ "e膫h_H^HqL G 奌  奫 L* @=HD$;"OPEN";F$HD$;"READ";F$RSV\IZfD$;"CLOSE";F$pz: ^ete opisaHiqta Ha eleMeHtite Ha zapisa i graHicestwa w graHicite*vNOMSV:IZ0NOMIZ0ELA$(1);": ";NOMWDA$(1)(NOM)dIK2N0wLA$(IK);"? ";DA$(IK)IK3ī720(DA$(3))0E11:760(DA$(IK))LE(IK)740"MHogo dylgo"::680IKE100ī570: HqMa iztrit / D$;"OPEN";F$;",L";L0I D$;"READ";F$;",R";IZc IZ: predi[eH iztritv &D$;"CLOSE";F$ 0580 :SVSV1 D N: X izwevda sledwa] kataloveH HoMer b ^ete ot klawiatura daHHi za Hegol prowerqwa dali se wMLOSE";F$ | :4  zapiswa daHHite wyw fajlaN D$;"OPEN";F$;",L";L0j D$;"WRITE";F$;",R";NOMw IK1N0 DA$(IK) IK D$;"CLOSE";F$  :  podgotwq ukazatel za sledwa] zapis  ot^ita,ako HqMa iztrit zapis IZsl.zapis ( w Hulewiq zapis Ha fajlaJ 160: kyM sledwa]o wywevdaHeP :| , zapiswa ukazatelite za swobodHo Mqsto 6 za sledwa] zapis @ w Hulewiq zapis Ha fajla JD$;"OPEN";F$;",L128" TD$;"WRITE";F$;",R0" ^SV hIZ rD$;"C^Ete sledwa] zapis< ot klawiatura,po eleMeHti Ha zapisaH E11Ām kraj ako HqMa wywedeHa faMiliq 500: podgotwq ukazatelite za sledwa] zapis,kato ot^ita iztritite 400: zapiswa daHHite wyw fajla 300: zapiswa ukazatelite zatel iztrit zapis% PD$(4): MK-DP ZF$"katalog":L0128: dylviHa Ha zapisi dLA$(9),LE(9),DA$(9)o n: x wywevdaHE Ha daHHi w kataloga Ha kolegite 900: ^ete opisaHiq HA zapisa 800: ^ete ukazateli kym sledwa] zapis 600: &  ***********************= * *[ * katalog Ha kolegite *y * * ***********************(:2 * NOM => HoMer Ha zapis w kataloga < * SV => ukazatel pyrwi swobodeH F * IZ => uka     F \FȅPQ F F \FȅPQ F F \FPQ F F \FPQ F F \FPQ F F WPQ Fn F \FxPQ Fn F \FxPQ F F \FdPQ F F \FdPQ Fd F \ F WAPQ FK F \FUPQ FK F WdPQ FZ F \F dPQ F2 F WxPQ FF F \FPQ FF F \F慠PQ F F \FPQ F- F \FPQ FZ F \FPQ Fx + dOX 8@* + dO(PQ FA F WAPQ FA F \FUPQ FA F WnPQ FA F \F(PQ FP F WAPQ FF F \FUPQ FF F WnPQ FP F \F2PQ FZFA F \F2PQ F F \F FPQ F< F WPPQ F< F \FKPQ FA F \FFPQ F< F \FKPQ FA F WKPQ FK F \F X 8@@ +X 8@ +X 8@H4000,A$4000 @UUCYFYHHꥅڄۦvuv3H A X  2PQ F F WFPQ F( F \FPPQ F( F \FdPQ F F \FdPQ FA F \FPPQ FP F \FFPQ FP F \F2PQ LFstopHHU^_R iGHH^_HH iG`eiop ӠȥLG^_ő:^)ȱ^ȱ^poŜ䛐 ^_^i^_` Fo8周pL⦠ F`H GhL*G^_ @L@BLOAD RTP.ILEʊHLEIšLE 6ȱ G L*0L`,-`L:L eȱe`PQ L>?`Lᆝ>?`LY$0`# \ۦuv $LWFHI8eopHH opqrh`L F8fh+i  0*1iȪHH`hhHHl< @HHhhDL HH HHLDhhLKE @hhDL1@ DLE` W`ʊ8$`LE$Li)$` LьHH G hhe^^_ L*HHHHHHL1@ @hhhhhhEL1@` @ *@`^^^^_iȪ + D S륅i Ȫ +HHHHDHHiȅ^_l^HHHH` @hhDL HHHH *@^_<= i 禃 G * = @LB tBLB JLB @hh_H^H `ߠ܅^_L@ۅHHH H*Lԅ`a``8e`aȍHH` HC vC *L@ HC`8e`aȅH JhŇĈLLvC`PE`%`lP @ r륷 440 TT$"srqda":420! ^4409 hT$"^etwyrtyk":420B r440V |T$"petyk":420_ 440t T$"sybota":420} 440 "deHqt e : ";T$  130 A(Y100) C4A(Y400)1 C1C1YC2C3C42I C1(B(C17)7)0.5W C1A(C1) C1280,300,320,340,360,380,400,400,400,400 T$"sybota":420 440 T$"Hedelq":420 "440 ,T$"poHedelHik":420 6440 @T$"wtorHik":420 J d:nA(CF)(CF)0xB(CF)CF(CF)6:V"deH <1 do 31> = ";Dv"Mesec <1 do 12> = ";M"godiHa = ";YM1:M13:YY1M2:M14:YY1C1D(2M)((M1)0.6)C1A(C1)C2A(Y4) C3  +*(ի*)۫--(+-k(--+-՝--(---( kCCCC+---۫+--- +kݫk+ (E@--ժM)+((խM) + խM) +Ւ-(( k jk-ի- J--J+-- (((()۫+ի-( + ++-*(ի+----ի-(RիI--+**---ۓ-( (-۫-(--իի+)۫--()۫*-((--RR+R(----`sA %*2GR`p  3EWq->Pcs #:IU Օ+i    --+--+ +-k+ +-+mիk)+  իm+   ի ի * t* s wypros *I *Ct* s wypros *It!t*otpe^atwa syob]enie*?t* s wypros * TtMSG$"?(Y/N) ";ftSROW(37)1x tSCOL(36)1 tREPLY$ tREPLY$; t(REPLY$"Y")(REPLY$"N")ĺ:29712 tMSG$"samo Y/N"t29600t29706tt* kraj syob]enie@lianski dni * 5s* syob]eniq za gre[ki*?sSROWKsSCOL2fs* izwevda syob]enie *s* i zwukow signal *sMSG$;(7)s* zakysnenie *sI11500sIsSROWsSCOLs868ss*kraj syob].gre[ki *"gre[ka den":29600:29505NxsYY0ĪMSG$"nqma nulewa godina":29600:29505iys* prewry]ane w *zs* @lianski dni *{sJDTE$((YY1000MTHBGN(MM)DD(LYRMM2)1))|s(JDTE$)4JDTE$"0"JDTE$}s~s*kraj wywevdane data*s* CNT0 msI"nsDD((GDTE$,2)):osMM((GDTE$,3,2))PpsYY((GDTE$,2))hqsLYR(YY4(YY4))|rsSCOL(INP$)2ssSROWtsSCOLus868vs(MM0)(MM12)ĪMSG$"gre[ka mesec":29600:29505ws(DD0)(DDDYSMTH(MM)(LYRMM2))ĪMSG$REPLY$"N"ĢSROW:29505- cs* data -> GDTE$3 dsA esGDTE$""M fsCCNT0k gsINP$(INP$,((INP$)1))| hsI1(INP$) is((INP$,I,1)"/"):CCNTCCNT1::29549 jsCCNT1GDTE$GDTE$"0"(INP$,I1,1):29548 ksGDTE$GDTE$(INP$,I2,2)lsCVsCH$"/"ĪCCNT0:295318 WsCCNT2CCNTCCNT1:29532R XsMSG$"gre[ka simwol"] Ys29600h Zs29514 [s((INP$,1)"/"):MSG$"gre[ni danni ":29600:29514 \sSCOLSCOL1 ]sINP$INP$CH$ ^sCNT _s((INP$)5) `sMSG$"OK" as29701 bsNT19 Is + JsCH$1 KsCH$(8)ī29523B LsSCOLSCOL1L MsSCOLV Ns868g OsCCNTCCNT1v PsCNTCNT1 QsINP$((INP$,((INP$)1))) Rs29514 Ss(CH$(13))(CNT5):INP$(INP$"/"):29535 Ts(CH$)47(CH$)57ī29528 UsCH$; r* za ust.na data * = s"wywedete data (dd/mm/gg), posle "w ?s @sSROW(37)1 AsSCOL3 BsSCOL Cs868 DsCCNT0 EsINP$"/" Fs*ograni^awa na^aloto* Gs*na niza * HsC21,152,182,213,244,274,305,3359 r* broj na dnite za *T r* wseki mesec *~ r 31,28,31,30,31,30,31,31,30,31,30,31 rMTHBGN(12),DYSMTH(12) rI112 rMTHBGN(I) rI rI112 rDYSMTH(I) rI r r* kraj na podprogr. *!  2940029500+:"gg/ddd = ";6(JDTE$<2Xr** ustanowqwa data **sr* na^alo na mesecite*r* za newisokosni *r ako pyrwiqt den e 1r =>na^alo na wsi^kir meseci po osta nar wremeto  r 001,032,060,091,1      8@H C  ,D DCYHHhh EHH r@dhh ߥLaOLHM 9QY 8@IV +Y 8@ + 8@ CY D C 8@|L * ,D YX CX CY D  ,DXX RP 㦁 + D APQ F- F WAPQ F7 F \FUPQ F- F WUPQ F7 F \F P oP Y IB r@da se premestq li? da,ne = UBCY B (C XX 8@ +FPPQ FP F \FnPQ Fn F WnPQ F F \F X 8@@ +APQ F- F WAPQ F7 F \FUPQ F- F WUPQ F7 F \F oP PX 8@ + 8@ Calna rabota w registyr kirilicaM (KB43KB90)(KB97KB122)120b KB96:KBKB32o NVKB43 PNA(NV):P48120 F,P:T:120$8758 nÇR:I,R xÂ: 03,0,185,164,64,0,135,121,145,152,57,52,128,96,242,88,72,195,114,228,76,255 dN147:DN:NA(N)DN:N n^etene na klawiaturata kraj s MK-C xC$ (C$"+")(C$(3))ī120 :KB(C$) KB3Ā' normPò ********************* * podprograma ton w * * blok danni za * * wkl@^wane w glawna* * programa na bejsik* *********************Zà 173,48,192,136,208,5,206,225,2,240,9,202,208,245,174,224,2,76,226,2,96 dÁI73M1ZK:"0";:ZMHIH0";:ZM:40520B>ZM1ZK:"0";:ZMHH ZB0ZKZD1:40470%ZC$(ZB)DZTZD:(ZC$)ZDZT(ZC$) KZ1ZT:(ZC$,(ZC$)1KZ,1)"0":ZKZK1:::KZ:ZKZTZKZT1ZIZBZA:ZC$(ZI) ZS(ZC$)ZK);ZI;*ZK0405204(ZKZT)ĺ".";:ZM1ZK1:::"0";:ZM:40520>Z X 55,78,79.6,55,99,33,45,76.00,0) b:I ************************ n  procedura za tabulirane  danni po zadaden format ************************ НZA("1E"(ZD)):ZB(ZZZA.5) ڝZI0:ZK0: 䝭(ZD0):ZK0::40470 190 ZD1 ZS8" . J115= ZZ:40400D JN ::W 190] c : &************************ 0 danni za warianti 2,3,4 :************************ D 33.44,22,11,32.40,1.555555 N 22.3,33,244,5,76.89,00.00# # M(M$):M1M6190D (M$,1)"P"Ċ1:PR$"P":280Q PR$"NP"o M10,290,370,450,530,100x "ZD2 ,ZS10 6 @J115 JZZ:40400 TJ ^:: h190 rZD0 |ZS5  J115 ZZ:40400 J ::treti format":, "4.^etwyrti format":::@ "5.izlizane":P "6.men@":n "izberete<1 - 6> ";M$:t : ************************ *demonstracionna ^ast 2* *formatirane - warianti* ************************ II:40400+ (ZD0::ZS4::ZZI10:::40400M 2ZD4:ZS9:ZZ(I)(I):40400S <Z FId P::j Z: d************************ n men@ formati na danni x************************ "1.pyrwi format": "2.wtori format": "3.*************************** O* demonstracionna ^ast 1 * |* danni s razli^en format* **************************  ^etiri razli^ni formata w edin red  I051.25ZD2:ZS7:ZZI:40400 ZZ     ,....%%%%''((%%''))))%%))%%''''(%(%,,1111111111111111,,..)),            %%%%            ! !           ! !                                       C 8@ D 禁 +LS8LL< <=U A ꦁ + Y%Y ꦁ +*Y C  ,D>Y9Y C Y D 禁 +>Y RHH>Y C 8@ D RP  hPhQP Y :EX :E%Y%Y C 8@ D 禁 +*Y*Y D 禁 + Y :EX :EY :E`L"S%Y 8@ +*Y 8@ +/Y 8@ +4Y 8@ +%Y%Y C 8@ D 禁 +X/Y ꦁ +4Y C  ,D9Y ,AX ᥡ Y 8@ + 8@` C  ,DYY C 8@ D 禁 + ,AY ᥡ<=U A 8@ C 8@ CX D D C 8@ C Y D D C 8@ CY D - F \FPQ FA F \FPQ FZ F \F` ڢ  Y r@molq, po^akajte malko! = rQ S Y 8@ +Y 8@ + 8@ C  ,DX 8@ + 8@` C  ,D D 禁 +YX CX CY D D 禁 + Y R FY F W D`PQ FF F W慠PQ F F \FPQ F- F \FPQ FZ F \F`PQ FF F WPQ F0 L` z `38200*aX(103)(104)256:ZX5DbAZZ275:(A)0ĂfcAA1:HI(A256):LOAHI256xdX,LO:X1,HI It Z37120.d(4);"BLOAD tablica.simwoli"H *** adres=37120 ***\232,0:233,145f::s3:0:14v RESET AN3 ostawa w1>v na^alno systoqnieKHv s wisok potencial.)QRvm\v** preduprevdeHie !!**fv za wkl@^waHe w pv telefoHHata liHiq zv trqbwa da iMav razre[eHie Ha v MiHisterstwo Hav syob]eniqta_od,a drugiq kym )uHorMalHo zatworeniqBuizwod Ha koHtaktiteRuna releto.Xusu telefoHyt Move da u byde polzuwaH v HorMalHo HezawisiMo v ot towa daliv MikrokoMp@tyryt e v wkl@^eH,ili ne. *v (ako e wkl@^eH ,sledr izwodite na(buuprawlqwa]ata HaMotkaCluna malko rele(5V40MA)]vukym izwodite:AN3,+5Vwuna igrowiq koHtroleru (#12 i #1 kra^e). uotka^ete kraq na edinuot prowodnicite nautelefonnata liniq iugo swyrvete kym ob]iquizw(PI$)1::2070p:2010, pri gre[ka4:DC1,0:C2,0b"How HoMer (da/He)? ";W$((W$,1)"d"(W$,1)"D")80/u0u za da izpolzuwate:ucifrowoto izbiraHeDuHa telefoHeH HOMer Nuswyrvete prez TTL XubufeW$D (W$"d")(W$"D")::"...................."::PN$NB$:160j*(W$"n")(W$"N")ĺ::FL1:2010x4W$:2080> pyleH pregledH((PN$)1)PI$(PN$,(PN$)1):2140RPI$""\W1((NA$)(PI$)1)f(NA$,W,(PI$))PI$W(NA$)syka :FL0;NA$,NB$:NA$"END"NB$"END"2050W(NA$,(PN$))PN$2070iPH$"?"2120s2010::5:(FL0)ĺPN$;" HE e w spisyka"::120 "HqMa powe^e "PN$" w spisyka"::120:NA$5)NB$:"tozi HoMer li iskate (d/H) ";: W$"n"W$"N"Ė16:868:"bez posledstwie":4009460Nspisyk imena najwavni telefonni nomera povar,160,byrza poMo],150 to^no wreMe,180,kino,191 telewiziq,193 stanislaw,4-14-43END,END: pretyrswane na spi" gre[ka - ";:((PN$,LL,1));:13:":";s W110:W((16336)(16336)(16336)(16336))0W:W: sigHal " otkaz? (d/H) "; W$:(W$"d"W$"D"):O2,0:::15:"otkaz ot powikwaHe":O1,0:W11000:W:PC1,0:C2,0:W11750:W:0 10);" "; "O2,0:za]ita cifra+ ,L1NC 6"*";:W((S)(S))U @O1,0:impulsc JW125:t TC1,0:pauza ^W135: hL r13:":":C2,0:kraj za]ita |W1150: (N10LL1)āW13000:W LL :5030  gre[ki w PN$* 3)400: tire> (N16)::W12000:W:400: iHterwal u to^kata imitira postawqne i wdigane na slu[alkata N2ĹO2,0:O1,0:W11000::C1,0:C2,0:W11750::400 N1N10430: ako ne e cifra  -3='-' -16=' ' -2='.'  N(N$)48(PH$)57)(PH$)462000: ime, W(37):2:" izbira : ":2:10::L$:2:10:(PN$,((PN$)((PN$)29)((PN$)28)28)):W1: LL1(PN$) preobrazuwaHe ASCII - cifra N((PN$,LL,1))48:N0N10 tire? (NoMer ";:" ----------------------------------- "> Z34,4~ d" raboti pri wdigHata slu[alka i sigHal 'swobodHo'" nL$" " x:"telefoHEH HoMer ili iMe:";PN$:(PN$)0(16336):120 PH$(PN$,1)& ((PH  5000255+C = wkl@^en(5V) A(O = izkl@^en(0V)w2C116289:O116290:C216291:O216292::S16336<izhodno polovenie:wkl@^enFC1,0:C2,04 P::" ----------------------------------- ";:" cifrowo izbiraHe Ha telefoHEH H       ,,  $$++++  **  $)),,....%%%%''((%%''))))%%))%%'%%%(%(%,,1111111111111111,,..! !             %               ! !                                              """"    %%%%%%%%%%%%%%%%%%  ""    *) * wremenna podprograma E * samo za demonstraciqO (Y)v "wywedete ,za da prodylvi";A$| a prodylvi";A$   90 - * wremenna podprograma I * samo za demonstraciqW 22:958n "red,kolona?";R,C 22:30:"=>";  * wremenna podprograma * samo za demonstraciq   I115 J3295 (J); J,I nY(X)$ x * podprograma za ? * prewry]ane w ASCIId (Y32)YY64:200: INVERSE | Y64200: INVERSE Y96200: FLASHING (Y128)YY64:200: FLASHING YY128: NORMAL * kraj prewry]ane Y$(Y) 3000} ***********************;* programa za ^etene *X* na simwoli ot ekran *u(* R=redowe:ot 0 do 23 *2* C=koloni:ot 0 do 39 *<***********************FA(X)1024(X8)40(X8(X8))1024P2000Z1000dXA(R)C  """"% %     """ " "  """"  ,,  $"""$$  """""""""    %%  ""% %     """ " "  """"$$  "+  **  $$))))))' ' ' '     %%  ""$'% % % % ,,,,,,,,,  ,,  $$+++"""''**....****%)%)%)%)%)$$$'    """ " "  """"  ,,  $$++++  *  """""""""    %%  """"% %   """ " "  """"$$  """"$$$))))))' ' ' '     %%  """"% %   :::33,33r 169,96,133,80,169,234,133,81,32,26,214,24,198,155,144,2,198,156,165,155,133,184,165,156,133,185,76,210,215~X129Y(3256X15,Y2<1014,16:1015,3ALN60000FX(LN256)P785,LN(X256)Z789,X_`::!! '%%%%%%%%%%%%%%%%%%  "" ,,....%%%%''((%%''))))%%))%%'''  $,,..))%%%%%%%%%%%  ""  """"  ''((%%''))))%%))%%''''%%%%%%%   ! !           ! !                                               %)%)$$$'$'  % % )),,1111     ) ..))&&""""''**....****%)%)%)  """"% % %  % % % % $ $ $ $ # # # #   " " & & ) lok ot pametta"1024N" dO "1024(N1)G 775,4:779,(4N):768:1994b 775,(4N):779,4:768 8)"wywedete za da prodylvi ";N A$:A$(13)210 N36240 160 :::  * test na pametta *Dd 169,0,133,2,133,4,169,4,133,3hn 169,8,133,5,162,4,160,0,177,2x 145,4,200,208,249,230,3,230,5,202 208,242,96,0,0I768802::J:I,J::13:N039:0,39N:N:N3NN1% :22:"test na b""