Alphabet: az2.bas.B

Es parte de la publicación: Alphabet
Tamaño del archivo: 10920
md5: bb6682ba4081533f55be7e515e8c8d9e
  1 LET l=USR 41000: POKE 23739,244
  2 POKE 23606,0: POKE 23607,60
  5 RANDOMIZE : LET l=USR 48120: POKE 23606,160: POKE 23607,251: GO TO 9000
  800 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
  1000 OVER 1: PAPER 8: INK 8: FLASH 8: BRIGHT 8
  1001 PRINT AT Y,X;"B": IF cn THEN  GO TO 1050
  1003 IF INKEY$=CHR$ 13 OR INKEY$="m" OR INKEY$="M" THEN  GO TO 1100
  1005 LET l=IN 65022/2: IF l=INT l THEN  GO TO 1120
  1010 LET l=IN 57342/2: IF l=INT l THEN  GO TO 1110
  1015 LET l=IN 64510/2: IF l=INT l THEN  GO TO 1115
  1020 IF INKEY$="o" OR INKEY$="O" THEN  GO TO 1105
  1040 GO TO 1003
  1050 LET l=IN 255/2: IF l<>INT l THEN  GO TO 1110
  1055 LET l=INT l/2: IF l<>INT l THEN  GO TO 1105
  1060 LET l=INT l/2: IF l<>INT l THEN  GO TO 1120
  1065 LET l=INT l/2: IF l<>INT l THEN  GO TO 1115
  1070 LET l=INT l/2: IF l=INT l THEN  GO TO 1005
  1100 PRINT AT y,x;"B": OVER 0: BRIGHT 1: INK 0: RETURN 
  1105 PRINT AT y,x;"B": LET x=x-1: IF x>=0 THEN  GO TO 1140
  1106 LET x=0: GO TO 1140
  1110 PRINT AT Y,X;"B": LET x=x+1: IF x<=31 THEN  GO TO 1140
  1111 LET x=31: GO TO 1140
  1115 PRINT AT Y,X;"B": LET y=y-1: IF y>=1 THEN  GO TO 1140
  1116 LET y=1: GO TO 1140
  1120 PRINT AT Y,X;"B": LET y=y+1: IF y<=22 THEN  GO TO 1140
  1121 LET y=22
  1140 PRINT AT 13,0; PAPER RND*3+3;" ": BEEP .001[H],15: POKE 23659,1: GO TO 1001
  1800 DIM e(4,11): GO SUB 4000
  1805 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
  1810 RETURN 
  2000 LET a$="azbuka": RETURN 
  2001 LET a$="akula": RETURN 
  2002 LET a$="ananas": RETURN 
  2003 LET a$="anvela": LET b$="anv|la": RETURN 
  2004 LET a$="arka": RETURN 
  2005 LET a$="afi{a": RETURN 
  2006 LET a$="wera": RETURN 
  2007 LET a$="wilka": RETURN 
  2008 LET a$="wowa": RETURN 
  2009 LET a$="wolga": RETURN 
  2010 LET a$="worona": LET b$="warona": RETURN 
  2011 LET a$="wostok": LET b$="wastok": RETURN 
  2012 LET a$="garav": LET b$="gara{": RETURN 
  2013 LET a$="gorka": RETURN 
  2014 LET a$="dwa": LET b$="2": RETURN 
  2015 LET a$="vara": RETURN 
  2016 LET a$="vir": LET b$="vyr": RETURN 
  2017 LET a$="vuk": RETURN 
  2018 LET a$="vurnal": RETURN 
  2019 LET a$="zavim": LET b$="zavym": RETURN 
  2020 LET a$="zakat": RETURN 
  2021 LET a$="zanoza": RETURN 
  2022 LET a$="zaqc": RETURN 
  2023 LET a$="zwonok": LET b$="zwanok": RETURN 
  2024 LET a$="zebra": RETURN 
  2025 LET a$="zima": RETURN 
  2026 LET a$="zont": RETURN 
  2027 LET a$="iwan": RETURN 
  2028 LET a$="igla": RETURN 
  2029 LET a$="igra": RETURN 
  2030 LET a$="izba": RETURN 
  2031 LET a$="inna": LET b$="ina": RETURN 
  2032 LET a$="ira": RETURN 
  2033 LET a$="iskra": RETURN 
  2034 LET a$="kazak": RETURN 
  2035 LET a$="kafe": LET b$="kaf|": RETURN 
  2036 LET a$="korowa": LET b$="karowa": RETURN 
  2037 LET a$="krysa": RETURN 
  2038 LET a$="kurica": RETURN 
  2039 LET a$="ku~a": RETURN 
  2040 LET a$="lawka": LET b$="lafka": RETURN 
  2041 LET a$="lampa": RETURN 
  2042 LET a$="lap{a": RETURN 
  2043 LET a$="larisa": RETURN 
  2044 LET a$="lodka": LET b$="lotka": RETURN 
  2045 LET a$="lovka": LET b$="lo{ka": RETURN 
  2046 LET a$="mama": RETURN 
  2047 LET a$="marka": RETURN 
  2048 LET a$="maslo": LET b$="masla": RETURN 
  2049 LET a$="ma{a": RETURN 
  2050 LET a$="mel": RETURN 
  2051 LET a$="mesto": RETURN 
  2052 LET a$="mir": RETURN 
  2053 LET a$="miska": RETURN 
  2054 LET a$="mi{a": RETURN 
  2055 LET a$="most": RETURN 
  2056 LET a$="motor": LET b$="mator": RETURN 
  2057 LET a$="nasos": RETURN 
  2058 LET a$="nata{a": RETURN 
  2059 LET a$="nov": LET b$="no{": RETURN 
  2060 LET a$="norka": RETURN 
  2061 LET a$="nosok": LET b$="nasok": RETURN 
  2062 LET a$="no~x": LET b$="no~": RETURN 
  2063 LET a$="owe~ka": LET b$="awe~ka": RETURN 
  2064 LET a$="odin": LET b$="1": RETURN 
  2065 LET a$="okno": LET b$="akno": RETURN 
  2066 LET a$="opera": RETURN 
  2067 LET a$="panama": RETURN 
  2068 LET a$="papa": RETURN 
  2069 LET a$="park": RETURN 
  2070 LET a$="pastuh": RETURN 
  2071 LET a$="pe~ka": RETURN 
  2072 LET a$="pila": RETURN 
  2073 LET a$="polka": RETURN 
  2074 LET a$="ptica": RETURN 
  2075 LET a$="pqtx": LET b$="5": RETURN 
  2076 LET a$="rabota": RETURN 
  2077 LET a$="raketa": RETURN 
  2078 LET a$="rana": RETURN 
  2079 LET a$="ris": RETURN 
  2080 LET a$="roza": RETURN 
  2081 LET a$="ru~ka": RETURN 
  2082 LET a$="sahar": RETURN 
  2083 LET a$="sa{a": RETURN 
  2084 LET a$="swinka": RETURN 
  2085 LET a$="serdce": LET b$="serc|": RETURN 
  2086 LET a$="sila": RETURN 
  2087 LET a$="sirop": RETURN 
  2088 LET a$="slawa": RETURN 
  2089 LET a$="sowa": LET b$="sawa": RETURN 
  2090 LET a$="solnce": LET b$="sonc|": RETURN 
  2091 LET a$="soska": RETURN 
  2092 LET a$="stol": RETURN 
  2093 LET a$="strana": RETURN 
  2094 LET a$="stul": RETURN 
  2095 LET a$="sup": RETURN 
  2096 LET a$="syr": RETURN 
  2097 LET a$="tormoz": LET b$="tormas": RETURN 
  2098 LET a$="tri": LET b$="3": RETURN 
  2099 LET a$="tu~a": RETURN 
  2100 LET a$="udo~ka": LET b$="uta~ka": RETURN 
  2101 LET a$="uv": RETURN 
  2102 LET a$="um": RETURN 
  2103 LET a$="usy": RETURN 
  2104 LET a$="fara": RETURN 
  2105 LET a$="firma": RETURN 
  2106 LET a$="hwost": RETURN 
  2107 LET a$="hor": RETURN 
  2108 LET a$="hrap": RETURN 
  2109 LET a$="cirk": LET b$="cyrk": RETURN 
  2110 LET a$="cifra": LET b$="cyfra": RETURN 
  2111 LET a$="~asy": RETURN 
  2112 LET a$="~a{ka": RETURN 
  2113 LET a$="~etyre": LET b$="4": RETURN 
  2114 LET a$="{ala{": RETURN 
  2115 LET a$="{ar": RETURN 
  2116 LET a$="{wabra": RETURN 
  2117 LET a$="{kaf": RETURN 
  2118 LET a$="{kola": RETURN 
  2119 LET a$="{ura": RETURN 
  2120 LET a$="{utka": RETURN 
  2121 LET a$="}epka": RETURN 
  2122 LET a$="}i": RETURN 
  2123 LET a$="|kran": RETURN 
  2124 LET a$="|ho": RETURN 
  2125 LET a$="`bka": RETURN 
  2126 LET a$="`g": LET b$="`k": RETURN 
  2127 LET a$="`la": RETURN 
  2128 LET a$="`ra": RETURN 
  2129 LET a$="qma": RETURN 
  2130 LET a$="q{a": RETURN 
  2131 LET a$="q}ik": RETURN 
  2200 GO SUB 1000: IF Y<>15 THEN  GO TO 2220
  2205 IF X<11 AND X>1 THEN  LET N=3: RETURN 
  2210 IF X<25 AND X>12 THEN  LET N=4: RETURN 
  2215 GO TO 2200
  2220 IF Y>12 THEN  GO TO 2240
  2222 IF Y<2 OR X<2 OR X>28 THEN  GO TO 2200
  2224 IF INT ((X+6)/7)*7-X=6 THEN  GO TO 2200
  2225 LET K=Y-1: LET L=INT ((X+5)/7): LET N=1: RETURN 
  2240 IF X>21 THEN  GO TO 2280
  2242 IF Y<18 THEN  GO TO 2200
  2250 LET K=INT (Y/2): IF K*2<>Y THEN  GO TO 2200
  2252 LET L=INT (X/2): IF L*2=X THEN  GO TO 2200
  2255 LET N=2: LET L=L+K*11-98: RETURN 
  2280 IF X>27 AND X<30 AND Y>19 AND Y<22 THEN  LET N=6: RETURN 
  2285 IF X>22 AND X<26 AND Y>17 AND Y<20 THEN  LET N=5: RETURN 
  2290 GO TO 2200
  2400 IF ERR THEN  GO TO 2440
  2405 LET ST=ST-1: PRINT  PAPER 0; INK INT (5-ST/4.63+RND*3); OVER 1; BRIGHT 1;AT ST+2,30;" "
  2410 RETURN 
  2440 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
  2444 IF ST>15 THEN  LET ST=15: RETURN 
  2450 PRINT AT ST+1,30; OVER 1; INK 0; PAPER 0;" ": RETURN 
  2500 LET l=2550: IF ERR THEN  LET l=2570
  2510 GO TO l+INT (RND*10)
  2550 LET b$="tak": GO SUB say: GO SUB say
  2551 LET b$="hara{o": GO TO say
  2552 LET b$="|ta": GO SUB say: LET b$="tak": GO TO say
  2553 LET b$="ty": GO SUB say: LET b$="umnica": GO TO say
  2554 LET b$="tak": GO TO say
  2555 LET b$="werna": GO TO say
  2556 LET b$="malatec": GO TO say
  2557 LET b$="prikrasna": GO TO say
  2558 LET b$="ty": GO SUB say: LET b$="praf": GO TO say
  2559 LET b$="zdorawa": GO TO say
  2570 LET b$="hahaha": GO SUB say
  2571 LET b$="a{ipka": GO TO say
  2572 LET b$="niwerna": GO TO say
  2573 LET b$="nehara{o": GO TO say
  2574 LET b$="uvasna": GO SUB say
  2575 LET b$="ploha": GO TO say
  2576 LET b$="net": GO SUB say: PAUSE 3
  2577 LET b$="nitak": GO TO say
  2578 LET b$="|ta": GO SUB say: LET b$="ty": GO SUB say: LET b$="neznae{": GO TO say
  2579 LET b$="|h": GO SUB say: LET b$="ty": GO TO say
  2600 LET b$="ac|nka": GO SUB say: PRINT AT 15,27; INK 2; PAPER 6;MARK: LET B$=STR$ mark: GO TO say
  3000 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 
  3010 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
  3015 PAUSE 15: GO SUB say: GO SUB cnt: IF n=4 THEN  GO TO 3015
  3020 IF n=5 THEN  RETURN 
  3025 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
  3030 IF n=6 THEN  GO TO 5000
  3040 IF n=1 THEN  GO TO 3015
  3050 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
  3060 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
  3066 IF st THEN  GO TO 3010
  3070 LET b$="kanec": GO SUB say: PAUSE 25: GO SUB 2600: PAUSE 0: RETURN 
  3500 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 3515
  3505 LET ll=INT (1+RND*4): LET kk=INT (1+RND*11)
  3510 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 
  3515 LET b$="": GO SUB e(ll,kk): IF b$="" THEN  LET b$=a$
  3520 PRINT AT 15,2;"   ???   ";AT 15,13;"  powtoritx ": GO SUB say: GO SUB cnt: IF n=4 OR n=2 THEN  GO TO 3520
  3530 IF n=6 THEN  GO TO 5000
  3533 IF n=5 THEN  RETURN 
  3535 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
  3550 IF l<>ll OR k<>kk THEN  LET err=1: GO SUB 2500: GO SUB 2400: PAUSE 22: GO TO 3510
  3570 LET err=0: GO SUB 2500: GO SUB 2400: IF st THEN  GO TO 3505
  3580 GO SUB 4000: PAUSE 100: GO TO 2600
  3700 PAPER 6: INK 1: GO SUB 4000: PRINT  PAPER 5;AT 15,2;"  wyhod  ";AT 15,13;"e}@ stranica": LET st=0
  3710 DIM e(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=0
  3720 GO SUB cnt: IF n=4 THEN  GO SUB 4000: GO TO 3710
  3730 IF n=3 OR n=5 THEN  RETURN 
  3740 IF n=2 THEN  GO TO 3720
  3750 IF n=6 THEN  GO TO 5000
  3760 LET b$="": GO SUB e(l,k): IF b$="" THEN  LET b$=a$
  3770 GO SUB say: GO TO 3720
  3800 LET l=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 "
  3805 LET b$="napi{i": GO SUB say
  3810 LET b$="":  LET kk=2000+RND*131: GO SUB kk
  3815 LET ll=1: LET j=LEN a$: IF b$="" THEN  LET b$=a$
  3820 PRINT AT 15,2;"         ": FOR l=1 TO j: PRINT AT 15,3+l;".": NEXT l
  3830 GO SUB say
  3840 GO SUB cnt: IF n=1 OR n=4 THEN  GO TO 3830
  3845 IF n=5 THEN  RETURN 
  3850 IF n=6 THEN  GO TO 5000
  3855 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
  3860 IF z$(l TO l)=a$(ll TO ll) THEN  PRINT AT 15,3+ll;a$(ll TO ll): GO TO 3880
  3870 LET err=1: LET c$=b$: GO SUB 2500: GO SUB 2400: LET b$=c$:: GO TO 3840
  3880 LET ll=ll+1: IF ll<=j THEN  GO TO 3840
  3890 LET err=0: GO SUB 2500: GO SUB 2400: IF st THEN  GO TO 3810
  3895 LET b$="kanec": GO SUB say: LET b$="raboty": GO SUB say: GO SUB 4005: GO SUB 2600: RETURN 
  4000 FOR l=12 TO 2 STEP -1: PRINT AT l,2;"      A      A      A      ": NEXT L: RETURN 
  4005 FOR l=12 TO 2 STEP -1: PRINT AT l,2;"                           ": NEXT L: RETURN 
  4100 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 
  5000 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
  5010 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"
  5020 RESTORE 5020: DATA "MKKKKKKKKKKKKKKKKKKKN","A © mednonogow w.s. A","A        1992       A","OKKKKKKKKKKKKKKKKKKKP"
  5030 FOR l=6 TO 9: READ c$: PRINT AT l,5;c$: NEXT l
  5040 PAPER 7: INK 0
  5100 IF INKEY$="" THEN  GO TO 5100
  5105 IF INKEY$="9" THEN  STOP 
  5200 RETURN 
  9000 PAPER 7: FLASH 0: OVER 0: BORDER 0: BRIGHT 1: INK 0
  9005 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
  9010 LET z$="abwgde@vzijklmnoprstufhc~{}^yx|`q"
  9011 LET y$="a *bw|g|*d*e*@v|z|i *jka|l|m|no p||r|st|u |fhac|~e{a*{*^y *x| ` q "
  9015 LET cn=0: LET x=3: LET y=11: LET SAY=800: LET CNT=2200
  9020 GO SUB 4005
  9025 PRINT AT 6,9;"1. klawiatura";AT 8,9;"2.  kempston": IF INKEY$="2" THEN  LET cn=1: GO TO 9050
  9030 PAPER 7: IF INKEY$<>"1" THEN  GO TO 9025
  9035 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
  9039 IF INKEY$="1" OR INKEY$="" THEN  GO TO 9039
  9050 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 AT l,7;a$: NEXT l
  9055 GO SUB cnt
  9057 IF n=5 THEN  LET l=USR 41073: BEEP .3[J],3: GO TO 1
  9058 IF n=6 OR n=3 OR n=4 THEN  LET l=USR 41073: GO SUB 5000: GO TO 9040
  9060 IF n<>1 OR l<>2 AND l<>3 THEN  BEEP .2 TO ,-5: GO TO 9055
  9070 IF k=4 THEN  GO SUB 3000: GO TO 9040
  9075 IF k=6 THEN  GO SUB 3500: GO TO 9040
  9080 IF k=5 THEN  GO SUB 3700: GO TO 9040
  9085 IF k<>7 THEN  BEEP .2 TO ,-5: GO TO 9055
  9090 GO SUB 3800: GO TO 9040