'     *******************
'     *     PARAGON     *
'     *******************
'Programmautor: Volker Stepprath
'-------------------------------
'copyright © 1990 by Volker Stepprath
CLEAR,30000&
PALETTE 0,0,0,0
'PALETTE 1,0,0,0
PALETTE 2,0,0,0
PALETTE 3,0,0,0
FOR i%=1 TO 7
  READ stm(i%)
  READ sts(i%)
NEXT i%
DATA 523.25,15,784,15,698.48,6
DATA 659.28,6,587.28,6,1046.52,15,784,17
DIM a%(170)
DIM hf%(13,13)
FOR i%=1 TO 170
  READ a%(i%)
NEXT i%
COLOR 3
LOCATE 5,36:PRINT"PARAGON"
LOCATE 8,27:PRINT"program by Volker Stepprath"
LOCATE 10,27:PRINT"written in Amiga BASIC V1.2"
LOCATE 12,22:PRINT"compiled with AC/Basic V1.2 by Absoft"
LOCATE 16,20:PRINT"© 1990 copyright by PARAGON-SOFTWARE Inc."
LOCATE 21,21:PRINT"use joystick in port B and press fire !"
FOR w!=0 TO 1 STEP .005
  PALETTE 3,w!,w!,w!
  FOR u=0 TO 20:NEXT u
NEXT w!
WHILE STRIG(3)=0:SLEEP:WEND
FOR w!=1 TO 0 STEP -.005
  PALETTE 3,w!,w!,w!
  FOR u=0 TO 20:NEXT u
NEXT w!
CLS
WINDOW CLOSE 1
SCREEN 1,320,245,4,1
WINDOW 2,,,16,1
FOR i%=0 TO 13
  PALETTE i%,0,0,0
NEXT i%
i2%=3
FOR i%=1 TO 9
  IF i%>5 THEN
    i2%=i2%-1
  ELSE
    i2%=i2%+1
  END IF
  LINE(i%-1,i%-1)-(238-i%,238-i%),i2%,b
  LINE(243+i%-1,i%-1)-(311-i%,68-i%),i2%,b
  LINE(243+i%-1,i%+103)-(311-i%,172-i%),i2%,b
NEXT i%
COLOR 9
LOCATE 10,32:PRINT"Player 1"
LOCATE 23,32:PRINT"Player 2"
COLOR 10
LOCATE 29,32:PRINT"PARAGON"
LINE(244,218)-(308,236),10,b
RANDOMIZE TIMER
ON ERROR GOTO Fehler
ON BREAK GOSUB Ciao
BREAK ON
y3%=13:x3%=13:farda=1

'Hauptprogramm ***

Spielfeld:
  COLOR 2,0:LOCATE 12,32:PRINT"5.00 min"
  COLOR 12:LOCATE 25,32:PRINT"5.00 min"
  IF x3%<9 THEN x3%=9
  IF y3%<4 THEN y3%=4
  cs%=0:n%=0:zf%=3
  FOR i%=1 TO 13
    FOR i2%=1 TO 13                    
      hf%(i%,i2%)=0                       
    NEXT i2%
  NEXT i%
  FOR i%=1 TO x3%
    FOR i2%=1 TO y3%
      LINE((i%-1)*17+8,(i2%-1)*17+9)-((i%-1)*17+24,(i2%-1)*17+25),4,b
      LINE((i%-1)*17+9,(i2%-1)*17+9)-((i%-1)*17+24,(i2%-1)*17+24),8,b
      LINE((i%-1)*17+9,(i2%-1)*17+10)-((i%-1)*17+23,(i2%-1)*17+24),5,b
      LINE((i%-1)*17+10,(i2%-1)*17+10)-((i%-1)*17+23,(i2%-1)*17+23),7,b
      LINE((i%-1)*17+10,(i2%-1)*17+11)-((i%-1)*17+22,(i2%-1)*17+23),6,bf
    NEXT i2%
  NEXT i%
  FOR i1%=1 TO 2
    FOR i%=1 TO 3
      FOR i2%=1 TO 3
        LINE((i%-1)*17+251,(i2%-1)*17+9+n%)-((i%-1)*17+267,(i2%-1)*17+25+n%),4,b
        LINE((i%-1)*17+252,(i2%-1)*17+9+n%)-((i%-1)*17+267,(i2%-1)*17+24+n%),8,b
        LINE((i%-1)*17+252,(i2%-1)*17+10+n%)-((i%-1)*17+266,(i2%-1)*17+24+n%),5,b
        LINE((i%-1)*17+253,(i2%-1)*17+10+n%)-((i%-1)*17+266,(i2%-1)*17+23+n%),7,b
        LINE((i%-1)*17+253,(i2%-1)*17+11+n%)-((i%-1)*17+265,(i2%-1)*17+23+n%),6,bf
      NEXT i2%
    NEXT i%
    n%=104
  NEXT i1%
  i2%=0
  kf=INT(RND*17)
  FOR i%=1 TO 5
    CIRCLE(a%(kf*10+1+i2%),a%(kf*10+2+i2%)),5,0,,,1
    PAINT(a%(kf*10+1+i2%),a%(kf*10+2+i2%)),9,0
    i2%=i2%+2
  NEXT i%
  i2%=0
  kf2=INT(RND*17)
  FOR i%=1 TO 5
    CIRCLE(a%(kf2*10+1+i2%),a%(kf2*10+2+i2%)+n%),5,0,,,1
    PAINT(a%(kf2*10+1+i2%),a%(kf2*10+2+i2%)+n%),9,0
    i2%=i2%+2
  NEXT i%
  x%=8:y%=9
  t%=60:tm%=7:t2%=60:tm2%=7:x3%=0:y3%=0
  LINE(11,11)-(23,23),11,b
  IF farda<>0 THEN
    farda=0
    PALETTE 0,0,0,0
    PALETTE 1,0,0,0
    PALETTE 2,1,0,.05
    PALETTE 3,0,0,1
    PALETTE 4,.14,.14,.14
    PALETTE 5,.24,.24,.24
    PALETTE 6,.37,.37,.37
    PALETTE 7,.57,.57,.57
    PALETTE 8,.7,.7,.7
    PALETTE 9,1,1,1
    PALETTE 10,.7,.2,.8
    PALETTE 11,1,1,.13
    PALETTE 12,0,.3,1
    PALETTE 13,.54,1,.48
  END IF
  ON TIMER(1) GOSUB Zeit
  ON MOUSE GOSUB Checkmouse
  MOUSE ON
  IF IQ>0 THEN x2%=1:y2%=1:TIMER ON:GOTO Hieruda
  WHILE STICK(2)=0 OR STICK(3)=0:WEND
  TIMER ON
Joystick:
  zf%=3
  FOR i%=1 TO 140:NEXT i%
  lr=STICK(2):hv=STICK(3):fire=STRIG(3)
    IF fire=-1 THEN Kreis
    IF lr=0 AND hv=0 THEN Joystick
    u%=0:g%=0
    IF lr=-1 AND x%>8 THEN g%=-17:SOUND 400,1,50
    IF lr=1 AND x%<199 THEN g%=17:SOUND 400,1,50
    IF hv=1 AND y%<199 THEN u%=17:SOUND 800,1,50
    IF hv=-1 AND y%>24 THEN u%=-17:SOUND 800,1,50
    IF u%=0 AND g%=0 THEN Joystick
  LINE(x%+3,y%+2)-(x%+15,y%+14),6,b
  x%=x%+g%:x2%=(x%/17)+1
  y%=y%+u%:y2%=(y%/17)
  LINE(x%+3,y%+2)-(x%+15,y%+14),11,b
GOTO Joystick
Cursertasten:
  IF IQ>0 THEN Amigacomp     
  a$=INKEY$
  WHILE a$=""
    a$=INKEY$
  WEND
  FOR i%=1 TO 240:NEXT i%
  g%=0:u%=0
  IF ASC(a$)=31 AND x%>8 THEN g%=-17:SOUND 600,1,50
  IF ASC(a$)=30 AND x%<199 THEN g%=17:SOUND 600,1,50
  IF ASC(a$)=29 AND y%<199 THEN u%=17:SOUND 1000,1,50
  IF ASC(a$)=28 AND y%>24 THEN u%=-17:SOUND 1000,1,50
  IF a$=" " THEN Kreis
  IF u%=0 AND g%=0 THEN Cursertasten
  LINE(x%+3,y%+2)-(x%+15,y%+14),6,b
  x%=x%+g%:x2%=(x%/17)+1
  y%=y%+u%:y2%=(y%/17)
  LINE(x%+3,y%+2)-(x%+15,y%+14),11,b
GOTO Cursertasten

' Computergegner ***

Amigacomp:
  w2%=0
  kff=kf
  IF IQC>0 THEN
    kff=kf2
    qa=INT(RND*11)
    IF qa>IQC THEN 
      qa=INT(RND*2)+1
      IF qa=1 THEN Myturn
      GOTO Hieruda
    END IF
  END IF
  IF y2%>11 THEN
    i2%=11:m=kf+1
    FOR i%=1 TO 11
      IF hf%(i%,12)>0 AND hf%(i%,i2%)=0 THEN
        GOSUB Mustercomp
        IF r%>3 THEN Dabii
      END IF
    NEXT i%
  END IF 
  kff=kf
  FOR i%=1 TO 11
    FOR i2%=1 TO 11
      IF hf%(i%,i2%)<0 THEN
        m=kf2+1
        IF i2%>1 AND hf%(i%,i2%-1)=0 THEN
          i2%=i2%-1
          GOSUB Mustercomp
          IF r%<-3 THEN Stein
          i2%=i2%+1
        END IF
        GOSUB Mustercomp
        IF r%<-3 THEN kff=kf2:GOTO Stein
      END IF
    NEXT i2%
  NEXT i%
  FOR i%=1 TO 11
    FOR i2%=1 TO 11
      IF hf%(i%,i2%)>0 THEN
        m=s
        GOSUB Mustercomp
        IF r%>3 THEN kff=kf:GOTO Stein
        IF i2%>1 AND hf%(i%,i2%-1)=0 THEN
          i2%=i2%-1
          GOSUB Mustercomp
          IF r%>3 THEN kff=kf:GOTO Dabii
          i2%=i2%+1
        END IF
      END IF   
    NEXT i2%
  NEXT i%
  w2%=0
  FOR i%=1 TO 10
    FOR i2%=1 TO 11
      IF hf%(i%,i2%)>0 AND hf%(i%+1,i2%)>0 THEN
        GOSUB Mustercomp
        IF r%=3 THEN
          i%=i%+1
          GOSUB Mustercomp
          IF r%=3 THEN
            FOR i3%=1 TO 5
              dt=a%(kff*10+w2%+1)-260+(i%*17)
              dt2=a%(kff*10+w2%+2)+i2%*17-17
              IF POINT(dt,dt2)=2 OR POINT(dt,dt2)=6 THEN dt3=dt3+1
              w2%=w2%+2
            NEXT i3%
          END IF
          i%=i%-1
          w2%=0
          IF dt3=5 THEN
            FOR i3%=1 TO 5
              dt=a%(kff*10+w2%+1)-266+(i%*17)
              dt2=a%(kff*10+w2%+2)+i2%*17-17
              IF POINT(dt,dt2)=2 OR POINT(dt,dt2)=6 THEN dt3=dt3+1
              w2%=w2%+2
            NEXT i3%
          END IF
          IF dt3=10 THEN w2%=0:dt3=0:GOTO Stein
        END IF
        dt3=0:w2%=0
      END IF
    NEXT i2%
  NEXT i%
Myturn: 
  i2%=0                   
  kff=kf2:m=kf2+1
  FOR i%=1 TO 11
    FOR i2%=1 TO 11
      IF hf%(i%,i2%)=-1 THEN
        IF i2%>1 AND hf%(i%,i2%-1)=0 THEN
          i2%=i2%-1
          GOSUB Mustercomp
          IF r%<-3 THEN Stein
          i2%=i2%+1
        END IF
          FOR w%=1 TO 4
            IF hf%((a%(kf2*10+w2%+1)-260+(i%*17))/17,(a%(kf2*10+w2%+2)+i2%*17-17)/17)<1 THEN c=c+1
            w2%=w2%+2
          NEXT w%
          IF hf%((a%(kf2*10+9)-260+(i%*17))/17,(a%(kf2*10+10)+i2%*17-17)/17)=1 THEN c=0
       END IF
       IF c=4 THEN c=0:w2%=0:GOTO Stein
      c=0:w2%=0
    NEXT i2%
  NEXT i%
Lasthelp:
  FOR i%=1 TO 11
    FOR i2%=2 TO 11
      IF hf%(i%,i2%)<0 THEN
        i2%=i2%-1
        IF hf%(i%,i2%)=0 THEN
          FOR i3%=1 TO 5
            dd1=(a%(kf2*10+w2%+1)-260+(i%*17))/17
            dd2=(a%(kf2*10+w2%+2)+i2%*17-17)/17
            IF hf%(dd1,dd2)<1 THEN d=d+1
            w2%=w2%+2
          NEXT i3%
          IF d=5 THEN d=0:w2%=0:GOTO Stein
        END IF
        i2%=i2%+1:w2%=0:d=0
      END IF
    NEXT i2%
  NEXT i% 
Hieruda:
  i%=0:i2%=0
  i%=INT(RND*11)+1
  i2%=INT(RND*11)+1
  IF POINT(a%(kff*10+w2%+1)-260+(i%*17),a%(kff*10+w2%+2)+i2%*17-17)=6 THEN c=0:GOTO Dabii
  c=c+1
  IF c>20 THEN Nadenn
GOTO Hieruda
Nadenn:
  c=0
  FOR i%=1 TO 13
    FOR i2%=1 TO 13
      IF hf%(i%,i2%)=0 THEN Dabii
    NEXT i2%
  NEXT i%
Stein:
  w2%=0
  FOR w%=1 TO 4
    IF POINT(a%(kff*10+w2%+1)-260+(i%*17),a%(kff*10+w2%+2)+i2%*17-17)=6 THEN Dabii
    w2%=w2%+2
  NEXT w%
    IF POINT(a%(kff*10+w2%+1)-260+(i%*17),a%(kff*10+w2%+2)+i2%*17-17)<>6 THEN Myturn
Dabii:
  av%=a%(kff*10+w2%+1)-260+(i%*17):ah%=a%(kff*10+w2%+2)+i2%*17-17
  lu=av%/17-x2%
  ls=ah%/17-y2%
  IF lu<0 THEN
    pm=-17:st=-1:lu=lu+2
  ELSE 
    pm=17:st=1
  END IF
  FOR w%=1 TO lu STEP st
    SOUND 600,1,50
    FOR g%=1 TO 100:NEXT g%
    LINE(x%+3,y%+2)-(x%+15,y%+14),6,b
    x%=x%+pm
    LINE(x%+3,y%+2)-(x%+15,y%+14),11,b
  NEXT w%
  IF ls<0 THEN
    pm=-17:st=-1:ls=ls+2
  ELSE
    pm=17:st=1
  END IF
  FOR w%=1 TO ls STEP st
    SOUND 1000,1,50
    FOR g%=1 TO 100:NEXT g%
    LINE(x%+3,y%+2)-(x%+15,y%+14),6,b
    y%=y%+pm
    LINE(x%+3,y%+2)-(x%+15,y%+14),11,b
  NEXT w%
  IF av%/17>x3% THEN x3%=av%/17
  IF ah%/17>y3% THEN y3%=ah%/17
  CIRCLE(av%,ah%),5,0,,,1
  SOUND 230,1,100
  PAINT(av%,ah%),3,0
  hf%(av%/17,ah%/17)=-1
  s=kf2+1
  r2=-1:zf%=3
GOTO Malsehn
Mustercomp:
  ON m GOSUB Mu1,Mu2,Mu3,Mu4,Mu5,Mu6,Mu7,Mu8,Mu9,Mu10,Mu11,Mu12,Mu13,Mu14,Mu15,Mu16,Mu17
RETURN
Kreis:
  IF a$=" " AND POINT(x%+10,y%+8)<>6 THEN Cursertasten
  IF POINT(x%+10,y%+8)<>6 THEN Joystick
  CIRCLE(x%+9,y%+8),5,0,,,1
  IF zf%=2 THEN
    zf%=3:hf%(x2%,y2%)=-1:r2=-1:s=kf2+1
    SOUND 230,1,100
  ELSE
    zf%=2:hf%(x2%,y2%)=1:r2=1:s=kf+1
    SOUND 350,1,100
  END IF
  PAINT(x%+9,y%+8),zf%,0
  IF x2%>x3% THEN x3%=x2%
  IF y2%>y3% THEN y3%=y2%
Malsehn:
  FOR i%=1 TO 11
    FOR i2%=1 TO 11
      IF hf%(i%,i2%)=r2 THEN
        ON s GOSUB Mu1,Mu2,Mu3,Mu4,Mu5,Mu6,Mu7,Mu8,Mu9,Mu10,Mu11,Mu12,Mu13,Mu14,Mu15,Mu16,Mu17
        IF r%=5 OR r%=-5 THEN Gewonnen
      END IF
    NEXT i2%
  NEXT i%
  cs%=cs%+1:a$=""
  IF cs%=169 THEN Gewonnen
  IF flip<>0 THEN
    cs2=cs2+1
    IF cs2=flip THEN cs2=0:GOSUB Change
  END IF
  IF zf%=2 THEN Cursertasten
GOTO Joystick
Change:
  TIMER OFF
  MOUSE OFF
  FOR i%=1 TO x3%
    FOR i2%=1 TO y3%
      IF hf%(i%,i2%)<>0 THEN
        IF hf%(i%,i2%)<0 THEN
          PAINT(i%*17,i2%*17),2,0
          hf%(i%,i2%)=1
          SOUND 350,1,100
        ELSE
          PAINT(i%*17,i2%*17),3,0
          hf%(i%,i2%)=-1
          SOUND 250,1,100
        END IF
      END IF
    NEXT i2%
  NEXT i%
  FOR i%=1 TO 11
    FOR i2%=1 TO 11
      IF hf%(i%,i2%)<0 THEN 
        m=kf2+1:GOSUB Mustercomp
        IF r%=-5 THEN zf%=3:GOTO Gewonnen
      END IF
      IF hf%(i%,i2%)>0 THEN 
        m=kf+1:GOSUB Mustercomp
        IF r%=5 THEN zf%=2:GOTO Gewonnen
      END IF
    NEXT i2%
  NEXT i% 
  MOUSE ON  
  TIMER ON
RETURN
                   
'Berechnungen fuer die Ueberpruefung des Spiestandes ***

Mu1:
  r%=hf%(i%,i2%)+hf%(i%+1,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+2)+hf%(i%+2,i2%+2)
RETURN
Mu2:
  r%=hf%(i%,i2%)+hf%(i%+1,i2%)+hf%(i%+2,i2%)+hf%(i%,i2%+1)+hf%(i%,i2%+2)
RETURN
Mu3:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%+2,i2%+1)+hf%(i%+2,i2%+2)
RETURN
Mu4:
  r%=hf%(i%,i2%)+hf%(i%+2,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%+2,i2%+2)
RETURN
Mu5:
  r%=hf%(i%,i2%)+hf%(i%+2,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%,i2%+2)
RETURN
Mu6:
  r%=hf%(i%,i2%)+hf%(i%+2,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%+1,i2%+2)
RETURN
Mu7:
  r%=hf%(i%,i2%)+hf%(i%+1,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%+2,i2%+2)
RETURN
Mu8:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%+2,i2%+1)+hf%(i%,i2%+2)
RETURN
Mu9:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%,i2%+2)+hf%(i%+1,i2%+2)+hf%(i%+2,i2%+1)
RETURN
Mu10:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%+2,i2%+1)+hf%(i%+1,i2%+2)
RETURN
Mu11:
  r%=hf%(i%,i2%)+hf%(i%+2,i2%)+hf%(i%,i2%+1)+hf%(i%+2,i2%+1)+hf%(i%+1,i2%+2)
RETURN
Mu12:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%,i2%+2)+hf%(i%+1,i2%+2)+hf%(i%+2,i2%+2)
RETURN
Mu13:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+1)+hf%(i%,i2%+2)+hf%(i%+2,i2%+2)
RETURN
Mu14:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%+2,i2%+1)+hf%(i%+1,i2%+2)+hf%(i%+2,i2%+2)
RETURN
Mu15:
  r%=hf%(i%,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%)+hf%(i%+2,i2%+1)+hf%(i%+2,i2%+2)
RETURN
Mu16:
  r%=hf%(i%,i2%)+hf%(i%+1,i2%)+hf%(i%,i2%+1)+hf%(i%+2,i2%+1)+hf%(i%,i2%+2)
RETURN
Mu17:
  r%=hf%(i%,i2%)+hf%(i%+1,i2%)+hf%(i%+2,i2%)+hf%(i%,i2%+1)+hf%(i%+1,i2%+2)
RETURN
Checkmouse:
  MOUSE OFF
  TIMER STOP
  IF MOUSE(0)<>0 THEN
    IF MOUSE(1)>243 AND MOUSE(2)>217 AND MOUSE(1)<309 AND MOUSE(2)<237 THEN LINE(x%+3,y%+2)-(x%+15,y%+14),6,b:GOTO Frage2
  END IF
  WHILE MOUSE(0)<>0:WEND 
  COLOR 11,0
  LOCATE 29,32:PRINT" PAUSE "
  LINE(244,218)-(308,236),11,b
  WHILE MOUSE(0)=0:WEND
  COLOR 10
  LOCATE 29,32:PRINT"PARAGON"
  LINE(244,218)-(308,236),10,b
  WHILE MOUSE(0)<>0:WEND
  TIMER ON
  MOUSE ON
RETURN
Zeit:
  IF zf%=2 THEN Zeitb
  COLOR 2
  t%=t%-1
  IF t%=-1 THEN t%=59:tm%=tm%-1
  IF t%=59 AND tm%=-1 THEN SOUND 880,10:LINE(x%+3,y%+2)-(x%+15,y%+14),6,b:GOTO VerlorenA
  LOCATE 12,32:PRINT USING"#.";tm%
  LOCATE 12,34:PRINT USING"##";t%
  IF t%<10 AND tm%=0 THEN SOUND 880,2
RETURN
Zeitb:
  COLOR 12
  t2%=t2%-1
  IF t2%=-1 THEN t2%=59:tm2%=tm2%-1
  IF t2%=59 AND tm2%=-1 THEN SOUND 880,10:LINE(x%+3,y%+2)-(x%+15,y%+14),6,b:GOTO VerlorenB
  LOCATE 25,32:PRINT USING"#.";tm2%
  LOCATE 25,34:PRINT USING"##";t2%
  IF t2%<10 AND tm2%=0 THEN SOUND 880,2
RETURN
Gewonnen:
  TIMER OFF
  w2%=0
  LINE(x%+3,y%+2)-(x%+15,y%+14),6,b
  FOR zr%=1 TO 7
    SOUND stm(zr%),sts(zr%),21,0
    SOUND stm(zr%)/2,sts(zr%),127,1
    SOUND stm(zr%)*2,sts(zr%),21,2
  NEXT zr%
  IF cs%=169 AND tm%*60+t%>tm2%*60+t2% AND r%<>5 THEN VerlorenB
  IF cs%=169 AND tm2%*60+t2%>tm%*60+t% AND r%<>-5 THEN VerlorenA
  LINE((i%-1)*17+9,(i2%-1)*17+9)-((i%-1)*17+58,(i2%-1)*17+58),zf%,b
  LINE((i%-1)*17+10,(i2%-1)*17+10)-((i%-1)*17+57,(i2%-1)*17+57),zf%,b
  IF r%=-5 THEN
    FOR w%=1 TO 5
      PAINT(a%(kf2*10+w2%+1)-260+(i%*17),a%(kf2*10+w2%+2)+i2%*17-17),9,0
      w2%=w2%+2
    NEXT w%
    w2%=0
   GOTO VerlorenA
  ELSE
    FOR w%=1 TO 5
      PAINT(a%(kf*10+w2%+1)-260+(i%*17),a%(kf*10+w2%+2)+i2%*17-17),9,0
      w2%=w2%+2
    NEXT w%
    w2%=0
    GOTO VerlorenB
  END IF
VerlorenA:
  MOUSE OFF
  i2%=0:zf%=3
  FOR i%=1 TO 5
    PAINT(a%(kf2*10+1+i2%),a%(kf2*10+2+i2%)+n%),3,0
    i2%=i2%+2
  NEXT i%
  WHILE STRIG(3)=0:SLEEP:WEND
GOTO Frage
VerlorenB:
  MOUSE OFF
  i2%=0:zf%=2
  FOR i%=1 TO 5
    PAINT(a%(kf*10+1+i2%),a%(kf*10+2+i2%)),2,0
    i2%=i2%+2
  NEXT i%
  WHILE STRIG(3)=0:SLEEP:WEND
Frage:
  TIMER OFF
  MOUSE OFF
  cs2=0
  aspp=aspp+1
  IF zf%=2 THEN
    pla1=pla1+170-cs%+t%+tm%*60:gpla1=gpla1+1
  ELSE
    pla2=pla2+170-cs%+t2%+tm2%*60:gpla2=gpla2+1
  END IF
Frage2:
  cs2=0
  LINE(9,9)-(160,76),6,bf
  COLOR 11,6
  LOCATE 3,3:PRINT"SCORE OF";aspp;"GAMES"
  COLOR 9
  LOCATE 5,5:PRINT gpla1
  LOCATE 7,5:PRINT gpla2
  LOCATE 5,11:PRINT USING"###### p.";pla1
  LOCATE 7,11:PRINT USING"###### p.";pla2
  COLOR 13
  LOCATE 9,3:PRINT"F1-GoOn / F2-Menu"
  LINE(12,60)-(157,60),9
  CIRCLE(23,35),5,0,,,1
  PAINT(23,35),2,0 
  CIRCLE(23,51),5,0,,,1
  PAINT(23,51),3,0        
  cs%=0
Taste:
  a$=INKEY$
    IF a$=CHR$(130) THEN Auswahl
    IF a$=CHR$(129) THEN Spielfeld
GOTO Taste
Auswahl:
  WINDOW 2
  COLOR 13,6
  LINE(9,9)-(160,76),6,bf
  LOCATE 3,3:PRINT"F1-Main / F2-New"
  LOCATE 5,3:PRINT"F3-HorA / F4-Turn"
  LOCATE 7,3:PRINT"F5-Load / F6-SorK"
  LOCATE 9,3:PRINT"F7-Info / F8-Exit"
Taste2:
  a$=INKEY$
    IF a$=CHR$(129) THEN Frage2
    IF a$=CHR$(130) THEN Newgame
    IF a$=CHR$(131) THEN HorA
    IF a$=CHR$(132) THEN Turn
    IF a$=CHR$(133) THEN Ladespiel
    IF a$=CHR$(134) THEN Sork
    IF a$=CHR$(135) THEN AboutMe
    IF a$=CHR$(136) THEN Ciao
GOTO Taste2
Newgame:
  pla1=0:pla2=0:aspp=0:gpla1=0:gpla2=0:flip=0:IQ=0:COLOR 9,0:LOCATE 23,32:PRINT"Player 2":GOTO Frage2
GOTO Frage2 
Ladespiel:
  LINE(9,9)-(160,76),6,bf
  LOCATE 3,4:PRINT"Load Gameresult"
  COLOR 9
  LOCATE 6,3:PRINT"Filename:"
  COLOR 11
  LOCATE 8,3:LINE INPUT"",fin$
  IF fin$="" THEN Auswahl
  ON ERROR GOTO Fehler
  OPEN fin$ FOR INPUT AS #1
    INPUT #1,pla1
    INPUT #1,pla2
    INPUT #1,gpla1
    INPUT #1,gpla2
  CLOSE #1
  aspp=gpla1+gpla2
GOTO Auswahl
Sork:
  LINE(9,9)-(160,76),6,bf
  LOCATE 3,5:PRINT"Save or Kill"
  COLOR 9
  LOCATE 6,3:LINE INPUT"S-Save K-Kill:",fin$
  IF UCASE$(fin$)="S" OR UCASE$(fin$)="K" THEN SorK2
  GOTO Auswahl
  SorK2:
  LINE(9,9)-(160,48),6,bf
  COLOR 1
  LOCATE 5,4:PRINT"Remove write"
  LOCATE 6,4:PRINT"protection and"
  LOCATE 7,4:PRINT"enter filename"
  IF UCASE$(fin$)="S" THEN
    ON ERROR GOTO Fehler2
    COLOR 11
    LOCATE 3,4:PRINT"Save Gameresult"
    LOCATE 9,4:LINE INPUT"",fin$
    IF fin$="" THEN Auswahl
    OPEN fin$ FOR OUTPUT AS #1
      WRITE #1,pla1
      WRITE #1,pla2
      WRITE #1,gpla1
      WRITE #1,gpla2
    CLOSE #1
    KILL fin$+".info"
  END IF
  IF UCASE$(fin$)="K" THEN
    ON ERROR GOTO Fehler
    COLOR 11
    LOCATE 3,4:PRINT"Kill Gameresult"
    LOCATE 9,4:LINE INPUT"",fin$
    IF fin$="" THEN Auswahl
    KILL fin$
  END IF
  COLOR 9
GOTO Auswahl
HorA:
  LINE(9,9)-(160,76),6,bf
  LOCATE 3,4:PRINT"Human or Amiga"
  COLOR 9
  LOCATE 6,3:PRINT"F1-Human vs Amiga"
  LOCATE 8,3:PRINT"F2-Human vs Human"
  COLOR 9,0
hha:
  a$=INKEY$
    IF a$=CHR$(129) THEN LOCATE 23,32:PRINT"Computer":GOTO Spstark
    IF a$=CHR$(130) THEN IQ=0:LOCATE 23,32:PRINT"Player 2":GOTO Auswahl
    IF a$=CHR$(13) THEN Auswahl
GOTO hha
Spstark:
  LINE(9,9)-(160,76),6,bf
  COLOR 11,6
  IQ=1
  LOCATE 3,5:PRINT"Hard....-H-"
  LOCATE 6,5:PRINT"Medium..-M-"
  LOCATE 9,5:PRINT"Easy....-E-"
  COLOR 3
hme:
  a$=INKEY$
    IF UCASE$(a$)="H" THEN IQC=0:LOCATE 3,17:PRINT"<":GOTO Taste3
    IF UCASE$(a$)="M" THEN IQC=9:LOCATE 6,17:PRINT"<":GOTO Taste3
    IF UCASE$(a$)="E" THEN IQC=3:LOCATE 9,17:PRINT"<":GOTO Taste3
GOTO hme
Turn:
  LINE(9,9)-(160,76),6,bf
  LOCATE 3,8:PRINT"Turn Play"
  COLOR 9
  LOCATE 6,3:PRINT"After how many"
  LOCATE 8,3:LINE INPUT"moves (9-168):",flip2$
  flip=VAL(flip2$)
  IF flip=0 THEN Auswahl
  IF flip<9 OR flip>168 THEN COLOR 13:GOTO Turn
GOTO Auswahl 
AboutMe:
  LINE(9,9)-(160,76),6,bf
  LOCATE 3,8:PRINT"Paragon"
  COLOR 9                     
  LOCATE 6,4:PRINT"by V.Stepprath"
  LOCATE 8,3:PRINT"© copyright 1990"
Taste3:
  WHILE INKEY$="":SLEEP:WEND
GOTO Auswahl
Fehler:
  WINDOW 2
  LINE(9,9)-(160,76),6,bf
  COLOR 2
  LOCATE 3,7:PRINT"E R R O R"
  COLOR 0
  IF ERR<>53 THEN Fehler2
  LOCATE 5,3:PRINT"Data: ";
  COLOR 11:PRINT fin$
  COLOR 0
  LOCATE 6,3:PRINT"not found, or"
  LOCATE 7,3:PRINT"not on this disk!"
  GOTO Fabfok
  Fehler2:
  WINDOW 2
  LINE(9,9)-(160,76),6,bf
  COLOR 2
  LOCATE 3,7:PRINT"E R R O R"
  COLOR 0
  LOCATE 5,3:PRINT"Disk is"
  LOCATE 6,3:PRINT"write protected"
  LOCATE 7,3:PRINT"please correct it"
  Fabfok:
  LOCATE 9,3:PRINT"click mousebutton"
  WHILE MOUSE(0)<>0:WEND
  WHILE MOUSE(0)=0:SLEEP:WEND
  RESUME Auswahl
Ciao:
TIMER OFF
MOUSE OFF
FOR i%=0 TO 123
  FOR i2%=1 TO 300:NEXT i2%
  LINE(0+i%,0+i%)-(310-i%,245-i%),0,b
NEXT i%
CLS
WINDOW CLOSE 2:SCREEN CLOSE 1
SYSTEM

'Spielstein-Datas fuer die kleinen Spielfelder ***

DATA 260,17,277,51,277,17,294,51,260,34
DATA 260,17,294,17,260,51,260,34,277,17
DATA 260,17,294,51,294,34,260,34,277,34
DATA 260,17,294,51,294,17,260,34,277,34
DATA 260,17,277,34,260,51,294,17,260,34
DATA 260,17,277,51,294,17,277,34,260,34
DATA 260,17,294,51,260,34,277,17,277,34
DATA 260,17,294,34,260,51,277,34,260,34
DATA 260,17,294,34,260,51,277,51,260,34
DATA 260,17,294,34,277,51,277,34,260,34
DATA 260,17,294,34,277,51,294,17,260,34
DATA 260,17,277,51,294,51,260,34,260,51
DATA 260,17,294,51,260,51,277,34,260,34      
DATA 260,17,294,34,277,51,260,34,294,51
DATA 260,17,294,34,294,51,260,34,277,17
DATA 260,17,294,34,260,34,277,17,260,51
DATA 260,17,277,51,294,17,260,34,277,17