Fly Cup: FLY CUP.B

Is a part of release: Fly Cup
File size: 4096
md5: fece4a5734f3d448937f2e7a9ba77187
  1 GO TO 10
  2 REM LOAD
  3 PRINT AT 20,1;"Loading ...": RANDOMIZE USR 15619: REM : LOAD   "fcode1"CODE   50000
  4 PRINT AT 20,1;"Loading .....": RANDOMIZE USR 15619: REM : LOAD    "fcode2"CODE    50200
  5 PRINT AT 20,1;"Loading ......": RANDOMIZE USR 15619: REM : LOAD    "fcode3"CODE    40000
  6 PRINT AT 20,1;"Loading ........": RANDOMIZE USR 15619: REM : LOAD     "fcode4"CODE     30000
  7 PRINT AT 20,1;"Loading ...........": RANDOMIZE USR 15619: REM : LOAD    "fcode5"CODE    57000
  10 POKE 23606,48: LET W=1: POKE 23607,116: PAUSE 500: GO TO 40
  15 BEEP .01=,62: BEEP .001[H],40: RANDOMIZE USR 57000: CLS : RETURN 
  18 GO SUB 34: LET Q=LEN A$: FOR R=30 TO 1 STEP -1: PRINT AT 21,R; INK 4;"i ": NEXT R
  21 PRINT AT 21,0+W; INK 4;"i": BEEP .001[H],60
  22 PRINT AT 21,0; INK 6;"i"
  24 PRINT AT 21,0+W; INK 4;A$(W TO W): BEEP .001[H],30
  25 LET W=W+1
  29 IF W=Q THEN  LET W=1: RETURN 
  32 GO TO 21
  34 FOR F=5 TO 1 STEP -1
  35 PRINT AT 21,0; INK 6;"i": BEEP .001[H],34
  36 PAUSE F
  38 PRINT AT 21,0;" ": PAUSE F
  39 NEXT F: RETURN 
  40 LET A$="CONTROL: N,M AND (SPACE) ": GO SUB 18: PAUSE 500
  50 RANDOMIZE USR 50000
  54 LET A$="AER 2009 PRESENT: ": GO SUB 18: PAUSE 40
  55 LET A$="THE MY GAME IS ": GO SUB 18: PAUSE 40
  56 LET A$="-FLY CUP- PRESS ANY KEY ": GO SUB 18
  60 RANDOMIZE USR 40000
  62 GO SUB 15
  70 LET KIL=0: LET Z2=0: LET LIV=3: LET FIR=0: LET FIR2=0
  72 FOR F=0 TO 31: PRINT AT 20,F; INK 5;"f": NEXT F: LET A$="KILL UFO !!! ": GO SUB 18
  75 LET A=2: LET S=1: LET FF=1: LET D=1: LET X=18: LET X2=18
  80 PRINT AT 19,A; INK 6;" ab "
  82 IF INKEY$="m" THEN  LET A=A+1
  84 IF INKEY$="n" THEN  LET A=A-1
  85 IF S>17 AND NOT SCREEN$ (18,A+2)=" " THEN  GO TO 180
  86 IF S>17 AND NOT SCREEN$ (18,A+1)=" " THEN  GO TO 180
  88 IF A<1 THEN  LET A=1
  89 IF A>26 THEN  LET A=26
  93 PRINT AT S-1,D;"    "
  95 PRINT AT S,D; INK 1;" gh "
  98 LET S=S+1
  100 IF FF=1 THEN  LET D=D+1
  105 IF FF=0 THEN  LET D=D-1
  110 IF D<3 THEN  LET FF=1
  114 IF D>20 THEN  LET FF=0
  118 IF S=20 THEN  PRINT AT S-1,D;"    ": LET S=1
  120 IF FIR=0 AND INKEY$=" " THEN  LET Z=A+1: LET FIR=1: GO TO 122
  121 IF FIR2=0 AND INKEY$=" " THEN  LET Z2=A+1: LET FIR2=1
  122 IF FIR=1 THEN  PRINT AT X,Z;" ": PRINT AT X-1,Z; INK 6;"c": LET X=X-1
  123 IF FIR2=1 THEN  PRINT AT X2,Z2;" ": PRINT AT X2-1,Z2; INK 6;"c": LET X2=X2-1
  128 IF FIR=1 AND X<1 THEN  PRINT AT X,Z;" ": LET X=18: LET FIR=0
  129 IF FIR2=1 AND X2<1 THEN  PRINT AT X2,Z2;" ": LET X2=18: LET FIR2=0
  150 IF SCREEN$ (S,D+2)="c" THEN  GO SUB 160
  151 IF SCREEN$ (S,D)="c" THEN  GO SUB 160
  152 IF SCREEN$ (S,D+1)="c" THEN  GO SUB 160
  153 IF SCREEN$ (S,D+3)="c" THEN  GO SUB 160
  154 GO TO 170
  160 FOR F=1 TO 10: BEEP .001[H],20: PRINT AT S-1,D; INK 2; OVER 1;"dddd"
  161 PRINT AT X,Z;" ": PRINT AT X2,Z2;" "
  163 BEEP .001[H],50: NEXT F
  165 PRINT AT S-1,D;"     ": LET S=1: LET KIL=KIL+1: PRINT AT X,Z;" ": PRINT AT X2,Z2;" "
  166 IF KIL=10 THEN  GO TO 250
  167 LET A$="HEY,THIS COOL ! ": GO SUB 18
  168 PRINT AT 21,22; INK 7;"KILL:";KIL
  169 RETURN 
  170 GO TO 80
  180 PRINT AT 19,A;"     ": FOR F=15 TO 1 STEP -1
  183 PRINT AT F,A-1; INK 1;" gh "
  185 PRINT AT F+1,A-1; INK 1;" {} "
  187 PRINT AT F+2,A-1; INK 6;" ab "
  189 PRINT AT F+3,A-1; INK 6;"    "
  194 BEEP .01=,f: NEXT F
  198 FOR F=5 TO 0 STEP -1: PRINT AT F,A-1;"    ": BEEP .01=,F*F: NEXT F
  200 LET A$="OOOH !!!! ": GO SUB 18: PAUSE 50
  201 LET A$="YOU FLY TO COSMIC SPACE ": GO SUB 18: PAUSE 50
  202 LET A$="MISSION FAILED  ": GO SUB 18: PAUSE 50
  203 LET A$="GAME OVER ": GO SUB 18: PAUSE 50
  210 PAUSE 0: RANDOMIZE USR 57000: GO TO 50
  250 LET A$="HEY, THIS IS VERY COOL! ": GO SUB 18: PAUSE 50
  251 LET A$="CONGRATULATIONS ": GO SUB 18: PAUSE 50
  252 LET A$="YOU KILL ALL 10 UFO ": GO SUB 18: PAUSE 50
  253 LET A$="MISSION COMPLETE ": GO SUB 18: PAUSE 50
  255 LET V=0+(RND*17)
  260 FOR F=0 TO 31
  264 PRINT AT V,F; INK 7;"f"
  265 IF INKEY$=" " THEN  GO SUB 15: RUN 
  268 NEXT F
  269 GO TO 255
  400 BORDER 0: PAPER 0: INK 7: CLS : PRINT AT 3,11; INK 3;"AER  2009"
  402 PRINT AT 5,7; INK 3;"FOR AUTOR PROGRAMS"
  405 PRINT AT 7,9; INK 3;"YOU HAVE RIGHT"
  407 PRINT AT 9,9; INK 3;"COPY THIS GAME"
  409 PRINT AT 11,11; INK 3;"GOOD  LUCK"
  410 GO TO 2
  30464 NEW  COPY  COPY  COPY "q PAUSE  COPY  COPY  COPY ATTR i GO TO INT SIN AT i PLOT  INKEY$i PAUSE INKEY$irSIN asINKEY$ NEW dxLN SIN zACONTROL: N,M AND (SPACE)