Regulars/StarInfo/Vibe/PLANT

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199512_2.adf » !Regulars » Regulars/StarInfo/Vibe/PLANT

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199512_2.adf » !Regulars
Filename:	Regulars/StarInfo/Vibe/PLANT
Read OK:	✔
File size:	03D5 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > PLANT
   20
   30MODE28:OFF
   40REPEAT
   50PROCA(580,0,700,100,0,0,1)
   60PROCA(590,0,690,900,1,2,0)
   70PROCA(240,200,600,210,4,2,0):PROCA(240,200,250,400,1,2,0)
   80PROCA(680,200,1040,210,2,2,0):PROCA(1030,200,1040,400,1,2,0)
   90PROCA(290,300,610,320,4,2,0):PROCA(290,300,300,500,1,2,0)
  100PROCA(670,300,990,320,2,2,0):PROCA(980,300,990,500,1,2,0)
  110PROCA(340,400,620,430,4,2,0):PROCA(340,400,350,600,1,2,0)
  120PROCA(660,400,940,430,2,2,0):PROCA(930,400,940,600,1,2,0)
  130PROCA(390,500,630,540,4,2,0):PROCA(390,500,400,700,1,2,0)
  140PROCA(650,500,890,540,2,2,0):PROCA(880,500,890,700,1,2,0)
  150PROCA(440,600,640,650,4,2,0):PROCA(440,600,450,800,1,2,0)
  160PROCA(640,600,840,650,2,2,0):PROCA(830,600,840,800,1,2,0)
  170UNTIL0
  180
  190DEFPROCA(X1%,Y1%,X2%,Y2%,D%,S%,C%)
  200LOCAL DX%,DY%,H%,W%
  210CASE D% OF
  220WHEN 1:DX%=0:DY%=S%
  230WHEN 2:DX%=S%:DY%=0
  240WHEN 3:DX%=0:DY%=-S%
  250WHEN 4:DX%=-S%:DY%=0
  260ENDCASE
  270IF C%=1 THEN
  280H%=Y2%-Y1%:W%=X2%-X1%:GCOLRND(63)
  290MOVERND(W%)+X1%,RND(H%)+Y1%
  300MOVERND(W%)+X1%,RND(H%)+Y1%
  310PLOT85,RND(W%)+X1%,RND(H%)+Y1%
  320ENDIF
  330IF D%<>0 MOVE X1%,Y1%:MOVE X2%,Y2%:PLOT&BD,X1%+DX%,Y1%+DY%
  340ENDPROC



� > PLANT

	�28:�
(�
2�A(580,0,700,100,0,0,1)
<�A(590,0,690,900,1,2,0)
F7�A(240,200,600,210,4,2,0):�A(240,200,250,400,1,2,0)
P:�A(680,200,1040,210,2,2,0):�A(1030,200,1040,400,1,2,0)
Z7�A(290,300,610,320,4,2,0):�A(290,300,300,500,1,2,0)
d7�A(670,300,990,320,2,2,0):�A(980,300,990,500,1,2,0)
n7�A(340,400,620,430,4,2,0):�A(340,400,350,600,1,2,0)
x7�A(660,400,940,430,2,2,0):�A(930,400,940,600,1,2,0)
�7�A(390,500,630,540,4,2,0):�A(390,500,400,700,1,2,0)
�7�A(650,500,890,540,2,2,0):�A(880,500,890,700,1,2,0)
�7�A(440,600,640,650,4,2,0):�A(440,600,450,800,1,2,0)
�7�A(640,600,840,650,2,2,0):�A(830,600,840,800,1,2,0)
��0
�
�!��A(X1%,Y1%,X2%,Y2%,D%,S%,C%)
�� DX%,DY%,H%,W%
�Ȏ D% �
�� 1:DX%=0:DY%=S%
�� 2:DX%=S%:DY%=0
�� 3:DX%=0:DY%=-S%
�� 4:DX%=-S%:DY%=0
�
� C%=1 �
 H%=Y2%-Y1%:W%=X2%-X1%:�(63)
"�(W%)+X1%,�(H%)+Y1%
,�(W%)+X1%,�(H%)+Y1%
6�85,�(W%)+X1%,�(H%)+Y1%
@�
J4� D%<>0 � X1%,Y1%:� X2%,Y2%:�&BD,X1%+DX%,Y1%+DY%
T�
�

00000000  0d 00 0a 0d f4 20 3e 20  50 4c 41 4e 54 0d 00 14  |..... > PLANT...|
00000010  04 0d 00 1e 09 eb 32 38  3a 87 0d 00 28 05 f5 0d  |......28:...(...|
00000020  00 32 1b f2 41 28 35 38  30 2c 30 2c 37 30 30 2c  |.2..A(580,0,700,|
00000030  31 30 30 2c 30 2c 30 2c  31 29 0d 00 3c 1b f2 41  |100,0,0,1)..<..A|
00000040  28 35 39 30 2c 30 2c 36  39 30 2c 39 30 30 2c 31  |(590,0,690,900,1|
00000050  2c 32 2c 30 29 0d 00 46  37 f2 41 28 32 34 30 2c  |,2,0)..F7.A(240,|
00000060  32 30 30 2c 36 30 30 2c  32 31 30 2c 34 2c 32 2c  |200,600,210,4,2,|
00000070  30 29 3a f2 41 28 32 34  30 2c 32 30 30 2c 32 35  |0):.A(240,200,25|
00000080  30 2c 34 30 30 2c 31 2c  32 2c 30 29 0d 00 50 3a  |0,400,1,2,0)..P:|
00000090  f2 41 28 36 38 30 2c 32  30 30 2c 31 30 34 30 2c  |.A(680,200,1040,|
000000a0  32 31 30 2c 32 2c 32 2c  30 29 3a f2 41 28 31 30  |210,2,2,0):.A(10|
000000b0  33 30 2c 32 30 30 2c 31  30 34 30 2c 34 30 30 2c  |30,200,1040,400,|
000000c0  31 2c 32 2c 30 29 0d 00  5a 37 f2 41 28 32 39 30  |1,2,0)..Z7.A(290|
000000d0  2c 33 30 30 2c 36 31 30  2c 33 32 30 2c 34 2c 32  |,300,610,320,4,2|
000000e0  2c 30 29 3a f2 41 28 32  39 30 2c 33 30 30 2c 33  |,0):.A(290,300,3|
000000f0  30 30 2c 35 30 30 2c 31  2c 32 2c 30 29 0d 00 64  |00,500,1,2,0)..d|
00000100  37 f2 41 28 36 37 30 2c  33 30 30 2c 39 39 30 2c  |7.A(670,300,990,|
00000110  33 32 30 2c 32 2c 32 2c  30 29 3a f2 41 28 39 38  |320,2,2,0):.A(98|
00000120  30 2c 33 30 30 2c 39 39  30 2c 35 30 30 2c 31 2c  |0,300,990,500,1,|
00000130  32 2c 30 29 0d 00 6e 37  f2 41 28 33 34 30 2c 34  |2,0)..n7.A(340,4|
00000140  30 30 2c 36 32 30 2c 34  33 30 2c 34 2c 32 2c 30  |00,620,430,4,2,0|
00000150  29 3a f2 41 28 33 34 30  2c 34 30 30 2c 33 35 30  |):.A(340,400,350|
00000160  2c 36 30 30 2c 31 2c 32  2c 30 29 0d 00 78 37 f2  |,600,1,2,0)..x7.|
00000170  41 28 36 36 30 2c 34 30  30 2c 39 34 30 2c 34 33  |A(660,400,940,43|
00000180  30 2c 32 2c 32 2c 30 29  3a f2 41 28 39 33 30 2c  |0,2,2,0):.A(930,|
00000190  34 30 30 2c 39 34 30 2c  36 30 30 2c 31 2c 32 2c  |400,940,600,1,2,|
000001a0  30 29 0d 00 82 37 f2 41  28 33 39 30 2c 35 30 30  |0)...7.A(390,500|
000001b0  2c 36 33 30 2c 35 34 30  2c 34 2c 32 2c 30 29 3a  |,630,540,4,2,0):|
000001c0  f2 41 28 33 39 30 2c 35  30 30 2c 34 30 30 2c 37  |.A(390,500,400,7|
000001d0  30 30 2c 31 2c 32 2c 30  29 0d 00 8c 37 f2 41 28  |00,1,2,0)...7.A(|
000001e0  36 35 30 2c 35 30 30 2c  38 39 30 2c 35 34 30 2c  |650,500,890,540,|
000001f0  32 2c 32 2c 30 29 3a f2  41 28 38 38 30 2c 35 30  |2,2,0):.A(880,50|
00000200  30 2c 38 39 30 2c 37 30  30 2c 31 2c 32 2c 30 29  |0,890,700,1,2,0)|
00000210  0d 00 96 37 f2 41 28 34  34 30 2c 36 30 30 2c 36  |...7.A(440,600,6|
00000220  34 30 2c 36 35 30 2c 34  2c 32 2c 30 29 3a f2 41  |40,650,4,2,0):.A|
00000230  28 34 34 30 2c 36 30 30  2c 34 35 30 2c 38 30 30  |(440,600,450,800|
00000240  2c 31 2c 32 2c 30 29 0d  00 a0 37 f2 41 28 36 34  |,1,2,0)...7.A(64|
00000250  30 2c 36 30 30 2c 38 34  30 2c 36 35 30 2c 32 2c  |0,600,840,650,2,|
00000260  32 2c 30 29 3a f2 41 28  38 33 30 2c 36 30 30 2c  |2,0):.A(830,600,|
00000270  38 34 30 2c 38 30 30 2c  31 2c 32 2c 30 29 0d 00  |840,800,1,2,0)..|
00000280  aa 06 fd 30 0d 00 b4 04  0d 00 be 21 dd f2 41 28  |...0.......!..A(|
00000290  58 31 25 2c 59 31 25 2c  58 32 25 2c 59 32 25 2c  |X1%,Y1%,X2%,Y2%,|
000002a0  44 25 2c 53 25 2c 43 25  29 0d 00 c8 13 ea 20 44  |D%,S%,C%)..... D|
000002b0  58 25 2c 44 59 25 2c 48  25 2c 57 25 0d 00 d2 0b  |X%,DY%,H%,W%....|
000002c0  c8 8e 20 44 25 20 ca 0d  00 dc 14 c9 20 31 3a 44  |.. D% ...... 1:D|
000002d0  58 25 3d 30 3a 44 59 25  3d 53 25 0d 00 e6 14 c9  |X%=0:DY%=S%.....|
000002e0  20 32 3a 44 58 25 3d 53  25 3a 44 59 25 3d 30 0d  | 2:DX%=S%:DY%=0.|
000002f0  00 f0 15 c9 20 33 3a 44  58 25 3d 30 3a 44 59 25  |.... 3:DX%=0:DY%|
00000300  3d 2d 53 25 0d 00 fa 15  c9 20 34 3a 44 58 25 3d  |=-S%..... 4:DX%=|
00000310  2d 53 25 3a 44 59 25 3d  30 0d 01 04 05 cb 0d 01  |-S%:DY%=0.......|
00000320  0e 0c e7 20 43 25 3d 31  20 8c 0d 01 18 20 48 25  |... C%=1 .... H%|
00000330  3d 59 32 25 2d 59 31 25  3a 57 25 3d 58 32 25 2d  |=Y2%-Y1%:W%=X2%-|
00000340  58 31 25 3a e6 b3 28 36  33 29 0d 01 22 18 ec b3  |X1%:..(63).."...|
00000350  28 57 25 29 2b 58 31 25  2c b3 28 48 25 29 2b 59  |(W%)+X1%,.(H%)+Y|
00000360  31 25 0d 01 2c 18 ec b3  28 57 25 29 2b 58 31 25  |1%..,...(W%)+X1%|
00000370  2c b3 28 48 25 29 2b 59  31 25 0d 01 36 1b f0 38  |,.(H%)+Y1%..6..8|
00000380  35 2c b3 28 57 25 29 2b  58 31 25 2c b3 28 48 25  |5,.(W%)+X1%,.(H%|
00000390  29 2b 59 31 25 0d 01 40  05 cd 0d 01 4a 34 e7 20  |)+Y1%..@....J4. |
000003a0  44 25 3c 3e 30 20 ec 20  58 31 25 2c 59 31 25 3a  |D%<>0 . X1%,Y1%:|
000003b0  ec 20 58 32 25 2c 59 32  25 3a f0 26 42 44 2c 58  |. X2%,Y2%:.&BD,X|
000003c0  31 25 2b 44 58 25 2c 59  31 25 2b 44 59 25 0d 01  |1%+DX%,Y1%+DY%..|
000003d0  54 05 e1 0d ff                                    |T....|
000003d5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .