Home » Archimedes archive » Acorn User » AU 1997-08 B.adf » Regulars » starinfo/vanMourik/Dangle
starinfo/vanMourik/Dangle
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-08 B.adf » Regulars |
| Filename: | starinfo/vanMourik/Dangle |
| Read OK: | ✔ |
| File size: | 0463 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
5REM >DANGLE 10REM JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 96 15REM COORDINATES A(),B(), COORDINATES C(),D(), DELTA X,Y E(),F(). 20MODE137:OFF:M%=15:DIM A(M%),B(M%),C(M%),D(M%),E(M%),F(M%) 25FOR X=0TO15:READ R,G,B:COLOUR X,R,G,B:A(X)=640:B(X)=512-X*64:NEXT:J=3/2 30ONERROR MODE12:REPORT:PRINT" at line ";ERL:END 35 40REM MAIN LOOP 45REPEAT 50SYS 6,112,1:SYS 6,113,2:WAIT:CLS:MOUSE X%,Y%,C%:GCOL1:CIRCLE FILL X%,Y%,30 55FORN=2TOM%:GCOLN:CIRCLEFILLA(N),B(N),31-N:NEXT:E=A(2):F=X%:H=B(2):I=Y% 60FORN=2TO14:D=A(N+1):C(N)=F+E+D:F=E:E=D:G=B(N+1):D(N)=I+H+G:I=H:H=G:NEXT 65C(M%)=J*(F+E):D(M%)=J*(I+H):C()=C()/3:D()=D()/3 70C()=C()+E():D()=D()+F():E()=C()-A():F()=D()-B():E()=E()*.97:F()=F()*.97 75 80SYS 6,112,2:SYS 6,113,1:WAIT:CLS:GCOL1:CIRCLE FILL X%,Y%,30 85FORN=2TOM%:GCOLN:CIRCLEFILLC(N),D(N),31-N:NEXT:E=C(2):F=X%:H=D(2):I=Y% 90FORN=2TO14:D=C(N+1):A(N)=F+E+D:F=E:E=D:G=D(N+1):B(N)=I+H+G:I=H:H=G:NEXT 95A(M%)=J*(F+E):B(M%)=J*(I+H):A()=A()/3:B()=B()/3 100A()=A()+E():B()=B()+F():E()=A()-C():F()=B()-D():E()=E()*.97:F()=F()*.97 105UNTIL0 110 115DATA 0,0,0,192,0,240,144,48,240,96,96,240,48,144,240,0,192,240,0,240,192,48,240,144,96,240,96,144,240,48,192,240,0,240,192,0,240,144,48,240,96,96,240,48,144,240,0,192
� >DANGLE J� JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 96 B� COORDINATES A(),B(), COORDINATES C(),D(), DELTA X,Y E(),F(). 6�137:�:M%=15:� A(M%),B(M%),C(M%),D(M%),E(M%),F(M%) =� X=0�15:� R,G,B:� X,R,G,B:A(X)=640:B(X)=512-X*64:�:J=3/2 � �12:�:�" at line ";�:� # (� MAIN LOOP -� 2<ș 6,112,1:ș 6,113,2:Ȗ:�:ȗ X%,Y%,C%:�1:ȏ Ȑ X%,Y%,30 7;�N=2�M%:�N:ȏȐA(N),B(N),31-N:�:E=A(2):F=X%:H=B(2):I=Y% <E�N=2�14:D=A(N+1):C(N)=F+E+D:F=E:E=D:G=B(N+1):D(N)=I+H+G:I=H:H=G:� A3C(M%)=J*(F+E):D(M%)=J*(I+H):C()=C()/3:D()=D()/3 FKC()=C()+E():D()=D()+F():E()=C()-A():F()=D()-B():E()=E()*.97:F()=F()*.97 K P0ș 6,112,2:ș 6,113,1:Ȗ:�:�1:ȏ Ȑ X%,Y%,30 U;�N=2�M%:�N:ȏȐC(N),D(N),31-N:�:E=C(2):F=X%:H=D(2):I=Y% ZE�N=2�14:D=C(N+1):A(N)=F+E+D:F=E:E=D:G=D(N+1):B(N)=I+H+G:I=H:H=G:� _3A(M%)=J*(F+E):B(M%)=J*(I+H):A()=A()/3:B()=B()/3 dKA()=A()+E():B()=B()+F():E()=A()-C():F()=B()-D():E()=E()*.97:F()=F()*.97 i�0 n s�� 0,0,0,192,0,240,144,48,240,96,96,240,48,144,240,0,192,240,0,240,192,48,240,144,96,240,96,144,240,48,192,240,0,240,192,0,240,144,48,240,96,96,240,48,144,240,0,192 �
00000000 0d 00 05 0d f4 20 3e 44 41 4e 47 4c 45 0d 00 0a |..... >DANGLE...| 00000010 4a f4 20 4a 45 41 4e 20 56 41 4e 20 4d 4f 55 52 |J. JEAN VAN MOUR| 00000020 49 4b 20 4d 49 4c 4c 43 4f 54 54 41 47 45 20 44 |IK MILLCOTTAGE D| 00000030 45 52 57 59 44 44 20 41 4d 4d 41 4e 46 4f 52 44 |ERWYDD AMMANFORD| 00000040 20 44 59 46 45 44 20 53 41 31 38 33 4c 51 20 20 | DYFED SA183LQ | 00000050 55 4b 2e 20 20 39 36 0d 00 0f 42 f4 20 43 4f 4f |UK. 96...B. COO| 00000060 52 44 49 4e 41 54 45 53 20 41 28 29 2c 42 28 29 |RDINATES A(),B()| 00000070 2c 20 43 4f 4f 52 44 49 4e 41 54 45 53 20 43 28 |, COORDINATES C(| 00000080 29 2c 44 28 29 2c 20 44 45 4c 54 41 20 58 2c 59 |),D(), DELTA X,Y| 00000090 20 45 28 29 2c 46 28 29 2e 0d 00 14 36 eb 31 33 | E(),F()....6.13| 000000a0 37 3a 87 3a 4d 25 3d 31 35 3a de 20 41 28 4d 25 |7:.:M%=15:. A(M%| 000000b0 29 2c 42 28 4d 25 29 2c 43 28 4d 25 29 2c 44 28 |),B(M%),C(M%),D(| 000000c0 4d 25 29 2c 45 28 4d 25 29 2c 46 28 4d 25 29 0d |M%),E(M%),F(M%).| 000000d0 00 19 3d e3 20 58 3d 30 b8 31 35 3a f3 20 52 2c |..=. X=0.15:. R,| 000000e0 47 2c 42 3a fb 20 58 2c 52 2c 47 2c 42 3a 41 28 |G,B:. X,R,G,B:A(| 000000f0 58 29 3d 36 34 30 3a 42 28 58 29 3d 35 31 32 2d |X)=640:B(X)=512-| 00000100 58 2a 36 34 3a ed 3a 4a 3d 33 2f 32 0d 00 1e 1d |X*64:.:J=3/2....| 00000110 ee 85 20 eb 31 32 3a f6 3a f1 22 20 61 74 20 6c |.. .12:.:." at l| 00000120 69 6e 65 20 22 3b 9e 3a e0 0d 00 23 05 20 0d 00 |ine ";.:...#. ..| 00000130 28 0f f4 20 4d 41 49 4e 20 4c 4f 4f 50 0d 00 2d |(.. MAIN LOOP..-| 00000140 05 f5 0d 00 32 3c c8 99 20 36 2c 31 31 32 2c 31 |....2<.. 6,112,1| 00000150 3a c8 99 20 36 2c 31 31 33 2c 32 3a c8 96 3a db |:.. 6,113,2:..:.| 00000160 3a c8 97 20 58 25 2c 59 25 2c 43 25 3a e6 31 3a |:.. X%,Y%,C%:.1:| 00000170 c8 8f 20 c8 90 20 58 25 2c 59 25 2c 33 30 0d 00 |.. .. X%,Y%,30..| 00000180 37 3b e3 4e 3d 32 b8 4d 25 3a e6 4e 3a c8 8f c8 |7;.N=2.M%:.N:...| 00000190 90 41 28 4e 29 2c 42 28 4e 29 2c 33 31 2d 4e 3a |.A(N),B(N),31-N:| 000001a0 ed 3a 45 3d 41 28 32 29 3a 46 3d 58 25 3a 48 3d |.:E=A(2):F=X%:H=| 000001b0 42 28 32 29 3a 49 3d 59 25 0d 00 3c 45 e3 4e 3d |B(2):I=Y%..<E.N=| 000001c0 32 b8 31 34 3a 44 3d 41 28 4e 2b 31 29 3a 43 28 |2.14:D=A(N+1):C(| 000001d0 4e 29 3d 46 2b 45 2b 44 3a 46 3d 45 3a 45 3d 44 |N)=F+E+D:F=E:E=D| 000001e0 3a 47 3d 42 28 4e 2b 31 29 3a 44 28 4e 29 3d 49 |:G=B(N+1):D(N)=I| 000001f0 2b 48 2b 47 3a 49 3d 48 3a 48 3d 47 3a ed 0d 00 |+H+G:I=H:H=G:...| 00000200 41 33 43 28 4d 25 29 3d 4a 2a 28 46 2b 45 29 3a |A3C(M%)=J*(F+E):| 00000210 44 28 4d 25 29 3d 4a 2a 28 49 2b 48 29 3a 43 28 |D(M%)=J*(I+H):C(| 00000220 29 3d 43 28 29 2f 33 3a 44 28 29 3d 44 28 29 2f |)=C()/3:D()=D()/| 00000230 33 0d 00 46 4b 43 28 29 3d 43 28 29 2b 45 28 29 |3..FKC()=C()+E()| 00000240 3a 44 28 29 3d 44 28 29 2b 46 28 29 3a 45 28 29 |:D()=D()+F():E()| 00000250 3d 43 28 29 2d 41 28 29 3a 46 28 29 3d 44 28 29 |=C()-A():F()=D()| 00000260 2d 42 28 29 3a 45 28 29 3d 45 28 29 2a 2e 39 37 |-B():E()=E()*.97| 00000270 3a 46 28 29 3d 46 28 29 2a 2e 39 37 0d 00 4b 05 |:F()=F()*.97..K.| 00000280 20 0d 00 50 30 c8 99 20 36 2c 31 31 32 2c 32 3a | ..P0.. 6,112,2:| 00000290 c8 99 20 36 2c 31 31 33 2c 31 3a c8 96 3a db 3a |.. 6,113,1:..:.:| 000002a0 e6 31 3a c8 8f 20 c8 90 20 58 25 2c 59 25 2c 33 |.1:.. .. X%,Y%,3| 000002b0 30 0d 00 55 3b e3 4e 3d 32 b8 4d 25 3a e6 4e 3a |0..U;.N=2.M%:.N:| 000002c0 c8 8f c8 90 43 28 4e 29 2c 44 28 4e 29 2c 33 31 |....C(N),D(N),31| 000002d0 2d 4e 3a ed 3a 45 3d 43 28 32 29 3a 46 3d 58 25 |-N:.:E=C(2):F=X%| 000002e0 3a 48 3d 44 28 32 29 3a 49 3d 59 25 0d 00 5a 45 |:H=D(2):I=Y%..ZE| 000002f0 e3 4e 3d 32 b8 31 34 3a 44 3d 43 28 4e 2b 31 29 |.N=2.14:D=C(N+1)| 00000300 3a 41 28 4e 29 3d 46 2b 45 2b 44 3a 46 3d 45 3a |:A(N)=F+E+D:F=E:| 00000310 45 3d 44 3a 47 3d 44 28 4e 2b 31 29 3a 42 28 4e |E=D:G=D(N+1):B(N| 00000320 29 3d 49 2b 48 2b 47 3a 49 3d 48 3a 48 3d 47 3a |)=I+H+G:I=H:H=G:| 00000330 ed 0d 00 5f 33 41 28 4d 25 29 3d 4a 2a 28 46 2b |..._3A(M%)=J*(F+| 00000340 45 29 3a 42 28 4d 25 29 3d 4a 2a 28 49 2b 48 29 |E):B(M%)=J*(I+H)| 00000350 3a 41 28 29 3d 41 28 29 2f 33 3a 42 28 29 3d 42 |:A()=A()/3:B()=B| 00000360 28 29 2f 33 0d 00 64 4b 41 28 29 3d 41 28 29 2b |()/3..dKA()=A()+| 00000370 45 28 29 3a 42 28 29 3d 42 28 29 2b 46 28 29 3a |E():B()=B()+F():| 00000380 45 28 29 3d 41 28 29 2d 43 28 29 3a 46 28 29 3d |E()=A()-C():F()=| 00000390 42 28 29 2d 44 28 29 3a 45 28 29 3d 45 28 29 2a |B()-D():E()=E()*| 000003a0 2e 39 37 3a 46 28 29 3d 46 28 29 2a 2e 39 37 0d |.97:F()=F()*.97.| 000003b0 00 69 06 fd 30 0d 00 6e 05 20 0d 00 73 a7 dc 20 |.i..0..n. ..s.. | 000003c0 30 2c 30 2c 30 2c 31 39 32 2c 30 2c 32 34 30 2c |0,0,0,192,0,240,| 000003d0 31 34 34 2c 34 38 2c 32 34 30 2c 39 36 2c 39 36 |144,48,240,96,96| 000003e0 2c 32 34 30 2c 34 38 2c 31 34 34 2c 32 34 30 2c |,240,48,144,240,| 000003f0 30 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 30 2c |0,192,240,0,240,| 00000400 31 39 32 2c 34 38 2c 32 34 30 2c 31 34 34 2c 39 |192,48,240,144,9| 00000410 36 2c 32 34 30 2c 39 36 2c 31 34 34 2c 32 34 30 |6,240,96,144,240| 00000420 2c 34 38 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 |,48,192,240,0,24| 00000430 30 2c 31 39 32 2c 30 2c 32 34 30 2c 31 34 34 2c |0,192,0,240,144,| 00000440 34 38 2c 32 34 30 2c 39 36 2c 39 36 2c 32 34 30 |48,240,96,96,240| 00000450 2c 34 38 2c 31 34 34 2c 32 34 30 2c 30 2c 31 39 |,48,144,240,0,19| 00000460 32 0d ff |2..| 00000463
.