Azbuka 1,2: az1.bas.B

Es parte de la publicación: Azbuka 1,2
Tamaño del archivo: 9051
md5: 32b0d001b8dbe83cc46df2afac2497d9
  0 LET l=USR 58500M BORDER 7: BRIGHT 1: PAPER 6: INK 0: CLS : DEF FN T(U$$)=INT ((32-LEN U$)/2)Z POKE 59835,235: POKE 59826,7: POKE 23607,229: POKE 23606,120^ LET OSNRAM=9910: LET CLS=9900: LET RAMRET=9890: LET MOVATTR=9700: LET INIATTR=9870CHR$  DATA 30,12,24,8,22,10,30,9,28,11,1,15,17,10,10,10,13,8,10,14,2,10/ RESTORE 11: DIM K(11,2): FOR Q=1 TO 11: READ A: READ B: LET K(Q,1)=A: LET K(Q,2)=B: NEXT Q GO SUB iniattr3 DATA 96,48,120,104,121,96,70,122,120,113,105,68,104,78,56,120,88,71,112,121,88,112,114,122,96,69,56,114,48,104,113,106/ DIM R(32): FOR Q=1 TO 32: READ A: LET R(Q)=A: NEXT Q▝ DATA "arbuz","bo~ka","wilka","glaz","dom","elx","veludx","zabor","igla","jod","kit","list","most","nov","okno","plita","ryba","stol"i DATA "telega","ulitka","fonarx","hleb","cwetok","~ajnik","{ar","}it","%","y","x","|kskawator","`la","qbloko"(] RESTORE 20: DIM W$(32,10): DIM F$(10,32): FOR Q=1 TO 32: READ Z$: LET W$(Q)=Z$: NEXT Q-j DATA "  Z[[[[[[[[[[[[[[[[[[[[[[[[[[/  ","  ]                          ]  ","  ^[[[[[[[[[[[[[[[[[[[[[[[[[[_  "2Q DATA "wozwrat","         prawilxno !!!          ","          newerno ...           "7$ FOR Q=1 TO 6: READ Z$: LET F$(Q)=Z$: NEXT Q< PRINT AT 3,0;F$(1): PRINT AT 4,0;F$(2): PRINT AT 5,0;F$(3): LET Z$="bukwy alfawita": PRINT AT 4,FN t(z$);z$>▖ PRINT AT 7,0;F$(1): PRINT AT 8,0;F$(2): PRINT AT 9,0;F$(3): LET Z$="wyberi nuvnu` bukwu": PRINT AT 8,FN t(z$);z$@▞ PRINT AT 11,0;F$(1): PRINT AT 12,0;F$(2): PRINT AT 13,0;F$(3): LET Z$="w labirintE slow": PRINT AT 12,FN t(z$);z$B▚ PRINT AT 15,0;F$(1): PRINT AT 16,0;F$(2): PRINT AT 17,0;F$(3): LET Z$="sostAwx slowo": PRINT AT 16,FN t(z$);z$D▜ PRINT AT 19,0;F$(1): PRINT AT 20,0;F$(2): PRINT AT 21,0;F$(3): LET Z$="COPuRIGHT 1992": PRINT AT 20,FN t(z$);z$F9 GO SUB movattr: IF fir=0 OR xat>29 OR xat<2 THEN  GO TO 70K RANDOMIZE P, IF yat=4 THEN  GO SUB CLS: GO SUB 100: GO SUB CLS: GO TO 60R, IF yat=8 THEN  GO SUB CLS: GO SUB 150: GO SUB CLS: GO TO 60T- IF yat=12 THEN  GO SUB CLS: GO SUB 230: GO SUB CLS: GO TO 60V- IF yat=16 THEN  GO SUB CLS: GO SUB 350: GO SUB CLS: GO TO 60W LET ass=0X_ IF yat=20 THEN  LET ass=20: GO SUB cls: PRINT AT 10,0;F$(1);AT 11,0;F$(2);AT 12,0;F$(2);AT 13,0;F$(2);AT 14,0;F$(3): LET Z$="© COPPER FEET , 1992": PRINT AT 11,FN T(Z$);Z$: LET Z$="awtor a.s.mednonogow": PRINT AT 12,FN t(z$);z$: LET z$="tel. 143-33-03 (spb)": PRINT AT 13,FN t(z$);z$: PAUSE 0: PAUSE 0: GO SUB clsZ IF ass=20 THEN  GO TO 60b GO TO 70dMONSTATIONfb CLS : INK 7: PAPER 0: FOR Q=1 TO 32: PRINT AT 21,Q-1;W$(Q)( TO 1): NEXT Q: INK 0: PAPER 6g GO SUB OSNRAM: GO SUB RAMRETi GO SUB MOVATTR: IF NOT FIR THEN  GO TO 105j( IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN n IF YAT=21 THEN  LET Q=xAT+1▘LEN  IF yat=21 THEN  POKE 57999,Q-1: POKE 57998,R(Q): LET L=USR 58000: LET Z$="|to bukwa "+CHR$ 18+CHR$ 1+w$(q)( TO 1)+CHR$ 18+CHR$ 0+" - "+w$(q): PRINT AT 18,6;z$: GO TO 105[G]s CLS : GO SUB INIATTR: GO SUB OSNRAM: INK 7: PAPER 0: FOR Q=1 TO 32: PRINT AT 21,Q-1;W$(Q)( TO 1): NEXT Q: INK 0: PAPER 6[Q]R LET q=INT (RND*32)+1: POKE 57999,q-1: POKE 57998,R(q): LET L=USR 58000SCREEN$ 6 GO SUB RAMRET: LET Z$="~to |to za bukwa ?": PRINT AT 17,FN t(z$);z$TAN  GO SUB MOVATTR: IF NOT FIR THEN  GO TO 180PEEK ( IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN >=Y IF YAT=21 THEN  IF Q-1=XAT THEN  PRINT AT 17,0;F$(5): PAUSE 0: PAUSE 0: GO TO 160 ERASE A IF YAT=21 THEN  PRINT AT 17,0;F$(6): BEEP .5 COPY ,-20 BEEP  GO TO 180 NEW  REM lab CONTINUE T LET Q$=CHR$ 16+CHR$ 6+CHR$ 17+CHR$ 6: LET R$=CHR$ 16+CHR$ 0+CHR$ 17+CHR$ 1 FOR POINT  DATA Q$+"Y"+R$+"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[/",Q$+"YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY"+R$+"]",Q$+"Y"+R$+"Z[/"+Q$+"Y"+R$+"Z[[[/"+Q$+"Y"+R$+"Z[[[
  23387[[[[[[[[[[/"+Q$+"Y"+R$+"]" GO SUB U DATA Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYY"+R$+"^_"+Q$+"Y"+R$+"]"+Q$+"YYYY"+R$+"]"+Q$+"YYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]",Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"^[_"+Q$+"Y"+R$+"]"+Q$+"YYYY"+R$+"]"+Q$+"Y"+R$+"Z[[_"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]" LIST  DATA Q$+"YYYYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYYYY"+R$+"]"+Q$+"Y"+R$+"[[[_"+Q$+"Y"+R$+"]"+Q$+"YYYY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"]",Q$+"Y"+R$+"]"+Q$+"Y"+R$+"Z[_"+Q$+"YYY"+R$+"Z[/"+Q$+"Y"+R$+"]"+Q$+"YYYYYY"+R$+"]"+Q$+"YY"+R$+"]"+Q$+"Y"+R$+"]"+Q$+"YYY"+R$+"]"+Q$+"Y"+R$+"]" NEXT u DATA Q$+"Y"+R$+"^[_"+Q$+"YYY"+R$+"[[_"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"^[[[[[[_"+Q$+"YY"+R$+"]"+Q$+"Y"+R$+"^[[[_"+Q$+"Y"+R$+"]" PLOT  q DATA Q$+"YYYYYYYYYYY"+R$+"]"+Q$+"YYYYYYYYYYY"+R$+"]"+Q$+"YYYYYYY"+R$+"]",Q$+"Y"+R$+"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[_" GO SUB INIATTR; LET R=INT (RND*26)+1: IF R=15 OR R=19 THEN  GO TO 260[ GO SUB OSNRAM: GO SUB RAMRET: POKE 57999,R-1: POKE 57998,R(R): LET L=USR 58000: PAUSE 0: PAUSE 04 PRINT AT 18,9;"najdi slowo ": BEEP 1,10; FOR Q=1 TO 10: IF W$(R,Q+1)=" " THEN  LET LEN=Q: GO TO 269 NEXT Q< RESTORE 235: FOR Q=0 TO 9: READ E$: PRINT AT 7+Q,0;E$: NEXT Q(LEN,2): FOR Q=1 TO LENF LET V=INT (RND*11)+1: IF SCREEN$ (K(V,2),K(V,1))<>"Y" THEN  GO TO 271] LET S(Q,1)=K(V,1): LET S(Q,2)=K(V,2): PRINT AT S(Q,2),S(Q,1);W$(R,Q): NEXT Q FOR Q=1 TO LEN GO SUB MOVATTR: IF NOT FIR THEN  GO TO 280"ACS  IF XAT=S(Q,1) AND YAT=S(Q,2) THEN  PRINT AT 17,Q+13;W$(R,Q): LET PAT=BIN 01110110: PRINT AT YAT,XAT; FLASH 1;"Y";AT 18,9; FLASH 0;"TAK dervatx !": BEEP 0.8 TO ,3: GO TO 320,( IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN 6 GO TO 280E NEXT QFt LET Z$="   pPawilxno , "+W$(R)( TO LEN)+" !!!   ": PRINT AT 18,FN t(z$);z$: GO SUB OSNRAM: LET L=USR 58000: LET L=USR 59800: GO SUB INIATTR: RETURN ^ REM COMPLETE A WORDc GO SUB OSNRAMhR LET R=INT (RND*26)+1: POKE 57999,R-1: POKE 57998,R(R): LET L=USR 58000r; FOR Q=1 TO 10: IF W$(r,Q+1)=" " THEN  LET LEN=Q: GO TO 380w NEXT Q| DIM B$(LEN): LET H$=" "▝ GO SUB ramret▚ FOR Q=1 TO LEN[A]* LET Z=INT (RND*LEN)+1: IF B$(Z)<>" " THEN  GO TO 400[K] LET B$(Z)=W$(R,Q): NEXT Q[U]R LET Z$="slowo: "+B$: PRINT AT 17,10;z$: PRINT AT 19,10;"u tebq: ";H$POINT  GO SUB MOVATTR: IF NOT FIR THEN  GO TO 425VAL$ ( IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN LN 7 IF YAT<>17 OR XAT<17 OR XAT>16+LEN THEN  GO TO 425CHR$ 1 LET V$=H$: LET H$=B$(XAT-16): LET B$(XAT-16)=V$ TO 4 PRINT AT 17,17;"";B$;AT 19,18;H$ VERIFY i IF B$=W$(R)( TO LEN) THEN  LET Z$="prawilxno , "+b$+" !!!": PRINT AT 19,FN t(z$);z$: LET pat=PEEK (mat-32): LET L=USR 59800: RETURN  LPRINT  GO TO 425% DATA S LET I$=INKEY$: LET FIR=0: POKE MAT,248: IF I$="M" OR I$="m" THEN  LET FIR=1: BEEP .07 PRINT ,5: RETURN % INPUT  IF I$<>"Q" AND I$<>"q" THEN  GO TO 9750% SAVE , IF PEEK (MAT-32)=72 OR MAT<22560 THEN  RETURN &G POKE MAT,PAT: LET MAT=MAT-32: LET PAT=PEEK MAT: POKE MAT,248: LET YAT=YAT-1: RETURN & IF I$<>"A" AND I$<>"a" THEN  GO TO 9790& , IF PEEK (MAT+32)=72 OR MAT>23199 THEN  RETURN &*G POKE MAT,PAT: LET MAT=MAT+32: LET PAT=PEEK MAT: POKE MAT,248: LET YAT=YAT+1: RETURN &> IF I$<>"o" AND I$<>"O" THEN  GO TO 9830&H' IF PEEK (MAT-1)=72 OR XAT<1 THEN  RETURN &RF POKE MAT,PAT: LET MAT=MAT-1: LET PAT=PEEK MAT: POKE MAT,248: LET XAT=XAT-1: RETURN &f IF I$<>"P" AND I$<>"p" THEN  RETURN &p( IF PEEK (MAT+1)=72 OR XAT>30 THEN  RETURN &zF POKE MAT,PAT: LET MAT=MAT+1: LET PAT=PEEK MAT: POKE MAT,248: LET XAT=XAT+1: RETURN &▗ REM INICIALIZATION&▙T LET XAT=16: LET YAT=19: LET MAT=22528+19*32+16: LET PAT=PEEK MAT: RETURN &[S][E] PRINT AT 2,0;F$(1): PRINT AT 3,0;F$(2);AT 4,0;F$(3);AT 3,FN T(F$(4)( TO 7));F$(4)( TO 7): RETURN &AT Q FOR Q=21 TO 0 STEP -1: PRINT AT Q,0;"                                ": NEXT Q: RETURN &ACS z LET Z$="]        ]": FOR O=8 TO 15: PRINT AT O,11;Z$: NEXT O: PRINT AT 7,11;"Z[[[[[[[[/";AT 16,11;"^[[[[[[[[_": RETURN CODE snra GO SUB ACS &[T]l NEXT AT &SIN amre POKE [S]&TAB ovatt PAUSE  DATA %POINT niatt PAUSE ▙&▛s LET ▚ajbLN a POKE EXP a POKE TAB a POKE rZVAL a POKE p[C][T] `0xhy`FzxqiDhN8xXGpyXprz`E8r0hqj BEEP E arbuz     bo~ka     wilka     glaz      dom       elx       veludx    zabor     igla      jod       kit       list      most      nov       okno      plita     ryba      stol      telega    ulitka    fonarx    hleb      cwetok    ~ajnik    {ar       }it       %         y         x         |kskawator`la       qbloko     AND E   Z[[[[[[[[[[[[[[[[[[[[[[[[[[/    ]                          ]    ^[[[[[[[[[[[[[[[[[[[[[[[[[[_  wozwrat                                  prawilxno !!!                    newerno ...                                                                                                                                           INKEY$i PAUSE [R]s NEXT  LOAD ACS &rl AT e INPUT CHR$ {arH zZslowo: