Piton: Piton.B

Is a part of release: Piton
File size: 2629
md5: f0b5aa432732703e831d8fef50d0e9da
  8224E6 BORDER 0: PAPER 0: INK 7 CLS  LET kl=PEEK 32000: REM 8 LET kr=PEEK 32001: REM 9 LET ku=PEEK 32002: REM 11 LET kd=PEEK 32003: REM 10 LET ke=PEEK 32004: REM 7evel: ";l$ IF l$="" THEN  GO TO 30  FOR i=1 TO LEN l$! IF l$(i)<"0" OR l$(i)>"9" THEN  GO TO 30" NEXT i# LET l=INT VAL l$(! IF l<1 OR l>100 THEN  GO TO 30- CLS 2 FOR i=1 TO l< LET x=INT (RND*31)F LET y=INT (RND*21)K IF SCREEN$ (y,x)<>" " THEN  GO TO 60P PRINT AT y,x;"X"Z NEXT id LET x=INT (RND*31)n LET y=INT (RND*21)x IF SCREEN$ (y,x)<>" " THEN  GO TO 100} LET dx=0: LET dy=0▘ PRINT AT y,x; BRIGHT 1;"O"▗! LET b=1: LET e=1: LET d=1▜ DIM j(l): DIM k(l) LET j(b)=y: LET k(b)=x[B] LET kx=INT (RND*31)[C] LET ky=INT (RND*21)[D] IF SCREEN$ (ky,kx)<>" " THEN  GO TO 145[E]6 PRINT AT ky,kx;"R";#0;AT 1,0;l-d+1;" "[F] LET f=0[G] LET c=CODE INKEY$[Q] IF c=kl THEN  LET dx=-1: LET dy=0SCREEN$  IF c=kr THEN  LET dx=1: LET dy=0TAN  IF c=ku THEN  LET dx=0: LET dy=-1PEEK  IF c=kd THEN  LET dx=0: LET dy=1NOT  IF c=ke THEN  GO TO 30>= LET y=y+dy: LET x=x+dx ERASE  IF y<0 THEN  LET y=21 BRIGHT  IF y>21 THEN  LET y=0 NEW  IF x<0 THEN  LET x=31 LIST  IF x>31 THEN  LET x=0 IF  LET s$=SCREEN$ (y,x) COPY  IF s$="X" THEN  GO TO 600+ IF s$="R" THEN  LET f=1: LET d=d+1: GO TO 280 PRINT AT j(b),k(b);" "=b+1 LET e=e+1 IF b>l THEN  LET b=1 IF e>l THEN  LET e=1 LET j(e)=y: LET k(e)=x PRINT AT y,x; BRIGHT 1;"O" IF d>l THEN  GO TO 500! IF f=1 THEN  GO TO 145, GO TO 150 POKE 1 PRINT AT 11,10; BRIGHT 1;"CONGRATULATION!!!" RETURN * PRINT AT 13,10; BRIGHT 1;"PRESS EXIT"# LET d=0: LET x=16: LET y=13 GO TO 630X* PRINT AT 12,10; BRIGHT 1;"GAME OVER!"b* PRINT AT 10,10; BRIGHT 1;"I AM SORRY"l* PRINT AT 14,10; BRIGHT 1;"PRESS EXIT"q# LET d=0: LET x=16: LET y=14v LET c=CODE INKEY$ IF c=ke THEN  GO TO 30▝ PAUSE 50▘ LET d=d+1 IF d>2 THEN  LET d=0▗! IF d=0 THEN  PRINT AT y,x; BRIGHT 1;"EXIT"! IF d=1 THEN  PRINT AT y,x; BRIGHT 1;"EDIT"▚! IF d=2 THEN  PRINT AT y,x; BRIGHT 1;"CS+1" GO TO 630SGN  DIM a$(5,5): CLS ABS - FOR i=0 TO 4: POKE 32000+i,0: NEXT iPEEK + PRINT AT 0,0; BRIGHT 1;"REDEFINE KEYS" AND  LET a$(1)="LEFT "<= LET a$(2)="RIGHT">= LET a$(3)="UP   "<> LET a$(4)="DOWN " LINE  LET a$(5)="EXIT " FORMAT # PRINT AT 2,0;"PRESS KEY FOR " MERGE  FOR i=1 TO 5 PAPER " PRINT AT 2,14; BRIGHT 1;a$(i) OUT  LET c=CODE INKEY$ LPRINT  IF c=0 THEN  GO TO 735 LLIST  FOR j=1 TO i STOP  IF c=PEEK (31999+j) THEN  GO TO 735 READ  NEXT j DATA  POKE 31999+i,c DIM  NEXT i INPUT  RUN ATTR  GO TO ATTR  PAUSE ATTR  PRINT ATTR  DATA ATTR  RESTORE L12 DIM 2lxy[U] SAVE [U] RANDOMIZE bed?▛?ATTR  SAVE ATTR  RANDOMIZE fc