Duplicates

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

• Personal collection » Acorn ADFS disks » Electron » EUG_submission.ADF » 35/M2Plas
• Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » M2Plas
• Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » M2Plas
• Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » 35/M2Plas
• Personal collection » Acorn hard disk » misc » dcfprogs » M2Plas
• Personal collection » Acorn hard disk » misc » misc3 » eug_titles/35/M2Plas

File contents

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

   10 MODE 2:DIM c%(7)
   20 FORx=0TO7:READc%(x):NEXT
   30 FOR x=2 TO 127.8 STEP 8:MOVEx,0
   40 FOR y=4 TO 1020 STEP 4:tr=0:pass=FALSE
   50 REPEAT:tr=tr+1
   60 c=RND(5)-3+POINT(x-8,y)
   70 IF tr=256 THEN c=(POINT(x-8,y)+POINT(x,y-2)+POINT(x-8,y-2)+POINT(x-8,y+2))/3:pass=TRUE
   80 UNTIL (ABS(c-POINT(x,y-4))<3 AND ABS(c-POINT(x-8,y-4))<6 AND ABS(c-POINT(x-8,y+4))<6 AND c<16 AND c>-1) OR pass
   90 GCOL0,c:DRAWx,y:NEXT,
  100:
  110REPEAT:FORb=0TO15:FORs=0TO15
  120IF s>7 THEN p=15-s ELSE p=s
  130VDU 19,b+s,c%(p),0,0,0,0
  140NEXT
  150T=TIME:REPEAT UNTIL TIME>T+5
  160NEXT:UNTIL INKEY(-99)
  170:
  180DATA0,0,4,4,6,6,7,7

 � 2:� c%(7)
 �x=0�7:�c%(x):�
 � x=2 � 127.8 � 8:�x,0
(! � y=4 � 1020 � 4:tr=0:pass=�
2 �:tr=tr+1
< c=�(5)-3+�x-8,y)
F@ � tr=256 � c=(�x-8,y)+�x,y-2)+�x-8,y-2)+�x-8,y+2))/3:pass=�
PR � (�(c-�x,y-4))<3 � �(c-�x-8,y-4))<6 � �(c-�x-8,y+4))<6 � c<16 � c>-1) � pass
Z �0,c:�x,y:�,
d:
n�:�b=0�15:�s=0�15
x� s>7 � p=15-s � p=s
�� 19,b+s,c%(p),0,0,0,0
��
�T=�:� � �>T+5
��:� �(-99)
�:
��0,0,4,4,6,6,7,7
�

00000000  0d 00 0a 10 20 eb 20 32  3a de 20 63 25 28 37 29  |.... . 2:. c%(7)|
00000010  0d 00 14 14 20 e3 78 3d  30 b8 37 3a f3 63 25 28  |.... .x=0.7:.c%(|
00000020  78 29 3a ed 0d 00 1e 1b  20 e3 20 78 3d 32 20 b8  |x):..... . x=2 .|
00000030  20 31 32 37 2e 38 20 88  20 38 3a ec 78 2c 30 0d  | 127.8 . 8:.x,0.|
00000040  00 28 21 20 e3 20 79 3d  34 20 b8 20 31 30 32 30  |.(! . y=4 . 1020|
00000050  20 88 20 34 3a 74 72 3d  30 3a 70 61 73 73 3d a3  | . 4:tr=0:pass=.|
00000060  0d 00 32 0e 20 f5 3a 74  72 3d 74 72 2b 31 0d 00  |..2. .:tr=tr+1..|
00000070  3c 15 20 63 3d b3 28 35  29 2d 33 2b b0 78 2d 38  |<. c=.(5)-3+.x-8|
00000080  2c 79 29 0d 00 46 40 20  e7 20 74 72 3d 32 35 36  |,y)..F@ . tr=256|
00000090  20 8c 20 63 3d 28 b0 78  2d 38 2c 79 29 2b b0 78  | . c=(.x-8,y)+.x|
000000a0  2c 79 2d 32 29 2b b0 78  2d 38 2c 79 2d 32 29 2b  |,y-2)+.x-8,y-2)+|
000000b0  b0 78 2d 38 2c 79 2b 32  29 29 2f 33 3a 70 61 73  |.x-8,y+2))/3:pas|
000000c0  73 3d b9 0d 00 50 52 20  fd 20 28 94 28 63 2d b0  |s=...PR . (.(c-.|
000000d0  78 2c 79 2d 34 29 29 3c  33 20 80 20 94 28 63 2d  |x,y-4))<3 . .(c-|
000000e0  b0 78 2d 38 2c 79 2d 34  29 29 3c 36 20 80 20 94  |.x-8,y-4))<6 . .|
000000f0  28 63 2d b0 78 2d 38 2c  79 2b 34 29 29 3c 36 20  |(c-.x-8,y+4))<6 |
00000100  80 20 63 3c 31 36 20 80  20 63 3e 2d 31 29 20 84  |. c<16 . c>-1) .|
00000110  20 70 61 73 73 0d 00 5a  11 20 e6 30 2c 63 3a df  | pass..Z. .0,c:.|
00000120  78 2c 79 3a ed 2c 0d 00  64 05 3a 0d 00 6e 15 f5  |x,y:.,..d.:..n..|
00000130  3a e3 62 3d 30 b8 31 35  3a e3 73 3d 30 b8 31 35  |:.b=0.15:.s=0.15|
00000140  0d 00 78 18 e7 20 73 3e  37 20 8c 20 70 3d 31 35  |..x.. s>7 . p=15|
00000150  2d 73 20 8b 20 70 3d 73  0d 00 82 1a ef 20 31 39  |-s . p=s..... 19|
00000160  2c 62 2b 73 2c 63 25 28  70 29 2c 30 2c 30 2c 30  |,b+s,c%(p),0,0,0|
00000170  2c 30 0d 00 8c 05 ed 0d  00 96 11 54 3d 91 3a f5  |,0.........T=.:.|
00000180  20 fd 20 91 3e 54 2b 35  0d 00 a0 0e ed 3a fd 20  | . .>T+5.....:. |
00000190  a6 28 2d 39 39 29 0d 00  aa 05 3a 0d 00 b4 14 dc  |.(-99)....:.....|
000001a0  30 2c 30 2c 34 2c 34 2c  36 2c 36 2c 37 2c 37 0d  |0,0,4,4,6,6,7,7.|
000001b0  ff                                                |.|
000001b1

M2Plas.m0

M2Plas.m1

M2Plas.m2

M2Plas.m4

M2Plas.m5