Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape27b_acorn_eu_1991_september.wav » Veg1

Veg1

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape27b_acorn_eu_1991_september.wav
Filename: Veg1
Read OK:
File size: 0C36 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

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

File contents
   10 REM Veg1
   20 REM by Mike Goldberg
   30 REM (c) The Micro User
   40 MODE1
   50 VDU23;8202;0;0;0;
   60 PROCinit
   70 PROCdcal
   80 PROCdsow
   90 PROCdtext
  100 PROCooar
  110 PAGE=&1100
  111 CHAIN"VEG2"
  120 :
  130 DEFPROCinit
  140 VDU23,224,0,6,10,18,34,70,74,82
  150 VDU23,225,98,66,70,74,82,98,126,0
  160 VDU23,226,0,126,126,60,60,60,60,0
  170 VDU23,227,24,36,66,153,165,195,153,165
  180 VDU23,228,195,153,219,231,60,24,24,0
  190 VDU23,229,0,24,90,102,60,24,24,0
  200 VDU23,230,0,0,24,60,60,24,0,0
  210 VDU23,231,16,56,124,16,0,0,0,0
  220 VDU23,232,0,0,0,0,8,62,28,8
  230 VDU23,233,0,0,32,96,224,96,32,0
  240 VDU23,234,0,0,4,6,7,6,4,0
  250 VDU23,235,0,0,238,170,236,138,138,0:VDU23,236,0,0,219,146,219,137,219,0
  260 VDU23,237,0,0,106,74,110,42,106,0:VDU23,238,0,0,183,162,178,162,162,0
  270 VDU23,239,0,0,238,170,234,170,170,0:VDU23,240,0,0,162,162,227,34,226,0:VDU23,241,0,0,181,165,55,161,183,0
  280 s$=CHR$230
  290 u$=CHR$231
  300 d$=CHR$232
  310 l$=CHR$233
  320 r$=CHR$234
  330 A$="J F M A M J J A S O N D"
  340 VDU19,2,2;0;
  350 ENDPROC
  360 :
  370 DEFPROCdcal
  380 GCOL0,2
  390 FORJ%=736TO928STEP64
  400 MOVE384,J%
  410 PLOT1,768,0
  420 NEXT
  430 FORI%=384TO1152STEP64
  440 MOVEI%,736
  450 PLOT1,0,192
  460 NEXT
  470 PRINTTAB(6,3)"Sowing"
  480 PRINTTAB(4,5)"Planting"
  490 PRINTTAB(5,7)"Picking"
  500 VDU5
  510 GCOL0,1:MOVE400,964:PRINTA$
  520 GCOL0,3:MOVE404,968:PRINTA$
  530 VDU4
  540 COLOUR0:COLOUR130
  550 PRINTTAB(27,0)"CALENDAR"
  560 COLOUR128
  570 ENDPROC
  580 :
  590 DEFPROCdsow
  600 VDU5
  610 GCOL0,2
  620 MOVE384,352
  630 PLOT1,80,320
  640 PLOT1,608,0
  650 PLOT1,80,-320
  660 FORI%=448TO668STEP4:PLOT77,704,I%:NEXT
  670 GCOL0,1:FORI%=352TO448STEP4:PLOT77,704,I%:NEXT
  680 REMVDU24,384;448;1152;672;
  690 VDU24,384;352;1152;672;
  700 GCOL0,0
  710 X%=544
  720 a%=64
  730 FORJ%=736TO448STEP-8
  740 MOVEX%,J%
  750 PLOT1,a%,-a%
  760 PLOT1,a%,a%
  770 MOVEX%,J%-4
  780 PLOT1,a%,-a%
  790 MOVE1536-X%,J%
  800 PLOT1,-a%,-a%:PLOT1,-a%,a%
  810 MOVE1536-X%,J%-4:PLOT1,-a%,-a%
  820 X%=X%-2
  830 NEXT
  840 :
  850 GCOL0,3
  860 I%=584
  870 FORJ%=668TO476STEP-96
  880 MOVEI%,J%:PRINTs$
  890 MOVE1502-I%,J%:PRINTs$
  900 I%=I%-24
  910 NEXT
  920 VDU26
  930 GCOL0,0
  940 MOVE544,384
  950 PRINTl$
  960 MOVE544,368
  970 PLOT1,448,0
  980 MOVE976,384
  990 PRINTr$
 1000 MOVE440,380
 1010 PLOT1,0,64
 1020 MOVE424,400
 1030 PRINTd$
 1040 MOVE428,448
 1050 PRINTu$
 1060 MOVE632,456:DRAW652,552
 1070 MOVE616,480:PRINTd$
 1080 MOVE640,560:PRINTu$
 1090 VDU4:COLOUR2
 1100 PRINTTAB(4,11)"SOWING"TAB(3,14)"&"TAB(3,17)"PLANTING"
 1102 PRINTTAB(10,14)"&"
 1110 ENDPROC
 1120 :
 1130 DEFPROCdtext:VDU4
 1140 VDU24,12;0;1264;332;
 1150 GCOL0,129:CLG
 1160 VDU28,1,30,38,22
 1170 COLOUR128:CLS
 1180 VDU26
 1190 ENDPROC
 1200 :
 1210 DEFPROCooar
 1220 X%=&50D0-640
 1230 FORJ%=0TO3
 1240 FORI%=0TO63
 1250 READA%
 1260 ?(X%+(J%*640)+I%)=A%
 1270 NEXT
 1280 NEXT
 1290 ENDPROC
 1300 DATA15,8,11,11,11,11,11,26,15,0,30,60,60,120,56,240,15,120,240,240,240,240,240,128,15,240,240,240,240,240,240,0,15,128,225,225,240,224,240,48,15,0,15,15,15,15,195,240,15,0,15,15,15,15,15,15,15,1,13,13,13,13,13,13,56,120,120,120,120
 1310 DATA56,11,10,224,192,192,128,128,179,102,85,0,51,51,119,51,187,153,153,0,136,255,204,136,238,255,223,0,102,238,51,221,255,255,255,112,48,252,204,136,204,239,255,135,195,195,15,15,15,15,143,13,13,13,13,13,13,13,13,11
 1320 DATA10,8,8,11,11,26,26,119,119,17,128,209,209,209,209,153,136,136,136,136,255,187,187,143,143,206,255,255,255,255,238,187,187,119,119,51,0,187,255,255,187,239,239,1,231,115,185,207,207,15,15,15,15,143,143,13,13,13,13,13,13,13,13
 1330 DATA26,24,88,88,120,120,120,15,209,209,192,224,240,112,128,15,221,238,238,51,0,224,112,15,255,255,51,0,0,16,16,15,119,255,255,255,0,208,176,15,220,238,238,205,3,225,240,15,143,195,56,88,40,28,0,15,13,13,13,133,193,65,73,15,0

 � Veg1
 � by Mike Goldberg
 � (c) The Micro User
( �1
2 �23;8202;0;0;0;
<
 �init
F
 �dcal
P
 �dsow
Z �dtext
d
 �ooar
n �=&1100
o �"VEG2"
x :
� ��init
�" �23,224,0,6,10,18,34,70,74,82
�$ �23,225,98,66,70,74,82,98,126,0
�$ �23,226,0,126,126,60,60,60,60,0
�) �23,227,24,36,66,153,165,195,153,165
�' �23,228,195,153,219,231,60,24,24,0
�# �23,229,0,24,90,102,60,24,24,0
�  �23,230,0,0,24,60,60,24,0,0
�! �23,231,16,56,124,16,0,0,0,0
� �23,232,0,0,0,0,8,62,28,8
�" �23,233,0,0,32,96,224,96,32,0
� �23,234,0,0,4,6,7,6,4,0
�H �23,235,0,0,238,170,236,138,138,0:�23,236,0,0,219,146,219,137,219,0
F �23,237,0,0,106,74,110,42,106,0:�23,238,0,0,183,162,178,162,162,0
h �23,239,0,0,238,170,234,170,170,0:�23,240,0,0,162,162,227,34,226,0:�23,241,0,0,181,165,55,161,183,0
 s$=�230
" u$=�231
, d$=�232
6 l$=�233
@ r$=�234
J! A$="J F M A M J J A S O N D"
T �19,2,2;0;
^ �
h :
r ��dcal
|	 �0,2
� �J%=736�928�64
� �384,J%
�
 �1,768,0
� �
� �I%=384�1152�64
� �I%,736
�
 �1,0,192
� �
� �6,3)"Sowing"
� �4,5)"Planting"
� �5,7)"Picking"
� �5
� �0,1:�400,964:�A$
 �0,3:�404,968:�A$
 �4
 �0:�130
& �27,0)"CALENDAR"
0	 �128
: �
D :
N ��dsow
X �5
b	 �0,2
l
 �384,352
v �1,80,320
�
 �1,608,0
� �1,80,-320
� �I%=448�668�4:�77,704,I%:�
�$ �0,1:�I%=352�448�4:�77,704,I%:�
� �VDU24,384;448;1152;672;
� �24,384;352;1152;672;
�	 �0,0
� X%=544
�
 a%=64
� �J%=736�448�-8
� �X%,J%
� �1,a%,-a%
�
 �1,a%,a%

 �X%,J%-4
 �1,a%,-a%
 �1536-X%,J%
  �1,-a%,-a%:�1,-a%,a%
* �1536-X%,J%-4:�1,-a%,-a%
4 X%=X%-2
> �
H :
R	 �0,3
\ I%=584
f �J%=668�476�-96
p �I%,J%:�s$
z �1502-I%,J%:�s$
�
 I%=I%-24
� �
� �26
�	 �0,0
�
 �544,384
� �l$
�
 �544,368
�
 �1,448,0
�
 �976,384
� �r$
�
 �440,380
� �1,0,64
�
 �424,400
 �d$

 �428,448
 �u$
$ �632,456:�652,552
. �616,480:�d$
8 �640,560:�u$
B
 �4:�2
L- �4,11)"SOWING"�3,14)"&"�3,17)"PLANTING"
N �10,14)"&"
V �
` :
j ��dtext:�4
t �24,12;0;1264;332;
~
 �0,129:�
� �28,1,30,38,22
� �128:�
� �26
� �
� :
� ��ooar
� X%=&50D0-640
� �J%=0�3
�
 �I%=0�63
� �A%
� ?(X%+(J%*640)+I%)=A%
� �
 �

 �
� �15,8,11,11,11,11,11,26,15,0,30,60,60,120,56,240,15,120,240,240,240,240,240,128,15,240,240,240,240,240,240,0,15,128,225,225,240,224,240,48,15,0,15,15,15,15,195,240,15,0,15,15,15,15,15,15,15,1,13,13,13,13,13,13,56,120,120,120,120
� �56,11,10,224,192,192,128,128,179,102,85,0,51,51,119,51,187,153,153,0,136,255,204,136,238,255,223,0,102,238,51,221,255,255,255,112,48,252,204,136,204,239,255,135,195,195,15,15,15,15,143,13,13,13,13,13,13,13,13,11
(� �10,8,8,11,11,26,26,119,119,17,128,209,209,209,209,153,136,136,136,136,255,187,187,143,143,206,255,255,255,255,238,187,187,119,119,51,0,187,255,255,187,239,239,1,231,115,185,207,207,15,15,15,15,143,143,13,13,13,13,13,13,13,13
2� �26,24,88,88,120,120,120,15,209,209,192,224,240,112,128,15,221,238,238,51,0,224,112,15,255,255,51,0,0,16,16,15,119,255,255,255,0,208,176,15,220,238,238,205,3,225,240,15,143,195,56,88,40,28,0,15,13,13,13,133,193,65,73,15,0
�
00000000  0d 00 0a 0b 20 f4 20 56  65 67 31 0d 00 14 17 20  |.... . Veg1.... |
00000010  f4 20 62 79 20 4d 69 6b  65 20 47 6f 6c 64 62 65  |. by Mike Goldbe|
00000020  72 67 0d 00 1e 19 20 f4  20 28 63 29 20 54 68 65  |rg.... . (c) The|
00000030  20 4d 69 63 72 6f 20 55  73 65 72 0d 00 28 07 20  | Micro User..(. |
00000040  eb 31 0d 00 32 14 20 ef  32 33 3b 38 32 30 32 3b  |.1..2. .23;8202;|
00000050  30 3b 30 3b 30 3b 0d 00  3c 0a 20 f2 69 6e 69 74  |0;0;0;..<. .init|
00000060  0d 00 46 0a 20 f2 64 63  61 6c 0d 00 50 0a 20 f2  |..F. .dcal..P. .|
00000070  64 73 6f 77 0d 00 5a 0b  20 f2 64 74 65 78 74 0d  |dsow..Z. .dtext.|
00000080  00 64 0a 20 f2 6f 6f 61  72 0d 00 6e 0c 20 d0 3d  |.d. .ooar..n. .=|
00000090  26 31 31 30 30 0d 00 6f  0c 20 d7 22 56 45 47 32  |&1100..o. ."VEG2|
000000a0  22 0d 00 78 06 20 3a 0d  00 82 0b 20 dd f2 69 6e  |"..x. :.... ..in|
000000b0  69 74 0d 00 8c 22 20 ef  32 33 2c 32 32 34 2c 30  |it..." .23,224,0|
000000c0  2c 36 2c 31 30 2c 31 38  2c 33 34 2c 37 30 2c 37  |,6,10,18,34,70,7|
000000d0  34 2c 38 32 0d 00 96 24  20 ef 32 33 2c 32 32 35  |4,82...$ .23,225|
000000e0  2c 39 38 2c 36 36 2c 37  30 2c 37 34 2c 38 32 2c  |,98,66,70,74,82,|
000000f0  39 38 2c 31 32 36 2c 30  0d 00 a0 24 20 ef 32 33  |98,126,0...$ .23|
00000100  2c 32 32 36 2c 30 2c 31  32 36 2c 31 32 36 2c 36  |,226,0,126,126,6|
00000110  30 2c 36 30 2c 36 30 2c  36 30 2c 30 0d 00 aa 29  |0,60,60,60,0...)|
00000120  20 ef 32 33 2c 32 32 37  2c 32 34 2c 33 36 2c 36  | .23,227,24,36,6|
00000130  36 2c 31 35 33 2c 31 36  35 2c 31 39 35 2c 31 35  |6,153,165,195,15|
00000140  33 2c 31 36 35 0d 00 b4  27 20 ef 32 33 2c 32 32  |3,165...' .23,22|
00000150  38 2c 31 39 35 2c 31 35  33 2c 32 31 39 2c 32 33  |8,195,153,219,23|
00000160  31 2c 36 30 2c 32 34 2c  32 34 2c 30 0d 00 be 23  |1,60,24,24,0...#|
00000170  20 ef 32 33 2c 32 32 39  2c 30 2c 32 34 2c 39 30  | .23,229,0,24,90|
00000180  2c 31 30 32 2c 36 30 2c  32 34 2c 32 34 2c 30 0d  |,102,60,24,24,0.|
00000190  00 c8 20 20 ef 32 33 2c  32 33 30 2c 30 2c 30 2c  |..  .23,230,0,0,|
000001a0  32 34 2c 36 30 2c 36 30  2c 32 34 2c 30 2c 30 0d  |24,60,60,24,0,0.|
000001b0  00 d2 21 20 ef 32 33 2c  32 33 31 2c 31 36 2c 35  |..! .23,231,16,5|
000001c0  36 2c 31 32 34 2c 31 36  2c 30 2c 30 2c 30 2c 30  |6,124,16,0,0,0,0|
000001d0  0d 00 dc 1e 20 ef 32 33  2c 32 33 32 2c 30 2c 30  |.... .23,232,0,0|
000001e0  2c 30 2c 30 2c 38 2c 36  32 2c 32 38 2c 38 0d 00  |,0,0,8,62,28,8..|
000001f0  e6 22 20 ef 32 33 2c 32  33 33 2c 30 2c 30 2c 33  |." .23,233,0,0,3|
00000200  32 2c 39 36 2c 32 32 34  2c 39 36 2c 33 32 2c 30  |2,96,224,96,32,0|
00000210  0d 00 f0 1c 20 ef 32 33  2c 32 33 34 2c 30 2c 30  |.... .23,234,0,0|
00000220  2c 34 2c 36 2c 37 2c 36  2c 34 2c 30 0d 00 fa 48  |,4,6,7,6,4,0...H|
00000230  20 ef 32 33 2c 32 33 35  2c 30 2c 30 2c 32 33 38  | .23,235,0,0,238|
00000240  2c 31 37 30 2c 32 33 36  2c 31 33 38 2c 31 33 38  |,170,236,138,138|
00000250  2c 30 3a ef 32 33 2c 32  33 36 2c 30 2c 30 2c 32  |,0:.23,236,0,0,2|
00000260  31 39 2c 31 34 36 2c 32  31 39 2c 31 33 37 2c 32  |19,146,219,137,2|
00000270  31 39 2c 30 0d 01 04 46  20 ef 32 33 2c 32 33 37  |19,0...F .23,237|
00000280  2c 30 2c 30 2c 31 30 36  2c 37 34 2c 31 31 30 2c  |,0,0,106,74,110,|
00000290  34 32 2c 31 30 36 2c 30  3a ef 32 33 2c 32 33 38  |42,106,0:.23,238|
000002a0  2c 30 2c 30 2c 31 38 33  2c 31 36 32 2c 31 37 38  |,0,0,183,162,178|
000002b0  2c 31 36 32 2c 31 36 32  2c 30 0d 01 0e 68 20 ef  |,162,162,0...h .|
000002c0  32 33 2c 32 33 39 2c 30  2c 30 2c 32 33 38 2c 31  |23,239,0,0,238,1|
000002d0  37 30 2c 32 33 34 2c 31  37 30 2c 31 37 30 2c 30  |70,234,170,170,0|
000002e0  3a ef 32 33 2c 32 34 30  2c 30 2c 30 2c 31 36 32  |:.23,240,0,0,162|
000002f0  2c 31 36 32 2c 32 32 37  2c 33 34 2c 32 32 36 2c  |,162,227,34,226,|
00000300  30 3a ef 32 33 2c 32 34  31 2c 30 2c 30 2c 31 38  |0:.23,241,0,0,18|
00000310  31 2c 31 36 35 2c 35 35  2c 31 36 31 2c 31 38 33  |1,165,55,161,183|
00000320  2c 30 0d 01 18 0c 20 73  24 3d bd 32 33 30 0d 01  |,0.... s$=.230..|
00000330  22 0c 20 75 24 3d bd 32  33 31 0d 01 2c 0c 20 64  |". u$=.231..,. d|
00000340  24 3d bd 32 33 32 0d 01  36 0c 20 6c 24 3d bd 32  |$=.232..6. l$=.2|
00000350  33 33 0d 01 40 0c 20 72  24 3d bd 32 33 34 0d 01  |33..@. r$=.234..|
00000360  4a 21 20 41 24 3d 22 4a  20 46 20 4d 20 41 20 4d  |J! A$="J F M A M|
00000370  20 4a 20 4a 20 41 20 53  20 4f 20 4e 20 44 22 0d  | J J A S O N D".|
00000380  01 54 0f 20 ef 31 39 2c  32 2c 32 3b 30 3b 0d 01  |.T. .19,2,2;0;..|
00000390  5e 06 20 e1 0d 01 68 06  20 3a 0d 01 72 0b 20 dd  |^. ...h. :..r. .|
000003a0  f2 64 63 61 6c 0d 01 7c  09 20 e6 30 2c 32 0d 01  |.dcal..|. .0,2..|
000003b0  86 13 20 e3 4a 25 3d 37  33 36 b8 39 32 38 88 36  |.. .J%=736.928.6|
000003c0  34 0d 01 90 0c 20 ec 33  38 34 2c 4a 25 0d 01 9a  |4.... .384,J%...|
000003d0  0d 20 f0 31 2c 37 36 38  2c 30 0d 01 a4 06 20 ed  |. .1,768,0.... .|
000003e0  0d 01 ae 14 20 e3 49 25  3d 33 38 34 b8 31 31 35  |.... .I%=384.115|
000003f0  32 88 36 34 0d 01 b8 0c  20 ec 49 25 2c 37 33 36  |2.64.... .I%,736|
00000400  0d 01 c2 0d 20 f0 31 2c  30 2c 31 39 32 0d 01 cc  |.... .1,0,192...|
00000410  06 20 ed 0d 01 d6 13 20  f1 8a 36 2c 33 29 22 53  |. ..... ..6,3)"S|
00000420  6f 77 69 6e 67 22 0d 01  e0 15 20 f1 8a 34 2c 35  |owing".... ..4,5|
00000430  29 22 50 6c 61 6e 74 69  6e 67 22 0d 01 ea 14 20  |)"Planting".... |
00000440  f1 8a 35 2c 37 29 22 50  69 63 6b 69 6e 67 22 0d  |..5,7)"Picking".|
00000450  01 f4 07 20 ef 35 0d 01  fe 16 20 e6 30 2c 31 3a  |... .5.... .0,1:|
00000460  ec 34 30 30 2c 39 36 34  3a f1 41 24 0d 02 08 16  |.400,964:.A$....|
00000470  20 e6 30 2c 33 3a ec 34  30 34 2c 39 36 38 3a f1  | .0,3:.404,968:.|
00000480  41 24 0d 02 12 07 20 ef  34 0d 02 1c 0c 20 fb 30  |A$.... .4.... .0|
00000490  3a fb 31 33 30 0d 02 26  16 20 f1 8a 32 37 2c 30  |:.130..&. ..27,0|
000004a0  29 22 43 41 4c 45 4e 44  41 52 22 0d 02 30 09 20  |)"CALENDAR"..0. |
000004b0  fb 31 32 38 0d 02 3a 06  20 e1 0d 02 44 06 20 3a  |.128..:. ...D. :|
000004c0  0d 02 4e 0b 20 dd f2 64  73 6f 77 0d 02 58 07 20  |..N. ..dsow..X. |
000004d0  ef 35 0d 02 62 09 20 e6  30 2c 32 0d 02 6c 0d 20  |.5..b. .0,2..l. |
000004e0  ec 33 38 34 2c 33 35 32  0d 02 76 0e 20 f0 31 2c  |.384,352..v. .1,|
000004f0  38 30 2c 33 32 30 0d 02  80 0d 20 f0 31 2c 36 30  |80,320.... .1,60|
00000500  38 2c 30 0d 02 8a 0f 20  f0 31 2c 38 30 2c 2d 33  |8,0.... .1,80,-3|
00000510  32 30 0d 02 94 1f 20 e3  49 25 3d 34 34 38 b8 36  |20.... .I%=448.6|
00000520  36 38 88 34 3a f0 37 37  2c 37 30 34 2c 49 25 3a  |68.4:.77,704,I%:|
00000530  ed 0d 02 9e 24 20 e6 30  2c 31 3a e3 49 25 3d 33  |....$ .0,1:.I%=3|
00000540  35 32 b8 34 34 38 88 34  3a f0 37 37 2c 37 30 34  |52.448.4:.77,704|
00000550  2c 49 25 3a ed 0d 02 a8  1d 20 f4 56 44 55 32 34  |,I%:..... .VDU24|
00000560  2c 33 38 34 3b 34 34 38  3b 31 31 35 32 3b 36 37  |,384;448;1152;67|
00000570  32 3b 0d 02 b2 1a 20 ef  32 34 2c 33 38 34 3b 33  |2;.... .24,384;3|
00000580  35 32 3b 31 31 35 32 3b  36 37 32 3b 0d 02 bc 09  |52;1152;672;....|
00000590  20 e6 30 2c 30 0d 02 c6  0b 20 58 25 3d 35 34 34  | .0,0.... X%=544|
000005a0  0d 02 d0 0a 20 61 25 3d  36 34 0d 02 da 13 20 e3  |.... a%=64.... .|
000005b0  4a 25 3d 37 33 36 b8 34  34 38 88 2d 38 0d 02 e4  |J%=736.448.-8...|
000005c0  0b 20 ec 58 25 2c 4a 25  0d 02 ee 0e 20 f0 31 2c  |. .X%,J%.... .1,|
000005d0  61 25 2c 2d 61 25 0d 02  f8 0d 20 f0 31 2c 61 25  |a%,-a%.... .1,a%|
000005e0  2c 61 25 0d 03 02 0d 20  ec 58 25 2c 4a 25 2d 34  |,a%.... .X%,J%-4|
000005f0  0d 03 0c 0e 20 f0 31 2c  61 25 2c 2d 61 25 0d 03  |.... .1,a%,-a%..|
00000600  16 10 20 ec 31 35 33 36  2d 58 25 2c 4a 25 0d 03  |.. .1536-X%,J%..|
00000610  20 19 20 f0 31 2c 2d 61  25 2c 2d 61 25 3a f0 31  | . .1,-a%,-a%:.1|
00000620  2c 2d 61 25 2c 61 25 0d  03 2a 1d 20 ec 31 35 33  |,-a%,a%..*. .153|
00000630  36 2d 58 25 2c 4a 25 2d  34 3a f0 31 2c 2d 61 25  |6-X%,J%-4:.1,-a%|
00000640  2c 2d 61 25 0d 03 34 0c  20 58 25 3d 58 25 2d 32  |,-a%..4. X%=X%-2|
00000650  0d 03 3e 06 20 ed 0d 03  48 06 20 3a 0d 03 52 09  |..>. ...H. :..R.|
00000660  20 e6 30 2c 33 0d 03 5c  0b 20 49 25 3d 35 38 34  | .0,3..\. I%=584|
00000670  0d 03 66 14 20 e3 4a 25  3d 36 36 38 b8 34 37 36  |..f. .J%=668.476|
00000680  88 2d 39 36 0d 03 70 0f  20 ec 49 25 2c 4a 25 3a  |.-96..p. .I%,J%:|
00000690  f1 73 24 0d 03 7a 14 20  ec 31 35 30 32 2d 49 25  |.s$..z. .1502-I%|
000006a0  2c 4a 25 3a f1 73 24 0d  03 84 0d 20 49 25 3d 49  |,J%:.s$.... I%=I|
000006b0  25 2d 32 34 0d 03 8e 06  20 ed 0d 03 98 08 20 ef  |%-24.... ..... .|
000006c0  32 36 0d 03 a2 09 20 e6  30 2c 30 0d 03 ac 0d 20  |26.... .0,0.... |
000006d0  ec 35 34 34 2c 33 38 34  0d 03 b6 08 20 f1 6c 24  |.544,384.... .l$|
000006e0  0d 03 c0 0d 20 ec 35 34  34 2c 33 36 38 0d 03 ca  |.... .544,368...|
000006f0  0d 20 f0 31 2c 34 34 38  2c 30 0d 03 d4 0d 20 ec  |. .1,448,0.... .|
00000700  39 37 36 2c 33 38 34 0d  03 de 08 20 f1 72 24 0d  |976,384.... .r$.|
00000710  03 e8 0d 20 ec 34 34 30  2c 33 38 30 0d 03 f2 0c  |... .440,380....|
00000720  20 f0 31 2c 30 2c 36 34  0d 03 fc 0d 20 ec 34 32  | .1,0,64.... .42|
00000730  34 2c 34 30 30 0d 04 06  08 20 f1 64 24 0d 04 10  |4,400.... .d$...|
00000740  0d 20 ec 34 32 38 2c 34  34 38 0d 04 1a 08 20 f1  |. .428,448.... .|
00000750  75 24 0d 04 24 16 20 ec  36 33 32 2c 34 35 36 3a  |u$..$. .632,456:|
00000760  df 36 35 32 2c 35 35 32  0d 04 2e 11 20 ec 36 31  |.652,552.... .61|
00000770  36 2c 34 38 30 3a f1 64  24 0d 04 38 11 20 ec 36  |6,480:.d$..8. .6|
00000780  34 30 2c 35 36 30 3a f1  75 24 0d 04 42 0a 20 ef  |40,560:.u$..B. .|
00000790  34 3a fb 32 0d 04 4c 2d  20 f1 8a 34 2c 31 31 29  |4:.2..L- ..4,11)|
000007a0  22 53 4f 57 49 4e 47 22  8a 33 2c 31 34 29 22 26  |"SOWING".3,14)"&|
000007b0  22 8a 33 2c 31 37 29 22  50 4c 41 4e 54 49 4e 47  |".3,17)"PLANTING|
000007c0  22 0d 04 4e 10 20 f1 8a  31 30 2c 31 34 29 22 26  |"..N. ..10,14)"&|
000007d0  22 0d 04 56 06 20 e1 0d  04 60 06 20 3a 0d 04 6a  |"..V. ...`. :..j|
000007e0  0f 20 dd f2 64 74 65 78  74 3a ef 34 0d 04 74 17  |. ..dtext:.4..t.|
000007f0  20 ef 32 34 2c 31 32 3b  30 3b 31 32 36 34 3b 33  | .24,12;0;1264;3|
00000800  33 32 3b 0d 04 7e 0d 20  e6 30 2c 31 32 39 3a da  |32;..~. .0,129:.|
00000810  0d 04 88 13 20 ef 32 38  2c 31 2c 33 30 2c 33 38  |.... .28,1,30,38|
00000820  2c 32 32 0d 04 92 0b 20  fb 31 32 38 3a db 0d 04  |,22.... .128:...|
00000830  9c 08 20 ef 32 36 0d 04  a6 06 20 e1 0d 04 b0 06  |.. .26.... .....|
00000840  20 3a 0d 04 ba 0b 20 dd  f2 6f 6f 61 72 0d 04 c4  | :.... ..ooar...|
00000850  11 20 58 25 3d 26 35 30  44 30 2d 36 34 30 0d 04  |. X%=&50D0-640..|
00000860  ce 0c 20 e3 4a 25 3d 30  b8 33 0d 04 d8 0d 20 e3  |.. .J%=0.3.... .|
00000870  49 25 3d 30 b8 36 33 0d  04 e2 08 20 f3 41 25 0d  |I%=0.63.... .A%.|
00000880  04 ec 19 20 3f 28 58 25  2b 28 4a 25 2a 36 34 30  |... ?(X%+(J%*640|
00000890  29 2b 49 25 29 3d 41 25  0d 04 f6 06 20 ed 0d 05  |)+I%)=A%.... ...|
000008a0  00 06 20 ed 0d 05 0a 06  20 e1 0d 05 14 e9 20 dc  |.. ..... ..... .|
000008b0  31 35 2c 38 2c 31 31 2c  31 31 2c 31 31 2c 31 31  |15,8,11,11,11,11|
000008c0  2c 31 31 2c 32 36 2c 31  35 2c 30 2c 33 30 2c 36  |,11,26,15,0,30,6|
000008d0  30 2c 36 30 2c 31 32 30  2c 35 36 2c 32 34 30 2c  |0,60,120,56,240,|
000008e0  31 35 2c 31 32 30 2c 32  34 30 2c 32 34 30 2c 32  |15,120,240,240,2|
000008f0  34 30 2c 32 34 30 2c 32  34 30 2c 31 32 38 2c 31  |40,240,240,128,1|
00000900  35 2c 32 34 30 2c 32 34  30 2c 32 34 30 2c 32 34  |5,240,240,240,24|
00000910  30 2c 32 34 30 2c 32 34  30 2c 30 2c 31 35 2c 31  |0,240,240,0,15,1|
00000920  32 38 2c 32 32 35 2c 32  32 35 2c 32 34 30 2c 32  |28,225,225,240,2|
00000930  32 34 2c 32 34 30 2c 34  38 2c 31 35 2c 30 2c 31  |24,240,48,15,0,1|
00000940  35 2c 31 35 2c 31 35 2c  31 35 2c 31 39 35 2c 32  |5,15,15,15,195,2|
00000950  34 30 2c 31 35 2c 30 2c  31 35 2c 31 35 2c 31 35  |40,15,0,15,15,15|
00000960  2c 31 35 2c 31 35 2c 31  35 2c 31 35 2c 31 2c 31  |,15,15,15,15,1,1|
00000970  33 2c 31 33 2c 31 33 2c  31 33 2c 31 33 2c 31 33  |3,13,13,13,13,13|
00000980  2c 35 36 2c 31 32 30 2c  31 32 30 2c 31 32 30 2c  |,56,120,120,120,|
00000990  31 32 30 0d 05 1e d9 20  dc 35 36 2c 31 31 2c 31  |120.... .56,11,1|
000009a0  30 2c 32 32 34 2c 31 39  32 2c 31 39 32 2c 31 32  |0,224,192,192,12|
000009b0  38 2c 31 32 38 2c 31 37  39 2c 31 30 32 2c 38 35  |8,128,179,102,85|
000009c0  2c 30 2c 35 31 2c 35 31  2c 31 31 39 2c 35 31 2c  |,0,51,51,119,51,|
000009d0  31 38 37 2c 31 35 33 2c  31 35 33 2c 30 2c 31 33  |187,153,153,0,13|
000009e0  36 2c 32 35 35 2c 32 30  34 2c 31 33 36 2c 32 33  |6,255,204,136,23|
000009f0  38 2c 32 35 35 2c 32 32  33 2c 30 2c 31 30 32 2c  |8,255,223,0,102,|
00000a00  32 33 38 2c 35 31 2c 32  32 31 2c 32 35 35 2c 32  |238,51,221,255,2|
00000a10  35 35 2c 32 35 35 2c 31  31 32 2c 34 38 2c 32 35  |55,255,112,48,25|
00000a20  32 2c 32 30 34 2c 31 33  36 2c 32 30 34 2c 32 33  |2,204,136,204,23|
00000a30  39 2c 32 35 35 2c 31 33  35 2c 31 39 35 2c 31 39  |9,255,135,195,19|
00000a40  35 2c 31 35 2c 31 35 2c  31 35 2c 31 35 2c 31 34  |5,15,15,15,15,14|
00000a50  33 2c 31 33 2c 31 33 2c  31 33 2c 31 33 2c 31 33  |3,13,13,13,13,13|
00000a60  2c 31 33 2c 31 33 2c 31  33 2c 31 31 0d 05 28 e6  |,13,13,13,11..(.|
00000a70  20 dc 31 30 2c 38 2c 38  2c 31 31 2c 31 31 2c 32  | .10,8,8,11,11,2|
00000a80  36 2c 32 36 2c 31 31 39  2c 31 31 39 2c 31 37 2c  |6,26,119,119,17,|
00000a90  31 32 38 2c 32 30 39 2c  32 30 39 2c 32 30 39 2c  |128,209,209,209,|
00000aa0  32 30 39 2c 31 35 33 2c  31 33 36 2c 31 33 36 2c  |209,153,136,136,|
00000ab0  31 33 36 2c 31 33 36 2c  32 35 35 2c 31 38 37 2c  |136,136,255,187,|
00000ac0  31 38 37 2c 31 34 33 2c  31 34 33 2c 32 30 36 2c  |187,143,143,206,|
00000ad0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000ae0  32 33 38 2c 31 38 37 2c  31 38 37 2c 31 31 39 2c  |238,187,187,119,|
00000af0  31 31 39 2c 35 31 2c 30  2c 31 38 37 2c 32 35 35  |119,51,0,187,255|
00000b00  2c 32 35 35 2c 31 38 37  2c 32 33 39 2c 32 33 39  |,255,187,239,239|
00000b10  2c 31 2c 32 33 31 2c 31  31 35 2c 31 38 35 2c 32  |,1,231,115,185,2|
00000b20  30 37 2c 32 30 37 2c 31  35 2c 31 35 2c 31 35 2c  |07,207,15,15,15,|
00000b30  31 35 2c 31 34 33 2c 31  34 33 2c 31 33 2c 31 33  |15,143,143,13,13|
00000b40  2c 31 33 2c 31 33 2c 31  33 2c 31 33 2c 31 33 2c  |,13,13,13,13,13,|
00000b50  31 33 0d 05 32 e2 20 dc  32 36 2c 32 34 2c 38 38  |13..2. .26,24,88|
00000b60  2c 38 38 2c 31 32 30 2c  31 32 30 2c 31 32 30 2c  |,88,120,120,120,|
00000b70  31 35 2c 32 30 39 2c 32  30 39 2c 31 39 32 2c 32  |15,209,209,192,2|
00000b80  32 34 2c 32 34 30 2c 31  31 32 2c 31 32 38 2c 31  |24,240,112,128,1|
00000b90  35 2c 32 32 31 2c 32 33  38 2c 32 33 38 2c 35 31  |5,221,238,238,51|
00000ba0  2c 30 2c 32 32 34 2c 31  31 32 2c 31 35 2c 32 35  |,0,224,112,15,25|
00000bb0  35 2c 32 35 35 2c 35 31  2c 30 2c 30 2c 31 36 2c  |5,255,51,0,0,16,|
00000bc0  31 36 2c 31 35 2c 31 31  39 2c 32 35 35 2c 32 35  |16,15,119,255,25|
00000bd0  35 2c 32 35 35 2c 30 2c  32 30 38 2c 31 37 36 2c  |5,255,0,208,176,|
00000be0  31 35 2c 32 32 30 2c 32  33 38 2c 32 33 38 2c 32  |15,220,238,238,2|
00000bf0  30 35 2c 33 2c 32 32 35  2c 32 34 30 2c 31 35 2c  |05,3,225,240,15,|
00000c00  31 34 33 2c 31 39 35 2c  35 36 2c 38 38 2c 34 30  |143,195,56,88,40|
00000c10  2c 32 38 2c 30 2c 31 35  2c 31 33 2c 31 33 2c 31  |,28,0,15,13,13,1|
00000c20  33 2c 31 33 33 2c 31 39  33 2c 36 35 2c 37 33 2c  |3,133,193,65,73,|
00000c30  31 35 2c 30 0d ff                                 |15,0..|
00000c36
Veg1.m0
Veg1.m1
Veg1.m2
Veg1.m4
Veg1.m5