1 rem 0123456789012345678901234567890123456 2 clear 3 poke 32821,4,2,4,3,4,4,3,4,2,4,1,4,0,4,0,3,0,2,0,1,0,0,1,0,2,0,3,0,4,0,4,1 4 poke 32853,0,32,34,10 27 "H":wait 75:print " *** MINIGOLF ***":clear :Y=12335:gosub 900 28 input "SPIELER (MAX.4) ";A:if A>4 goto 28 29 input "BAHNEN (MAX.12) ";BA:if BA>12 goto 29 30 input "AB BAHNNUMMER: ";PL:restore 699+PL 40 dim B$(A),B(A),Z(10):for B=1 to A:input "NAME ? ";B$(B):next B 50 for Q=1 to BA:gosub 1000:for W=1 to A:pause Q;" SPIEL":pause " ";B$(W):R=1 60 wait 0:print "" 70 call 1208:D=0:S=0 80 gosub 500 90 poke 12333,0,0,0,0,0:gosub 600 100 for B=0 to 29:poke 12288+B,peek (44000+B):next B 101 random :T=rnd 5:N=12288+rnd 3:C=2^T:if T=3 goto 100 104 G=N+31712:poke N,peek G:gosub 650 105 if inkey$ <>"" poke N,peek G+C:goto 110 106 poke N,peek G+C:gosub 650 107 if inkey$ <>"" let M=C:goto 110 109 goto 104 110 if inkey$ ="0" let S=S-5:gosub 500 112 if inkey$ ="" goto 104 120 if inkey$ ="1" let S=S+5:gosub 500 130 if inkey$ ="+" let D=D+1:gosub 600 140 if inkey$ ="-" let D=D-1:gosub 600 150 if inkey$ ="=" goto 158 155 goto 110 158 if D>5 and D<14 let O=O-1:goto 160 159 O=O+1 160 V=2*D:K=N:M=C:L=T:N=N+peek (32821+V)/2-1:T=T+peek (32822+V)/2-1:C=2^int T 165 if N=12314 and C=8 goto 401 170 if peek N and C goto 300 180 poke N-1,peek (N+31711),peek (N+31712) or C,peek (N+31713) 185 gosub 600 190 S=S-1:if S=-1 goto 2000 195 if S/5=int (S/5) gosub 500 200 goto 158 250 goto 104 300 if peek (N+31712) and M let D=24-D:goto 322 310 if peek (N+31712) and C let D=16-D:goto 325 320 D=D+3 322 if D>15 let D=D-16 325 N=int K:T=int L:C=2^T:goto 190 401 wait 75:print str$ R;" SCHLAEGE":B(W)=B(W)+R:next W:next Q 402 for B=1 to A:for C=1 to A 403 if B(B)>B(C) let B(0)=B(B):gosub 3025 404 next C:next B 410 CB$="&&&&&&&&&&&&&&&&&" 411 wait 150:for B=A to 1 step -1:print A-B+1;" "; using CB$;B$(B);" "; using ;str$ (B):next B:goto 3000 500 if S>30 let S=30 501 if S<0 let S=0 502 F=2^(6-S/5):poke 12338,65,F,F,F,65:return 600 if D<0 let D=15 601 if D>15 let D=0 602 X=621-D:gosub X:return 606 poke Y-2,0,0,8,4,4:return 607 poke Y-2,0,0,8,4,2:return 608 poke Y-2,0,0,8,6,0:return 609 poke Y-2,0,0,14,0,0:return 610 poke Y-2,0,6,8,0,0:return 611 poke Y-2,2,4,8,0,0:return 612 poke Y-2,4,4,8,0,0:return 613 poke Y-2,8,8,8,0,0:return 614 poke Y-2,16,16,8,0,0:return 615 poke Y-2,32,16,8,0,0:return 616 poke Y-2,0,48,8,0,0:return 617 poke Y-2,0,0,56,0,0:return 618 poke Y-2,0,0,8,48,0:return 619 poke Y-2,0,0,8,16,32:return 620 poke Y-2,0,0,8,16,16:return 621 poke Y-2,0,0,8,8,8:return 650 return 700 data 65,65,65,65,65,65,65,65,65,65 701 data 65,79,65,65,65,65,121,65,65,65 702 data 99,65,93,93,93,65,99,65,65,119 703 data 103,79,95,79,103,115,121,125,121,115 704 data 65,99,99,107,99,99,99,99,85,65 705 data 107,99,119,99,107,107,99,119,99,107 706 data 65,65,99,54,20,54,99,73,73,93 707 data 65,65,125,69,69,85,81,81,95,65 708 data 83,67,103,97,97,77,69,113,65,83 709 data 79,71,103,65,91,81,65,69,109,65 710 data 107,65,119,65,109,77,73,65,101,65 711 data 99,73,65,113,67,103,103,38,67,87 900 poke 44000,127,65,65,65,65:poke 44025,65,73,65,65,127:return 1000 read Z(0),Z(1),Z(2),Z(3),Z(4),Z(5),Z(6),Z(7),Z(8),Z(9) 1001 for Z=0 to 9:poke 44005+Z,Z(Z):poke 44015+Z,Z(Z):next Z:return 1002 end 2000 R=R+1:if R=9 goto 401 2010 S=0:D=0:gosub 621:goto 104 3000 input "NOCHMAL ? (J/N) ";A$ 3010 if A$="J" then 1 3020 end 3025 B(B)=B(C):B(C)=B(0):B$(0)=B$(B):B$(B)=B$(C):B$(C)=B$(0):return