Last Raider: RAID.B

  1 POKE (O+NC),FF
  2 POKE (F+T),PEEK (F+T)-W: RETURN 
  5 PRINT AT Z,X;
  10 BEEP VAL ".05",J+I: FOR V=W TO LEN Z$: PRINT Z$(V); OVER 1;"";CHR$ 8;
  11 BEEP .002[H],40: NEXT V: PRINT  INK B; OVER W;"";: RETURN 
  15 INK B: PRINT AT W,Q;"[A][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][C]": FOR X=E TO I+E: PRINT AT X,0;"[G]";TAB 31;"[H]": NEXT X: PRINT "[D][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][F]": RETURN 
  20 IF PEEK (F+T)<MAX THEN  POKE (F+T),PEEK (F+T)+W: POKE (O+NC),T: GO TO R-A
  21 POKE (O+NC),PEEK F: GO TO R-A
  25 FOR X=-C TO I+C: BEEP .06/,X: NEXT X: FOR X=I+B TO -C STEP -W: BEEP .06/,X: NEXT X: PAUSE I+C: RANDOMIZE USR VAL "63085": RETURN 
  30 INK C: POKE (VP+E),S: RANDOMIZE USR PR: PRINT : GO TO VAL "190"
  45 LET R$(W)="ne polu~aetsq.": GO TO R
  46 LET R$(W)="wy poprobowali, no u was": LET R$(E)="ne polu~ilosx.": GO TO R
  47 LET R$(W)="O.K. wy sdelali |to.": GO TO R
  48 LET R$(W)="O.K, no ni~ego ne proizo{lo.": GO TO R
  49 LET R$(W)="O.K."
  50 IF PEEK F=J+C AND PEEK (F+J+B)=Q AND PEEK (O+J-G)=PEEK F THEN  POKE (O+J-G),FF: POKE (F+J+B),W: POKE (O+I+Y),PEEK F: LET S=VAL "174": GO TO J
  51 IF MAX=Q THEN  GO TO DI
  52 FOR X=W TO E: IF R$(X,W)="*" THEN  LET X=E: GO TO D*I
  54 RANDOMIZE USR SS: PRINT  INK C;R$(X): LET R$(X)="*"
  60 NEXT X: GO TO VAL "190"
  100 PAPER Q: CLS 
  110 BRIGHT Q: INK D: POKE (VP+W),Q: POKE (VP+E),Q: RANDOMIZE USR PR: PRINT : LET DF=PEEK (VP+W)
  115 IF PEEK F=Y THEN  POKE (F+W),W
  120 IF DF=W OR DF=A THEN  PRINT AT Q,B;" zdesx ni~ego ne widno! ";AT E,Q;
  130 POKE VAL "64953",PEEK VAL "23689"-W
  140 IF VB=FF AND ((PEEK F=I+D AND NO=Q) OR (PEEK F=I+H AND NO=W)) AND PEEK (F+R-H)=W THEN  POKE (F+R-H),E: POKE (F+R+W),Q: RANDOMIZE USR SS: PRINT  INK C;"dwerx za wami zahlopnulasx."
  190 IF PEEK F=J+I AND PEEK (F+J+A)=Q AND PEEK (O+I+B)=PEEK F THEN  LET SD=Q: POKE (F+J+A),W: POKE (O+I+D),PEEK F: LET S=VAL "170": GO TO J
  191 IF PEEK F=I+W AND VB=A AND NO=J+D AND PEEK (O+I+W)=Q THEN  POKE (O+I+W),PEEK F: RANDOMIZE USR SS: PRINT  INK C;"wy koe-~to na{li wnutri nego!"
  195 LET S=Q: IF (DF=E OR DF=A) AND PEEK (O+J-C)<>T THEN  RANDOMIZE USR SS: PRINT  INK C;"zdesx net wozduha!": POKE (F+R+A),PEEK (F+R+A)+W: IF PEEK (F+R+A)=A THEN  LET S=VAL "153": GO TO DI
  196 IF (DF<>E AND DF<>A) OR PEEK (O+J-C)=T THEN  POKE (F+R+A),Q
  197 IF SD<>Q THEN  LET S=SD: GO TO DI
  198 IF PEEK (F+J+W)=W AND PEEK (F+R-B)=Q THEN  POKE (F+R+B),PEEK (F+R+B)+W: IF PEEK (F+R+B)=FF THEN  RANDOMIZE USR VAL "63126": LET R$(W)="wy sli{kom blizko podleteli": LET R$(E)="k zwezde i wzorwalisx.": GO TO DI
  200 RANDOMIZE USR SS: PRINT  INK B;"wa{i dejstwiq?": BEEP VAL ".1",I+I: INK D
  201 RANDOMIZE USR VAL "64959": PRINT : LET VB=PEEK VP: LET NC=PEEK (VP+W): LET NO=PEEK (VP+E)
  208 IF PEEK F=J-W AND NOT (VB=I+H AND NO=W) AND NOT (VB=FF AND NO=J-C) AND PEEK (O+J-C)<>T THEN  RANDOMIZE USR VAL "63054": LET S=VAL "154": GO TO DI
  210 IF VB=C OR VB=D OR VB=Y OR VB=G OR VB=E OR VB=J-C OR VB=J-W THEN  GO TO J*I
  220 IF (DF=W OR DF=A) AND VB<>FF THEN  LET R$(W)="zdesx sli{kom temno dlq |togo!": GO TO R
  230 IF VB=J THEN  GO TO J*I
  240 IF PEEK F=J+I AND PEEK (F+J+A)=Q AND NOT (VB=FF AND NO=J-C) THEN  LET SD=VAL "149"
  250 IF PEEK F=J+C AND PEEK (F+J+B)=Q AND VB=FF AND NO<>J-A THEN  LET SD=VAL "150"
  260 IF PEEK F=I+G AND PEEK (F+J+C)=Q AND NOT (VB=I+D AND NO=J+C) AND NOT (VB=FF AND NO=J-C) THEN  LET SD=VAL "151"
  270 IF PEEK F=J-G AND PEEK (F+J+D)=Q AND VB<>J-Y AND NOT (VB=FF AND NO=J-A) THEN  LET SD=VAL "152"
  300 IF VB=FF AND SD<>Q THEN  LET S=SD: GO TO DI
  310 IF VB<>FF THEN  GO TO VAL "1000"+VB*(R+R)
  1000 IF NO<J-C OR NO>J THEN  LET R$(W)="ne ponima`.": GO TO R
  1002 LET NO=NO-J+C: POKE VP,NO
  1005 IF PEEK F=I+B AND PEEK (F+A)=Q AND NO=A THEN  LET S=VAL "148": GO TO DI
  1010 IF PEEK F=R+W AND NO=W AND PEEK (O+J-C)=T THEN  LET S=VAL "186": GO TO J
  1020 IF (PEEK F=I+D AND PEEK (F+R-B) AND NO=A) OR (PEEK F=R+W AND NO=W) THEN  LET S=VAL "187": GO TO DI
  1030 IF ((PEEK F=R-B AND NO=E) OR (PEEK F=R-A AND NO=A)) AND PEEK (O+J-C)=T AND PEEK (F+I+B)=W THEN  LET R$(W)="l`k sli{kom uzkij dlq was.": GO TO R
  1090 RANDOMIZE USR VAL "64850"
  1092 IF PEEK VP=Q THEN  LET R$(W)="tuda wam ne projti.": GO TO R
  1093 IF PEEK VP=W THEN  LET R$(W)="wy uperlisx w zakrytu` dwerx.": GO TO R
  1094 IF PEEK VP=E THEN  LET S=VAL "188": GO TO J
  1095 IF PEEK VP=A THEN  LET R$(W)="lift otkl`~en.": GO TO R
  1099 GO TO R+R
  1100 IF NO>MOB THEN  LET R$(W)="|to newozmovno!": GO TO R
  1102 IF NO>=I+A AND NO<=I+C THEN  GO TO R-B
  1105 IF PEEK (O+NO)=T THEN  LET S=VAL "189": GO TO J
  1110 IF PEEK (O+NO)<>PEEK F AND NOT (NO<=B AND PEEK (O+NO+MOB)=PEEK F) THEN  LET R$(W)="nawerno, |to wam snitsq!": GO TO R
  1115 IF PEEK (F+T)>=MAX THEN  LET R$(W)="wam wse |to ne unesti.": GO TO R
  1125 IF PEEK (O+NO)=PEEK F THEN  POKE (O+NO),T: POKE (F+T),PEEK (F+T)+W: GO TO R-W
  1130 POKE (O+NO+MOB),T: POKE (F+T),PEEK (F+T)+W: GO TO R-W
  1200 IF NC>MOB THEN  LET NC=NO
  1202 IF NC>MOB THEN  LET R$(W)="ne budem delatx glupostej!": GO TO R
  1205 IF PEEK (O+NC)<>T AND NOT (NC<=B AND PEEK (O+NC+MOB)=T) THEN  LET S=VAL "189": GO TO J
  1220 IF NC=W AND PEEK (O+J-C)=T THEN  LET R$(W)="no wedx on nadet na was.": GO TO R
  1230 IF PEEK (O+NC)=T THEN  POKE (O+NC),PEEK F: GO SUB E: GO TO R-W
  1235 POKE (O+NC+MOB),PEEK F: GO SUB E: GO TO R-W
  1300 IF PEEK F=Y AND NO=R-A AND PEEK (F+J-B) THEN  GO SUB VAL "9000": GO SUB VAL "9200": GO TO R+R
  1310 IF PEEK F=B AND NO=R-A AND PEEK (F+J-E) THEN  GO SUB VAL "9400": GO SUB VAL "9200": GO TO R+R
  1320 IF PEEK F=J+C AND PEEK (O+A)<>T AND PEEK (O+A)<>PEEK F AND PEEK (O+J-A)<>T AND PEEK (O+J-A)<>PEEK F THEN  LET R$(W)="po~ti wse oni razbity.": GO TO R
  1330 LET S=NO: GO TO J
  1400 GO TO R+R
  1500 LET S=T: GO TO J
  1600 INK D: BRIGHT Q: RANDOMIZE USR SS: PRINT  INK C;"hotite zagruzitx": RANDOMIZE USR SS: PRINT  INK C;"otlovennu` igru?": GO SUB VAL "1691": IF A$="Y" THEN  GO TO VAL "1800"
  1660 RANDOMIZE USR SS: PRINT  INK C;"hotite poprobowatx e}e raz?": GO SUB VAL "1691"
  1680 IF A$="Y" THEN  RANDOMIZE USR VAL "65491": LET SD=Q: LET MAX=E: POKE (F+R+E),I+C: GO TO R+R
  1685 RANDOMIZE USR SS: PRINT  INK C;"a esli ne hotite,": RANDOMIZE USR SS: PRINT  INK C;"prosto navmite ""sbros"".": GO TO VAL "1660"
  1691 RANDOMIZE USR SS: PRINT  INK C;"wwedite Y ili N.": RANDOMIZE USR SS: PRINT ">*";CHR$ G;
  1692 POKE VAL "23658",G: LET A$=INKEY$: IF A$<>"Y" AND A$<>"N" THEN  GO TO VAL "1692"
  1693 BEEP VAL ".01",I+I: PRINT A$: RETURN 
  1700 GO SUB VAL "1891": IF A$="p" THEN  RANDOMIZE USR VAL "65439": GO TO R+R
  1720 IF A$="m" THEN  RANDOMIZE USR SS: PRINT  INK C;"navmite l`bu` klawi{u...": GO SUB VAL "9200": RANDOMIZE USR VAL "65477": GO TO R+R
  1760 GO SUB VAL "1896": RANDOMIZE USR VAL "15619": REM : ERASE Z$CODE 
  1770 RANDOMIZE USR VAL "15619": REM : SAVE Z$CODE F,VAL "150"
  1780 GO TO R+R
  1800 GO SUB VAL "1891": IF A$="p" THEN  RANDOMIZE USR VAL "65451": GO TO VAL "1890"
  1820 IF A$="m" THEN  RANDOMIZE USR VAL "65463": GO TO VAL "1890"
  1860 GO SUB VAL "1896": LET ERR=USR VAL "15619": REM : LOAD Z$CODE 
  1870 IF ERR<>Q THEN  RANDOMIZE USR SS: PRINT  INK C;"o{ibka"
  1890 LET SD=Q: LET MAX=PEEK (F+T-W): GO TO R+R
  1891 RANDOMIZE USR SS: PRINT  INK C;"pamqtx / diskowod / magnitofon?": RANDOMIZE USR SS: PRINT ">*";CHR$ G;: POKE VAL "23658",Q
  1894 LET A$=INKEY$: IF A$<>"p" AND A$<>"d" AND A$<>"m" THEN  GO TO VAL "1894"
  1895 BEEP VAL ".01",I+I: PRINT A$: RETURN 
  1896 RANDOMIZE USR SS: PRINT  INK C;"wwedite nomer zapisi": RANDOMIZE USR SS: PRINT ">*";CHR$ G;: GO SUB VAL "9200"
  1899 LET Z$="<RAIDER"+A$: BEEP VAL ".01",I+I: PRINT A$: RETURN 
  1900 IF NO=J+A AND PEEK F=J+G AND NOT PEEK (F+I+C) THEN  POKE (F+I+C),W: LET S=VAL "190": GO TO J
  1915 IF NO=R-E AND (PEEK F=B AND NOT PEEK (F+J-C)) OR (PEEK F=J+W AND NOT PEEK (F+J-D)) THEN  LET S=VAL "159": GO TO J
  1918 IF PEEK F=I+A AND NO=J+E AND PEEK (F+R-W)=Q THEN  LET S=VAL "155": GO TO DI
  1920 IF NO>=E AND NO<=B AND PEEK (O+NO)=T THEN  LET R$(W)="no ona ne zakryta!": GO TO R
  1924 IF NO=C AND PEEK (O+C)=T AND NOT PEEK (F+R+C) THEN  POKE (F+R+C),W: GO TO R-A
  1925 IF NO=Y AND PEEK (O+Y)=T AND PEEK (O+D)=Q THEN  POKE (F+R+D),W: POKE (O+D),PEEK F: LET R$(W)="O.K. iz nee ~to-to wypalo.": GO TO R
  1926 IF NO=Y AND PEEK (O+Y)=T AND NOT PEEK (F+R+D) THEN  POKE (F+R+D),W: GO TO R-A
  1927 IF NO=J-H AND (PEEK (O+NO)=T OR PEEK (O+NO)=PEEK F) THEN  LET R$(W)="ne polu~aetsq, on zakleen.": GO TO R
  1928 IF NO=R+G AND PEEK (O+J-D)=T AND NOT PEEK (F+R+Y) THEN  POKE (F+R+Y),W: GO TO R-A
  1930 IF NO<>J+W THEN  GO TO VAL "1950"
  1937 GO SUB VAL "8000"
  1938 IF TF=Q THEN  LET R$(W)="zdesx net dwerej!": GO TO R
  1940 IF PEEK (F+TF)=Q THEN  POKE (F+TF),W: LET R$(W)="O.K. dwerx otkryta.": GO TO R
  1945 IF PEEK (F+TF)=W THEN  LET R$(W)="no ona i tak otkryta!": GO TO R
  1949 GO TO R-B
  1950 IF NO<>J+E THEN  GO TO R-C
  1951 IF PEEK F=R-G THEN  GO TO R-C
  1952 GO SUB VAL "8100"
  1954 IF TF=J-H AND PEEK (F+I+I)=Q THEN  GO TO R-C
  1955 IF TF=Q THEN  LET R$(W)="zdesx net ni odnogo l`ka.": GO TO R
  1956 IF PEEK (F+TF)=Q THEN  POKE (F+TF),W: LET R$(W)="O.K. wy otkryli l`k.": GO TO R
  1958 IF PEEK (F+TF)=W THEN  LET S=VAL "191": GO TO J
  1959 GO TO R-B
  2000 IF NO=FF OR (NO<=MOB AND NO<>W) THEN  LET NO=NC
  2002 IF NO=W AND PEEK F=I+G AND NOT PEEK (F+C) THEN  POKE (F+C),W: LET S=VAL "160": GO TO J
  2005 IF NO=J+B AND PEEK F=E AND NOT PEEK (F+D) THEN  LET S=VAL "192": GO TO J
  2010 IF NO=J+B AND PEEK F=J+H AND NOT PEEK (F+Y) THEN  POKE (F+Y),W: LET S=VAL "162": GO TO J
  2015 IF NO=J+D AND PEEK F=I+W AND NOT PEEK (F+G) THEN  POKE (F+G),W: LET S=VAL "163": GO TO J
  2020 IF ((NO=J+Y AND (PEEK F=G OR PEEK F=R-B)) OR (NO=J+C AND PEEK F=I+B)) AND PEEK (O+G)<>T THEN  LET S=VAL "164": GO TO J
  2025 IF NO=J+Y AND PEEK F=G AND NOT PEEK (F+E) THEN  POKE (F+E),W: GO TO R-A
  2030 IF NO=J+Y AND PEEK F=R-B AND NOT PEEK (F+B) THEN  POKE (F+B),W: GO TO R-A
  2035 IF NO=J+C AND PEEK F=I+B AND NOT PEEK (F+A) THEN  POKE (F+A),W: LET S=VAL "165": GO TO J
  2099 GO TO R-B
  2100 IF NO=J+A AND PEEK F=J+G AND PEEK (F+I+C) THEN  POKE (F+I+C),Q: LET R$(W)="O.K. wy zakryli {kaf.": GO TO R
  2105 IF NO>=E AND NO<=B AND (PEEK (O+NO)=T OR PEEK (O+NO+MOB)=T) THEN  LET R$(W)="wy popytalisx, no ne smogli.": GO TO R
  2110 IF ((NO=Y AND PEEK (F+R+D)=Q) OR (NO=C AND PEEK (F+R+C)=Q)) AND PEEK (O+NO)=T THEN  LET R$(W)="no ona i tak zakryta!": GO TO R
  2115 IF NO=C AND PEEK (O+C)=T THEN  POKE (F+R+C),Q: GO TO R-A
  2120 IF NO=Y AND PEEK (O+Y)=T THEN  POKE (F+R+D),Q: GO TO R-A
  2125 IF NO=R+G AND PEEK (O+J-D)=T AND PEEK (F+R+Y) THEN  POKE (F+R+Y),Q: GO TO R-A
  2140 IF NO<>J+W THEN  GO TO VAL "2160"
  2145 GO SUB VAL "8000"
  2147 IF TF=Q THEN  LET R$(W)="osmotritesx wokrug.": GO TO R
  2150 IF PEEK (F+TF)=W THEN  POKE (F+TF),Q: LET R$(W)="O.K. teperx dwerx zakryta.": GO TO R
  2155 IF PEEK (F+TF)=Q THEN  LET R$(W)="no |ta dwerx uve zakryta!": GO TO R
  2159 GO TO R-B
  2160 IF NO<>J+E THEN  LET S=VAL "193": GO TO J
  2161 IF PEEK F=R-G THEN  GO TO R-C
  2162 GO SUB VAL "8100"
  2165 IF TF=Q THEN  LET R$(W)="zdesx net l`kow.": GO TO R
  2167 IF TF=J-H AND PEEK (F+I+I)=Q THEN  GO TO R-C
  2170 IF PEEK (F+TF)=W THEN  POKE (F+TF),Q: LET R$(W)="O.K. wy zakryli l`k.": GO TO R
  2180 LET S=VAL "194": GO TO J
  2200 IF NC>MOB THEN  GO TO VAL "2290"
  2203 IF PEEK (O+NC)=PEEK F OR (NC<=B AND PEEK (O+NC+MOB)=PEEK F) THEN  LET S=VAL "212": GO TO J
  2204 IF PEEK (O+NC)<>T AND NOT (NC<=B AND PEEK (O+NC+MOB)=T) THEN  LET S=VAL "189": GO TO J
  2205 IF (NO=R-B OR NO=R-W) AND NC=I AND PEEK F=J-A THEN  POKE (O+I),T-W: POKE (F+J+I),W: GO SUB E: LET S=VAL "166": GO TO J
  2210 IF (NO=R-B OR NO=R-W) AND NC=I AND PEEK F=J+W THEN  GO SUB E: POKE (O+I),Q: LET S=VAL "166": GO TO J
  2215 IF (NO=J+C OR NO=R-B) AND NC=I+W AND PEEK F=I+C AND PEEK (F+H)=Q THEN  POKE (F+H),W: GO SUB W: LET S=VAL "167": GO TO J
  2220 IF NO=R-C AND NC=I+E AND PEEK F=Y AND PEEK (O+J-Y)<>T-E THEN  GO SUB E: POKE (O+NC),T-E: POKE (F+J-W),W: GO TO R-A
  2222 IF NO=R-C AND NC=I+E AND (PEEK F=I+D OR PEEK F=I+H) AND PEEK (O+J-Y)<>T-W THEN  GO SUB E: POKE (O+NC),T-W: GO TO R-A
  2225 IF NO=R-B AND NC=I+D AND PEEK F=B AND PEEK (F+J-C) THEN  POKE (O+NC),T-W: GO SUB E: LET S=VAL "168": GO TO J
  2230 IF (NO=R-B OR NO=R+W) AND NC=I+G AND PEEK F=R+E THEN  POKE (F+J+H),W: POKE (O+NC),T-W: GO SUB E: GO TO R-A
  2235 IF NO=R-C AND NC=J-Y AND PEEK F=Y AND PEEK (O+I+E)<>T-E THEN  GO SUB E: POKE (O+NC),T-E: GO TO R-A
  2240 IF NO=R-C AND NC=J-Y AND (PEEK F=I+D OR PEEK F=I+H) AND PEEK (O+I+E)<>T-W THEN  GO TO VAL "2291"
  2245 IF (NO=H OR NO=R-B) AND NC=J-G AND (PEEK (O+H)=T OR PEEK (O+H)=PEEK F) THEN  POKE (O+NC),T-W: GO SUB E: GO TO R-A
  2250 IF (NO=I+I OR NO=R-B) AND NC=J-G AND (PEEK (O+I+I)=T OR PEEK (O+I+I)=PEEK F) THEN  POKE (O+NC),T-E: GO SUB E: GO TO R-A
  2290 LET R$(E)="wstawitx ~to i kuda?": GO TO R-C
  2291 GO SUB E: POKE (O+J-Y),T-W
  2292 IF PEEK (F+R+E)=Q THEN  GO TO R-W
  2293 POKE (F+R-H),Q: POKE (F+R+W),W: POKE (F+R+E),PEEK (F+R+E)-W: GO TO R-E
  2300 IF NC>MOB THEN  LET NC=NO
  2305 IF NC>MOB THEN  LET R$(W)="wrqd li u was |to polu~itsq.": GO TO R
  2310 IF NC=I AND PEEK F=J-A AND PEEK (F+I+J) THEN  POKE (F+I+J),Q: GO TO I+I
  2315 IF NC=I AND PEEK F=J+W AND PEEK (O+I)=Q THEN  GO TO I+I
  2320 IF NC=I+W AND PEEK F=I+C AND PEEK (F+H) THEN  LET R$(W)="wy prosunuli ruku w rot robotu": LET R$(E)="i on tut ve otkusil ee.": GO TO VAL "8200"
  2330 IF NC=I+E AND PEEK F=Y AND PEEK (F+J-W) THEN  POKE (F+J-W),Q: GO TO I+I
  2332 IF NC=I+E AND (PEEK F=I+D OR PEEK F=I+H) AND PEEK (O+NC)=T-W THEN  GO TO I+I
  2335 IF NC=I+D AND PEEK F=B AND PEEK (O+NC)=T-W THEN  LET S=VAL "169": GO TO J
  2340 IF NC=I+G AND PEEK F=R+E AND PEEK (F+J+H)<>Q THEN  POKE (F+J+H),Q: GO TO I+I
  2342 IF NC=I+G AND PEEK F=R-D AND PEEK (O+NC)=Q THEN  GO TO I+I
  2345 IF NC=J-Y AND PEEK F=Y AND PEEK (O+NC)=T-E THEN  GO TO I+I
  2350 IF NC=J-Y AND (PEEK F=I+D OR PEEK F=I+H) AND PEEK (O+NC)=T-W THEN  GO TO I+I
  2355 IF NC=J-G AND PEEK (O+H)=T AND PEEK (O+NC)=T-W THEN  GO TO I+I
  2360 IF NC=J-G AND PEEK (O+NC)=T-E AND PEEK (O+I+I)=T THEN  GO TO I+I
  2399 GO TO R-C
  2400 IF NO=R+D AND PEEK F=J+H AND PEEK (F+Y) AND PEEK (F+I+G)=E THEN  POKE (F+I+G),W: POKE (F+R),W: LET S=VAL "195": GO TO J
  2402 IF NO=R+D AND PEEK F=J+H AND PEEK (F+Y) THEN  POKE (F+I+G),E: POKE (F+R),Q: LET S=VAL "196": GO TO J
  2404 IF NO>MOB THEN  LET R$(W)="~to za dikie fantazii!": GO TO R
  2405 IF NC>=I+A AND NC<=I+C AND PEEK (O+NC)=PEEK F AND NO<>NC-I-W THEN  GO TO R-B
  2410 IF NC>=I+A AND NC<=I+C AND PEEK (O+NC)=PEEK F AND PEEK (O+NO)=T THEN  POKE (O+NO),Q: POKE (O+NC),Q: POKE (O+NO+MOB),T: GO TO R-A
  2420 IF NC>=I+A AND NC<=I+C AND PEEK (O+NC)=PEEK F AND PEEK (O+NO)=PEEK F THEN  POKE (O+NO),Q: POKE (O+NC),Q: POKE (O+NO+MOB),PEEK F: GO TO R-A
  2499 LET R$(E)="nalitx ~to i kuda?": GO TO R-C
  2500 IF NC>=I+A AND NC<=I+C AND PEEK (O+NC+I+A)=T THEN  POKE (O+NC+I+A),Q: POKE (O+NC-I-W),T: POKE (O+NC),PEEK F: LET S=W
  2503 IF NC>=I+A AND NC<=I+C AND PEEK (O+NC+I+A)=PEEK F THEN  POKE (O+NC+I+A),Q: POKE (O+NC-I-W),PEEK F: POKE (O+NC),PEEK F: LET S=W
  2504 IF NC>=I+A AND NC<=I+C AND S=Q THEN  LET S=VAL "189": GO TO J
  2505 IF S=Q THEN  LET R$(W)="wylitx ~to(i, esli nado, kuda)?": GO TO R
  2510 IF NC=I+B AND PEEK F=J+I AND PEEK (F+J+A)=Q THEN  LET S=VAL "228": GO TO J
  2520 IF NC=I+C AND NO=J+E AND PEEK F=I+A AND PEEK (F+R-W)=Q THEN  POKE (F+R-W),W: LET S=VAL "197": GO TO J
  2599 GO TO R-A
  2600 IF PEEK (O+H)<>T THEN  LET R$(W)="iz ~ego, iz palxca?": GO TO R
  2601 IF PEEK (O+J-G)<>T-W THEN  LET R$(W)="razdalsq zwuk ""klik!""": GO TO R
  2602 RANDOMIZE USR VAL "63126"
  2603 IF NC=J-A AND NO=FF THEN  GO TO R-E
  2604 IF NO=H OR NO=FF THEN  LET S=VAL "198": GO TO J
  2605 IF NO=J+E AND PEEK F=J-E AND NOT PEEK (F+I+I) THEN  POKE (F+I+I),W: LET S=VAL "171": GO TO J
  2610 IF NO=J+C AND PEEK F=I+G AND NOT PEEK (F+J+C) THEN  POKE (F+J+C),W: LET S=VAL "172": GO TO J
  2615 IF NO=J+C AND PEEK F=J+C AND PEEK (F+J+B)<>FF THEN  POKE (F+J+B),FF: LET S=VAL "173": GO TO J
  2620 IF NO=J+C AND PEEK F=J+I AND NOT PEEK (F+J+A) THEN  LET S=VAL "199": GO TO J
  2625 IF NO=J+C AND PEEK F=J-G AND NOT PEEK (F+J+D) THEN  LET S=VAL "200": GO TO J
  2630 IF NO=R-Y AND PEEK F=J+D AND NOT PEEK (F+J+Y) THEN  POKE (F+J+Y),W: LET S=VAL "175": GO TO J
  2635 IF NO>MOB THEN  GO TO R-E
  2638 IF NO<=B AND (PEEK (O+NO+MOB)=PEEK F OR PEEK (O+NO+MOB)=T) THEN  LET NO=NO+MOB
  2640 IF PEEK (O+NO)=PEEK F THEN  POKE (O+NO),FF: GO TO R-A
  2650 IF PEEK (O+NO)=T THEN  LET NC=NO: GO SUB W: LET R$(W)="wy sdelali |to i zaodno": LET R$(E)="otstrelili sebe ruku.": GO TO VAL "8200"
  2699 LET R$(W)="u was, nawerno, gall`cinacii.": GO TO R
  2700 IF NO=FF THEN  LET S=VAL "201": GO TO J
  2701 IF NO=J+B AND PEEK F=E AND PEEK (F+D)=Q THEN  POKE (F+D),W: LET S=VAL "161": GO TO J
  2702 IF NO=J+B AND PEEK F=J+H AND PEEK (F+Y)=Q THEN  LET R$(W)="odna iz nih nemnogo sdwinulasx.": GO TO R
  2705 IF NO<>J+H THEN  GO TO R-E
  2710 IF NC=J+H AND (PEEK F=Y OR PEEK F=A) THEN  LET R$(W)="kotoru` knopku?": GO TO R
  2711 IF PEEK F<>A THEN  GO TO VAL "2736"
  2715 IF PEEK (F+J-A)=E THEN  LET S=VAL "176": GO TO J
  2720 IF NC=VAL "62" AND PEEK (F+J-A)=Q THEN  POKE (F+J-A),W: LET S=VAL "177": GO TO J
  2725 IF NC=VAL "62" AND PEEK (F+J-A)=W THEN  POKE (F+J-A),Q: LET S=VAL "202": GO TO J
  2730 IF NC=VAL "63" AND PEEK (F+J-A)=Q THEN  POKE (F+J-A),E: LET S=VAL "203": GO TO J
  2735 IF NC=VAL "63" AND PEEK (F+J-A)=W THEN  GO SUB VAL "8300": LET S=VAL "178": GO TO J
  2736 IF PEEK F<>Y THEN  GO TO VAL "2750"
  2740 IF NC=VAL "63" AND PEEK (F+J-B)=Q THEN  POKE (F+J-B),W: LET S=VAL "204": GO TO J
  2741 IF NC=VAL "63" AND PEEK (F+J-B)=W THEN  POKE (F+J-B),Q: LET R$(W)="O.K. |kran~ik pogas.": GO TO R
  2743 IF (NC=VAL "62" AND (PEEK (F+J-W)=Q OR PEEK (F+J+E)=W OR PEEK (F+J-B)=Q)) OR (NC=VAL "64" AND (PEEK (F+J+I)=Q OR PEEK (O+I+A)<>I+I OR PEEK (F+J+W)=W)) THEN  GO TO R-E
  2745 IF NC=VAL "62" THEN  POKE (F+J+E),W: LET S=VAL "205": GO TO J
  2747 IF NC=VAL "64" THEN  POKE (F+J+W),W: POKE (O+I+E),R: LET S=VAL "179": GO TO J
  2750 IF PEEK F<>B THEN  GO TO VAL "2765"
  2751 IF PEEK (F+J-C)=Q THEN  GO TO VAL "2779"
  2752 IF PEEK (O+I+D)<>T-W THEN  LET S=VAL "156": GO TO DI
  2755 IF PEEK (F+J-E)=Q THEN  POKE (F+J-E),W: LET S=VAL "206": GO TO J
  2760 POKE (F+J-E),Q: LET R$(W)="wy wykl`~ili malenxkij |kran.": GO TO R
  2765 IF PEEK F=J+B THEN  LET S=VAL "207": GO TO J
  2770 IF PEEK F=I+D AND (PEEK (F+R-B)=W OR PEEK (F+J+E)=Q) THEN  GO TO R-E
  2774 IF PEEK F=I+D THEN  POKE (F+R-B),W: POKE (F+J-Y),W: RANDOMIZE USR VAL "63126": LET S=VAL "180": GO TO J
  2775 IF PEEK F=R+E AND PEEK (F+J+H)=E AND PEEK (F+J+G)=W THEN  GO TO VAL "9500"
  2776 IF PEEK F=R+E THEN  GO TO R-E
  2777 IF PEEK F=J+H AND PEEK (F+Y)=W THEN  GO TO R-E
  2799 LET R$(W)="kakie-to knopki mere}atsq...": GO TO R
  2800 IF PEEK (O+I+Y)<>T THEN  LET S=VAL "208": GO TO J
  2802 IF PEEK F=J+D AND PEEK (F+J+Y) THEN  LET R$(W)="u was cementa ne hwatit!": GO TO R
  2805 IF NO=R-B AND (PEEK F=I+H OR PEEK F=R+W) THEN  LET S=VAL "209": GO TO J
  2810 IF NO=J+G AND PEEK F=R-Y THEN  POKE (F+J-G),W: POKE (O+I+Y),FF: GO SUB E: LET S=VAL "210": GO TO J
  2899 LET S=VAL "211": GO TO J
  2900 IF NO=W AND PEEK (O+W)=T THEN  POKE (O+W),Q: POKE (O+J-C),T: GO SUB E: LET R$(W)="otli~no! oswobodilasx ruka.": GO TO R
  2905 IF NO=W AND PEEK (O+J-C)=T THEN  LET R$(W)="on uve odet na was!": GO TO R
  2908 IF NO=W AND PEEK (O+W)=PEEK F THEN  LET S=VAL "212": GO TO J
  2910 GO TO R-B
  3000 IF NO=W AND PEEK (O+J-C)<>T THEN  LET R$(W)="no ego net na was!": GO TO R
  3005 IF NO=W AND PEEK (F+T)=MAX THEN  LET R$(W)="ne wyhodit! wa{i ruki zanqty.": GO TO R
  3010 IF NO=W THEN  POKE (O+W),T: POKE (O+J-C),Q: POKE (F+T),PEEK (F+T)+W: LET R$(W)="O.K. wy snqli skafandr.": GO TO R
  3099 GO TO R-B
  3100 IF PEEK (O+I+H)<>T THEN  LET S=VAL "213": GO TO J
  3110 IF NO=R-E AND PEEK F=B AND NOT PEEK (F+J-C) THEN  POKE (F+J-C),W: LET S=VAL "181": GO TO J
  3115 IF NO=R-E AND PEEK F=J+W AND NOT PEEK (F+J-D) THEN  POKE (F+J-D),W: LET S=VAL "214": GO TO J
  3199 LET S=VAL "215": GO TO J
  3200 IF PEEK (O+J-E)<>T THEN  LET R$(E)="~em wy hotite smazywatx?": GO TO R-C
  3205 IF NO=J+E AND PEEK F=I+A AND PEEK (F+R-W)=Q THEN  POKE (F+R-W),W: GO TO R-A
  3299 GO TO R-E
  3300 IF NC=J-A THEN  LET R$(W)="perefrazirujte |to, povalujsta.": GO SUB R
  3302 IF NC>MOB THEN  LET R$(W)="wy dumaete, |to tak prosto?": GO TO R
  3303 IF NC=A AND PEEK (O+J-A)=T THEN  GO SUB E: POKE (O+J-A),FF: POKE (O+I+B),PEEK F: LET S=VAL "224": GO TO J
  3304 IF (NC=E OR NC=B) AND PEEK (O+NC+MOB)=T THEN  POKE (O+NC+MOB),PEEK F: GO SUB E: GO TO R-E
  3305 IF NC=W AND PEEK (O+J-C)=T THEN  GO TO R-B
  3306 IF PEEK (O+NC)<>T THEN  LET S=VAL "189": GO TO J
  3310 IF NC=A THEN  GO SUB W: LET R$(W)="O.K. butylka razbilasx.": GO TO R
  3320 IF NC=I+D THEN  GO SUB W: LET S=VAL "225": GO TO J
  3325 IF NC=I+Y THEN  GO SUB W: LET S=VAL "226": GO TO J
  3330 IF NC=I+W AND NO=J+C AND PEEK F=J-G AND PEEK (F+J+D)=Q THEN  GO SUB E: POKE (O+I+C),PEEK F: POKE (F+J+D),W: POKE (O+NC),PEEK F: LET S=VAL "182": GO TO J
  3332 IF NC=J-I AND NO=J+H AND PEEK F=J+B AND PEEK (O+J-G)<>T-E THEN  POKE (O+NC),PEEK F: GO SUB E: LET R$(W)="O.K, no on ne doletel.": GO TO R
  3335 IF NC=J-I AND NO=J+H AND PEEK F=J+B AND NOT PEEK (F+R-C) THEN  POKE (F+R-C),W: POKE (O+NC),PEEK F: GO SUB E: LET S=VAL "227": GO TO J
  3390 POKE (O+NC),PEEK F: GO SUB E: GO TO R-E
  3400 IF NO<>I+G OR PEEK F<>R+E OR PEEK (F+J+H)<>W THEN  GO TO R-B
  3420 POKE (F+J+H),E: IF PEEK (F+J+G)=Q THEN  GO TO R-E
  3430 LET S=VAL "183": GO TO J
  3500 IF PEEK F=R+E AND PEEK (F+J+H)=W THEN  LET S=VAL "216": GO TO J
  3510 IF PEEK F=J-E THEN  LET R$(W)="posmotrite w swoem sloware.": GO TO R
  3515 IF PEEK F=J+C AND PEEK (F+J+B)=Q THEN  LET S=VAL "217": GO TO J
  3520 IF PEEK F=J+C AND PEEK (F+J+B)=FF THEN  LET S=VAL "218": GO TO J
  3525 IF PEEK (F+J+E)=W AND PEEK (F+R-B)=Q THEN  LET S=VAL "219": GO TO J
  3599 LET S=VAL "220": GO TO J
  3600 LET R$(E)="nado bolx{e zanimatxsq sportom!": GO TO R-C
  3700 IF NC>MOB THEN  LET NC=NO
  3701 IF NC>=E AND NC<=B AND PEEK (O+NC+MOB)=T THEN  POKE (O+NC+I+W),PEEK F: GO SUB E: POKE (O+NC+MOB),FF: GO TO R-A
  3702 IF NC=W AND PEEK (O+J-C)=T THEN  GO TO R-B
  3704 IF NC<=MOB AND PEEK (O+NC)<>T THEN  LET S=VAL "189": GO TO J
  3705 IF NC=J-H THEN  POKE (O+J-G),PEEK F: GO SUB W: LET S=VAL "221": GO TO J
  3710 IF NC<=MOB THEN  GO SUB W: GO TO R-A
  3799 GO TO R-B
  3800 IF NC<>R+E OR PEEK F<>R+E OR PEEK (F+J+G)=W THEN  LET R$(E)="swqzatx ~to i ~em?": GO TO R-C
  3802 IF PEEK (O+J-D)<>T OR NO<>J-D THEN  LET R$(W)="~em wy pytaetesx ego swqzatx?": GO TO R
  3805 POKE (F+J+G),W: POKE (O+J-D),FF: GO SUB E
  3815 IF PEEK (F+J+H)=E THEN  LET S=VAL "183": GO TO J
  3899 GO TO R-A
  3900 IF PEEK F=J+C AND PEEK (F+J+B)=Q THEN  INK C: RANDOMIZE USR SS: PRINT "on goworit:": RANDOMIZE USR VAL "63161": RANDOMIZE USR SS: PRINT "~to w perewode s ma{innogo qzyka": LET R$(W)="ozna~aet ""|nergiq na ishode,": LET R$(E)="neobhodima podzarqdka"".": GO TO R
  3910 IF PEEK (F+J+W) AND NOT PEEK (F+R-B) THEN  LET S=VAL "222": GO TO J
  3920 IF PEEK F=J-G AND PEEK (F+J+D)=Q THEN  LET R$(W)="wy sly{ite stra{nyj skrip.": GO TO R
  3999 LET R$(W)="zdesx absol`tno tiho.": GO TO R
  4000 IF NC>MOB THEN  LET S=NC: LET NC=NO: LET NO=S
  4005 IF NO<>J+C AND NO<>J-G THEN  LET S=VAL "223": GO TO J
  4010 IF PEEK F=J+C AND NC=J-G AND PEEK (O+NC)=T AND PEEK (F+J+B)=Q THEN  POKE (O+NC),PEEK F: GO SUB E: GO TO R
  4020 IF PEEK F=J+C OR PEEK F=E OR PEEK F=B OR PEEK F=I+C OR PEEK F=I+B OR PEEK F=J-G OR PEEK F=R-I OR PEEK F=I+G THEN  LET R$(W)="emu |to sej~as ne nuvno.": GO TO R
  4099 GO TO R-B
  4100 IF NO>MOB THEN  GO TO R-B
  4102 IF NO<=B AND PEEK (O+NO+MOB)=T THEN  POKE (O+NO+MOB),FF: GO SUB E: GO TO R-A
  4104 IF PEEK (O+NO)<>T THEN  LET S=VAL "189": GO TO J
  4105 IF NO=I+W THEN  LET R$(W)="wy tolxko polomali sebe zuby.": GO TO R
  4199 POKE (O+NO),FF: GO SUB E: GO TO R-A
  8000 LET TF=Q: IF PEEK F=I+B OR PEEK F=I+G THEN  LET TF=I+D
  8005 IF PEEK F=I+Y OR PEEK F=J-H THEN  LET TF=I+Y
  8010 IF (PEEK F=J+H OR PEEK F=J+I) AND PEEK (F+Y) THEN  LET TF=I+G
  8015 IF PEEK F=R-C OR PEEK F=R-B THEN  LET TF=I+H
  8020 IF PEEK F=I+D OR PEEK F=I+H THEN  LET TF=R-H
  8025 RETURN 
  8100 LET TF=Q: IF PEEK F=I+E OR PEEK F=I+A THEN  LET TF=I
  8105 IF PEEK F=I+I OR PEEK F=J-H THEN  LET TF=I+W
  8110 IF PEEK F=J-Y OR PEEK F=J-W THEN  LET TF=I+E
  8115 IF PEEK F=J-C OR PEEK F=J-B THEN  LET TF=I+A
  8120 IF PEEK F=R-B OR PEEK F=R-A AND PEEK (F+B) THEN  LET TF=I+B
  8125 IF PEEK F=J-E OR PEEK F=J+E THEN  LET TF=J-H
  8130 RETURN 
  8200 LET MAX=MAX-W: POKE (F+T-W),MAX: RANDOMIZE USR VAL "65406": LET TF=VAL "64431"
  8216 IF PEEK TF=J-C THEN  LET TF=TF+W
  8220 IF PEEK TF<>Q THEN  POKE (O+PEEK TF),PEEK F: GO SUB E
  8299 GO TO R
  8300 LET X=(PEEK (F+J))+W: IF X=B THEN  LET X=Q
  8310 POKE (F+J),X: RETURN 
  8700 IF SD=VAL "149" AND DF=W THEN  RANDOMIZE USR SS: PRINT  INK C;"wspyhnul swet, i wy uwideli": RANDOMIZE USR SS: PRINT  INK C;"malenxkogo robota."
  8705 LET SD=W: BRIGHT W: INK E: IF R$(W,W)="*" THEN  POKE (VP+E),S: RANDOMIZE USR PR: PRINT : GO TO VAL "8760"
  8720 FOR X=W TO E: IF R$(X,W)="*" THEN  LET X=E: GO TO VAL "8750"
  8730 RANDOMIZE USR SS: PRINT R$(X): LET R$(X)="*"
  8750 NEXT X
  8760 GO SUB J-C: GO SUB VAL "9200": GO TO VAL "1600"
  8900 BRIGHT NOT PI: BORDER NOT PI: PAPER NOT PI: INK VAL "6": CLS 
  8905 POKE VAL "23675",VAL "133": POKE VAL "23676",VAL "245"
  8910 POKE VAL "23606",VAL "13": POKE VAL "23607",VAL "239": RETURN 
  8950 POKE VAL "23606",VAL "13": POKE VAL "23607",VAL "242": RETURN 
  9000 IF PEEK (O+J-Y)=T-E THEN  GO TO VAL "9210"
  9001 GO SUB I+C: LET Z=E: LET X=W: LET Z$="sistema samouni~toveniq": IF PEEK (F+J+E) THEN  LET Z$=Z$+" akti-": GO SUB C: LET Z=Z+W: LET Z$="wirowana. trebuetsq wkl`~enie.": GO SUB C: LET Z=Z+E
  9002 IF PEEK (F+J+E)=Q AND PEEK (O+I+E)=T-E THEN  GO SUB C: LET Z=Z+W: LET Z$="zaprogrammirowana.": GO SUB C: LET Z=Z+E
  9004 LET X=E: GO SUB VAL "9800": IF ERR=W THEN  RETURN 
  9005 LET Z$="1. bortvurnal": GO SUB C: LET Z=Z+W: LET Z$="2. fajl korablq": GO SUB C: LET Z=Z+W: LET Z$="3. rabota w sisteme": GO SUB C: LET Z=I+W
  9015 LET A$=INKEY$: IF A$<"1" OR A$>"3" THEN  GO TO VAL "9015"
  9020 IF A$="1" THEN  POKE (VP+E),VAL "185": CLS : RANDOMIZE USR PR: RETURN 
  9030 IF A$="2" THEN  GO TO VAL "9050"
  9035 FOR V=I-W TO I+W: PRINT AT V,W,"       ": NEXT V: LET X=W: LET Z$="rabota w sisteme newozmovna": GO SUB C: LET Z=Z+W
  9040 IF PEEK (F+R+G) THEN  LET Z$="sistema zanqta wyhodom na kurs": GO SUB C: RETURN 
  9045 LET Z$="sistema zablokirowana": GO SUB C: RETURN 
  9055 GO SUB I+C: GO SUB VAL "8950": PRINT AT E,Q;"[G][L][E][E][E][E][I][L][E][E][I]"'"[G][H]QRST[G][H]ef[G]"'"[G][H]UVWX[G][H]gh[G]"'"[G][H]YZ[/[G][H]ij[G]"'"[G][H]]^_`[G][H]kl[G]"'"[G][H]abcd[G][H]mn[G]"'"[G][K][B][B][B][B][J][K][B][B][J]"
  9060 PRINT AT E,J-W;"[M][N]";AT A,J-W;"[O][P]": GO SUB VAL "8910": LET X=I+E: LET Z=A: LET Z$="KK ~ernyj kutec": INK D: GO SUB C
  9080 RESTORE VAL "9250": FOR Z=C TO H: INK C: READ Z$: GO SUB C: INK Y: READ Z$: GO SUB I: NEXT Z: INK D: LET Z=I+W: LET X=W
  9097 LET Z$="spisan w 2560 g w swqzi s pol-": GO SUB C: LET Z=Z+W: LET Z$="noj neprigodnostx` k poletam.": GO SUB C: GO SUB VAL "9200"
  9100 FOR S=W TO A: GO SUB VAL "9110": GO SUB VAL "9200": NEXT S: RETURN 
  9110 GO SUB I+C: GO SUB VAL "8950": RESTORE VAL "9250"+S*I: PRINT AT E,W;"[L][E][E][E][E][I]": FOR Z=A TO D: READ Z$: PRINT AT Z,W;"[H]";Z$; INK B;"[G]": NEXT Z: PRINT AT Y,W;"[K][B][B][B][B][J]"
  9130 GO SUB VAL "8910": PRINT AT E,J-W;"[M][N]";AT A,J-W;"[O][P]": LET X=G: FOR Z=B TO I: RESTORE VAL "9250"+Z-A: INK C: READ Z$: GO SUB C
  9135 RESTORE VAL "9250"+S*I+Z-A: INK Y: READ Z$: GO SUB I: NEXT Z: RETURN 
  9200 LET A$=INKEY$: IF A$="" THEN  GO TO VAL "9200"
  9205 RETURN 
  9210 LET S=E: GO SUB VAL "9110": LET X=Y: LET Z=Z+W: INK D: LET Z$="na s~etu "+STR$ (PEEK (F+R+E))+" pontow.": GO SUB C: RETURN 
  9250 DATA "modelx","CIRIPOPIK 3","god wypuska","2473","specifikaciq","woenn.","|kipav","3 ~eloweka","port pripiski","zemlq"
  9251 DATA "f.i"
  9252 DATA "dolvnostx"
  9253 DATA "god rovdeniq"
  9254 DATA "mesto rovdeniq"
  9255 DATA CHR$ G+CHR$ G
  9256 DATA "stav sluvby"
  9257 DATA "harakter"
  9260 DATA "1234","5678","9:;<","=>?@"
  9261 DATA "oleg huparow"
  9262 DATA "kapitan"
  9263 DATA "2549"
  9264 DATA "zemlq"
  9265 DATA "g. sqpetod"
  9266 DATA "10 let"
  9267 DATA "zlobnyj"
  9270 DATA "ABCD","EFGH","IJKL","MNOP"
  9271 DATA "andrej kutcow"
  9272 DATA "{turman"
  9273 DATA "2550"
  9274 DATA "mit"
  9275 DATA "stanciq ""mit-mutantskoe"""
  9276 DATA "11 let"
  9277 DATA "wrednyj"
  9280 DATA "!""#$","%&'(",")*+,","-./0"
  9281 DATA "dqdi~ zqd"
  9282 DATA "rejndver"
  9283 DATA "ne izw."
  9284 DATA "ne izw."
  9285 DATA "predp. sektor 3.22.N"
  9286 DATA "3 goda"
  9287 DATA "pokladistyj"
  9400 GO SUB I+C: LET Z=E: LET X=W: LET Z$="informacionnaq sistema BERGA.8": GO SUB C: IF PEEK (F+R+G)=Q THEN  LET Z=Z+E: LET Z$="wkl`~en revim blokirowki": GO SUB C
  9405 LET Z=Z+E: GO SUB VAL "9800": IF ERR=W THEN  RETURN 
  9410 POKE (F+R+G),W: LET Z$="<o{iblisx>": GO SUB C: RETURN 
  9500 RANDOMIZE USR VAL "63122": IF PEEK (F+R+G)=Q THEN  LET S=VAL "157": GO TO DI
  9520 CLS : INK Q: POKE VP+E,VAL "158": RANDOMIZE USR PR: RANDOMIZE USR VAL "63228": PRINT AT I+C,Q;: POKE VAL "64953",PEEK VAL "23689"-W: GO TO VAL "1600"
  9800 LET Z$="wwedite kod": GO SUB C: LET Z$="     ": PRINT AT Z+E,E;: POKE VAL "23658",G: FOR V=W TO C
  9815 PRINT "";CHR$ G;: GO SUB VAL "9200"
  9816 BEEP VAL ".05",Q: IF A$=CHR$ (I+E) AND V>W THEN  LET V=V-W: PRINT " ";CHR$ G;CHR$ G;
  9817 IF A$<" " OR A$>"Z" THEN  GO TO VAL "9815"
  9820 PRINT A$;: LET Z$(V)=A$: NEXT V: PRINT " ": LET Z=Z+B: LET ERR=Q: IF Z$="1105C" THEN  GO TO VAL "9999"
  9825 IF PEEK F=B AND Z$="MUMMY" THEN  RETURN 
  9830 IF PEEK F=Y AND Z$="BERGA" THEN  RETURN 
  9840 IF PEEK F=Y AND Z$="KAPUT" THEN  POKE (F+R-Y),W: GO TO VAL "9890"
  9845 IF PEEK F=Y AND Z$="PLANT" THEN  POKE (F+R-G),W: GO TO VAL "9890"
  9850 IF PEEK F=Y AND Z$="AMBAL" THEN  POKE (F+R-D),W: GO TO VAL "9890"
  9851 IF PEEK F=Y AND Z$="MUMMY" THEN  LET ERR=W: LET Z$="podsistema demontirowana": GO SUB C: RETURN 
  9855 LET ERR=W: LET Z$="kod neweren": GO SUB C: RETURN 
  9890 LET ERR=W: LET Z$="lift wkl`~en": GO SUB C: RETURN 
  9940 RANDOMIZE USR VAL "62981"
  9950 GO SUB VAL "8900": LET Q=NOT PI: LET W=SGN PI: LET E=W+W: LET R=VAL "50": LET T=VAL "99": LET FF=VAL "255": LET F=VAL "64500": LET O=VAL "64599": LET SS=VAL "64940"
  9953 LET VB=Q: LET NC=Q: LET NO=Q: LET DI=VAL "8700": LET PR=VAL "42477": LET SD=Q: LET VP=VAL "64497"
  9955 LET A=INT PI: LET B=A+W: LET C=B+W: LET D=C+W: LET Y=D+W: LET G=Y+W: LET H=G+W: LET I=H+W: LET J=A*I
  9957 LET MAX=E: LET MOB=J-D: DIM R$(E,J+E): FOR X=W TO E: LET R$(X,W)="*": NEXT X: RANDOMIZE USR VAL "65491": POKE (F+R+E),I+C: RANDOMIZE USR VAL "65439"
  9987 PRINT AT A,Q: INK Q: POKE VP+E,VAL "184": RANDOMIZE USR PR: RANDOMIZE USR VAL "63228": GO SUB VAL "9200": RANDOMIZE USR VAL "63203": GO TO R+R
  9999 GO SUB VAL "8900"