StarInfo/vanMourik/LATOOCARF

Home » Archimedes archive » Acorn User » AU 1997-11 B.adf » Regulars » StarInfo/vanMourik/LATOOCARF

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-11 B.adf » Regulars
Filename:	StarInfo/vanMourik/LATOOCARF
Read OK:	✔
File size:	05C3 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >LATOOCARF
   20REM >JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ  UK. 1996
   30 
   40MODE20:OFF:*POINTER
   50ORIGIN 640,512:E%=222:F%=277:A%=1:Z%=0
   60S%=-397:T%=145:U%=587:V%=-329:A=U%/213:B=V%/171:C=(S%+320)/480:D=(T%+256)/384:REM PARAMETER RANGES; -3 < A,B < 3  AND -.7 < C,D < 2
   70FOR X%=1TO15:COLOUR X%,255,255,255:NEXT:X=.1:Y=.1
   80PRINT"DISPLAYS THE GRAPH FOR A LATOOCARFIAN EQUATION."
   90PRINT"X=.1:Y=.1":PRINT"REPEAT:X2=SIN(Y*B)+C*SIN(X*B):Y=SIN(X*A)+D*SIN(Y*A):X=X2:POINT X*F%,Y*E%:UNTIL0  (E%,F% SCALING VARIABLES)"
  100PRINT"RIGHT BUTTON TO CHANGE BETWEEN PALETTE OF GREYS AND AN ALL WHITE PALETTE.":PRINT"MIDDLE TO CHANGE VALUES OF C AND D.":PRINT"LEFT TO CHANGE VALUES OF A AND B.":PRINT"IN A GREY SCALE PALETTE, THE PATTERN GETS CLEARER OVER TIME."
  110 
  120REPEAT:REPEAT
  130IF Z%>1 THEN
  140CLS:X=.1:Y=.1:GCOL1
  150PRINT"A=";A;"  ":PRINT"B=";B;"  ":PRINT:PRINT"C=";C;"  ":PRINT"D=";D;"  "
  160REPEAT:FORN%=0TO144:T=SIN(Y*B)+C*SIN(X*B):Y=SIN(X*A)+D*SIN(Y*A):X=T:POINTX*F%,Y*E%:POINT-X*F%,-Y*E%:NEXT:MOUSEG%,H%,I%:UNTILG%<>X% ORH%<>Y% ORI%=0:GOTO210
  170ENDIF
  180R%=1:W%=1
  190FOR N%=0TO444:T=SIN(Y*B)+C*SIN(X*B):Y=SIN(X*A)+D*SIN(Y*A):X=T:C%=X*F%:D%=Y*E%:M%=POINT(C%,D%):IFM%<15 GCOLM%+1:POINT C%,D%:POINT -C%,-D%
  200NEXT
  210MOUSE X%,Y%,Z%:UNTILZ%
  220IFZ%=1 THEN
  230A%=-A%:IFA%=-1 FORN%=1TO15:COLOUR N%,N%*16,N%*16,N%*16:NEXT:UNTIL0
  240FORN%=1TO15:COLOUR N%,255,255,255:NEXT:UNTIL0
  250ENDIF
  260IFZ%=4 THEN
  270IF W% W%=0:R%=1:MOUSE TO U%,V%:X%=U%:Y%=V%:A%=1:FORN%=1TO15:COLOUR N%,255,255,255:NEXT
  280A=X%/213:B=Y%/171:U%=X%:V%=Y%
  290ENDIF
  300IFZ%=2 THEN
  310IF R% R%=0:W%=1:MOUSE TO S%,T%:X%=S%:Y%=T%:A%=1:FORN%=1TO15:COLOUR N%,255,255,255:NEXT
  320C=(X%+320)/480:D=(Y%+256)/384:S%=X%:T%=Y%
  330ENDIF
  340UNTIL0


� >LATOOCARF
L� >JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ  UK. 1996
 
(�20:�:*POINTER
2&ȑ 640,512:E%=222:F%=277:A%=1:Z%=0
<�S%=-397:T%=145:U%=587:V%=-329:A=U%/213:B=V%/171:C=(S%+320)/480:D=(T%+256)/384:� PARAMETER RANGES; -3 < A,B < 3  AND -.7 < C,D < 2
F*� X%=1�15:� X%,255,255,255:�:X=.1:Y=.1
P6�"DISPLAYS THE GRAPH FOR A LATOOCARFIAN EQUATION."
Z~�"X=.1:Y=.1":�"REPEAT:X2=SIN(Y*B)+C*SIN(X*B):Y=SIN(X*A)+D*SIN(Y*A):X=X2:POINT X*F%,Y*E%:UNTIL0  (E%,F% SCALING VARIABLES)"
d��"RIGHT BUTTON TO CHANGE BETWEEN PALETTE OF GREYS AND AN ALL WHITE PALETTE.":�"MIDDLE TO CHANGE VALUES OF C AND D.":�"LEFT TO CHANGE VALUES OF A AND B.":�"IN A GREY SCALE PALETTE, THE PATTERN GETS CLEARER OVER TIME."
n 
x�:�
�� Z%>1 �
��:X=.1:Y=.1:�1
�9�"A=";A;"  ":�"B=";B;"  ":�:�"C=";C;"  ":�"D=";D;"  "
�z�:�N%=0�144:T=�(Y*B)+C*�(X*B):Y=�(X*A)+D*�(Y*A):X=T:ȒX*F%,Y*E%:Ȓ-X*F%,-Y*E%:�:ȗG%,H%,I%:�G%<>X% �H%<>Y% �I%=0:�dR@
��
�
R%=1:W%=1
�r� N%=0�444:T=�(Y*B)+C*�(X*B):Y=�(X*A)+D*�(Y*A):X=T:C%=X*F%:D%=Y*E%:M%=�C%,D%):�M%<15 �M%+1:Ȓ C%,D%:Ȓ -C%,-D%
��
�ȗ X%,Y%,Z%:�Z%
��Z%=1 �
�6A%=-A%:�A%=-1 �N%=1�15:� N%,N%*16,N%*16,N%*16:�:�0
�"�N%=1�15:� N%,255,255,255:�:�0
��
�Z%=4 �
J� W% W%=0:R%=1:ȗ � U%,V%:X%=U%:Y%=V%:A%=1:�N%=1�15:� N%,255,255,255:�
!A=X%/213:B=Y%/171:U%=X%:V%=Y%
"�
,�Z%=2 �
6J� R% R%=0:W%=1:ȗ � S%,T%:X%=S%:Y%=T%:A%=1:�N%=1�15:� N%,255,255,255:�
@-C=(X%+320)/480:D=(Y%+256)/384:S%=X%:T%=Y%
J�
T�0
�

00000000  0d 00 0a 10 f4 20 3e 4c  41 54 4f 4f 43 41 52 46  |..... >LATOOCARF|
00000010  0d 00 14 4c f4 20 3e 4a  45 41 4e 20 56 41 4e 20  |...L. >JEAN VAN |
00000020  4d 4f 55 52 49 4b 20 4d  49 4c 4c 43 4f 54 54 41  |MOURIK MILLCOTTA|
00000030  47 45 20 44 45 52 57 59  44 44 20 41 4d 4d 41 4e  |GE DERWYDD AMMAN|
00000040  46 4f 52 44 20 44 59 46  45 44 20 53 41 31 38 33  |FORD DYFED SA183|
00000050  4c 51 20 20 55 4b 2e 20  31 39 39 36 0d 00 1e 05  |LQ  UK. 1996....|
00000060  20 0d 00 28 12 eb 32 30  3a 87 3a 2a 50 4f 49 4e  | ..(..20:.:*POIN|
00000070  54 45 52 0d 00 32 26 c8  91 20 36 34 30 2c 35 31  |TER..2&.. 640,51|
00000080  32 3a 45 25 3d 32 32 32  3a 46 25 3d 32 37 37 3a  |2:E%=222:F%=277:|
00000090  41 25 3d 31 3a 5a 25 3d  30 0d 00 3c 85 53 25 3d  |A%=1:Z%=0..<.S%=|
000000a0  2d 33 39 37 3a 54 25 3d  31 34 35 3a 55 25 3d 35  |-397:T%=145:U%=5|
000000b0  38 37 3a 56 25 3d 2d 33  32 39 3a 41 3d 55 25 2f  |87:V%=-329:A=U%/|
000000c0  32 31 33 3a 42 3d 56 25  2f 31 37 31 3a 43 3d 28  |213:B=V%/171:C=(|
000000d0  53 25 2b 33 32 30 29 2f  34 38 30 3a 44 3d 28 54  |S%+320)/480:D=(T|
000000e0  25 2b 32 35 36 29 2f 33  38 34 3a f4 20 50 41 52  |%+256)/384:. PAR|
000000f0  41 4d 45 54 45 52 20 52  41 4e 47 45 53 3b 20 2d  |AMETER RANGES; -|
00000100  33 20 3c 20 41 2c 42 20  3c 20 33 20 20 41 4e 44  |3 < A,B < 3  AND|
00000110  20 2d 2e 37 20 3c 20 43  2c 44 20 3c 20 32 0d 00  | -.7 < C,D < 2..|
00000120  46 2a e3 20 58 25 3d 31  b8 31 35 3a fb 20 58 25  |F*. X%=1.15:. X%|
00000130  2c 32 35 35 2c 32 35 35  2c 32 35 35 3a ed 3a 58  |,255,255,255:.:X|
00000140  3d 2e 31 3a 59 3d 2e 31  0d 00 50 36 f1 22 44 49  |=.1:Y=.1..P6."DI|
00000150  53 50 4c 41 59 53 20 54  48 45 20 47 52 41 50 48  |SPLAYS THE GRAPH|
00000160  20 46 4f 52 20 41 20 4c  41 54 4f 4f 43 41 52 46  | FOR A LATOOCARF|
00000170  49 41 4e 20 45 51 55 41  54 49 4f 4e 2e 22 0d 00  |IAN EQUATION."..|
00000180  5a 7e f1 22 58 3d 2e 31  3a 59 3d 2e 31 22 3a f1  |Z~."X=.1:Y=.1":.|
00000190  22 52 45 50 45 41 54 3a  58 32 3d 53 49 4e 28 59  |"REPEAT:X2=SIN(Y|
000001a0  2a 42 29 2b 43 2a 53 49  4e 28 58 2a 42 29 3a 59  |*B)+C*SIN(X*B):Y|
000001b0  3d 53 49 4e 28 58 2a 41  29 2b 44 2a 53 49 4e 28  |=SIN(X*A)+D*SIN(|
000001c0  59 2a 41 29 3a 58 3d 58  32 3a 50 4f 49 4e 54 20  |Y*A):X=X2:POINT |
000001d0  58 2a 46 25 2c 59 2a 45  25 3a 55 4e 54 49 4c 30  |X*F%,Y*E%:UNTIL0|
000001e0  20 20 28 45 25 2c 46 25  20 53 43 41 4c 49 4e 47  |  (E%,F% SCALING|
000001f0  20 56 41 52 49 41 42 4c  45 53 29 22 0d 00 64 dc  | VARIABLES)"..d.|
00000200  f1 22 52 49 47 48 54 20  42 55 54 54 4f 4e 20 54  |."RIGHT BUTTON T|
00000210  4f 20 43 48 41 4e 47 45  20 42 45 54 57 45 45 4e  |O CHANGE BETWEEN|
00000220  20 50 41 4c 45 54 54 45  20 4f 46 20 47 52 45 59  | PALETTE OF GREY|
00000230  53 20 41 4e 44 20 41 4e  20 41 4c 4c 20 57 48 49  |S AND AN ALL WHI|
00000240  54 45 20 50 41 4c 45 54  54 45 2e 22 3a f1 22 4d  |TE PALETTE.":."M|
00000250  49 44 44 4c 45 20 54 4f  20 43 48 41 4e 47 45 20  |IDDLE TO CHANGE |
00000260  56 41 4c 55 45 53 20 4f  46 20 43 20 41 4e 44 20  |VALUES OF C AND |
00000270  44 2e 22 3a f1 22 4c 45  46 54 20 54 4f 20 43 48  |D.":."LEFT TO CH|
00000280  41 4e 47 45 20 56 41 4c  55 45 53 20 4f 46 20 41  |ANGE VALUES OF A|
00000290  20 41 4e 44 20 42 2e 22  3a f1 22 49 4e 20 41 20  | AND B.":."IN A |
000002a0  47 52 45 59 20 53 43 41  4c 45 20 50 41 4c 45 54  |GREY SCALE PALET|
000002b0  54 45 2c 20 54 48 45 20  50 41 54 54 45 52 4e 20  |TE, THE PATTERN |
000002c0  47 45 54 53 20 43 4c 45  41 52 45 52 20 4f 56 45  |GETS CLEARER OVE|
000002d0  52 20 54 49 4d 45 2e 22  0d 00 6e 05 20 0d 00 78  |R TIME."..n. ..x|
000002e0  07 f5 3a f5 0d 00 82 0c  e7 20 5a 25 3e 31 20 8c  |..:...... Z%>1 .|
000002f0  0d 00 8c 12 db 3a 58 3d  2e 31 3a 59 3d 2e 31 3a  |.....:X=.1:Y=.1:|
00000300  e6 31 0d 00 96 39 f1 22  41 3d 22 3b 41 3b 22 20  |.1...9."A=";A;" |
00000310  20 22 3a f1 22 42 3d 22  3b 42 3b 22 20 20 22 3a  | ":."B=";B;"  ":|
00000320  f1 3a f1 22 43 3d 22 3b  43 3b 22 20 20 22 3a f1  |.:."C=";C;"  ":.|
00000330  22 44 3d 22 3b 44 3b 22  20 20 22 0d 00 a0 7a f5  |"D=";D;"  "...z.|
00000340  3a e3 4e 25 3d 30 b8 31  34 34 3a 54 3d b5 28 59  |:.N%=0.144:T=.(Y|
00000350  2a 42 29 2b 43 2a b5 28  58 2a 42 29 3a 59 3d b5  |*B)+C*.(X*B):Y=.|
00000360  28 58 2a 41 29 2b 44 2a  b5 28 59 2a 41 29 3a 58  |(X*A)+D*.(Y*A):X|
00000370  3d 54 3a c8 92 58 2a 46  25 2c 59 2a 45 25 3a c8  |=T:..X*F%,Y*E%:.|
00000380  92 2d 58 2a 46 25 2c 2d  59 2a 45 25 3a ed 3a c8  |.-X*F%,-Y*E%:.:.|
00000390  97 47 25 2c 48 25 2c 49  25 3a fd 47 25 3c 3e 58  |.G%,H%,I%:.G%<>X|
000003a0  25 20 84 48 25 3c 3e 59  25 20 84 49 25 3d 30 3a  |% .H%<>Y% .I%=0:|
000003b0  e5 8d 64 52 40 0d 00 aa  05 cd 0d 00 b4 0d 52 25  |..dR@.........R%|
000003c0  3d 31 3a 57 25 3d 31 0d  00 be 72 e3 20 4e 25 3d  |=1:W%=1...r. N%=|
000003d0  30 b8 34 34 34 3a 54 3d  b5 28 59 2a 42 29 2b 43  |0.444:T=.(Y*B)+C|
000003e0  2a b5 28 58 2a 42 29 3a  59 3d b5 28 58 2a 41 29  |*.(X*B):Y=.(X*A)|
000003f0  2b 44 2a b5 28 59 2a 41  29 3a 58 3d 54 3a 43 25  |+D*.(Y*A):X=T:C%|
00000400  3d 58 2a 46 25 3a 44 25  3d 59 2a 45 25 3a 4d 25  |=X*F%:D%=Y*E%:M%|
00000410  3d b0 43 25 2c 44 25 29  3a e7 4d 25 3c 31 35 20  |=.C%,D%):.M%<15 |
00000420  e6 4d 25 2b 31 3a c8 92  20 43 25 2c 44 25 3a c8  |.M%+1:.. C%,D%:.|
00000430  92 20 2d 43 25 2c 2d 44  25 0d 00 c8 05 ed 0d 00  |. -C%,-D%.......|
00000440  d2 13 c8 97 20 58 25 2c  59 25 2c 5a 25 3a fd 5a  |.... X%,Y%,Z%:.Z|
00000450  25 0d 00 dc 0b e7 5a 25  3d 31 20 8c 0d 00 e6 36  |%.....Z%=1 ....6|
00000460  41 25 3d 2d 41 25 3a e7  41 25 3d 2d 31 20 e3 4e  |A%=-A%:.A%=-1 .N|
00000470  25 3d 31 b8 31 35 3a fb  20 4e 25 2c 4e 25 2a 31  |%=1.15:. N%,N%*1|
00000480  36 2c 4e 25 2a 31 36 2c  4e 25 2a 31 36 3a ed 3a  |6,N%*16,N%*16:.:|
00000490  fd 30 0d 00 f0 22 e3 4e  25 3d 31 b8 31 35 3a fb  |.0...".N%=1.15:.|
000004a0  20 4e 25 2c 32 35 35 2c  32 35 35 2c 32 35 35 3a  | N%,255,255,255:|
000004b0  ed 3a fd 30 0d 00 fa 05  cd 0d 01 04 0b e7 5a 25  |.:.0..........Z%|
000004c0  3d 34 20 8c 0d 01 0e 4a  e7 20 57 25 20 57 25 3d  |=4 ....J. W% W%=|
000004d0  30 3a 52 25 3d 31 3a c8  97 20 b8 20 55 25 2c 56  |0:R%=1:.. . U%,V|
000004e0  25 3a 58 25 3d 55 25 3a  59 25 3d 56 25 3a 41 25  |%:X%=U%:Y%=V%:A%|
000004f0  3d 31 3a e3 4e 25 3d 31  b8 31 35 3a fb 20 4e 25  |=1:.N%=1.15:. N%|
00000500  2c 32 35 35 2c 32 35 35  2c 32 35 35 3a ed 0d 01  |,255,255,255:...|
00000510  18 21 41 3d 58 25 2f 32  31 33 3a 42 3d 59 25 2f  |.!A=X%/213:B=Y%/|
00000520  31 37 31 3a 55 25 3d 58  25 3a 56 25 3d 59 25 0d  |171:U%=X%:V%=Y%.|
00000530  01 22 05 cd 0d 01 2c 0b  e7 5a 25 3d 32 20 8c 0d  |."....,..Z%=2 ..|
00000540  01 36 4a e7 20 52 25 20  52 25 3d 30 3a 57 25 3d  |.6J. R% R%=0:W%=|
00000550  31 3a c8 97 20 b8 20 53  25 2c 54 25 3a 58 25 3d  |1:.. . S%,T%:X%=|
00000560  53 25 3a 59 25 3d 54 25  3a 41 25 3d 31 3a e3 4e  |S%:Y%=T%:A%=1:.N|
00000570  25 3d 31 b8 31 35 3a fb  20 4e 25 2c 32 35 35 2c  |%=1.15:. N%,255,|
00000580  32 35 35 2c 32 35 35 3a  ed 0d 01 40 2d 43 3d 28  |255,255:...@-C=(|
00000590  58 25 2b 33 32 30 29 2f  34 38 30 3a 44 3d 28 59  |X%+320)/480:D=(Y|
000005a0  25 2b 32 35 36 29 2f 33  38 34 3a 53 25 3d 58 25  |%+256)/384:S%=X%|
000005b0  3a 54 25 3d 59 25 0d 01  4a 05 cd 0d 01 54 06 fd  |:T%=Y%..J....T..|
000005c0  30 0d ff                                          |0..|
000005c3

Our privacy policy is here.
Last updated: 01 Jun 2026, 20:16 UTC
Website designed by .