Duplicates

There are 2 duplicate copies of this file in the archive:

• Personal collection » Acorn ADFS disks » Electron » EUG_submission.ADF » 35/TEMP
• Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » 35/TEMP
• Personal collection » Acorn hard disk » misc » misc3 » eug_titles/35/TEMP

File contents

• BASIC
• Preview
• Hex Dump
• MODE 0 render
• MODE 1 render
• MODE 2 render
• MODE 4 render
• MODE 5 render

   40 MODE2
   50 GCOL3,3:FORt=1TO4:FORr=0TO20STEP2:MOVE1000,750*SIN(1.5+t/3.5)+100:MOVE1000-SIN(t/5)*250*r/20,750*SIN(1.5+(t+1.2)/3.5)+100:PLOT85,1000+SIN(t/5)*250*r/20,750*SIN(1.5+(t+1.2)/3.5)+100:NEXT,
   60 FORt=0.1TO2*PI STEP1/3*PI:MOVE1000+16*SIN(t+0.5*t),825+16*COS(t+0.5*t):MOVE1000-16*SIN(t+0.5*t),825-16*COS(t+0.5*t):PLOT85,1000+40*SIN(t),825+40*COS(t):NEXT
   70 MOVE960,215:MOVE1040,215:PLOT85,960,180:MOVE1040,211:MOVE968,180:PLOT85,1040,180
   80 FORr=0TO9STEP2:MOVE1000,64:PLOT85,900+20*r,180:PLOT85,920+20*r,180:NEXT

( �2
2� �3,3:�t=1�4:�r=0�20�2:�1000,750*�(1.5+t/3.5)+100:�1000-�(t/5)*250*r/20,750*�(1.5+(t+1.2)/3.5)+100:�85,1000+�(t/5)*250*r/20,750*�(1.5+(t+1.2)/3.5)+100:�,
<� �t=0.1�2*� �1/3*�:�1000+16*�(t+0.5*t),825+16*�(t+0.5*t):�1000-16*�(t+0.5*t),825-16*�(t+0.5*t):�85,1000+40*�(t),825+40*�(t):�
FC �960,215:�1040,215:�85,960,180:�1040,211:�968,180:�85,1040,180
P: �r=0�9�2:�1000,64:�85,900+20*r,180:�85,920+20*r,180:�
�

00000000  0d 00 28 07 20 eb 32 0d  00 32 9d 20 e6 33 2c 33  |..(. .2..2. .3,3|
00000010  3a e3 74 3d 31 b8 34 3a  e3 72 3d 30 b8 32 30 88  |:.t=1.4:.r=0.20.|
00000020  32 3a ec 31 30 30 30 2c  37 35 30 2a b5 28 31 2e  |2:.1000,750*.(1.|
00000030  35 2b 74 2f 33 2e 35 29  2b 31 30 30 3a ec 31 30  |5+t/3.5)+100:.10|
00000040  30 30 2d b5 28 74 2f 35  29 2a 32 35 30 2a 72 2f  |00-.(t/5)*250*r/|
00000050  32 30 2c 37 35 30 2a b5  28 31 2e 35 2b 28 74 2b  |20,750*.(1.5+(t+|
00000060  31 2e 32 29 2f 33 2e 35  29 2b 31 30 30 3a f0 38  |1.2)/3.5)+100:.8|
00000070  35 2c 31 30 30 30 2b b5  28 74 2f 35 29 2a 32 35  |5,1000+.(t/5)*25|
00000080  30 2a 72 2f 32 30 2c 37  35 30 2a b5 28 31 2e 35  |0*r/20,750*.(1.5|
00000090  2b 28 74 2b 31 2e 32 29  2f 33 2e 35 29 2b 31 30  |+(t+1.2)/3.5)+10|
000000a0  30 3a ed 2c 0d 00 3c 81  20 e3 74 3d 30 2e 31 b8  |0:.,..<. .t=0.1.|
000000b0  32 2a af 20 88 31 2f 33  2a af 3a ec 31 30 30 30  |2*. .1/3*.:.1000|
000000c0  2b 31 36 2a b5 28 74 2b  30 2e 35 2a 74 29 2c 38  |+16*.(t+0.5*t),8|
000000d0  32 35 2b 31 36 2a 9b 28  74 2b 30 2e 35 2a 74 29  |25+16*.(t+0.5*t)|
000000e0  3a ec 31 30 30 30 2d 31  36 2a b5 28 74 2b 30 2e  |:.1000-16*.(t+0.|
000000f0  35 2a 74 29 2c 38 32 35  2d 31 36 2a 9b 28 74 2b  |5*t),825-16*.(t+|
00000100  30 2e 35 2a 74 29 3a f0  38 35 2c 31 30 30 30 2b  |0.5*t):.85,1000+|
00000110  34 30 2a b5 28 74 29 2c  38 32 35 2b 34 30 2a 9b  |40*.(t),825+40*.|
00000120  28 74 29 3a ed 0d 00 46  43 20 ec 39 36 30 2c 32  |(t):...FC .960,2|
00000130  31 35 3a ec 31 30 34 30  2c 32 31 35 3a f0 38 35  |15:.1040,215:.85|
00000140  2c 39 36 30 2c 31 38 30  3a ec 31 30 34 30 2c 32  |,960,180:.1040,2|
00000150  31 31 3a ec 39 36 38 2c  31 38 30 3a f0 38 35 2c  |11:.968,180:.85,|
00000160  31 30 34 30 2c 31 38 30  0d 00 50 3a 20 e3 72 3d  |1040,180..P: .r=|
00000170  30 b8 39 88 32 3a ec 31  30 30 30 2c 36 34 3a f0  |0.9.2:.1000,64:.|
00000180  38 35 2c 39 30 30 2b 32  30 2a 72 2c 31 38 30 3a  |85,900+20*r,180:|
00000190  f0 38 35 2c 39 32 30 2b  32 30 2a 72 2c 31 38 30  |.85,920+20*r,180|
000001a0  3a ed 0d ff                                       |:...|
000001a4

35/TEMP.m0

35/TEMP.m1

35/TEMP.m2

35/TEMP.m4

35/TEMP.m5