3-D-GOLF rg-I tg Definitionen  9500% 'z$=" " ;g(4):f(30,502):sum=0:rz=1 Hauptpmenue 7:0::0 F0,0;5;0;z$;0,11 ;"Hauptmenue" n4,1;"1 = Spielfeldeditor";6,1;"2 = Spielbeginn";8,1;"3 = Information" )="1"f(30,502):7000X ="2"0:1800  ="3"9000(#  1030 Spielerabfrage E:;"Wieviel Spieler ? (1-4) ";sp:sp<1sp>41810 D;"Wieviel Runden ? (1-99) ";ru:ru>99cru<11820 Vorbereitung &:p(4):sz=1:8600! nblick=6110:pbh=10 :pbv=(*9 )+11 :f(pbv,pbh)=1f(pbv,pbh)=21998 pav=pbv:pah=pbh Spielbeginn  7300 90:0: >_8100:6190.:gos=6510n:blick:6300:6900:8200 :8300l HQsz+1,0;2;7;1;" ":4000 Flugrichtung 4:0 blick=6110c$="ON--S" blick=6130c$="WS--N" blick=6150c$="NW--O" blick=6170c$="SO--W" 0,29;2;7;c$(1);2,23;4;0;c$(23);2,26;c$(45) N160,152:88X,0:205,152:0,15 #ri=0:a=0:b=32 ="0"4105  /="8"ri=ri-1:a=a+2:4080 /="5"ri=ri+1:a=a-2:4090 2a-32 b=0:a=-32 :ri=16 1a32 a=32 :b=0:ri=-16 Jc=35:c,21;" ":c:205,152:a,-b  4030 a>0b=b-2: b=b+2: a<0b=b-2: b=b+2: Flugstaerke  a=0:st=0:7 C="0"st=st+.73333:a=a+1:237,a:12 ,0 a>110n4115 ="0"4110 Cst=(st/8):f(pbv,pbh)=3st=((st/2)+.5) gFlugbahn i4.01z# =,0:21,14;4;" " k<p(sz)=p(sz)+1:g(sz)=g(sz)+1:psh=pbh:psv=pbv m}c=0:d=0:b=16-ri:ca=16:da=16:db=-16:a=0:e=1:es=1:stp=0 rd=d+ri wUc=c+b:c>caca=ca+16:a=a+1:4270:e=1:(blick-1800) |Yd>dari0da=da+16:a=a+1:4280:e=2:(blick-1700) ~Yd 7210* H[;"Sollpunktzahl? ";f(1,1):f(1,1)=07240H:8950" J7::85004! Rph<10 ph=10 Tph>39'ph=39' Vpv>20pv=20 Xpv<10 pv=10 \pa=2:7900:  Map :0::4:a=9 21:a,0;z$:a 0,0;5;0;z$;0,11 ;"LANDKARTE";0;7;2,0;"* = Baum";4,0;" = Wasser";2,12 ;" = Sand";4,12 ;" = Ziel" 7380:7390 q0:4:3,100d:249,0:0,-97a:-249,0:0,97a `7:0:b=1:a=10 20:a,1;k$(bb+29):b=b+30:a pbv,pbh-9 ;2;7;1;1;" ":f(pbv,pbh)=1psv,psh-9 ;1;7;1;" ":pbv=psv:pbh=psh Wf(pbv,pbh)=2pav,pah-9 ;1;7;1;" ":pbv=pav:pbh=pah 3="c"8,0;0;z$::7390 %="o"blick=6110:21004 %="w"blick=6130:21004 %="n"blick=6150:21004 %="s"blick=6170:21004  7320 ԇ1,27;7;0;"N";2,27;"|";3,25;"W-*-O";4,27;"|";5,27;"S": Y8,0;6;0;z$;8,0;"C =COPY / N,O,S,W =Ansicht ": Maperzeugung N0::10 ,3;6;0;"Bitte einen Moment Geduld !" k$="" )a=10 20:b=130 &f(a,b+9 )=0k$=k$+" ":b &f(a,b+9 )=1k$=k$+"*":b &f(a,b+9 )=2k$=k$+"":b &f(a,b+9 )=3k$=k$+"":b &f(a,b+9 )=4k$=k$+"":b .b:a 8 Editorkursor ,pv,ph-9 ;pa;0;1;" ": r ="n" Landschaft a=710 :a,0;5;z$(129):a:a=11 21:a,0;4;z$(129):a:7 4:4 Sb=94^:a=-88X88X8:b,85U:a,-85U:b=b+2:a m8160:b=1:c=524:a=52492\2:d:a,85U:-c,-b:b=b+d:c=c+2:a o8160:b=1:c=513:a=180140-2:d:a,85U:c,-b:b=b+d:c=c+2:a 111 ,0;5;z$(129)  0,1,1,1,2,2,3,3,4,4,5,5,5,6,6,6,6,7,7,7,7 3a=721:a,29;0;" ":a:  Display ja=05:6:a,0;z$(118);a,20;4;z$(111 ):a 0:a=1sp:a+1,0;a;".Spieler:":a:5:0,0;"Ru: Sp: RP GP ":2:7:0,20;"Richtung: " &7:237,121y:0,-121y:12 ,0:0,121y:-12 ,0:237,110n:12 ,0:2:7,30;"S" 0 kPunktedisplay v5:0:0,3;rz;0,8;f(1,1):6:a=1sp:a+1,11 ;p(a);a+1,14;g(a):a: Ende ړ8100:0:a=12 21:a,0;1;z$(129):a:1:5:7,0;" ";8,0;" ";9 ,0;" ";10 ,0;" ";11 ,0;" ";12 ,0;" " a8200 :6:0:a=2sp+1:a,10 ;sum;a,14;g(a-1):a d=16:9100# =2:7:19,4;"Noch ein Spiel? (J/N)" ="j" ! ="n" ! 8440 !3 SAVE !>0::"GOLFBAHN"f():10 ,2;6;0;"Fuer VERIFY zurueckspulen und";12 ,8;" erneut starten!":"GOLFBAHN"f():1000 ! LOAD !0::10 ,5;6;0;"Starten Sie das Band ";12 ,5;"fuer die ";rz;". Golfbahn!":0:"GOLFBAHN"f():sum=sum+f(1,1):7400: #' Info #-7:0: #2*5;z$;0,10 ;"Kurzinfo" #4U7:'"Vor Spielbeginn muss ein Spiel- feld geladen oder konstruiert werden." #6q"Waehlen Sie im Spiel erst die Richtung mit >5< oder >8<. Legen Sie danach die Schlagkraftmit >0< fest." #8"Ueberqueren eines Baumfeldes = 1 Strafpunkt und Wiederholung. Landung auf Wasser = Neubeginn. Landung auf Sand = Naechster Schlag mit 1/2 Staerke." #:?"Wahl einer neuen Ansicht nach jedem Schlag durch N,S,O,W." #<"Punktanzeige: Ru = Runde, SP = Sollpunktzahl, RP = Rundenpunkt-zahl, GP = Gesamtpunktzahl. Endausrechnug: RP = Summe SP." #>4;5'z$;21,7;"Zurueck mit Taste" #F0:1000 # Melodie #(9120#:a=1d:c,b:c,b:a: #.3,5,.3,5,.3,7,.6,4,.15~,5,.4L,7,.3,9 ,.3,9 ,.3,10 ,.6,9 ,.15~,7,.3,5,.3,7,.3,5,.3,4,.9ffff,5 % UDG %&!9500%:a="A""T"-1 %0 b:a,b:a: %:L36$,134,105i,76L,502,150,97a,36$ %K32 ,144,96`,65A,502,150,97a,36$ %@L36$,134,105i,76L,480,144,96`,40( %BI36$,134,105i,76L,146,6,9 ,4 %DF32 ,144,96`,64@,0,0,0,0 %FB4,6,9 ,12 ,0,0,0,0 %HB0,0,0,0,10 ,6,9 ,4 %IF0,0,0,0,480,144,96`,32 %JK32 ,128,96`,64@,480,144,96`,32 %LB4,6,9 ,12 ,2,6,1,4 %NO44,,122z,239,189,247,223,122z,44, %PQ224,248,248,224,128,128,128,128 %RQ224,248,254,254,248,224,128,128 %TQ224,248,254,255,255,254,248,224 %VQ255,129,129,129,129,129,129,255 %XQ128,128,128,128,128,128,128,128 %ZM102f,153,0,102f,153,0,102f,153 %\G136,0,34",0,136,0,34",0 bZ uQ2