Fuflizh: FUFL.B

Is a part of release: Fuflizh
File size: 3901
md5: 938ad0277a9ecfe3962a433c6d7a099d
  1 GO TO 400
  5 BORDER 0: PAPER 0: CLS 
  6 PRINT AT 20,0; INK 1;"GAME LOADING ....."
  8 RANDOMIZE USR 15619: REM : LOAD "l1"CODE 30000
  9 POKE 23606,48: POKE 23607,116
  10 PRINT AT 20,0; INK 1;"GAME LOADING ........."
  11 RANDOMIZE USR 15619: REM : LOAD   "l2"CODE   40000
  12 PRINT AT 20,0; INK 1;"GAME LOADING ..........."
  13 PRINT AT 20,0; INK 1;"GAME LOADING ..............": RANDOMIZE USR 15619: REM : LOAD "l4"CODE 35000
  17 GO TO 1
  19 CLS : LET LE=1: LET LI=4: GO SUB 150
  20 PRINT AT 2,0; INK 7;"LEVEL:";LE: PRINT AT 0,0; INK 7;"h";LI: FOR F=11 TO 20
  21 GO SUB 220
  22 PRINT AT F,0; INK 7; PAPER 6;"jjjjjjjjjjjjjjj"
  24
  25 PRINT AT 8,1; INK 1;"cd"
  26 PRINT AT 9,1; INK 1;"ab"
  28 PRINT AT 10,0; INK 7; PAPER 6;"kkkkkkkkkkkkkkk"
  30 LET Q=.1 TO 
  33 PRINT AT 21,0; PAPER 7;"           "
  35 FOR F=0 TO 9: PRINT AT 21,F; INK 2; PAPER 7;"i": LET Q=Q+.09: IF INKEY$=CHR$ 13 THEN  GO TO 40
  36 NEXT F
  38 FOR F=9 TO 0 STEP -1: PRINT AT 21,F; INK 2; PAPER 7;"i ": LET Q=Q-.09: IF INKEY$=CHR$ 13 THEN  GO TO 40
  39 NEXT F: GO TO 33
  40 LET E=(F*2): LET W=10-E: IF Q>1 THEN  LET Q=1
  41 RANDOMIZE USR 40189
  42 FOR F=0 TO 15: PRINT AT 8,F; INK 1;" cd": PRINT AT 9,F; INK 1;" ab": BEEP .01=,20
  43 FOR E=1 TO W: NEXT E
  45 PRINT AT 9,F; INK 1;" ef": BEEP .01=,30
  46 FOR E=1 TO W: NEXT E
  48 NEXT F
  50 LET A=8: LET S=15
  54 PRINT AT A-1,S;"   "
  55 PRINT AT A,S; INK 1;" cd": PRINT AT A+1,S; INK 1;" ab"
  60 LET A=A+1: LET S=S+Q
  70 IF SCREEN$ (A+2,S+1)="l" THEN  GO TO 75
  71 GO TO 80
  75 PRINT AT A,S; INK 1;"cd ": PRINT AT A+1,S; INK 1;"ab "
  76 PRINT AT A-1,S; INK 1;"   "
  77 RANDOMIZE USR 40000: GO TO 170
  80 IF SCREEN$ (A+2,S+1)="j" THEN  GO TO 82
  81 GO TO 90
  82 PRINT AT A,S;"   ": PRINT AT A+1,S; INK 1;" tu"
  83 PRINT AT A-1,S;"   ": RANDOMIZE USR 40373
  85 GO SUB 150: PRINT AT A+1,S;"   ": GO TO 25
  90 IF A>20 THEN  GO TO 95
  92 GO TO 100
  95 PRINT AT A,S; INK 7;"gg "
  96 PRINT AT A-1,S; INK 0;"gg ": RANDOMIZE USR 40373
  97 PRINT AT A,S; INK 0;"   "
  98 GO SUB 150: GO TO 25
  100 GO TO 54
  150 FOR F=1 TO 10: BEEP .0001X,60: NEXT F: LET LI=LI-1: PRINT AT 0,0; INK 7;"h";LI
  152 FOR F=2 TO 30: PRINT AT 0,F; INK 7;" h": BEEP .0001X,55: NEXT F: PRINT AT 0,31;" "
  154 PRINT AT 0,0; INK 7;"h";LI
  155 IF LI=0 THEN  GO TO 200
  160 RETURN 
  170 REM LEVEL
  175 PRINT AT 0,0; INK 7;"LEVEL UP!!!"
  177 FOR F=1 TO 90: NEXT F: RANDOMIZE USR 40189
  178 FOR F=0 TO 19
  179 PRINT AT 0,F; INK 7;" LEVEL UP!!!"
  183 NEXT F: CLS 
  185 LET LE=LE+1
  188 GO TO 20
  200 PRINT AT 4,0; INK 6;"GAME OVER"
  205 IF INKEY$=CHR$ 13 THEN  GO TO 212
  210 GO TO 205
  212 REM ZVUK
  213 RUN 
  220 IF LE=1 THEN  GO SUB 250
  221 IF LE=2 THEN  GO SUB 260
  222 IF LE=3 THEN  GO SUB 270
  223 IF LE=4 THEN  GO SUB 280
  224 IF LE=5 THEN  GO SUB 290
  225 IF LE=6 THEN  GO SUB 270
  226 IF LE=7 THEN  GO TO 300
  249 RETURN 
  250 PRINT AT 20,20; INK 5; PAPER 6;"jjjllljjjjjj": RETURN 
  260 PRINT AT 15,15; INK 5; PAPER 6;" llljjjjjjjjjjjjj": RETURN 
  270 PRINT AT 20,20; INK 5; PAPER 6;"lll": RETURN 
  280 PRINT AT 17,20; INK 5; PAPER 6;"lll": RETURN 
  290 PRINT AT 17,17; INK 5; PAPER 6;"jjjllljjjjjjj": RETURN 
  300 CLS 
  305 PRINT AT 0,0; INK 5;"GREAT!!"
  308 PRINT AT 2,0; INK 7;"YOU CHAMPION OF JUMPING"
  310 PRINT AT 4,0; INK 7;"FUFLIZHNIK 2010 !"
  311 RANDOMIZE USR 40189: FOR F=1 TO 90: NEXT F
  313 PRINT AT 6,0; INK 4;"YOUR CONGRATULATION PRESIDENT"
  315 PRINT AT 8,0; INK 4;"OF RUSSIAN DMITRIY MEDVEDEV."
  316 RANDOMIZE USR 40189: FOR F=1 TO 90: NEXT F
  318 PRINT AT 10,0; INK 7;"GAME IS END. 25.01.2010"
  319 RANDOMIZE USR 40189: FOR F=1 TO 90: NEXT F
  322 RANDOMIZE USR 40189: FOR F=1 TO 90: NEXT F
  324 PAUSE 0: BEEP .01=,1: PAUSE 0: BEEP .001[H],60
  325 RUN 
  400 REM MENU
  410 CLS 
  413 PRINT AT 3,3; INK 1;"AER PRESENT:"
  415 PRINT AT 3,20; INK 4;"mnopqrs"
  417 PRINT AT 21,3; INK 5;"2010 KEM.OBL MALINOVKA CITY"
  419 RANDOMIZE USR 35000
  425 CLS : RANDOMIZE USR 40000: GO TO 19
  44261
  0LEN qh PRINT CHR$ [E] RESTORE  COPY  IF  COPY .w COPY  IF  COPY as@ TO  TO  MOVE 
  44265