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