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:
- AEW website » mu » mu_5_25_discs_Micro_User_09_07_D-MU09_07.ssd » VEG1
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape27a_acorn_eu_1991_september.wav » Veg1
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape27b_acorn_eu_1991_september.wav » Veg1
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