Masha: boot.B

Is a part of release: Masha
File size: 3549
md5: 94457f4810e98cd803eb75cd50218274
  1 CLS : BORDER 0: PAPER 0: INK 7: CLS : LET SC=0
  2 GO TO 5
  3 FOR F=1 TO 5: PAPER 7: CLS : PAPER 0: CLS : NEXT F: RETURN 
  5 RANDOMIZE USR 15619: REM : LOAD "code4"CODE 30000
  8 POKE 23606,48: POKE 23607,116
  10 RANDOMIZE USR 15619: REM : LOAD  "code2"CODE  16384
  12 RANDOMIZE USR 15619: REM : LOAD   "code1"CODE   40000
  15 RANDOMIZE USR 40000
  16 IF INKEY$="3" THEN  RANDOMIZE USR 0
  17 IF INKEY$="2" THEN  GO TO 30
  18 IF INKEY$="1" THEN  GO TO 50
  29 BEEP .6[J],-50: GO TO 15
  30 BEEP .4 TO ,-43: GO SUB 3
  35 PRINT AT 3,3; INK 2;"CONTROL:"
  37 PRINT AT 5,3; INK 3;"N - LEFT , M - RIGHT"
  38 PRINT AT 7,3; INK 3;"(SPACE) - ABORT GAME"
  40 PRINT AT 15,3; INK 6;"HELLO !! THIS IS AER"
  42 PRINT AT 16,3; INK 6;"PRESENT NEW GAME 2009"
  43 PRINT AT 17,3; INK 6;"PLEASE COPY MY GAME"
  44 PRINT AT 18,3; INK 6;"OF YOU'R FRIENDS"
  45 PRINT AT 19,3; INK 6;"AND BASIC NOVICE."
  47 RANDOMIZE USR 15619: REM : LOAD     "code3"CODE     40000
  48 RANDOMIZE USR 40000
  49 GO SUB 3: GO TO 10
  50 BEEP .03/,1: BEEP .05 TO ,1: BEEP .08=,1
  54 GO SUB 3
  55 LET PAD1=1: LET PAD2=1: FOR F=9 TO 20
  58 PRINT AT 15,F; PAPER 1; INK 5;"f": NEXT F: LET S2=0: LET S1=0
  60 FOR F=15 TO 0 STEP -1
  62 PRINT AT F,9; PAPER 1; INK 7;"f"
  65 PRINT AT F,20; PAPER 1; INK 7;"f"
  66 NEXT F: LET SB=0
  70 LET Q=(11+(RND*7))
  73 LET Q1=(1+(RND*3))
  74 LET Q2=(1+(RND*3))
  75 LET A=1: LET Z=Q: LET S=1: LET X=Z+1
  78 LET R=INT Q1: LET R1=INT Q2
  80 IF R=1 THEN  LET A$="a"
  81 IF R1=1 THEN  LET B$="a"
  84 IF R=2 THEN  LET A$="b"
  85 IF R1=2 THEN  LET B$="b"
  86 IF R=3 THEN  LET A$="c"
  87 IF R1=3 THEN  LET B$="c"
  88 IF R=4 THEN  LET A$="d"
  89 IF R1=4 THEN  LET B$="d"
  100 IF PAD1=1 THEN  PRINT AT A-1,Z;" ": PRINT AT A,Z; INK 4;A$
  105 IF PAD2=1 THEN  PRINT AT S-1,X;" ": PRINT AT S,X; INK 5;B$
  110 IF NOT SCREEN$ (A+1,Z)=" " THEN  LET PAD1=0: GO SUB 200
  112 IF NOT SCREEN$ (S+1,X)=" " THEN  LET PAD2=0: GO SUB 200
  113 IF PAD1+PAD2<2 THEN  GO TO 124
  120 IF INKEY$="m" THEN  BEEP .001[H],50: PRINT AT A,Z;" ": LET Z=Z+1: LET X=X+1
  123 IF INKEY$="n" THEN  BEEP .001[H],40: PRINT AT S,X;" ": LET X=X-1: LET Z=Z-1
  124 IF INKEY$=" " THEN  RUN 
  128 IF Z<10 THEN  LET Z=10
  129 IF X<11 THEN  LET X=11
  135 IF Z>18 THEN  LET Z=18
  139 IF X>19 THEN  LET X=19
  140 IF PAD1=1 THEN  LET A=A+1
  142 IF PAD2=1 THEN  LET S=S+1
  143 IF PAD1=0 AND PAD2=0 THEN  LET PAD1=1: LET PAD2=1: GO TO 70
  145 IF SB=1 THEN  LET SB=0: GO TO 70
  150 GO TO 100
  200 BEEP .001[H],30
  201 IF A<3 OR S<3 THEN  GO TO 400
  205 LET C$=SCREEN$ (A,Z)
  207 LET D$=SCREEN$ (S,X)
  210 IF SCREEN$ (A+1,Z)=C$ THEN  LET S2=S2+1
  211 IF SCREEN$ (S+1,X)=D$ THEN  LET S1=S1+1
  213 IF SCREEN$ (A+2,Z)=C$ THEN  LET S2=S2+1
  214 IF SCREEN$ (S+2,X)=D$ THEN  LET S1=S1+1
  218 IF SCREEN$ (A+3,Z)=C$ THEN  LET S2=S2+1
  219 IF SCREEN$ (S+3,X)=D$ THEN  LET S1=S1+1
  226 LET SC=SC+S1: PRINT AT 19,0; INK 4;"SCORE:";SC
  250 IF S2=2 THEN  LET F=Z: LET F1=A: GO SUB 300
  252 IF S1=2 THEN  LET K=X: LET K1=S: GO SUB 320
  260 LET S2=0: LET S1=0: RETURN 
  300 FOR L=F1 TO F1+2
  305 PRINT AT L,F; INK 2;"e": BEEP .01=,2
  308 PRINT AT L,F;" ": BEEP .01=,6
  310 NEXT L: LET S2=0
  314 RETURN 
  320 FOR L=K1 TO S+2
  322 PRINT AT L,K; INK 2;"e": BEEP .01=,2
  325 PRINT AT L,K;" ": BEEP .01=,6
  330 NEXT L: LET S1=0
  335 RETURN 
  400 BEEP .4 TO ,-47: PRINT AT 10,10; INK 7;"GAME  OVER": BEEP .3[J],-50
  402 PRINT AT 10,10; INK 2;"GAME  OVER": BEEP .3[J],-53: BEEP .5 COPY ,-56
  410 RANDOMIZE USR 15619: REM : LOAD  "code"CODE  40000
  415 RANDOMIZE USR 40000
  420 BEEP .5 COPY ,30: GO SUB 3: RUN 
  500 BORDER 0: PAPER 0: INK 3: CLS 
  510 FOR F=10 TO 50: PLOT  F,10: NEXT F: PRINT AT 17,1;"2009 AER": PAUSE 40
  513 FOR F=50 TO 60: PLOT  F,10: NEXT F: PRINT AT 17,1;"GAME NOT TESTING !!!": PAUSE 20
  515 FOR F=60 TO 255: PLOT  F,10: NEXT F: PRINT AT 17,1;"GAME NOT T E S T I N G !!!"
  520 RUN