Androide: androide.B

  1 GO TO VAL "110"
  10 LET SC=0
  20 POKE x1,3: LET mx=z: BORDER u: BRIGHT z: PAPER u: CLS : BRIGHT u: PRINT "   ERE INFORMATIQUE PRESENTE:   "
  40 INK 2: FOR j=u TO VAL "3": GO SUB VAL "1000": FOR i=z TO VAL "30": POKE VAL "23689",VAL "20-j": PRINT ;a$(j,VAL "31-i" TO ): NEXT i: NEXT j: GO SUB VAL "1000"
  45 INK 5: PLOT  4,152: DRAW 250,z: DRAW z,-54: DRAW -250,z: DRAW z,54
  50 PAPER z: PRINT  INK VAL "6"''''b$; INK VAL "5";"[K][L][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K]"; INK VAL "6";b$
  60 FOR i=VAL "20" TO u STEP -u: BEEP .02=,20: PRINT AT VAL "13",i;"[P]   [S] [S] [S] [S] ": BEEP .02=,20: PRINT AT VAL "13",i;"[M]   [T] [T] [T] [T] ": NEXT i: GO SUB VAL "1000"
  70 LET d=VAL "4": LET T=Z: FOR i=u TO VAL "28": BEEP .01=,20: PRINT AT VAL "13",i;" [N]": GO SUB VAL "2000": PRINT AT VAL "13",VAL "T+4+i/2";c$(T*4+1 TO ): BEEP .01=,20: PRINT AT VAL "13",i;" [M]": NEXT i
  80 PAPER u: PRINT '''TAB 5;"[K]..............1 point"''TAB 5;"[L].............10 points"''TAB 5;"[U].............10 points"
  90 PAUSE 200: BORDER z: PAPER z: INK 4: CLS 
  100 LET I=Z: PRINT TAB 11;"VOULEZ-VOUS:"'''"1..........REDEFINIR LES TOUCHES"''"2...............FAIRE UNE PARTIE"
  101 PRINT ''TAB 12;"CONTROLES:"
  105 PRINT  INK 5''"   GAUCHE..................";T$(1)''"   DROITE..................";T$(2)''"   BAS.....................";T$(3)''"   HAUT....................";T$(4)''"   ARRET...................";T$(5)
  110 IF I<VAL "500" THEN  IF INKEY$="" THEN  LET I=I+U: GO TO 110
  120 IF I<VAL "500" THEN  GO TO 3000*(INKEY$="1")+4000*(INKEY$="2")
  130 GO TO VAL "4000"
  1000 RETURN 
  2000 IF ATTR (13,i+2)<>70 THEN  RETURN 
  2010 GO SUB VAL "1000": FOR v=u TO 11: PRINT AT 13,i+2; INK 4;CHR$ (153+v): BEEP .005=,v*5: NEXT v: LET T=T+2: RETURN 
  3000 REM redefinition touches
  3010 LET V=U: INK VAL "6": CLS : PRINT ''''"GAUCHE..................""";: GO SUB VAL "3700": PRINT ''"DROITE..................""";: GO SUB VAL "3700"
  3020 PRINT ''"BAS.....................""";: GO SUB VAL "3700": PRINT ''"HAUT....................""";: GO SUB VAL "3700": PRINT ''"ARRET...................""";: GO SUB VAL "3700"
  3030 FOR I=U TO VAL "5": PRINT AT VAL "1+3*I",VAL "25"; FLASH U; INK VAL "7";T$(I)
  3040 LET V=CODE INKEY$: IF NOT V THEN  GO TO VAL "3040"
  3050 LET T$(I)=CHR$ V: PRINT AT VAL "1+I*3",VAL "25"; INK VAL "7";T$(I)
  3060 IF INKEY$<>"" THEN  GO TO 3060
  3070 NEXT I
  3699 INK VAL "4": CLS : GO TO VAL "100"
  3700 PRINT  INK VAL "7";T$(V); INK VAL "6";"""": LET V=V+U: RETURN 
  4005 IF INKEY$<>"" THEN  GO TO 4005
  4010 LET I=Z: PRINT #1;AT 0,10;"NIVEAU (1-6) : ";
  4020 IF I<500 THEN  LET C=CODE INKEY$: IF NOT C OR C<49 OR C>54 THEN  LET I=I+U: GO TO VAL "4020"
  4025 IF I>=500 THEN  LET C=54
  4030 LET VI=VAL "55-C": POKE VIT,VI: FOR I=U TO VAL "5": POKE K(I),CODE T$(I): NEXT I: POKE X1,VAL "3": POKE X2-U,Z: POKE X2,Z
  5000 BRIGHT z: BORDER z: INK VAL "6": PAPER z: CLS 
  5010 PRINT "[B][D][D][D][D][D][D][D][D][D][C] [S] [P][U][U][N] [T] [B][D][D][D][D][D][D][D][D][D][C]"
  5020 PRINT "[A][L][K][K][K][K][K][K][K][K][A] ANDROIDE [A][K][K][K][K][K][K][K][K][L][A]"
  5030 PRINT "[A][K][H][D][D][G][K][H][G][K][F][D][D][D][D][D][D][D][D][D][D][E][K][H][G][K][H][D][D][G][K][A]"
  5040 PRINT "[A][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][A]"
  5050 PRINT "[F][G][K][H][D][D][D][D][G][K][H][D][D][D][D][D][D][D][D][D][D][G][K][H][D][D][D][D][G][K][H][E]"
  5060 PRINT "[A][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][A]"
  5070 PRINT "[A][K][I][K][B][G][K][B][D][D][C][K][B][D][G]  [H][D][C][K][B][D][D][C][K][H][C][K][I][K][A]"
  5071 PRINT "[A][K][A][K][J][K][K][A][L][L][A][K][A]      [A][K][A][L][L][A][K][K][J][K][A][K][A]"
  5072 PRINT "[A][K][A][K][K][K][B][E][L][L][A][K][F][D][D][D][D][D][D][E][K][A][L][L][F][C][K][K][K][A][K][A]"
  5073 PRINT "[A][K][A][K][I][K][A][L][L][L][A][K][K][K][K][K][K][K][K][K][K][A][L][L][L][A][K][I][K][A][K][A]"
  5074 PRINT "[A][K][A][L][A][K][F][D][D][D][E][K][H][D][D][D][D][D][D][G][K][F][D][D][D][E][K][A][L][A][K][A]"
  5075 PRINT "[A][K][F][D][E][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][F][D][E][K][A]"
  5076 PRINT "[A][K][K][K][K][K][H][D][D][D][D][G][K][B][G]  [H][C][K][H][D][D][D][D][G][K][K][K][K][K][A]"
  5077 PRINT "[F][D][D][D][G][K][K][K][K][K][K][K][K][J]    [J][K][K][K][K][K][K][K][K][H][D][D][D][E]"
  5078 PRINT "     [K][H][G][K][H][D][G][K]      [K][H][D][G][K][H][G][K]     "
  5079 PRINT "[B][D][D][D][G][K][K][K][L][K][K][K][K][I]    [I][K][K][K][K][L][K][K][K][H][D][D][D][C]"
  5080 PRINT "[A][K][K][K][K][K][H][D][D][D][D][G][K][F][G]  [H][E][K][H][D][D][D][D][G][K][K][K][K][K][A]"
  5081 PRINT "[A][K][I][K][I][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][I][K][I][K][A]"
  5082 PRINT "[A][L][A][K][A][K][B][D][C][L][I][K][I][K][B][D][D][C][K][I][K][I][L][B][D][C][K][A][K][A][L][A]"
  5083 PRINT "[A][K][J][K][F][D][E][K][F][D][E][K][J][K][J][K][K][J][K][J][K][F][D][E][K][F][D][E][K][J][K][A]"
  5084 PRINT "[A][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][A]"
  5090 PRINT "[F][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][E]"
  5100 PRINT #1;AT 1,0;"[H][D][D][D][D][D][D][G]SCORE:0000VIES:3[H][D][D][D][D][D][D][G]"
  5102 CIRCLE 127,60,11: CIRCLE 127,60,8: CIRCLE 127,60,5: CIRCLE 127,60,2
  5103 IF mx THEN  FOR i=u TO mx: PRINT AT VAL p$(i,u TO 2),VAL p$(i,3 TO 4);"[K]": BEEP .3[J],i*5: NEXT i
  5105 LET BC=USR VAL "29544": POKE x2-u,33: LET mx=mx+2: IF PEEK VAL "23560"=CODE t$(5) THEN  GO TO 20
  5106 IF mx=12 THEN  LET mx=10
  5107 IF bc THEN  GO TO 5120
  5110 LET BC=VAL "PEEK 32388+256*PEEK 32389": GO SUB VAL "6000": POKE x1,VAL "3": POKE x2,z: POKE x2+u,z: GO TO VAL "20"
  5120 POKE x2,bc-VAL "256*INT (bc/256)": POKE x2+u,INT (bc/VAL "256"): GO SUB VAL "6000": LET bc=PEEK vie: POKE x1,bc: LET bc=PEEK vit: IF bc>u THEN  LET bc=bc-u: POKE vit,bc
  5500 GO TO VAL "5000"
  6000 CLS : PRINT AT VAL "9",VAL "4";"MEILLEUR SCORE : 0000";AT VAL "9",VAL "25-LEN STR$ SC"; INK Z; PAPER VAL "6";SC;AT VAL "12",VAL "4";"VOTRE SCORE    : 0000";AT VAL "12",VAL "25-LEN STR$ BC"; INK Z; PAPER VAL "6";BC
  6010 RESTORE VAL "6100": FOR I=U TO VAL "12": READ J: BEEP VAL ".15",J: NEXT I: BEEP VAL ".8",VAL "20": PAUSE VAL "50": IF BC>SC THEN  LET SC=BC
  6100 DATA 10,10,20,30,10,10,20,30,10,10,20,30
  6500 RETURN 
  9998 POKE 23641,0: POKE 23642,0: GO TO 10
  46051
  0uLN SIN RNDsLN LEN ▟sACS i POKE [D]~ACS i RESTORE ▚~ REM ( PLOT  S PAPER  DIM  LINE  VERIFY dtc▛<>s CIRCLE s DEF FN s OPEN #s INVERSE s CLOSE #5867SSTR$ b  ▛▜ ▛▜ ▜▜ ▛ ▛▜ ▜▘▝▛  ▙▟                  ▟▟   ▙▟ ▟▖▗▙▖B [D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D][D]ACS  DIM [S] READ  FORMAT -1508152318091822100310280101013018011830TAB  SAVE C [U] [U] [U] [U]