Alphabet: az1.bas.B

Es parte de la publicación: Alphabet
Tamaño del archivo: 9051
md5: e0b55be411542186455acb849203de12
  1 LET l=USR 58500
  2 BORDER 7: BRIGHT 1: PAPER 6: INK 0: CLS : DEF FN T(U$$)=INT ((32-LEN U$)/2)
  3 POKE 59835,235: POKE 59826,7: POKE 23607,229: POKE 23606,120
  10 LET OSNRAM=9910: LET CLS=9900: LET RAMRET=9890: LET MOVATTR=9700: LET INIATTR=9870
  11 DATA 30,12,24,8,22,10,30,9,28,11,1,15,17,10,10,10,13,8,10,14,2,10
  12 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
  15 GO SUB iniattr
  16 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
  17 DIM R(32): FOR Q=1 TO 32: READ A: LET R(Q)=A: NEXT Q
  20 DATA "arbuz","bo~ka","wilka","glaz","dom","elx","veludx","zabor","igla","jod","kit","list","most","nov","okno","plita","ryba","stol"
  30 DATA "telega","ulitka","fonarx","hleb","cwetok","~ajnik","{ar","}it","%","y","x","|kskawator","`la","qbloko"
  40 RESTORE 20: DIM W$(32,10): DIM F$(10,32): FOR Q=1 TO 32: READ Z$: LET W$(Q)=Z$: NEXT Q
  45 DATA "  Z[[[[[[[[[[[[[[[[[[[[[[[[[[/  ","  ]                          ]  ","  ^[[[[[[[[[[[[[[[[[[[[[[[[[[_  "
  50 DATA "wozwrat","         prawilxno !!!          ","          newerno ...           "
  55 FOR Q=1 TO 6: READ Z$: LET F$(Q)=Z$: NEXT Q
  60 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$
  62 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$
  64 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$
  66 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$
  68 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$
  70 GO SUB movattr: IF fir=0 OR xat>29 OR xat<2 THEN  GO TO 70
  75 RANDOMIZE 
  80 IF yat=4 THEN  GO SUB CLS: GO SUB 100: GO SUB CLS: GO TO 60
  82 IF yat=8 THEN  GO SUB CLS: GO SUB 150: GO SUB CLS: GO TO 60
  84 IF yat=12 THEN  GO SUB CLS: GO SUB 230: GO SUB CLS: GO TO 60
  86 IF yat=16 THEN  GO SUB CLS: GO SUB 350: GO SUB CLS: GO TO 60
  87 LET ass=0
  88 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 cls
  90 IF ass=20 THEN  GO TO 60
  98 GO TO 70
  100 REM DEMONSTATION
  102 CLS : INK 7: PAPER 0: FOR Q=1 TO 32: PRINT AT 21,Q-1;W$(Q)( TO 1): NEXT Q: INK 0: PAPER 6
  103 GO SUB OSNRAM: GO SUB RAMRET
  105 GO SUB MOVATTR: IF NOT FIR THEN  GO TO 105
  106 IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN 
  110 IF YAT=21 THEN  LET Q=xAT+1
  130 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$:
  140 GO TO 105
  150 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
  160 LET q=INT (RND*32)+1: POKE 57999,q-1: POKE 57998,R(q): LET L=USR 58000
  170 GO SUB RAMRET: LET Z$="~to |to za bukwa ?": PRINT AT 17,FN t(z$);z$
  180 GO SUB MOVATTR: IF NOT FIR THEN  GO TO 180
  190 IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN 
  200 IF YAT=21 THEN  IF Q-1=XAT THEN  PRINT AT 17,0;F$(5): PAUSE 0: PAUSE 0: GO TO 160
  210 IF YAT=21 THEN  PRINT AT 17,0;F$(6): BEEP .5 COPY ,-20
  215 GO TO 180
  230 REM lab
  232 LET Q$=CHR$ 16+CHR$ 6+CHR$ 17+CHR$ 6: LET R$=CHR$ 16+CHR$ 0+CHR$ 17+CHR$ 1
  235 DATA Q$+"Y"+R$+"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[/",Q$+"YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY"+R$+"]",Q$+"Y"+R$+"Z[/"+Q$+"Y"+R$+"Z[[[/"+Q$+"Y"+R$+"Z[[[[[[[[[[[[[[[[[/"+Q$+"Y"+R$+"]"
  237 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$+"]"
  240 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$+"]"
  243 DATA Q$+"Y"+R$+"^[_"+Q$+"YYY"+R$+"[[_"+Q$+"Y"+R$+"]"+Q$+"Y"+R$+"^[[[[[[_"+Q$+"YY"+R$+"]"+Q$+"Y"+R$+"^[[[_"+Q$+"Y"+R$+"]"
  246 DATA Q$+"YYYYYYYYYYY"+R$+"]"+Q$+"YYYYYYYYYYY"+R$+"]"+Q$+"YYYYYYY"+R$+"]",Q$+"Y"+R$+"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[_"
  259 GO SUB INIATTR
  260 LET R=INT (RND*26)+1: IF R=15 OR R=19 THEN  GO TO 260
  261 GO SUB OSNRAM: GO SUB RAMRET: POKE 57999,R-1: POKE 57998,R(R): LET L=USR 58000: PAUSE 0: PAUSE 0
  265 PRINT AT 18,9;"najdi slowo ": BEEP 1,10
  267 FOR Q=1 TO 10: IF W$(R,Q+1)=" " THEN  LET LEN=Q: GO TO 269
  268 NEXT Q
  269 RESTORE 235: FOR Q=0 TO 9: READ E$: PRINT AT 7+Q,0;E$: NEXT Q
  270 DIM S(LEN,2): FOR Q=1 TO LEN
  271 LET V=INT (RND*11)+1: IF SCREEN$ (K(V,2),K(V,1))<>"Y" THEN  GO TO 271
  272 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
  275 FOR Q=1 TO LEN
  280 GO SUB MOVATTR: IF NOT FIR THEN  GO TO 280
  290 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
  300 IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN 
  310 GO TO 280
  325 NEXT Q
  326 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 
  350 REM COMPLETE A WORD
  355 GO SUB OSNRAM
  360 LET R=INT (RND*26)+1: POKE 57999,R-1: POKE 57998,R(R): LET L=USR 58000
  370 FOR Q=1 TO 10: IF W$(r,Q+1)=" " THEN  LET LEN=Q: GO TO 380
  375 NEXT Q
  380 DIM B$(LEN): LET H$=" "
  385 GO SUB ramret
  390 FOR Q=1 TO LEN
  400 LET Z=INT (RND*LEN)+1: IF B$(Z)<>" " THEN  GO TO 400
  410 LET B$(Z)=W$(R,Q): NEXT Q
  420 LET Z$="slowo: "+B$: PRINT AT 17,10;z$: PRINT AT 19,10;"u tebq: ";H$
  425 GO SUB MOVATTR: IF NOT FIR THEN  GO TO 425
  430 IF YAT=3 AND XAT>1 AND XAT<30 THEN  RETURN 
  440 IF YAT<>17 OR XAT<17 OR XAT>16+LEN THEN  GO TO 425
  450 LET V$=H$: LET H$=B$(XAT-16): LET B$(XAT-16)=V$
  460 PRINT AT 17,17;"";B$;AT 19,18;H$
  470 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 
  480 GO TO 425
  9700 LET I$=INKEY$: LET FIR=0: POKE MAT,248: IF I$="M" OR I$="m" THEN  LET FIR=1: BEEP .07 PRINT ,5: RETURN 
  9710 IF I$<>"Q" AND I$<>"q" THEN  GO TO 9750
  9720 IF PEEK (MAT-32)=72 OR MAT<22560 THEN  RETURN 
  9730 POKE MAT,PAT: LET MAT=MAT-32: LET PAT=PEEK MAT: POKE MAT,248: LET YAT=YAT-1: RETURN 
  9750 IF I$<>"A" AND I$<>"a" THEN  GO TO 9790
  9760 IF PEEK (MAT+32)=72 OR MAT>23199 THEN  RETURN 
  9770 POKE MAT,PAT: LET MAT=MAT+32: LET PAT=PEEK MAT: POKE MAT,248: LET YAT=YAT+1: RETURN 
  9790 IF I$<>"o" AND I$<>"O" THEN  GO TO 9830
  9800 IF PEEK (MAT-1)=72 OR XAT<1 THEN  RETURN 
  9810 POKE MAT,PAT: LET MAT=MAT-1: LET PAT=PEEK MAT: POKE MAT,248: LET XAT=XAT-1: RETURN 
  9830 IF I$<>"P" AND I$<>"p" THEN  RETURN 
  9840 IF PEEK (MAT+1)=72 OR XAT>30 THEN  RETURN 
  9850 POKE MAT,PAT: LET MAT=MAT+1: LET PAT=PEEK MAT: POKE MAT,248: LET XAT=XAT+1: RETURN 
  9860 REM INICIALIZATION
  9870 LET XAT=16: LET YAT=19: LET MAT=22528+19*32+16: LET PAT=PEEK MAT: RETURN 
  9890 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 
  9900 FOR Q=21 TO 0 STEP -1: PRINT AT Q,0;"                                ": NEXT Q: RETURN 
  9910 LET Z$="]        ]": FOR O=8 TO 15: PRINT AT O,11;Z$: NEXT O: PRINT AT 7,11;"Z[[[[[[[[/";AT 16,11;"^[[[[[[[[_": RETURN 
  44915a 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: {arI