Azbuka 1,2: az2.bas.B

Es parte de la publicación: Azbuka 1,2
Tamaño del archivo: 10920
md5: 704cc13180b48df814312cab66acbd8f
  0 LET l=USR 41000: POKE 23739,244+ POKE 23606,0: POKE 23607,60L RANDOMIZE : LET l=USR 48120: POKE 23606,160: POKE 23607,251: GO TO 9000 i LET k=63600: FOR l=1 TO LEN b$: POKE k,l(CODE b$(l TO )-31): LET k=k+1: NEXT l: POKE k,0: LET l=USR 64166: RETURN : REM 64166 CONTINUE - OVER 1: PAPER 8: INK 8: FLASH 8: BRIGHT 8 DIM  PRINT AT Y,X;"B": IF cn THEN  GO TO 1050 FOR % IF INKEY$=CHR$ 13 OR INKEY$="m" OR INKEY$="M" THEN  GO TO 1100 GO SUB * LET l=IN 65022/2: IF l=INT l THEN  GO TO 1120 PAUSE * LET l=IN 57342/2: IF l=INT l THEN  GO TO 1110 RUN * LET l=IN 64510/2: IF l=INT l THEN  GO TO 1115 DRAW  IF INKEY$="o" OR INKEY$="O" THEN  GO TO 1105 GO TO 1003( LET l=IN 255/2: IF l<>INT l THEN  GO TO 1110  LET l=INT l/2: IF l<>INT l THEN  GO TO 1105$  LET l=INT l/2: IF l<>INT l THEN  GO TO 1120)  LET l=INT l/2: IF l<>INT l THEN  GO TO 1115.  LET l=INT l/2: IF l=INT l THEN  GO TO 1005L' PRINT AT y,x;"B": OVER 0: BRIGHT 1: INK 0: RETURN Q. PRINT AT y,x;"B": LET x=x-1: IF x>=0 THEN  GO TO 1140R LET x=0: GO TO 1140V/ PRINT AT Y,X;"B": LET x=x+1: IF x<=31 THEN  GO TO 1140W LET x=31: GO TO 1140[. PRINT AT Y,X;"B": LET y=y-1: IF y>=1 THEN  GO TO 1140/ LET y=1: GO TO 1140`/ PRINT AT Y,X;"B": LET y=y+1: IF y<=22 THEN  GO TO 1140a LET y=22t` PRINT AT 13,0; PAPER RND*3+3;" ": BEEP .001[H],15: POKE 23659,1: GO TO 1001! DIM e(4,11): GO SUB 4000 FOR l=1 TO 4: FOR k=1 TO 11: LET e(l,k)=(l-1)*33+1997+INT ((k+RND)*3): GO SUB e(l,k): PRINT AT k+1,l*7-5;a$: NEXT k: NEXT l RETURN  FORMAT  LET a$="azbuka": RETURN  MOVE ="akula": RETURN  ERASE  LET a$="ananas": RETURN  OPEN # LET a$="anvela": LET b$="anv|la": RETURN  CLOSE # LET a$="arka": RETURN  MERGE ="afi{a": RETURN  VERIFY  LET a$="wera": RETURN  BEEP ="wilka": RETURN  CIRCLE  LET a$="wowa": RETURN  INK ="wolga": RETURN  PAPER  LET a$="worona": LET b$="warona": RETURN  FLASH  LET a$="wostok": LET b$="wastok": RETURN  BRIGHT  LET a$="garav": LET b$="gara{": RETURN  INVERSE ="gorka": RETURN  OVER  LET a$="dwa": LET b$="2": RETURN  OUT  LET a$="vara": RETURN  LPRINT  LET a$="vir": LET b$="vyr": RETURN  LLIST  LET a$="vuk": RETURN  STOP  LET a$="vurnal": RETURN  READ  LET a$="zavim": LET b$="zavym": RETURN  DATA ="zakat": RETURN  RESTORE  LET a$="zanoza": RETURN  NEW  LET a$="zaqc": RETURN  BORDER  LET a$="zwonok": LET b$="zwanok": RETURN  CONTINUE ="zebra": RETURN  DIM  LET a$="zima": RETURN  REM  LET a$="zont": RETURN  FOR  LET a$="iwan": RETURN  GO TO  LET a$="igla": RETURN  GO SUB  LET a$="igra": RETURN  INPUT  LET a$="izba": RETURN  LOAD  LET a$="inna": LET b$="ina": RETURN  LIST  LET a$="ira": RETURN  LET ="iskra": RETURN  PAUSE ="kazak": RETURN  NEXT  LET a$="kafe": LET b$="kaf|": RETURN  POKE  LET a$="korowa": LET b$="karowa": RETURN  PRINT ="krysa": RETURN  PLOT   LET a$="kurica": RETURN  RUN  LET a$="ku~a": RETURN  SAVE  LET a$="lawka": LET b$="lafka": RETURN  RANDOMIZE ="lampa": RETURN  IF ="lap{a": RETURN  CLS  LET a$="larisa": RETURN  DRAW  LET a$="lodka": LET b$="lotka": RETURN  CLEAR  LET a$="lovka": LET b$="lo{ka": RETURN  RETURN  LET a$="mama": RETURN  COPY ="marka": RETURN  LET a$="maslo": LET b$="masla": RETURN  LET a$="ma{a": RETURN  LET a$="mel": RETURN ="mesto": RETURN  LET a$="mir": RETURN ="miska": RETURN  LET a$="mi{a": RETURN  LET a$="most": RETURN  LET a$="motor": LET b$="mator": RETURN ="nasos": RETURN  LET a$="nata{a": RETURN  LET a$="nov": LET b$="no{": RETURN ="norka": RETURN  LET a$="nosok": LET b$="nasok": RETURN $="no~x": LET b$="no~": RETURN  LET a$="owe~ka": LET b$="awe~ka": RETURN  LET a$="odin": LET b$="1": RETURN  LET a$="okno": LET b$="akno": RETURN ="opera": RETURN  LET a$="panama": RETURN  LET a$="papa": RETURN  LET a$="park": RETURN  LET a$="pastuh": RETURN ="pe~ka": RETURN  LET a$="pila": RETURN ="polka": RETURN ="ptica": RETURN  LET a$="pqtx": LET b$="5": RETURN  LET a$="rabota": RETURN  LET a$="raketa": RETURN  LET a$="rana": RETURN  LET a$="ris": RETURN   LET a$="roza": RETURN !="ru~ka": RETURN "="sahar": RETURN # LET a$="sa{a": RETURN $ LET a$="swinka": RETURN % LET a$="serdce": LET b$="serc|": RETURN & LET a$="sila": RETURN '="sirop": RETURN (="slawa": RETURN ) LET a$="sowa": LET b$="sawa": RETURN * LET a$="solnce": LET b$="sonc|": RETURN +="soska": RETURN , LET a$="stol": RETURN - LET a$="strana": RETURN . LET a$="stul": RETURN / LET a$="sup": RETURN 0 LET a$="syr": RETURN 1 LET a$="tormoz": LET b$="tormas": RETURN 2 LET a$="tri": LET b$="3": RETURN 3 LET a$="tu~a": RETURN 4 LET a$="udo~ka": LET b$="uta~ka": RETURN 5 LET a$="uv": RETURN 6 LET a$="um": RETURN 7 LET a$="usy": RETURN 8 LET a$="fara": RETURN 9="firma": RETURN :="hwost": RETURN ; LET a$="hor": RETURN < LET a$="hrap": RETURN = LET a$="cirk": LET b$="cyrk": RETURN > LET a$="cifra": LET b$="cyfra": RETURN ? LET a$="~asy": RETURN @="~a{ka": RETURN A LET a$="~etyre": LET b$="4": RETURN B="{ala{": RETURN C LET a$="{ar": RETURN D LET a$="{wabra": RETURN E LET a$="{kaf": RETURN F="{kola": RETURN G LET a$="{ura": RETURN H="{utka": RETURN I="}epka": RETURN J LET a$="}i": RETURN K="|kran": RETURN L LET a$="|ho": RETURN M LET a$="`bka": RETURN N LET a$="`g": LET b$="`k": RETURN O LET a$="`la": RETURN P LET a$="`ra": RETURN Q LET a$="qma": RETURN R LET a$="q{a": RETURN S LET a$="q}ik": RETURN [I]$ GO SUB 1000: IF Y<>15 THEN  GO TO 2220[N]# IF X<11 AND X>1 THEN  LET N=3: RETURN [S]$ IF X<25 AND X>12 THEN  LET N=4: RETURN PI GO TO 2200AT  IF Y>12 THEN  GO TO 2240VAL$ , IF Y<2 OR X<2 OR X>28 THEN  GO TO 2200VAL 6 IF INT ((X+6)/7)*7-X=6 THEN  GO TO 2200LEN 4 LET K=Y-1: LET L=INT ((X+5)/7): LET N=1: RETURN USR  IF X>21 THEN  GO TO 2280CHR$  IF Y<18 THEN  GO TO 2200 LINE ) LET K=INT (Y/2): IF K*2<>Y THEN  GO TO 2200 TO ) LET L=INT (X/2): IF L*2=X THEN  GO TO 2200 CAT & LET N=2: LET L=L+K*11-98: RETURN  CONTINUE : IF X>27 AND X<30 AND Y>19 AND Y<22 THEN  LET N=6: RETURN  GO SUB : IF X>22 AND X<26 AND Y>17 AND Y<20 THEN  LET N=5: RETURN  PAUSE  GO TO 2200` IF ERR THEN  GO TO 2440eg LET ST=ST-1: PRINT  PAPER 0; INK INT (5-ST/4.63+RND*3); OVER 1; BRIGHT 1;AT ST+2,30;" "j RETURN ▖^ LET ST=ST+1: LET M3=M3-1: IF M3<0 THEN  LET M3=2: LET MARK=MARK-1: IF NOT MARK THEN  LET MARK=1 IF ST>15 THEN  LET ST=15: RETURN [C]7 PRINT AT ST+1,30; OVER 1; INK 0; PAPER 0;" ": RETURN BIN ! LET l=2550: IF ERR THEN  LET l=2570 DEF FN  GO TO l+INT (RND*10) PLOT   LET b$="tak": GO SUB say: GO SUB say RUN  LET b$="hara{o": GO TO say SAVE  LET b$="|ta": GO SUB say: LET b$="tak": GO TO say RANDOMIZE   LET b$="ty": GO SUB say: LET b$="umnica": GO TO say IF  LET b$="tak": GO TO say CLS  LET b$="werna": GO TO say DRAW  LET b$="malatec": GO TO say CLEAR  LET b$="prikrasna": GO TO say RETURN  LET b$="ty": GO SUB say: LET b$="praf": GO TO say COPY  LET b$="zdorawa": GO TO say LET b$="hahaha": GO SUB say LET b$="a{ipka": GO TO say LET b$="niwerna": GO TO say LET b$="nehara{o": GO TO say$="uvasna": GO SUB say LET b$="ploha": GO TO say LET b$="net": GO SUB say: PAUSE 3 LET b$="nitak": GO TO say0 LET b$="|ta": GO SUB say: LET b$="ty": GO SUB say: LET b$="neznae{": GO TO say LET b$="|h": GO SUB say: LET b$="ty": GO TO say(N LET b$="ac|nka": GO SUB say: PRINT AT 15,27; INK 2; PAPER 6;MARK: LET B$=STR$ mark: GO TO sayLN ▟ LET l=USR 48120: GO SUB 4100: INK 0: PAPER 7: BRIGHT 1: PRINT AT 15,13;" powtoritx  ": LET b$="pakavy": GO SUB say: LET b$="ma`": GO SUB say: LET b$="bukwu": GO SUB say CHR$ ▗ PRINT AT 15,2;"   ???   ": LET ll=INT (33*RND)+1: LET b$=y$(ll*2-1 TO ll*2): IF b$(1 TO 1)="*" THEN  GO TO 3010<=+ PAUSE 15: GO SUB say: GO SUB cnt: IF n=4 THEN  GO TO 3015 TO  IF n=5 THEN  RETURN  MOVE [R] IF n=3 THEN  RANDOMIZE : LET err=1: GO SUB 2400: LET b$="smatri": GO SUB say: PRINT AT 15,2;"  |to "+z$(ll TO ll): PAUSE 1: PAUSE 200: LET b$="pakavyka": GO SUB say: LET b$="mne": GO SUB say: GO TO 3010 VERIFY  IF n=6 THEN  GO TO 5000 LPRINT  IF n=1 THEN  GO TO 3015 REM r IF l<>ll THEN  LET err=1: LET a$=b$: GO SUB 2400: GO SUB 2500: PAUSE 25: LET b$="pakavy": GO SUB say: LET b$="bukwu": GO SUB say: LET b$=a$: GO TO 3015 POKE n PAUSE 23: LET err=0: GO SUB 2400: GO SUB 2500: IF st THEN  IF RND<.73 THEN  LET b$="pakavy": GO SUB say: IF RND<.5 COPY  THEN  LET b$="bukwu": GO SUB say IF  IF st THEN  GO TO 3010 RETURN 2 LET b$="kanec": GO SUB say: PAUSE 25: GO SUB 2600: PAUSE 0: RETURN AT >= BRIGHT 1: INK 1: PAPER 7: GO SUB 1800: GO SUB 4100: RESTORE 3500: DATA "priwet","maly{","*","*","ty","mne","pakavyka","slowa": FOR j=1 TO 8: READ b$: GO SUB say: NEXT j: LET ll=3: LET kk=INT (RND*10+1): GO TO 3515LEN 3 LET ll=INT (1+RND*4): LET kk=INT (1+RND*11)ACS S PAUSE 30: IF RND>.6[J] THEN  LET b$="pakavy": GO SUB say: IF RND>.5 COPY  THEN  LET b$="slowa": GO SUB say: IF RND>.5 COPY  THEN  RANDOMIZE SQR  LET b$="": GO SUB e(ll,kk): IF b$="" THEN  LET b$=a$USR l PRINT AT 15,2;"   ???   ";AT 15,13;"  powtoritx ": GO SUB say: GO SUB cnt: IF n=4 OR n=2 THEN  GO TO 3520 LINE  IF n=6 THEN  GO TO 5000 STEP  IF n=5 THEN  RETURN  CAT  IF n=3 THEN  BEEP .4 TO ,25: GO SUB e(ll,kk): PRINT AT 15,5;"   ";AT 15,4;a$: LET err=1: PAUSE 5: GO SUB 2400: PAUSE 170: GO TO 3505 OVER F IF l<>ll OR k<>kk THEN  LET err=1: GO SUB 2500: GO SUB 2400: PAUSE 22: GO TO 3510 PAUSE 5 LET err=0: GO SUB 2500: GO SUB 2400: IF st THEN  GO TO 3505 DRAW # GO SUB 4000: PAUSE 100: GO TO 26006: INK 1: GO SUB 4000: PRINT  PAPER 5;AT 15,2;"  wyhod  ";AT 15,13;"e}@ stranica": LET st=0e(4,11): FOR k=1 TO 11: FOR l=1 TO 4: LET e(l,k)=(l-1)*11+1999+k+st: GO SUB e(l,k): PRINT AT k+1,l*7-5;a$: NEXT l: NEXT k: LET st=st+44: IF st>99 THEN  LET st=0cnt: IF n=4 THEN  GO SUB 4000: GO TO 3710n=3 OR n=5 THEN  RETURN n=2 THEN  GO TO 3720n=6 THEN  GO TO 5000b$="": GO SUB e(l,k): IF b$="" THEN  LET b$=a$say: GO TO 3720l=USR 48120: GO SUB 4100: BRIGHT RND: OVER 1: PAPER RND*7: INK 9: GO SUB 4005: OVER 0: PAPER RND+6: BRIGHT 1: PRINT AT 15,13;"  powtoritx "b$="napi{i": GO SUB sayb$="":  LET kk=2000+RND*131: GO SUB kkll=1: LET j=LEN a$: IF b$="" THEN  LET b$=a$AT 15,2;"         ": FOR l=1 TO j: PRINT AT 15,3+l;".": NEXT lsay& GO SUB cnt: IF n=1 OR n=4 THEN  GO TO 3830 IF n=5 THEN  RETURN  IF n=6 THEN  GO TO 5000y IF n=3 THEN  LET err=1: LET c$=b$: GO SUB 2400: LET b$="smatri": GO SUB say: LET b$=c$: PRINT AT 15,3+ll; INK 2;a$(ll TO ll): GO TO 3880? IF z$(l TO l)=a$(ll TO ll) THEN  PRINT AT 15,3+ll;a$(ll TO ll): GO TO 3880@ LET err=1: LET c$=b$: GO SUB 2500: GO SUB 2400: LET b$=c$:: GO TO 3840(! LET ll=ll+1: IF ll<=j THEN  GO TO 384025 LET err=0: GO SUB 2500: GO SUB 2400: IF st THEN  GO TO 38107= LET b$="kanec": GO SUB say: LET b$="raboty": GO SUB say: GO SUB 4005: GO SUB 2600: RETURN [Q]P FOR l=12 TO 2 STEP -1: PRINT AT l,2;"      A      A      A      ": NEXT L: RETURN RNDL FOR l=12 TO 2 STEP -1: PRINT AT l,2;"                           ": NEXT L: RETURN [P] OVER 0: FOR l=2 TO 16: PRINT  INK 0; PAPER 0; OVER 1;AT L,30;" ": NEXT l: LET MARK=5: LET ST=15: LET M3=0: PRINT AT 15,27; PAPER 6; INK 1;"?": RETURN ▖T LET l=USR 48120: LET b$="|ta": GO SUB say: PAUSE 22: LET b$="wal{|bnaq": GO SUB say: LET b$="azbuka": GO SUB say[C]USR  PAPER 1: INK 7: OVER 1: GO SUB 4005: OVER 0: GO SUB 4005: PRINT AT 15,13;"  ": FOR l=0 TO 8: PRINT  BRIGHT 0;AT 15,14+l;CHR$ PEEK (l+48140);"  ": NEXT l: PRINT AT 15,2;"peterburg"[M]q RESTORE 5020: DATA "MKKKKKKKKKKKKKKKKKKKN","A © mednonogow w.s. A","A        1992       A","OKKKKKKKKKKKKKKKKKKKP"INKEY$) FOR l=6 TO 9: READ c$: PRINT AT l,5;c$: NEXT lVAL  PAPER 7: INK 0 GO TO  IF INKEY$="" THEN  GO TO 5100 LET  IF INKEY$="9" THEN  STOP P RETURN #(: PAPER 7: FLASH 0: OVER 0: BORDER 0: BRIGHT 1: INK 0#-e LET Y$="aboe%iqvu~|hwgdtzck{nlmpsr`}yf12345": DIM l(96): FOR l=1 TO 35: LET l(CODE y$(l TO )-31)=l: NEXT l#2( LET z$="abwgde@vzijklmnoprstufhc~{}^yx|`q"#3I LET y$="a *bw|g|*d*e*@v|z|i *jka|l|m|no p||r|st|u |fhac|~e{a*{*^y *x| ` q "#7B LET cn=0: LET x=3: LET y=11: LET SAY=800: LET CNT=2200#< GO SUB 4005#Aa PRINT AT 6,9;"1. klawiatura";AT 8,9;"2.  kempston": IF INKEY$="2" THEN  LET cn=1: GO TO 9050#F PAPER 7: IF INKEY$<>"1" THEN  GO TO 9025#K[D] PAPER 5: GO SUB 4005: RESTORE 9035: DATA "MKKKKKN","AQ   CA","Ar   EA","Ao   FA","Aa   DA","Am  GHA","OKKKKKP": FOR l=4 TO 10: READ a$: PRINT AT l,12;a$: NEXT l#O IF INKEY$="1" OR INKEY$="" THEN  GO TO 9039#Z CAT  INK 0: PAPER 7: BRIGHT 0: RESTORE 9050: GO SUB 4005: DATA "MKKKKKKKKKKKKKKN","A pokavi bukwy A","Aposlu{aj slowaA","A pokavi slowa A","A napi{i slowa A","OKKKKKKKKKKKKKKP": FOR l=4 TO 9: READ a$: PRINT 
  44140;a$: NEXT l#_ GO SUB cnt#a: IF n=5 THEN  LET l=USR 41073: BEEP .3[J],3: GO TO 1#bG IF n=6 OR n=3 OR n=4 THEN  LET l=USR 41073: GO SUB 5000: GO TO 9040#d> IF n<>1 OR l<>2 AND l<>3 THEN  BEEP .2 TO ,-5: GO TO 9055#n# IF k=4 THEN  GO SUB 3000: GO TO 9040#s# IF k=6 THEN  GO SUB 3500: GO TO 9040#x# IF k=5 THEN  GO SUB 3700: GO TO 9040#}* IF k<>7 THEN  BEEP .2 TO ,-5: GO TO 9055#▘ GO SUB 3800: GO TO 90