Anaconda: Anaconda.B

Es parte de la publicación: Anaconda
Tamaño del archivo: 12103
md5: 85122959e7118e403e9377aa41f5db2e
  1 REM ANACONDA
  2 REM © by SIMON GLEISSNER
  3 REM 17.8.1984
  4 PRINT AT 10,10; FLASH 1;"Bitte warten": GO TO 45
  9 LET hi=0: LET tt=200: LET q2=10: LET q6=10
  10 DIM o(1000): DIM p(1000)
  20 BORDER 0: PAPER 0: INK 7: CLS : PRINT AT 0,0;"FREIE TASTENWAHL FUER RICHTUNGS-AENDERUNG DER SCHLANGE"
  21 INPUT "Oben ";e$: IF LEN e$<>1 THEN  GO TO 21
  22 INPUT "Unten ";b$: IF LEN b$<>1 THEN  GO TO 22
  23 INPUT "Rechts ";c$: IF LEN c$<>1 THEN  GO TO 23
  24 INPUT "Links ";d$: IF LEN d$<>1 THEN  GO TO 24
  29 CLS : PRINT AT 0,0;"ANACONDA";AT 4,0;"<";e$;">  Oben";AT 6,0;"<";b$;">  Unten";AT 8,0;"<";d$;">  Links";AT 10,0;"<";c$;">  Rechts": FOR w=1 TO 100: NEXT w: PRINT AT 15,0;"Bitte eine Taste druecken": PAUSE 0
  30 GO TO 551
  45 REM  AUFBAU DER SCHLANGE
  50 FOR t=0 TO 7
  60 READ n
  70 POKE USR "a"+t,n
  80 NEXT t
  90 DATA 60,126,219,255,255,219,126,60
  100 FOR t=0 TO 7
  105 READ n
  110 POKE USR "b"+t,n
  120 NEXT t
  130 DATA 60,126,219,126,60,24,0,0
  140 FOR t=0 TO 7
  150 READ n
  160 POKE USR "c"+t,n
  170 NEXT t
  180 DATA 0,0,24,60,126,219,126,60
  190 FOR t=0 TO 7
  200 READ n
  210 POKE USR "d"+t,n
  220 NEXT t
  230 DATA 32,112,216,252,252,216,112,32
  240 FOR t=0 TO 7
  250 READ n
  260 POKE USR "e"+t,n
  270 NEXT t
  280 DATA 4,14,23,63,63,23,14,4
  290 FOR t=0 TO 7
  300 READ n
  310 POKE USR "f"+t,n
  320 NEXT t
  330 DATA 24,24,24,24,60,60,60,60
  340 FOR t=0 TO 7
  350 READ n
  360 POKE USR "g"+t,n
  370 NEXT t
  380 DATA 60,60,60,60,24,24,24,24
  390 FOR t=0 TO 7
  400 READ n
  410 POKE USR "h"+t,n
  420 NEXT t
  430 DATA 0,0,240,255,255,240,0,0
  440 FOR t=0 TO 7
  450 READ n
  460 POKE USR "i"+t,n
  470 NEXT t
  480 DATA 0,0,15,255,255,15,0,0
  500 REM  IRRGARTEN
  510 FOR t=0 TO 7
  520 READ n
  530 POKE USR "j"+t,n
  540 NEXT t
  541 GO TO 3000
  550 DATA 255,153,153,255,255,153,153,255
  551 LET pu=0
  600 IF q2=0 THEN  FOR w=1 TO 300: NEXT w: PRINT  PAPER 6; INK 0;AT 0,0;"Gesamte Punktezahl:             ";AT 0,19;pu: GO TO 4100
  601 IF q6=10 THEN  BORDER 0: PAPER 0: INK 7: CLS 
  602 IF q6=8 THEN  BORDER 6: PAPER 6: INK 1: CLS 
  603 IF q6=6 THEN  BORDER 2: PAPER 2: INK 5: CLS 
  604 IF q6=4 THEN  BORDER 7: PAPER 7: INK 3: CLS 
  605 IF q6=2 THEN  BORDER 6: PAPER 6: INK 2: CLS 
  608 PRINT AT 0,0: IF q6<8 THEN  GO TO 811
  609 REM [J]='j' im Graphic-Mode
  610 PRINT AT 1,0;"[J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J]"
  620 PRINT AT 2,0;"[J]      [J]       [J][J]       [J]      [J]"
  630 PRINT AT 3,0;"[J] [J][J][J][J] [J] [J][J][J][J][J] [J][J] [J][J][J][J][J] [J] [J][J][J][J] [J]"
  640 PRINT AT 4,0;"[J] [J]                          [J] [J]"
  650 PRINT AT 5,0;"[J] [J] [J][J] [J] [J][J][J] [J] [J][J] [J] [J][J][J] [J] [J][J] [J] [J]"
  660 PRINT AT 6,0;"[J] [J] [J][J] [J] [J][J][J] [J] [J][J] [J] [J][J][J] [J] [J][J] [J] [J]"
  670 PRINT AT 7,0;"[J] [J] [J][J] [J]     [J] [J][J] [J]     [J] [J][J] [J] [J]"
  680 PRINT AT 8,0;"[J] [J] [J][J] [J][J][J][J][J] [J] [J][J] [J] [J][J][J][J][J] [J][J] [J] [J]"
  690 PRINT AT 9,0;"[J]              [J][J]              [J]"
  700 PRINT AT 10,0;"[J] [J] [J][J][J][J][J][J][J][J] [J][J][J][J][J][J] [J][J][J][J][J][J][J][J] [J] [J]"
  710 PRINT AT 11,0;"[J]                              [J]"
  720 PRINT AT 12,0;"[J] [J][J][J][J][J][J][J][J] [J] [J][J][J][J][J][J] [J] [J][J][J][J][J][J][J][J] [J]"
  730 PRINT AT 13,0;"[J]          [J]        [J]          [J]"
  740 PRINT AT 14,0;"[J] [J][J][J][J][J][J][J][J] [J][J][J][J][J][J][J][J][J][J] [J][J][J][J][J][J][J][J] [J]"
  750 PRINT AT 15,0;"[J]              [J][J]              [J]"
  760 PRINT AT 16,0;"[J] [J] [J] [J]  [J] [J][J][J] [J][J] [J][J][J] [J]  [J] [J] [J] [J]"
  770 PRINT AT 17,0;"[J] [J] [J] [J]  [J] [J]        [J] [J]  [J] [J] [J] [J]"
  780 PRINT AT 18,0;"[J] [J] [J] [J]  [J] [J] [J] [J][J] [J] [J] [J]  [J] [J] [J] [J]"
  790 PRINT AT 19,0;"[J] [J] [J] [J][J][J][J] [J] [J] [J][J] [J] [J] [J][J][J][J] [J] [J] [J]"
  800 PRINT AT 20,0;"[J]   [J]      [J]        [J]      [J]   [J]"
  810 PRINT AT 21,0;"[J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J]": GO TO 849
  811 IF q6=2 THEN  GO TO 815
  813 PRINT AT 1,0;"[J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J]       [J]              [J]       [J][J] [J] [J] [J] [J] [J][J][J] [J][J][J][J] [J][J][J] [J] [J] [J] [J] [J][J] [J] [J]     [J]          [J]     [J] [J] [J][J] [J] [J] [J] [J][J][J] [J] [J][J][J][J] [J] [J][J][J] [J] [J] [J] [J][J] [J] [J] [J]     [J]      [J]     [J] [J] [J] [J][J] [J] [J] [J] [J][J][J] [J] [J][J][J][J] [J] [J][J][J] [J] [J] [J] [J][J] [J] [J] [J] [J][J][J] [J] [J][J][J][J] [J] [J][J][J] [J] [J] [J] [J][J] [J]   [J]                  [J]   [J] [J][J] [J][J][J] [J] [J][J][J][J][J] [J][J][J][J] [J][J][J][J][J] [J] [J][J][J] [J][J]     [J]                  [J]     [J][J] [J] [J] [J] [J][J][J][J] [J][J][J][J][J][J] [J][J][J][J] [J] [J] [J] [J][J] [J] [J] [J] [J][J][J][J] [J][J][J][J][J][J] [J][J][J][J] [J] [J] [J] [J][J] [J] [J] [J] [J][J]            [J][J] [J] [J] [J] [J][J] [J] [J] [J] [J][J] [J] [J][J][J][J][J][J] [J] [J][J] [J] [J] [J] [J][J] [J] [J]                      [J] [J] [J][J] [J] [J] [J][J][J][J] [J] [J][J][J][J][J][J] [J] [J][J][J][J] [J] [J] [J][J] [J]        [J]        [J]        [J] [J][J] [J] [J][J][J] [J] [J][J][J][J] [J][J] [J][J][J][J] [J] [J][J][J] [J] [J][J]       [J]      [J][J]      [J]       [J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J]"
  814 GO TO 849
  815 PRINT AT 1,0;"[J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J] ": FOR w=2 TO 18 STEP 2: PRINT AT w,0;"[J]                             [J] ";AT w+1,0;"[J] [J] [J] [J] [J] [J] [J] [J] [J] [J] [J] [J] [J] [J] [J] [J] ": NEXT w: PRINT AT 20,0;"[J]                             [J] ": PRINT AT 21,0;"[J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J] "
  820 PRINT AT 10,17; INK 4;CHR$ 152;CHR$ 147: GO TO 850
  849 PRINT AT 11,17; INK 4;CHR$ 152;CHR$ 147
  850 LET u1=2+INT (RND*19): LET u2=1+INT (RND*30): IF SCREEN$ (u1,u2)<>" " THEN  GO TO 850
  860 PRINT AT u1,u2; INK 4; PAPER 2; FLASH 1;" "
  870 LET o(1)=11: LET o(2)=11: LET p(1)=17: LET p(2)=18: IF q6=2 THEN  LET o(1)=10: LET o(2)=10
  871 LET q1=1: LET q3=3
  872 LET q4=2: LET q5=1
  880 RESTORE 900
  881 READ vv1,vv2: IF vv1=200 THEN  GO TO 901
  882 BEEP vv1,vv2: GO TO 881
  900 DATA .25 COPY ,-5,.5 COPY ,0,.25 COPY ,0,.25 COPY ,2,.5 COPY ,4,.5 COPY ,0,1,7,.5 COPY ,4,.5 COPY ,4,.5 COPY ,5,.25 COPY ,7,.25 COPY ,5,.25 COPY ,4,.25 COPY ,5,.5 COPY ,7,.25 COPY ,2,.25 COPY ,0,.25 COPY ,2,.25 COPY ,4,.5 COPY ,2,.5 COPY ,-5,.5 COPY ,0,.25 COPY ,0,.25 COPY ,2,.5 COPY ,4,.5 COPY ,0,1,7,.5 COPY ,4,.5 COPY ,4,.25 COPY ,5,.25 COPY ,7,.25 COPY ,4,.25 COPY ,5,.75,2,.25 COPY ,0,1.25,0,200,0
  999 PRINT AT 0,0;"                                "
  1000 REM  SPIEL
  1001 LET x=18: LET y=11: IF q6=2 THEN  LET y=10
  1002 LET a=0: LET b=1
  1005 PRINT AT 0,0;"Punkte:", FLASH 1;hi: GO TO 2000
  1010 PRINT AT 0,8;pu: LET a$=INKEY$: IF a$=d$ THEN  LET b=-1
  1020 IF a$=d$ OR a$=c$ THEN  LET a=0
  1030 IF a$=c$ THEN  LET b=1
  1040 IF a$=b$ THEN  LET a=1
  1050 IF a$=e$ THEN  LET a=-1
  1060 IF a$=e$ OR a$=b$ THEN  LET b=0
  1063 IF y<>u1 OR x<>u2 THEN  GO TO 1070
  1064 BEEP .05 TO ,16: BEEP .05 TO ,17: LET pu=pu+50
  1065 LET u1=2+INT (RND*19): LET u2=1+INT (RND*30): IF SCREEN$ (u1,u2)=" " THEN  GO TO 1067
  1066 GO TO 1065
  1067 PRINT AT u1,u2; INK 2; PAPER 4; FLASH 1;" "
  2000 IF SCREEN$ (y+a,x+b)=" " THEN  GO TO 2002
  2001 GO TO 1010
  2010 LET y=y+a: LET x=x+b
  2020 IF b=1 THEN  PRINT AT y,x; INK 4;CHR$ 147
  2030 IF b=-1 THEN  PRINT AT y,x; INK 4;CHR$ 148
  2040 IF a=1 THEN  PRINT AT y,x; INK 4;CHR$ 145
  2050 IF a=-1 THEN  PRINT AT y,x; INK 4;CHR$ 146
  2060 PRINT AT y-a,x-b; INK 4;CHR$ 144: BEEP .01=,0
  2100 IF SCREEN$ (y+1,x)=" " THEN  GO TO 2200
  2110 IF SCREEN$ (y,x+1)=" " THEN  GO TO 2200
  2120 IF SCREEN$ (y-1,x)=" " THEN  GO TO 2200
  2130 IF SCREEN$ (y,x-1)=" " THEN  GO TO 2200
  2131 LET q=0
  2140 FOR t=12 TO 36 STEP 2: BORDER INT (RND*8): BEEP 0.001[H],t: NEXT t: LET q=q+1
  2150: FOR t=36 TO 12 STEP -2: BORDER INT (RND*8): BEEP 0.001[H],t: NEXT t: IF q<=3 THEN  GO TO 2140
  2160 BORDER 0: GO TO 4100
  2300 LET o(q3)=y: LET p(q3)=x: IF q3=tt THEN  LET tt=tt+197: LET q6=q6-2: LET q2=q6: DIM o(1000): DIM p(1000): PRINT AT 0,0; FLASH 1;"                                ";AT 0,0; FLASH 1;"P.:";pu+INT (pu/100*20);"  Bonus(20%):";INT (pu/100*20): LET pu=pu+INT (pu/100*20): FOR u=-20 TO 40: BEEP .01=,u: NEXT u: GO TO 600
  2310 LET q3=q3+1
  2320 IF q2=0 THEN  LET q2=q6: GO TO 2500
  2330 LET q2=q2-1
  2331 PRINT AT q4,q5;" "
  2340 IF p(q1)<p(q1+1) THEN  PRINT  INK 4;AT o(q1),p(q1);CHR$ 152
  2350 IF p(q1)>p(q1+1) THEN  PRINT  INK 4;AT o(q1),p(q1);CHR$ 151
  2360 IF o(q1)>o(q1+1) THEN  PRINT  INK 4;AT o(q1),p(q1);CHR$ 150
  2370 IF o(q1)<o(q1+1) THEN  PRINT  INK 4;AT o(q1),p(q1);CHR$ 149
  2380 LET q4=o(q1): LET q5=p(q1)
  2400 LET q1=q1+1
  2500 LET pu=pu+1
  2600 GO TO 1010
  3000 REM  Schriftzug
  3010 BORDER 0: PAPER 0: INK 7: CLS 
  3015 FOR s=-2 TO 4
  3020 PLOT  10+s,130+s: DRAW 0,30: DRAW 10,10: DRAW 10,-10: DRAW 0,-30: DRAW 0,20: DRAW -20,0
  3030 PLOT  40+s,130+s: DRAW 0,40: DRAW 10,-10: DRAW 0,-20: DRAW 10,-10: DRAW 0,40
  3040 PLOT  70+s,130+s: DRAW 0,30: DRAW 10,10: DRAW 10,-10: DRAW 0,-30: DRAW 0,20: DRAW -20,0
  3050 PLOT  120+s,140+s: DRAW -10,-10: DRAW -10,10: DRAW 0,20: DRAW 10,10: DRAW 10,-10
  3060 PLOT  150+s,140+s: DRAW -10,-10: DRAW -10,10: DRAW 0,20: DRAW 10,10: DRAW 10,-10: DRAW 0,-20
  3070 PLOT  160+s,130+s: DRAW 0,40: DRAW 10,-10: DRAW 0,-20: DRAW 10,-10: DRAW 0,40
  3080 PLOT  190+s,130+s: DRAW 0,40: DRAW 10,0: DRAW 10,-10: DRAW 0,-20: DRAW -10,-10: DRAW -10,0
  3090 PLOT  220+s,130+s: DRAW 0,30: DRAW 10,10: DRAW 10,-10: DRAW 0,-30: DRAW 0,20: DRAW -20,0
  3100 NEXT s
  3110 PRINT AT 15,5;"© by SIMON GLEISSNER"          
  3115 PRINT AT 19,1;"Schlaengeln Sie sich durch die   Labyrinthe und erreichen Sie       die blinkenden Punkte"
  3120 DIM o(56): DIM p(56)
  3121 RESTORE 3140: FOR s=1 TO 56: READ o(s): READ p(s): NEXT s
  3140 DATA 0,0,0,1,1,1,2,1,2,2,2,3,2,4,1,4,0,4,0,5,0,6,0,7,0,8,0,9,0,10,1,10,2,10,2,11,2,12,2,13,2,14,2,15,2,16,2,17,2,18,2,19,2,20,1,20,0,20,0,19,0,18,0,17,0,16,0,15,0,14,0,13,0,12,0,11,0,10,1,10,2,10,2,9,2,8,2,7,2,6,2,5,3,5,3,4,3,3,3,2,3,1,3,0,3,-1,2,-1,1,-1,0,-1
  3150 INK 4: FOR w=1 TO 10: PRINT AT o(w)+14,p(w)+5;CHR$ 144: NEXT w
  3199 LET v=0
  3200 FOR s=1 TO 56
  3205 IF s=1 THEN  PRINT AT 17,4; INK 7;"17.8.84";AT o(56)+14,p(56)+5; INK 4;CHR$ 152;AT o(55)+14,p(55)+5;" ": GO TO 3220
  3210 IF o(s-1)<o(s) THEN  PRINT AT o(s-1)+14,p(s-1)+5;CHR$ 149: IF s<>2 THEN  PRINT AT o(s-2)+14,p(s-2)+5;" "
  3211 IF o(s-1)>o(s) THEN  PRINT AT o(s-1)+14,p(s-1)+5;CHR$ 150: IF s<>2 THEN  PRINT AT o(s-2)+14,p(s-2)+5;" "
  3212 IF p(s-1)>p(s) THEN  PRINT AT o(s-1)+14,p(s-1)+5;CHR$ 151: IF s<>2 THEN  PRINT AT o(s-2)+14,p(s-2)+5;" "
  3213 IF p(s-1)<p(s) THEN  PRINT AT o(s-1)+14,p(s-1)+5;CHR$ 152: IF s<>2 THEN  PRINT AT o(s-2)+14,p(s-2)+5;" "
  3214 IF s=2 THEN  PRINT AT o(56)+14,p(56)+5;" "
  3230 LET s1=s+10: IF s1>56 THEN  LET s1=s1-56
  3235 PRINT AT o(s1)+14,p(s1)+5;CHR$ 144
  3240 LET s1=s1+1: IF s1>56 THEN  LET s1=s1-56
  3250 IF s1=1 THEN  PRINT AT o(1)+14,p(1)+5;CHR$ 147: GO TO 3300
  3260 IF p(s1-1)<p(s1) THEN  PRINT AT o(s1)+14,p(s1)+5;CHR$ 147
  3270 IF p(s1-1)>p(s1) THEN  PRINT AT o(s1)+14,p(s1)+5;CHR$ 148
  3280 IF o(s1-1)>o(s1) THEN  PRINT AT o(s1)+14,p(s1)+5;CHR$ 146
  3290 IF o(s1-1)<o(s1) THEN  PRINT AT o(s1)+14,p(s1)+5;CHR$ 145
  3500 LET v=v+1: IF INKEY$<>"" OR v>170 THEN  GO TO 8
  4000 BEEP .01=,20: NEXT s
  4001 GO TO 3200
  4100 REM  Neues Spiel
  4110 PRINT AT 21,1; FLASH 1; INK 7; PAPER 0;"Neues Spiel (ENTER)"
  4120 IF INKEY$<>CHR$ 13 THEN  GO TO 4120
  4125 IF pu>hi THEN  LET hi=pu
  4130 LET tt=200: LET q2=10: LET q6=10: DIM o(1000): DIM p(1000): GO TO 551
  9000 STOP 
  9001 SAVE "Anaconda" LINE 1
  9002 SAVE "Anaconda" LINE 1
  9003 RUN