Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Features1 » StarInfo/Stoner/!Golf
StarInfo/Stoner/!Golf
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Features1 |
Filename: | StarInfo/Stoner/!Golf |
Read OK: | ✔ |
File size: | 0400 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM Golf 20t=RND(-1):DIM l(9),m(9),tx(9),ty(9):MODE13:OFF:MOUSEON:h=1:s=0:p%=0:t%=0:r%=0:w=0:k=1:FORh=1TO18:PROCm:j=0:s%=0:REPEAT:PROCd:p=POINT(l,m):IF p=3 j=TRUE:VDU7 ELSEIFp=8 k=.6 ELSEIFp=15 k=.1 ELSEIFp=4 k=.1 ELSEIFp=12 k=1 ELSEIFp=13 k=.4:w=0 ELSEIFp=0 OR p=48 s%+=1:l=o:m=n 30IF j=0 PROCl 40FORa=0TO20:WAIT:NEXT:UNTILj=TRUE:s+=s%:t%+=p%:r%=s-t%:NEXT:PROCd 50DEFPROCm:p%=RND(3)+2:d%=128+(p%*p%)*40+RND(100):w=RND(1)*8-4:v=d%-RND(100):u=512:l=20:m=512:FOR b=0 TO 9:m(b)=RND(d%*.6)+(d%/2):l(b)=RND(160)-80+u:ty(b)=RND(d%):tx(b)=RND(2)*90-180+RND(64)+u:NEXT:ENDPROC 60DEFPROCd:CLS:FORa=0TOv+64STEP9:GCOL8:q=(SINRAD(a)*COSRAD(a/p%)):CIRCLEFILLd%-a,q*96+u,48:GCOL48:CIRCLEFILLq*56+v*.80,640-a/4,16:NEXT:GCOL15:FORb=0TO9:FORc=0TO9:CIRCLEFILLm(b)+RND(48)-24,l(b)+RND(48)-24,16:NEXT,:GCOL4:FORb=0TO9:CIRCLEFILLty(b),tx(b),22:NEXT 70GCOL13:CIRCLEFILLv,u,64:GCOL12:RECTANGLEFILL0,u-40,40,80:GCOL3:CIRCLEFILLv,u,4:PRINTTAB(0,0)"Hole "h''"Par "p%,"Shots"s%''"Score"s,"Round"r%''"Wind",w 80:ENDPROC 90DEFPROCl:o=l:n=m:MOUSETOl,m:GCOL3,60:CIRCLEl,m,k*512:REPEAT:MOUSEg,i,mb:shoton%=FALSE:IF ABS(g-l)<512*k AND ABS(i-m)<512*k MOVEl,m:DRAWg,i:WAIT:DRAWl,m:shoton%=TRUE 100UNTILmb<>0 AND shoton%=TRUE:s%+=1:e=(g-l)/4:f=(i-m)/4:GCOL63:REPEAT:RECTANGLEFILLl,m,-4,4:WAIT:l+=e+(w*k):m+=f+(w*k):f=f*.8:e=e*.8:UNTIL(e<0.1 AND e>-0.1)OR(f<0.1 AND f>-0.1):ENDPROC 110
� Golf �t=�(-1):� l(9),m(9),tx(9),ty(9):�13:�:ȗ�:h=1:s=0:p%=0:t%=0:r%=0:w=0:k=1:�h=1�18:�m:j=0:s%=0:�:�d:p=�l,m):� p=3 j=�:�7 ��p=8 k=.6 ��p=15 k=.1 ��p=4 k=.1 ��p=12 k=1 ��p=13 k=.4:w=0 ��p=0 � p=48 s%+=1:l=o:m=n � j=0 �l (/�a=0�20:Ȗ:�:�j=�:s+=s%:t%+=p%:r%=s-t%:�:�d 2���m:p%=�(3)+2:d%=128+(p%*p%)*40+�(100):w=�(1)*8-4:v=d%-�(100):u=512:l=20:m=512:� b=0 � 9:m(b)=�(d%*.6)+(d%/2):l(b)=�(160)-80+u:ty(b)=�(d%):tx(b)=�(2)*90-180+�(64)+u:�:� <���d:�:�a=0�v+64�9:�8:q=(��(a)*��(a/p%)):ȏȐd%-a,q*96+u,48:�48:ȏȐq*56+v*.80,640-a/4,16:�:�15:�b=0�9:�c=0�9:ȏȐm(b)+�(48)-24,l(b)+�(48)-24,16:�,:�4:�b=0�9:ȏȐty(b),tx(b),22:� Fv�13:ȏȐv,u,64:�12:ȓȐ0,u-40,40,80:�3:ȏȐv,u,4:�0,0)"Hole "h''"Par "p%,"Shots"s%''"Score"s,"Round"r%''"Wind",w P:� Zw��l:o=l:n=m:ȗ�l,m:�3,60:ȏl,m,k*512:�:ȗg,i,mb:shoton%=�:� �(g-l)<512*k � �(i-m)<512*k �l,m:�g,i:Ȗ:�l,m:shoton%=� d��mb<>0 � shoton%=�:s%+=1:e=(g-l)/4:f=(i-m)/4:�63:�:ȓȐl,m,-4,4:Ȗ:l+=e+(w*k):m+=f+(w*k):f=f*.8:e=e*.8:�(e<0.1 � e>-0.1)�(f<0.1 � f>-0.1):� n �
00000000 0d 00 0a 0a f4 20 47 6f 6c 66 0d 00 14 d2 74 3d |..... Golf....t=| 00000010 b3 28 2d 31 29 3a de 20 6c 28 39 29 2c 6d 28 39 |.(-1):. l(9),m(9| 00000020 29 2c 74 78 28 39 29 2c 74 79 28 39 29 3a eb 31 |),tx(9),ty(9):.1| 00000030 33 3a 87 3a c8 97 ee 3a 68 3d 31 3a 73 3d 30 3a |3:.:...:h=1:s=0:| 00000040 70 25 3d 30 3a 74 25 3d 30 3a 72 25 3d 30 3a 77 |p%=0:t%=0:r%=0:w| 00000050 3d 30 3a 6b 3d 31 3a e3 68 3d 31 b8 31 38 3a f2 |=0:k=1:.h=1.18:.| 00000060 6d 3a 6a 3d 30 3a 73 25 3d 30 3a f5 3a f2 64 3a |m:j=0:s%=0:.:.d:| 00000070 70 3d b0 6c 2c 6d 29 3a e7 20 70 3d 33 20 6a 3d |p=.l,m):. p=3 j=| 00000080 b9 3a ef 37 20 8b e7 70 3d 38 20 6b 3d 2e 36 20 |.:.7 ..p=8 k=.6 | 00000090 8b e7 70 3d 31 35 20 6b 3d 2e 31 20 8b e7 70 3d |..p=15 k=.1 ..p=| 000000a0 34 20 6b 3d 2e 31 20 8b e7 70 3d 31 32 20 6b 3d |4 k=.1 ..p=12 k=| 000000b0 31 20 8b e7 70 3d 31 33 20 6b 3d 2e 34 3a 77 3d |1 ..p=13 k=.4:w=| 000000c0 30 20 8b e7 70 3d 30 20 84 20 70 3d 34 38 20 73 |0 ..p=0 . p=48 s| 000000d0 25 2b 3d 31 3a 6c 3d 6f 3a 6d 3d 6e 0d 00 1e 0c |%+=1:l=o:m=n....| 000000e0 e7 20 6a 3d 30 20 f2 6c 0d 00 28 2f e3 61 3d 30 |. j=0 .l..(/.a=0| 000000f0 b8 32 30 3a c8 96 3a ed 3a fd 6a 3d b9 3a 73 2b |.20:..:.:.j=.:s+| 00000100 3d 73 25 3a 74 25 2b 3d 70 25 3a 72 25 3d 73 2d |=s%:t%+=p%:r%=s-| 00000110 74 25 3a ed 3a f2 64 0d 00 32 ac dd f2 6d 3a 70 |t%:.:.d..2...m:p| 00000120 25 3d b3 28 33 29 2b 32 3a 64 25 3d 31 32 38 2b |%=.(3)+2:d%=128+| 00000130 28 70 25 2a 70 25 29 2a 34 30 2b b3 28 31 30 30 |(p%*p%)*40+.(100| 00000140 29 3a 77 3d b3 28 31 29 2a 38 2d 34 3a 76 3d 64 |):w=.(1)*8-4:v=d| 00000150 25 2d b3 28 31 30 30 29 3a 75 3d 35 31 32 3a 6c |%-.(100):u=512:l| 00000160 3d 32 30 3a 6d 3d 35 31 32 3a e3 20 62 3d 30 20 |=20:m=512:. b=0 | 00000170 b8 20 39 3a 6d 28 62 29 3d b3 28 64 25 2a 2e 36 |. 9:m(b)=.(d%*.6| 00000180 29 2b 28 64 25 2f 32 29 3a 6c 28 62 29 3d b3 28 |)+(d%/2):l(b)=.(| 00000190 31 36 30 29 2d 38 30 2b 75 3a 74 79 28 62 29 3d |160)-80+u:ty(b)=| 000001a0 b3 28 64 25 29 3a 74 78 28 62 29 3d b3 28 32 29 |.(d%):tx(b)=.(2)| 000001b0 2a 39 30 2d 31 38 30 2b b3 28 36 34 29 2b 75 3a |*90-180+.(64)+u:| 000001c0 ed 3a e1 0d 00 3c b5 dd f2 64 3a db 3a e3 61 3d |.:...<...d:.:.a=| 000001d0 30 b8 76 2b 36 34 88 39 3a e6 38 3a 71 3d 28 b5 |0.v+64.9:.8:q=(.| 000001e0 b2 28 61 29 2a 9b b2 28 61 2f 70 25 29 29 3a c8 |.(a)*..(a/p%)):.| 000001f0 8f c8 90 64 25 2d 61 2c 71 2a 39 36 2b 75 2c 34 |...d%-a,q*96+u,4| 00000200 38 3a e6 34 38 3a c8 8f c8 90 71 2a 35 36 2b 76 |8:.48:....q*56+v| 00000210 2a 2e 38 30 2c 36 34 30 2d 61 2f 34 2c 31 36 3a |*.80,640-a/4,16:| 00000220 ed 3a e6 31 35 3a e3 62 3d 30 b8 39 3a e3 63 3d |.:.15:.b=0.9:.c=| 00000230 30 b8 39 3a c8 8f c8 90 6d 28 62 29 2b b3 28 34 |0.9:....m(b)+.(4| 00000240 38 29 2d 32 34 2c 6c 28 62 29 2b b3 28 34 38 29 |8)-24,l(b)+.(48)| 00000250 2d 32 34 2c 31 36 3a ed 2c 3a e6 34 3a e3 62 3d |-24,16:.,:.4:.b=| 00000260 30 b8 39 3a c8 8f c8 90 74 79 28 62 29 2c 74 78 |0.9:....ty(b),tx| 00000270 28 62 29 2c 32 32 3a ed 0d 00 46 76 e6 31 33 3a |(b),22:...Fv.13:| 00000280 c8 8f c8 90 76 2c 75 2c 36 34 3a e6 31 32 3a c8 |....v,u,64:.12:.| 00000290 93 c8 90 30 2c 75 2d 34 30 2c 34 30 2c 38 30 3a |...0,u-40,40,80:| 000002a0 e6 33 3a c8 8f c8 90 76 2c 75 2c 34 3a f1 8a 30 |.3:....v,u,4:..0| 000002b0 2c 30 29 22 48 6f 6c 65 20 22 68 27 27 22 50 61 |,0)"Hole "h''"Pa| 000002c0 72 20 20 22 70 25 2c 22 53 68 6f 74 73 22 73 25 |r "p%,"Shots"s%| 000002d0 27 27 22 53 63 6f 72 65 22 73 2c 22 52 6f 75 6e |''"Score"s,"Roun| 000002e0 64 22 72 25 27 27 22 57 69 6e 64 22 2c 77 0d 00 |d"r%''"Wind",w..| 000002f0 50 06 3a e1 0d 00 5a 77 dd f2 6c 3a 6f 3d 6c 3a |P.:...Zw..l:o=l:| 00000300 6e 3d 6d 3a c8 97 b8 6c 2c 6d 3a e6 33 2c 36 30 |n=m:...l,m:.3,60| 00000310 3a c8 8f 6c 2c 6d 2c 6b 2a 35 31 32 3a f5 3a c8 |:..l,m,k*512:.:.| 00000320 97 67 2c 69 2c 6d 62 3a 73 68 6f 74 6f 6e 25 3d |.g,i,mb:shoton%=| 00000330 a3 3a e7 20 94 28 67 2d 6c 29 3c 35 31 32 2a 6b |.:. .(g-l)<512*k| 00000340 20 80 20 94 28 69 2d 6d 29 3c 35 31 32 2a 6b 20 | . .(i-m)<512*k | 00000350 ec 6c 2c 6d 3a df 67 2c 69 3a c8 96 3a df 6c 2c |.l,m:.g,i:..:.l,| 00000360 6d 3a 73 68 6f 74 6f 6e 25 3d b9 0d 00 64 8f fd |m:shoton%=...d..| 00000370 6d 62 3c 3e 30 20 80 20 73 68 6f 74 6f 6e 25 3d |mb<>0 . shoton%=| 00000380 b9 3a 73 25 2b 3d 31 3a 65 3d 28 67 2d 6c 29 2f |.:s%+=1:e=(g-l)/| 00000390 34 3a 66 3d 28 69 2d 6d 29 2f 34 3a e6 36 33 3a |4:f=(i-m)/4:.63:| 000003a0 f5 3a c8 93 c8 90 6c 2c 6d 2c 2d 34 2c 34 3a c8 |.:....l,m,-4,4:.| 000003b0 96 3a 6c 2b 3d 65 2b 28 77 2a 6b 29 3a 6d 2b 3d |.:l+=e+(w*k):m+=| 000003c0 66 2b 28 77 2a 6b 29 3a 66 3d 66 2a 2e 38 3a 65 |f+(w*k):f=f*.8:e| 000003d0 3d 65 2a 2e 38 3a fd 28 65 3c 30 2e 31 20 80 20 |=e*.8:.(e<0.1 . | 000003e0 65 3e 2d 30 2e 31 29 84 28 66 3c 30 2e 31 20 80 |e>-0.1).(f<0.1 .| 000003f0 20 66 3e 2d 30 2e 31 29 3a e1 0d 00 6e 04 0d ff | f>-0.1):...n...| 00000400