# � KINGDOM/Yellow River Kingdom
[ � Program by Tom Hartley and Jerry Temple-Fry (NETHERHALL SCHOOL) and Richard G Warner

 � Version 5 - October 1981
0 � For BBC Model A Microcomputer 16K Minimum
( � � �Tr@
2T �7:� M%=0 � �5,16);"Press the STOP button"'"     on your tape recorder":�SPACE
< �:� � �T`C
d �VARIABLE:�TITLEPAGE
n �INSTRUCTIONS
� F=5000+�(2000)
� P=300+�(100)
� J=0:S=0

, S=S+1:� S=4 � S=1

6 J=J+1:Y=(J-1) � 3 +1

@ �NEWSEASON

J � V=1 � 3:FL(V)=0:�

T TD=0:TF=0:FD=0:FF=0:VF=0

^: �MAP:�DBL(S$(S)+" Season             Year "+�(Y),1,1)

h � �(2)=1 � �D|A

r �FLOOD:�ATTACK:�tPA

| �ATTACK:�FLOOD

� �CALCULATE

� �ENDSEASON

� � P=0 � F=0 � �dtA

�( � J � 12 =0 � �RITUAL:� Y%=0 � �dtA

�# � P<200 � �(3)=1 � �ADDTHIEVES

� P=�(P*1.045):�TlA

� �26:�:�0,9)

�- �"Press the RETURN key to start again."'
4 �"Press the ESCAPE key to leave the"'"program."
 � � �=�(13):�dH@
 ! � �<>17 � �:�" in line ";�:�
�
 �26:�
� �5,9);
� �"Do you want to go on to"
�) �"     the next program (Yes/No)? ";
� �YESORNO:� Y%<0 � �tNC
� � Y%=0 � �:�Dd@
�K �:� M%=0 � �5,5);"Press the PLAY button"'"     on your tape recorder"
� �""
�
 ��MAP
� �26:�:�''
� � I=3 � 23
" �Y$;W$;�(&96);"55";Y$;�27);R$
 �
 � I=3 � 21 � 2
$. �28,I);" x ";�28,I+1);"x";�(255);"~x  x"
. �33,I+2);"x";�(255);"~x";
8 �
L � I=13 � 15:�30,I);"  "
V �
`H �30,14);"THIEVES";�31,13);"TT";�31,15);"T";�32,16);"T";�32,17);"T"
�6 �0,23);"   DYKE        VILLAGES      MOUNTAINS";
� � V=1 � 3:�VDRAW(V):�
 �
� ��VDRAW(V)
�< �VX(V)-2,VY(V));V$;"^&";Y$�VX(V)-2,VY(V)+1);V$;"&^";Y$
? �
� ��INSTRUCTIONS
� �YELLOW:�'''
�\ �"The kingdom is three villages. It"'"is between the Yellow River and"'"the mountains."
� �'"You have been chosen to take"'"all the important decisions. Your "'"poor predecessor was executed by"'"thieves who live in the nearby"'"mountains."
�� �'"These thieves live off the "'"villagers and often attack. The"'"rice stored in the villages must"'"be protected at all times."
* �SPACE
4
 �:�''
>� �"The year consists of three long "'"seasons, Winter, Growing and"'"Harvest. Rice is planted every"'"Growing Season. You must decide"'"how much is planted."
H� �'"The river is likely to flood the"'"fields and the villages. The high"'"dyke between the river and the"'"fields must be kept up to prevent"'"a serious flood."
R� �'"The people live off the rice that"'"they have grown. It is a very poor"'"living. You must decide what the"'"people will work at each season"'"so that they prosper under your"'"leadership."
� �SPACE
� �
� ��NEWSEASON
�2 �YELLOW:�8,1);"Census Results"':� J=1 � �djK
�, �"At the start of the ";S$(S);" Season"
�+ �"of year ";Y;" of your reign this is"
� �"the situation.":�T\L
�) �"You have inherited this situation"
�) �"from your unlucky predecessor. It"
�* �"is the start of the Winter Season."
( �'"Allowing for births and deaths,"
&" �"the population is ";P;". "'
0' �"There are ";F;" baskets of rice"
: �"in the village stores."
D  �'"How many people should:"
N! �" A) Defend the dyke......"
X! �" B) Work in the fields..."
b! �" C) Protect the villages."
� QU=14:A=0
� �26,QU);:NI=�NUMINP
� � A+NI>P � �IMPOS:�tJL
�! QU=QU+1:� QU=16 � B=NI:�t|L
� A=NI:� A<P � �tJL
� B=0:�26,QU);B:QU=16
� C=P-(A+B):�26,QU);C
� � S<>2 � �T~M 
�) �'"How many baskets of rice will be"
�" �"planted in the fields....."

 �26,19);:G=�NUMINP

 � G>F � �IMPOS:�TBM


 F=F-G

> �SPACE

G �

� ��ENDSEASON 

�
 �WAIT(1)

� � F>0 � �TPN

�1 �:�3,7);"There was no food left.All of the"

�, �"   people have run off and joined up"

�/ �"   with the thieves after ";J;" seasons"

�# �"   of your misrule":�SPACE:�
 � P>0 � �DtN
3 �:�2,8);"There is no-one left! They have all"
$, �"  been killed off by your decisions "
./ �"  after only ";Y;" year";:� Y<>1 � �"s";
8 �".":�SPACE:�
t5 F1=P/(FD+TD+ST+1):F2=F/(TF+FF+1):� F2<F1 � F1=F2
�+ � F2<2 � T$="Disastrous Losses!":�dXN
�) � F1<4 � T$="Worrying losses!":�dXN
�- � F1<8 � T$="You got off lightly!":�dXN
�- � F/P<4 � T$="Food supply is low.":�dXN
�. � F/P<2 � T$="Starvation Imminent!":�dXN
�6 � ZA+ZF+ST>0 � T$="Nothing to worry about.":�dXN
�8 �DBL("             A quiet season           ",1,11)
� �WAIT(2):�
�- �YELLOW:�3,2);"Village Leader's Report"
� �'�15-�(T$)/2);�(&88);T$
�+ �'"In the ";S$(S);" Season of year ";Y
�& �"of your reign, the kingdom has"
 �"suffered these losses:"'
<' �"Deaths from floods..........";FD
F' �"Deaths from the attacks.....";TD
P' �"Deaths from starvation......";ST
Z9 �"Baskets of rice"'"lost during the floods......";FF
d9 �"Baskets of rice"'"lost during the attacks.....";TF
n$ �'"The village census follows."
� �SPACE
� �
� ��ADDTHIEVES
� �YELLOW:�0,8)
�$ �"Thieves have come out of the"
�" �"mountain to join you. They"
�$ �"have decided that it will be"
�$ �"easier to grow the rice than"
� �"to steal it!":�SPACE
� P=P+50+�(100)
 �
�
 ��RITUAL
� �YELLOW:�''
�( �"We have survived for ";Y;" years"
�$ �"under your glorious control."
�$ �"By an ancient custom we must"
�# �"offer you the chance to lay"
�% �"down this terrible burden and"
� �"resume a normal life."
�% �'"In the time honoured fashion"
! �"I will now ask the ritual"
 �"question:"':�WAIT(5)
" �"Are you prepared to accept"
 & �"the burden of decision again?"'
*& �"You need only answer Yes or No"
46 �"for the people will understand"'"your reasons."
>$ �0,21);:�YESORNO:� Y%<0 � �T~R
[ �
�
 ��ATTACK
� �X,Y,I
�$ ZA=0:R=�(1):� S �tfS,�tpS,�tzS
� � R<.5 � � � �dDS
� � R<.2 � � � �dDS
� � R<.6 � � � �dDS
�	 ZA=1
� � VF=3 � �
� V=�(3):� FL(V)=1 � �dlS
� X=32:WX=VX(V):WY=VY(V)-1
# � WY<17 � Y=13:D=-1 � Y=17:D=1

	 SY=Y
 �X,Y);" ":� Y=WY � �ThT
& Y=Y+D:�X,Y);"T":�WAIT(.05):�TTT
(, X=X-1:�X-1,Y);R$;"T":�WAIT(1-(X-WX)/5)
2! �X,Y);:� X=29 � �"x" � �" "
< � X>WX � �ThT
P � I=1 � 99
Z �X,Y+1);�(�(94)+32):�
d �VDRAW(V)
�  X=X+1:� X<27 � �X-2,Y);" "
� � X=31 � �29,Y);"x"
� �X-1,Y);R$;"T":�WAIT(.04)
� � X<32 � �ttT
� � Y=SY � �TXU
�1 �X,Y);" ":Y=Y-D:�X,Y);"T":�WAIT(.05):�d\T
 � S � �TbU,�TlU,�TvU
" I=200+�(70)-C:�D@U
, I=30+�(200)-C:�D@U
6 I=�(400)-C
@ I=�(I):� I<0 � I=0
J TD=�(C*I/400):C=C-TD
T- TF=�(I*F/729+�(2000-C)/10):� TF<0 � TF=0
^ � TF>2000 � TF=1900+�(200)
h F=F-TF
{ �
| ��FLOOD
�	 �X,Y
� ZF=0:� S � �tZU,�tdU,�tnU
� FS=�(330)/(A+1):�txU
� FS=(�(100)+60)/(A+1):�txU
� �
� � FS<1 � �
�2 X=6:ZF=1:Y=�(8)+10:� FS<2 � FS=�(2) � FS=�(4)
� �1,Y);W$;W$;W$;W$;W$;W$
� � K=1 � FS*100
�  � �(4) �d~U,�THV,�TRV,�T\V
�  � X=25 � �dtU � X=X+1:�DDV
 � X=6 � �dtU � X=X-1:�DDV
  � Y=22 � �dtU � Y=Y+1:�DDV
 � Y=3 � �dtU � Y=Y-1:�DDV
D V=1
X W1=VX(V)-X:W2=Y-VY(V)
b � W2<>1 � W2<>0 � �t@V
l � W1=0 � W1=1 � FL(V)=1
v � W1=-1 � �tTV
� V=V+1:� V<4 � �DXV
� �X,Y);W$
� �K
� VF=FL(1)+FL(2)+FL(3)
�
 OP=A+B+C
� A=�((A/10)*(10-FS))
� B=�((B/10)*(10-FS))
� C=�((C/6)*(6-VF))
� FF=�(F*VF/6):F=F-FF 
� FD=OP-A-B-C
� � S=2 � G=G*(20-FS)/20
� � S=3 � G=G*(10-FS)/10
 �
p ��CALCULATE
z � B=0 � G=0:�dTW
� � S � �dTW,�tNW,�tbW
� � G>1000 � G=1000
� G=G*(B-10)/B:�dTW
� � G<0 � �dTW
�  G=18*(11+�(3))*(0.05-1/B)*G
� � G<0 � �dTW
�
 F=F+�(G)
� ST=0:P=A+B+C:� P=0 � �t[X
� T=F/P:� T>5 � T=4:�TxX
� � T<2 � P=0:�t[X
� � T>4 � T=3.5:�TxX
� ST=�(P*(7-T)/7):T=3
8 P=P-ST:F=�(F-P*T-ST*T/2)
B � F<0 � F=0
� �
X ��VARIABLE
b � S$(3),VX(3),VY(3),FL(3)
l3 S$(1)="Winter":S$(2)="Growing":S$(3)="Harvest"
�, W$=�(255):Y$=�(&93):R$=�(&91):V$=�(&92)
� VX(1)=13:VY(1)=8
� VX(2)=21:VY(2)=12
� VX(3)=22:VY(3)=18
� �
� ��IMPOS
�0 �4,20);�(&88);�(&82);"I M P O S S I B L E"
�
 �WAIT(2)
� �SPACE
� �5,20);�(20);�0,22);�(40)
 �
 
 ��YELLOW
* �I
4 �:� I=0 � 24
> �0,I);�(&83);:�
H �0,0);
R � 28,3,24,39,0
� �
@ ��DBL(X$,X,Y)
J �X-1,Y);�(141);X$ 
T �X-1,Y+1);�(141);X$
� �
� ��WAIT(X)
� � Z
� Z=�
� � � �-Z>X*100
  �
  ��SPACE
 4 �0,22);"Press the SPACE BAR to continue";:�KCL
 0 � � �=" "
 k �
 l ��TITLEPAGE
 v& �MAP:�OFF:�WAIT(2):�0,11);�(200)
 {:�DBL(Y$+"YELLOW RIVER",11,11):�DBL(Y$+"KINGDOM",13,14)
 � I%=�(500)
 � �
"`
 ��KCL
"j � �(0)>"" � �Djb
"� �
"� ��OFF 
"� �23;8202;0;0;0;:�
"�	 ��ON
# �23;29194;0;0;0;:�
#(1 ��GPI(F2,ML):� General Purpose Input Routine
#2 �B,B$ 
#<
 A$=""
#F+ ��ML," ");�ML+1,�(8));�(&83);:�ON:�KCL
#P B$=�:B=�(B$):� B=13 � �dfc
#Z � B=127 � A$="" � �DPc
#d) � B=127 � A$=�A$,�(A$)-1):�B$;:�DPc
#n% � �(A$)=ML � B<32 � B>126 � �dRc
#x+ � F2=0 � B=32 � (B>=48 � B<=57) � �d\c
#�
 �7:�DPc
#� �B$;:A$=A$+B$:�DPc 
#�	 �OFF
#� � 
#� ��YESORNO
#� �B$
$ �GPI(0,3)
$ B$=�A$,1) 
$
 Y%=-1
$" � B$="Y" � B$="y" � Y%=1 
$, � B$="N" � B$="n" � Y%=0
$S �
$T
 ݤNUMINP
$^ �GPI(1,6)
$h =�(A$)
�

00000000  0d 00 0a 23 20 f4 20 4b  49 4e 47 44 4f 4d 2f 59  |...# . KINGDOM/Y|
00000010  65 6c 6c 6f 77 20 52 69  76 65 72 20 4b 69 6e 67  |ellow River King|
00000020  64 6f 6d 0d 00 0c 5b 20  f4 20 50 72 6f 67 72 61  |dom...[ . Progra|
00000030  6d 20 62 79 20 54 6f 6d  20 48 61 72 74 6c 65 79  |m by Tom Hartley|
00000040  20 61 6e 64 20 4a 65 72  72 79 20 54 65 6d 70 6c  | and Jerry Templ|
00000050  65 2d 46 72 79 20 28 4e  45 54 48 45 52 48 41 4c  |e-Fry (NETHERHAL|
00000060  4c 20 53 43 48 4f 4f 4c  29 20 61 6e 64 20 52 69  |L SCHOOL) and Ri|
00000070  63 68 61 72 64 20 47 20  57 61 72 6e 65 72 0d 00  |chard G Warner..|
00000080  0d 1f 20 f4 20 56 65 72  73 69 6f 6e 20 35 20 2d  |.. . Version 5 -|
00000090  20 4f 63 74 6f 62 65 72  20 31 39 38 31 0d 00 0e  | October 1981...|
000000a0  30 20 f4 20 46 6f 72 20  42 42 43 20 4d 6f 64 65  |0 . For BBC Mode|
000000b0  6c 20 41 20 4d 69 63 72  6f 63 6f 6d 70 75 74 65  |l A Microcompute|
000000c0  72 20 31 36 4b 20 4d 69  6e 69 6d 75 6d 0d 00 28  |r 16K Minimum..(|
000000d0  0e 20 ee 20 85 20 e5 8d  54 72 40 0d 00 32 54 20  |. . . ..Tr@..2T |
000000e0  eb 37 3a e7 20 4d 25 3d  30 20 8c 20 f1 8a 35 2c  |.7:. M%=0 . ..5,|
000000f0  31 36 29 3b 22 50 72 65  73 73 20 74 68 65 20 53  |16);"Press the S|
00000100  54 4f 50 20 62 75 74 74  6f 6e 22 27 22 20 20 20  |TOP button"'"   |
00000110  20 20 6f 6e 20 79 6f 75  72 20 74 61 70 65 20 72  |  on your tape r|
00000120  65 63 6f 72 64 65 72 22  3a f2 53 50 41 43 45 0d  |ecorder":.SPACE.|
00000130  00 3c 10 20 db 3a ee 20  85 20 e5 8d 54 60 43 0d  |.<. .:. . ..T`C.|
00000140  00 64 19 20 f2 56 41 52  49 41 42 4c 45 3a f2 54  |.d. .VARIABLE:.T|
00000150  49 54 4c 45 50 41 47 45  0d 00 6e 12 20 f2 49 4e  |ITLEPAGE..n. .IN|
00000160  53 54 52 55 43 54 49 4f  4e 53 0d 00 c8 13 20 46  |STRUCTIONS.... F|
00000170  3d 35 30 30 30 2b b3 28  32 30 30 30 29 0d 00 d2  |=5000+.(2000)...|
00000180  11 20 50 3d 33 30 30 2b  b3 28 31 30 30 29 0d 00  |. P=300+.(100)..|
00000190  dc 0c 20 4a 3d 30 3a 53  3d 30 0d 01 2c 16 20 53  |.. J=0:S=0..,. S|
000001a0  3d 53 2b 31 3a e7 20 53  3d 34 20 8c 20 53 3d 31  |=S+1:. S=4 . S=1|
000001b0  0d 01 36 19 20 4a 3d 4a  2b 31 3a 59 3d 28 4a 2d  |..6. J=J+1:Y=(J-|
000001c0  31 29 20 81 20 33 20 2b  31 0d 01 40 0f 20 f2 4e  |1) . 3 +1..@. .N|
000001d0  45 57 53 45 41 53 4f 4e  0d 01 4a 18 20 e3 20 56  |EWSEASON..J. . V|
000001e0  3d 31 20 b8 20 33 3a 46  4c 28 56 29 3d 30 3a ed  |=1 . 3:FL(V)=0:.|
000001f0  0d 01 54 1d 20 54 44 3d  30 3a 54 46 3d 30 3a 46  |..T. TD=0:TF=0:F|
00000200  44 3d 30 3a 46 46 3d 30  3a 56 46 3d 30 0d 01 5e  |D=0:FF=0:VF=0..^|
00000210  3a 20 f2 4d 41 50 3a f2  44 42 4c 28 53 24 28 53  |: .MAP:.DBL(S$(S|
00000220  29 2b 22 20 53 65 61 73  6f 6e 20 20 20 20 20 20  |)+" Season      |
00000230  20 20 20 20 20 20 20 59  65 61 72 20 22 2b c3 28  |       Year "+.(|
00000240  59 29 2c 31 2c 31 29 0d  01 68 14 20 e7 20 b3 28  |Y),1,1)..h. . .(|
00000250  32 29 3d 31 20 8c 20 8d  44 7c 41 0d 01 72 19 20  |2)=1 . .D|A..r. |
00000260  f2 46 4c 4f 4f 44 3a f2  41 54 54 41 43 4b 3a e5  |.FLOOD:.ATTACK:.|
00000270  8d 74 50 41 0d 01 7c 13  20 f2 41 54 54 41 43 4b  |.tPA..|. .ATTACK|
00000280  3a f2 46 4c 4f 4f 44 0d  01 90 0f 20 f2 43 41 4c  |:.FLOOD.... .CAL|
00000290  43 55 4c 41 54 45 0d 01  9a 0f 20 f2 45 4e 44 53  |CULATE.... .ENDS|
000002a0  45 41 53 4f 4e 0d 01 b8  17 20 e7 20 50 3d 30 20  |EASON.... . P=0 |
000002b0  84 20 46 3d 30 20 8c 20  8d 64 74 41 0d 01 c2 28  |. F=0 . .dtA...(|
000002c0  20 e7 20 4a 20 83 20 31  32 20 3d 30 20 8c 20 f2  | . J . 12 =0 . .|
000002d0  52 49 54 55 41 4c 3a e7  20 59 25 3d 30 20 8c 20  |RITUAL:. Y%=0 . |
000002e0  8d 64 74 41 0d 01 cc 23  20 e7 20 50 3c 32 30 30  |.dtA...# . P<200|
000002f0  20 80 20 b3 28 33 29 3d  31 20 8c 20 f2 41 44 44  | . .(3)=1 . .ADD|
00000300  54 48 49 45 56 45 53 0d  01 d6 17 20 50 3d a8 28  |THIEVES.... P=.(|
00000310  50 2a 31 2e 30 34 35 29  3a e5 8d 54 6c 41 0d 01  |P*1.045):..TlA..|
00000320  f4 11 20 ef 32 36 3a db  3a f1 8a 30 2c 39 29 0d  |.. .26:.:..0,9).|
00000330  01 fe 2d 20 f1 22 50 72  65 73 73 20 74 68 65 20  |..- ."Press the |
00000340  52 45 54 55 52 4e 20 6b  65 79 20 74 6f 20 73 74  |RETURN key to st|
00000350  61 72 74 20 61 67 61 69  6e 2e 22 27 0d 02 08 34  |art again."'...4|
00000360  20 f1 22 50 72 65 73 73  20 74 68 65 20 45 53 43  | ."Press the ESC|
00000370  41 50 45 20 6b 65 79 20  74 6f 20 6c 65 61 76 65  |APE key to leave|
00000380  20 74 68 65 22 27 22 70  72 6f 67 72 61 6d 2e 22  | the"'"program."|
00000390  0d 02 12 16 20 f5 20 fd  20 be 3d bd 28 31 33 29  |.... . . .=.(13)|
000003a0  3a e5 8d 64 48 40 0d 03  20 21 20 e7 20 9f 3c 3e  |:..dH@.. ! . .<>|
000003b0  31 37 20 8c 20 f6 3a f1  22 20 69 6e 20 6c 69 6e  |17 . .:." in lin|
000003c0  65 20 22 3b 9e 3a e0 0d  03 84 0a 20 ef 32 36 3a  |e ";.:..... .26:|
000003d0  db 0d 03 8e 0c 20 f1 8a  35 2c 39 29 3b 0d 03 98  |..... ..5,9);...|
000003e0  1f 20 f1 22 44 6f 20 79  6f 75 20 77 61 6e 74 20  |. ."Do you want |
000003f0  74 6f 20 67 6f 20 6f 6e  20 74 6f 22 0d 03 a2 29  |to go on to"...)|
00000400  20 f1 22 20 20 20 20 20  74 68 65 20 6e 65 78 74  | ."     the next|
00000410  20 70 72 6f 67 72 61 6d  20 28 59 65 73 2f 4e 6f  | program (Yes/No|
00000420  29 3f 20 22 3b 0d 03 ac  1b 20 f2 59 45 53 4f 52  |)? ";.... .YESOR|
00000430  4e 4f 3a e7 20 59 25 3c  30 20 8c 20 8d 74 4e 43  |NO:. Y%<0 . .tNC|
00000440  0d 03 b6 15 20 e7 20 59  25 3d 30 20 8c 20 d8 3a  |.... . Y%=0 . .:|
00000450  e5 8d 44 64 40 0d 03 ca  4b 20 db 3a e7 20 4d 25  |..Dd@...K .:. M%|
00000460  3d 30 20 8c 20 f1 8a 35  2c 35 29 3b 22 50 72 65  |=0 . ..5,5);"Pre|
00000470  73 73 20 74 68 65 20 50  4c 41 59 20 62 75 74 74  |ss the PLAY butt|
00000480  6f 6e 22 27 22 20 20 20  20 20 6f 6e 20 79 6f 75  |on"'"     on you|
00000490  72 20 74 61 70 65 20 72  65 63 6f 72 64 65 72 22  |r tape recorder"|
000004a0  0d 03 de 08 20 d7 22 22  0d 03 e8 0a 20 dd f2 4d  |.... ."".... ..M|
000004b0  41 50 0d 03 f2 0e 20 ef  32 36 3a db 3a f1 27 27  |AP.... .26:.:.''|
000004c0  0d 03 fc 0f 20 e3 20 49  3d 33 20 b8 20 32 33 0d  |.... . I=3 . 23.|
000004d0  04 06 22 20 f1 59 24 3b  57 24 3b bd 28 26 39 36  |.." .Y$;W$;.(&96|
000004e0  29 3b 22 35 35 22 3b 59  24 3b 8a 32 37 29 3b 52  |);"55";Y$;.27);R|
000004f0  24 0d 04 10 06 20 ed 0d  04 1a 13 20 e3 20 49 3d  |$.... ..... . I=|
00000500  33 20 b8 20 32 31 20 88  20 32 0d 04 24 2e 20 f1  |3 . 21 . 2..$. .|
00000510  8a 32 38 2c 49 29 3b 22  20 78 20 22 3b 8a 32 38  |.28,I);" x ";.28|
00000520  2c 49 2b 31 29 3b 22 78  22 3b bd 28 32 35 35 29  |,I+1);"x";.(255)|
00000530  3b 22 7e 78 20 20 78 22  0d 04 2e 1f 20 f1 8a 33  |;"~x  x".... ..3|
00000540  33 2c 49 2b 32 29 3b 22  78 22 3b bd 28 32 35 35  |3,I+2);"x";.(255|
00000550  29 3b 22 7e 78 22 3b 0d  04 38 06 20 ed 0d 04 4c  |);"~x";..8. ...L|
00000560  1d 20 e3 20 49 3d 31 33  20 b8 20 31 35 3a f1 8a  |. . I=13 . 15:..|
00000570  33 30 2c 49 29 3b 22 20  20 22 0d 04 56 06 20 ed  |30,I);"  "..V. .|
00000580  0d 04 60 48 20 f1 8a 33  30 2c 31 34 29 3b 22 54  |..`H ..30,14);"T|
00000590  48 49 45 56 45 53 22 3b  8a 33 31 2c 31 33 29 3b  |HIEVES";.31,13);|
000005a0  22 54 54 22 3b 8a 33 31  2c 31 35 29 3b 22 54 22  |"TT";.31,15);"T"|
000005b0  3b 8a 33 32 2c 31 36 29  3b 22 54 22 3b 8a 33 32  |;.32,16);"T";.32|
000005c0  2c 31 37 29 3b 22 54 22  0d 04 b0 36 20 f1 8a 30  |,17);"T"...6 ..0|
000005d0  2c 32 33 29 3b 22 20 20  20 44 59 4b 45 20 20 20  |,23);"   DYKE   |
000005e0  20 20 20 20 20 56 49 4c  4c 41 47 45 53 20 20 20  |     VILLAGES   |
000005f0  20 20 20 4d 4f 55 4e 54  41 49 4e 53 22 3b 0d 04  |   MOUNTAINS";..|
00000600  ba 1a 20 e3 20 56 3d 31  20 b8 20 33 3a f2 56 44  |.. . V=1 . 3:.VD|
00000610  52 41 57 28 56 29 3a ed  0d 05 13 06 20 e1 0d 05  |RAW(V):..... ...|
00000620  dc 0f 20 dd f2 56 44 52  41 57 28 56 29 0d 05 e6  |.. ..VDRAW(V)...|
00000630  3c 20 f1 8a 56 58 28 56  29 2d 32 2c 56 59 28 56  |< ..VX(V)-2,VY(V|
00000640  29 29 3b 56 24 3b 22 5e  26 22 3b 59 24 8a 56 58  |));V$;"^&";Y$.VX|
00000650  28 56 29 2d 32 2c 56 59  28 56 29 2b 31 29 3b 56  |(V)-2,VY(V)+1);V|
00000660  24 3b 22 26 5e 22 3b 59  24 0d 06 3f 06 20 e1 0d  |$;"&^";Y$..?. ..|
00000670  07 d0 13 20 dd f2 49 4e  53 54 52 55 43 54 49 4f  |... ..INSTRUCTIO|
00000680  4e 53 0d 07 da 11 20 f2  59 45 4c 4c 4f 57 3a f1  |NS.... .YELLOW:.|
00000690  27 27 27 0d 07 e4 5c 20  f1 22 54 68 65 20 6b 69  |'''...\ ."The ki|
000006a0  6e 67 64 6f 6d 20 69 73  20 74 68 72 65 65 20 76  |ngdom is three v|
000006b0  69 6c 6c 61 67 65 73 2e  20 49 74 22 27 22 69 73  |illages. It"'"is|
000006c0  20 62 65 74 77 65 65 6e  20 74 68 65 20 59 65 6c  | between the Yel|
000006d0  6c 6f 77 20 52 69 76 65  72 20 61 6e 64 22 27 22  |low River and"'"|
000006e0  74 68 65 20 6d 6f 75 6e  74 61 69 6e 73 2e 22 0d  |the mountains.".|
000006f0  07 ee 9b 20 f1 27 22 59  6f 75 20 68 61 76 65 20  |... .'"You have |
00000700  62 65 65 6e 20 63 68 6f  73 65 6e 20 74 6f 20 74  |been chosen to t|
00000710  61 6b 65 22 27 22 61 6c  6c 20 74 68 65 20 69 6d  |ake"'"all the im|
00000720  70 6f 72 74 61 6e 74 20  64 65 63 69 73 69 6f 6e  |portant decision|
00000730  73 2e 20 59 6f 75 72 20  22 27 22 70 6f 6f 72 20  |s. Your "'"poor |
00000740  70 72 65 64 65 63 65 73  73 6f 72 20 77 61 73 20  |predecessor was |
00000750  65 78 65 63 75 74 65 64  20 62 79 22 27 22 74 68  |executed by"'"th|
00000760  69 65 76 65 73 20 77 68  6f 20 6c 69 76 65 20 69  |ieves who live i|
00000770  6e 20 74 68 65 20 6e 65  61 72 62 79 22 27 22 6d  |n the nearby"'"m|
00000780  6f 75 6e 74 61 69 6e 73  2e 22 0d 07 f8 86 20 f1  |ountains.".... .|
00000790  27 22 54 68 65 73 65 20  74 68 69 65 76 65 73 20  |'"These thieves |
000007a0  6c 69 76 65 20 6f 66 66  20 74 68 65 20 22 27 22  |live off the "'"|
000007b0  76 69 6c 6c 61 67 65 72  73 20 61 6e 64 20 6f 66  |villagers and of|
000007c0  74 65 6e 20 61 74 74 61  63 6b 2e 20 54 68 65 22  |ten attack. The"|
000007d0  27 22 72 69 63 65 20 73  74 6f 72 65 64 20 69 6e  |'"rice stored in|
000007e0  20 74 68 65 20 76 69 6c  6c 61 67 65 73 20 6d 75  | the villages mu|
000007f0  73 74 22 27 22 62 65 20  70 72 6f 74 65 63 74 65  |st"'"be protecte|
00000800  64 20 61 74 20 61 6c 6c  20 74 69 6d 65 73 2e 22  |d at all times."|
00000810  0d 08 2a 0b 20 f2 53 50  41 43 45 0d 08 34 0a 20  |..*. .SPACE..4. |
00000820  db 3a f1 27 27 0d 08 3e  a1 20 f1 22 54 68 65 20  |.:.''..>. ."The |
00000830  79 65 61 72 20 63 6f 6e  73 69 73 74 73 20 6f 66  |year consists of|
00000840  20 74 68 72 65 65 20 6c  6f 6e 67 20 22 27 22 73  | three long "'"s|
00000850  65 61 73 6f 6e 73 2c 20  57 69 6e 74 65 72 2c 20  |easons, Winter, |
00000860  47 72 6f 77 69 6e 67 20  61 6e 64 22 27 22 48 61  |Growing and"'"Ha|
00000870  72 76 65 73 74 2e 20 52  69 63 65 20 69 73 20 70  |rvest. Rice is p|
00000880  6c 61 6e 74 65 64 20 65  76 65 72 79 22 27 22 47  |lanted every"'"G|
00000890  72 6f 77 69 6e 67 20 53  65 61 73 6f 6e 2e 20 59  |rowing Season. Y|
000008a0  6f 75 20 6d 75 73 74 20  64 65 63 69 64 65 22 27  |ou must decide"'|
000008b0  22 68 6f 77 20 6d 75 63  68 20 69 73 20 70 6c 61  |"how much is pla|
000008c0  6e 74 65 64 2e 22 0d 08  48 a5 20 f1 27 22 54 68  |nted."..H. .'"Th|
000008d0  65 20 72 69 76 65 72 20  69 73 20 6c 69 6b 65 6c  |e river is likel|
000008e0  79 20 74 6f 20 66 6c 6f  6f 64 20 74 68 65 22 27  |y to flood the"'|
000008f0  22 66 69 65 6c 64 73 20  61 6e 64 20 74 68 65 20  |"fields and the |
00000900  76 69 6c 6c 61 67 65 73  2e 20 54 68 65 20 68 69  |villages. The hi|
00000910  67 68 22 27 22 64 79 6b  65 20 62 65 74 77 65 65  |gh"'"dyke betwee|
00000920  6e 20 74 68 65 20 72 69  76 65 72 20 61 6e 64 20  |n the river and |
00000930  74 68 65 22 27 22 66 69  65 6c 64 73 20 6d 75 73  |the"'"fields mus|
00000940  74 20 62 65 20 6b 65 70  74 20 75 70 20 74 6f 20  |t be kept up to |
00000950  70 72 65 76 65 6e 74 22  27 22 61 20 73 65 72 69  |prevent"'"a seri|
00000960  6f 75 73 20 66 6c 6f 6f  64 2e 22 0d 08 52 c4 20  |ous flood."..R. |
00000970  f1 27 22 54 68 65 20 70  65 6f 70 6c 65 20 6c 69  |.'"The people li|
00000980  76 65 20 6f 66 66 20 74  68 65 20 72 69 63 65 20  |ve off the rice |
00000990  74 68 61 74 22 27 22 74  68 65 79 20 68 61 76 65  |that"'"they have|
000009a0  20 67 72 6f 77 6e 2e 20  49 74 20 69 73 20 61 20  | grown. It is a |
000009b0  76 65 72 79 20 70 6f 6f  72 22 27 22 6c 69 76 69  |very poor"'"livi|
000009c0  6e 67 2e 20 59 6f 75 20  6d 75 73 74 20 64 65 63  |ng. You must dec|
000009d0  69 64 65 20 77 68 61 74  20 74 68 65 22 27 22 70  |ide what the"'"p|
000009e0  65 6f 70 6c 65 20 77 69  6c 6c 20 77 6f 72 6b 20  |eople will work |
000009f0  61 74 20 65 61 63 68 20  73 65 61 73 6f 6e 22 27  |at each season"'|
00000a00  22 73 6f 20 74 68 61 74  20 74 68 65 79 20 70 72  |"so that they pr|
00000a10  6f 73 70 65 72 20 75 6e  64 65 72 20 79 6f 75 72  |osper under your|
00000a20  22 27 22 6c 65 61 64 65  72 73 68 69 70 2e 22 0d  |"'"leadership.".|
00000a30  08 8e 0b 20 f2 53 50 41  43 45 0d 08 97 06 20 e1  |... .SPACE.... .|
00000a40  0d 0b b8 10 20 dd f2 4e  45 57 53 45 41 53 4f 4e  |.... ..NEWSEASON|
00000a50  0d 0b c2 32 20 f2 59 45  4c 4c 4f 57 3a f1 8a 38  |...2 .YELLOW:..8|
00000a60  2c 31 29 3b 22 43 65 6e  73 75 73 20 52 65 73 75  |,1);"Census Resu|
00000a70  6c 74 73 22 27 3a e7 20  4a 3d 31 20 8c 20 8d 64  |lts"':. J=1 . .d|
00000a80  6a 4b 0d 0b cc 2c 20 f1  22 41 74 20 74 68 65 20  |jK..., ."At the |
00000a90  73 74 61 72 74 20 6f 66  20 74 68 65 20 22 3b 53  |start of the ";S|
00000aa0  24 28 53 29 3b 22 20 53  65 61 73 6f 6e 22 0d 0b  |$(S);" Season"..|
00000ab0  d6 2b 20 f1 22 6f 66 20  79 65 61 72 20 22 3b 59  |.+ ."of year ";Y|
00000ac0  3b 22 20 6f 66 20 79 6f  75 72 20 72 65 69 67 6e  |;" of your reign|
00000ad0  20 74 68 69 73 20 69 73  22 0d 0b e0 1c 20 f1 22  | this is".... ."|
00000ae0  74 68 65 20 73 69 74 75  61 74 69 6f 6e 2e 22 3a  |the situation.":|
00000af0  e5 8d 54 5c 4c 0d 0b ea  29 20 f1 22 59 6f 75 20  |..T\L...) ."You |
00000b00  68 61 76 65 20 69 6e 68  65 72 69 74 65 64 20 74  |have inherited t|
00000b10  68 69 73 20 73 69 74 75  61 74 69 6f 6e 22 0d 0b  |his situation"..|
00000b20  f4 29 20 f1 22 66 72 6f  6d 20 79 6f 75 72 20 75  |.) ."from your u|
00000b30  6e 6c 75 63 6b 79 20 70  72 65 64 65 63 65 73 73  |nlucky predecess|
00000b40  6f 72 2e 20 49 74 22 0d  0b fe 2a 20 f1 22 69 73  |or. It"...* ."is|
00000b50  20 74 68 65 20 73 74 61  72 74 20 6f 66 20 74 68  | the start of th|
00000b60  65 20 57 69 6e 74 65 72  20 53 65 61 73 6f 6e 2e  |e Winter Season.|
00000b70  22 0d 0c 1c 28 20 f1 27  22 41 6c 6c 6f 77 69 6e  |"...( .'"Allowin|
00000b80  67 20 66 6f 72 20 62 69  72 74 68 73 20 61 6e 64  |g for births and|
00000b90  20 64 65 61 74 68 73 2c  22 0d 0c 26 22 20 f1 22  | deaths,"..&" ."|
00000ba0  74 68 65 20 70 6f 70 75  6c 61 74 69 6f 6e 20 69  |the population i|
00000bb0  73 20 22 3b 50 3b 22 2e  20 22 27 0d 0c 30 27 20  |s ";P;". "'..0' |
00000bc0  f1 22 54 68 65 72 65 20  61 72 65 20 22 3b 46 3b  |."There are ";F;|
00000bd0  22 20 62 61 73 6b 65 74  73 20 6f 66 20 72 69 63  |" baskets of ric|
00000be0  65 22 0d 0c 3a 1e 20 f1  22 69 6e 20 74 68 65 20  |e"..:. ."in the |
00000bf0  76 69 6c 6c 61 67 65 20  73 74 6f 72 65 73 2e 22  |village stores."|
00000c00  0d 0c 44 20 20 f1 27 22  48 6f 77 20 6d 61 6e 79  |..D  .'"How many|
00000c10  20 70 65 6f 70 6c 65 20  73 68 6f 75 6c 64 3a 22  | people should:"|
00000c20  0d 0c 4e 21 20 f1 22 20  41 29 20 44 65 66 65 6e  |..N! ." A) Defen|
00000c30  64 20 74 68 65 20 64 79  6b 65 2e 2e 2e 2e 2e 2e  |d the dyke......|
00000c40  22 0d 0c 58 21 20 f1 22  20 42 29 20 57 6f 72 6b  |"..X! ." B) Work|
00000c50  20 69 6e 20 74 68 65 20  66 69 65 6c 64 73 2e 2e  | in the fields..|
00000c60  2e 22 0d 0c 62 21 20 f1  22 20 43 29 20 50 72 6f  |."..b! ." C) Pro|
00000c70  74 65 63 74 20 74 68 65  20 76 69 6c 6c 61 67 65  |tect the village|
00000c80  73 2e 22 0d 0c 80 0e 20  51 55 3d 31 34 3a 41 3d  |s.".... QU=14:A=|
00000c90  30 0d 0c 8a 19 20 f1 8a  32 36 2c 51 55 29 3b 3a  |0.... ..26,QU);:|
00000ca0  4e 49 3d a4 4e 55 4d 49  4e 50 0d 0c 94 1c 20 e7  |NI=.NUMINP.... .|
00000cb0  20 41 2b 4e 49 3e 50 20  8c 20 f2 49 4d 50 4f 53  | A+NI>P . .IMPOS|
00000cc0  3a e5 8d 74 4a 4c 0d 0c  9e 21 20 51 55 3d 51 55  |:..tJL...! QU=QU|
00000cd0  2b 31 3a e7 20 51 55 3d  31 36 20 8c 20 42 3d 4e  |+1:. QU=16 . B=N|
00000ce0  49 3a e5 8d 74 7c 4c 0d  0c a8 16 20 41 3d 4e 49  |I:..t|L.... A=NI|
00000cf0  3a e7 20 41 3c 50 20 8c  20 8d 74 4a 4c 0d 0c b2  |:. A<P . .tJL...|
00000d00  19 20 42 3d 30 3a f1 8a  32 36 2c 51 55 29 3b 42  |. B=0:..26,QU);B|
00000d10  3a 51 55 3d 31 36 0d 0c  bc 19 20 43 3d 50 2d 28  |:QU=16.... C=P-(|
00000d20  41 2b 42 29 3a f1 8a 32  36 2c 51 55 29 3b 43 0d  |A+B):..26,QU);C.|
00000d30  0c e4 13 20 e7 20 53 3c  3e 32 20 8c 20 8d 54 7e  |... . S<>2 . .T~|
00000d40  4d 20 0d 0c ee 29 20 f1  27 22 48 6f 77 20 6d 61  |M ...) .'"How ma|
00000d50  6e 79 20 62 61 73 6b 65  74 73 20 6f 66 20 72 69  |ny baskets of ri|
00000d60  63 65 20 77 69 6c 6c 20  62 65 22 0d 0c f8 22 20  |ce will be"..." |
00000d70  f1 22 70 6c 61 6e 74 65  64 20 69 6e 20 74 68 65  |."planted in the|
00000d80  20 66 69 65 6c 64 73 2e  2e 2e 2e 2e 22 0d 0d 02  | fields....."...|
00000d90  18 20 f1 8a 32 36 2c 31  39 29 3b 3a 47 3d a4 4e  |. ..26,19);:G=.N|
00000da0  55 4d 49 4e 50 0d 0d 0c  19 20 e7 20 47 3e 46 20  |UMINP.... . G>F |
00000db0  8c 20 f2 49 4d 50 4f 53  3a e5 8d 54 42 4d 0d 0d  |. .IMPOS:..TBM..|
00000dc0  16 0a 20 46 3d 46 2d 47  0d 0d 3e 0b 20 f2 53 50  |.. F=F-G..>. .SP|
00000dd0  41 43 45 0d 0d 47 06 20  e1 0d 0d ac 11 20 dd f2  |ACE..G. ..... ..|
00000de0  45 4e 44 53 45 41 53 4f  4e 20 0d 0d b6 0d 20 f2  |ENDSEASON .... .|
00000df0  57 41 49 54 28 31 29 0d  0d c0 11 20 e7 20 46 3e  |WAIT(1).... . F>|
00000e00  30 20 8c 20 8d 54 50 4e  0d 0d ca 31 20 db 3a f1  |0 . .TPN...1 .:.|
00000e10  8a 33 2c 37 29 3b 22 54  68 65 72 65 20 77 61 73  |.3,7);"There was|
00000e20  20 6e 6f 20 66 6f 6f 64  20 6c 65 66 74 2e 41 6c  | no food left.Al|
00000e30  6c 20 6f 66 20 74 68 65  22 0d 0d d4 2c 20 f1 22  |l of the"..., ."|
00000e40  20 20 20 70 65 6f 70 6c  65 20 68 61 76 65 20 72  |   people have r|
00000e50  75 6e 20 6f 66 66 20 61  6e 64 20 6a 6f 69 6e 65  |un off and joine|
00000e60  64 20 75 70 22 0d 0d de  2f 20 f1 22 20 20 20 77  |d up".../ ."   w|
00000e70  69 74 68 20 74 68 65 20  74 68 69 65 76 65 73 20  |ith the thieves |
00000e80  61 66 74 65 72 20 22 3b  4a 3b 22 20 73 65 61 73  |after ";J;" seas|
00000e90  6f 6e 73 22 0d 0d e8 23  20 f1 22 20 20 20 6f 66  |ons"...# ."   of|
00000ea0  20 79 6f 75 72 20 6d 69  73 72 75 6c 65 22 3a f2  | your misrule":.|
00000eb0  53 50 41 43 45 3a e1 0d  0e 10 11 20 e7 20 50 3e  |SPACE:..... . P>|
00000ec0  30 20 8c 20 8d 44 74 4e  0d 0e 1a 33 20 db 3a f1  |0 . .DtN...3 .:.|
00000ed0  8a 32 2c 38 29 3b 22 54  68 65 72 65 20 69 73 20  |.2,8);"There is |
00000ee0  6e 6f 2d 6f 6e 65 20 6c  65 66 74 21 20 54 68 65  |no-one left! The|
00000ef0  79 20 68 61 76 65 20 61  6c 6c 22 0d 0e 24 2c 20  |y have all"..$, |
00000f00  f1 22 20 20 62 65 65 6e  20 6b 69 6c 6c 65 64 20  |."  been killed |
00000f10  6f 66 66 20 62 79 20 79  6f 75 72 20 64 65 63 69  |off by your deci|
00000f20  73 69 6f 6e 73 20 22 0d  0e 2e 2f 20 f1 22 20 20  |sions ".../ ."  |
00000f30  61 66 74 65 72 20 6f 6e  6c 79 20 22 3b 59 3b 22  |after only ";Y;"|
00000f40  20 79 65 61 72 22 3b 3a  e7 20 59 3c 3e 31 20 8c  | year";:. Y<>1 .|
00000f50  20 f1 22 73 22 3b 0d 0e  38 12 20 f1 22 2e 22 3a  | ."s";..8. .".":|
00000f60  f2 53 50 41 43 45 3a e1  0d 0e 74 35 20 46 31 3d  |.SPACE:...t5 F1=|
00000f70  50 2f 28 46 44 2b 54 44  2b 53 54 2b 31 29 3a 46  |P/(FD+TD+ST+1):F|
00000f80  32 3d 46 2f 28 54 46 2b  46 46 2b 31 29 3a e7 20  |2=F/(TF+FF+1):. |
00000f90  46 32 3c 46 31 20 8c 20  46 31 3d 46 32 0d 0e 88  |F2<F1 . F1=F2...|
00000fa0  2b 20 e7 20 46 32 3c 32  20 8c 20 54 24 3d 22 44  |+ . F2<2 . T$="D|
00000fb0  69 73 61 73 74 72 6f 75  73 20 4c 6f 73 73 65 73  |isastrous Losses|
00000fc0  21 22 3a e5 8d 64 58 4e  0d 0e 92 29 20 e7 20 46  |!":..dXN...) . F|
00000fd0  31 3c 34 20 8c 20 54 24  3d 22 57 6f 72 72 79 69  |1<4 . T$="Worryi|
00000fe0  6e 67 20 6c 6f 73 73 65  73 21 22 3a e5 8d 64 58  |ng losses!":..dX|
00000ff0  4e 0d 0e 9c 2d 20 e7 20  46 31 3c 38 20 8c 20 54  |N...- . F1<8 . T|
00001000  24 3d 22 59 6f 75 20 67  6f 74 20 6f 66 66 20 6c  |$="You got off l|
00001010  69 67 68 74 6c 79 21 22  3a e5 8d 64 58 4e 0d 0e  |ightly!":..dXN..|
00001020  a6 2d 20 e7 20 46 2f 50  3c 34 20 8c 20 54 24 3d  |.- . F/P<4 . T$=|
00001030  22 46 6f 6f 64 20 73 75  70 70 6c 79 20 69 73 20  |"Food supply is |
00001040  6c 6f 77 2e 22 3a e5 8d  64 58 4e 0d 0e b0 2e 20  |low.":..dXN.... |
00001050  e7 20 46 2f 50 3c 32 20  8c 20 54 24 3d 22 53 74  |. F/P<2 . T$="St|
00001060  61 72 76 61 74 69 6f 6e  20 49 6d 6d 69 6e 65 6e  |arvation Imminen|
00001070  74 21 22 3a e5 8d 64 58  4e 0d 0e ba 36 20 e7 20  |t!":..dXN...6 . |
00001080  5a 41 2b 5a 46 2b 53 54  3e 30 20 8c 20 54 24 3d  |ZA+ZF+ST>0 . T$=|
00001090  22 4e 6f 74 68 69 6e 67  20 74 6f 20 77 6f 72 72  |"Nothing to worr|
000010a0  79 20 61 62 6f 75 74 2e  22 3a e5 8d 64 58 4e 0d  |y about.":..dXN.|
000010b0  0e c4 38 20 f2 44 42 4c  28 22 20 20 20 20 20 20  |..8 .DBL("      |
000010c0  20 20 20 20 20 20 20 41  20 71 75 69 65 74 20 73  |       A quiet s|
000010d0  65 61 73 6f 6e 20 20 20  20 20 20 20 20 20 20 20  |eason           |
000010e0  22 2c 31 2c 31 31 29 0d  0e ce 0f 20 f2 57 41 49  |",1,11).... .WAI|
000010f0  54 28 32 29 3a e1 0d 0e  d8 2d 20 f2 59 45 4c 4c  |T(2):....- .YELL|
00001100  4f 57 3a f1 8a 33 2c 32  29 3b 22 56 69 6c 6c 61  |OW:..3,2);"Villa|
00001110  67 65 20 4c 65 61 64 65  72 27 73 20 52 65 70 6f  |ge Leader's Repo|
00001120  72 74 22 0d 0e e2 1d 20  f1 27 8a 31 35 2d a9 28  |rt".... .'.15-.(|
00001130  54 24 29 2f 32 29 3b bd  28 26 38 38 29 3b 54 24  |T$)/2);.(&88);T$|
00001140  0d 0e ec 2b 20 f1 27 22  49 6e 20 74 68 65 20 22  |...+ .'"In the "|
00001150  3b 53 24 28 53 29 3b 22  20 53 65 61 73 6f 6e 20  |;S$(S);" Season |
00001160  6f 66 20 79 65 61 72 20  22 3b 59 0d 0e f6 26 20  |of year ";Y...& |
00001170  f1 22 6f 66 20 79 6f 75  72 20 72 65 69 67 6e 2c  |."of your reign,|
00001180  20 74 68 65 20 6b 69 6e  67 64 6f 6d 20 68 61 73  | the kingdom has|
00001190  22 0d 0f 00 1f 20 f1 22  73 75 66 66 65 72 65 64  |".... ."suffered|
000011a0  20 74 68 65 73 65 20 6c  6f 73 73 65 73 3a 22 27  | these losses:"'|
000011b0  0d 0f 3c 27 20 f1 22 44  65 61 74 68 73 20 66 72  |..<' ."Deaths fr|
000011c0  6f 6d 20 66 6c 6f 6f 64  73 2e 2e 2e 2e 2e 2e 2e  |om floods.......|
000011d0  2e 2e 2e 22 3b 46 44 0d  0f 46 27 20 f1 22 44 65  |...";FD..F' ."De|
000011e0  61 74 68 73 20 66 72 6f  6d 20 74 68 65 20 61 74  |aths from the at|
000011f0  74 61 63 6b 73 2e 2e 2e  2e 2e 22 3b 54 44 0d 0f  |tacks.....";TD..|
00001200  50 27 20 f1 22 44 65 61  74 68 73 20 66 72 6f 6d  |P' ."Deaths from|
00001210  20 73 74 61 72 76 61 74  69 6f 6e 2e 2e 2e 2e 2e  | starvation.....|
00001220  2e 22 3b 53 54 0d 0f 5a  39 20 f1 22 42 61 73 6b  |.";ST..Z9 ."Bask|
00001230  65 74 73 20 6f 66 20 72  69 63 65 22 27 22 6c 6f  |ets of rice"'"lo|
00001240  73 74 20 64 75 72 69 6e  67 20 74 68 65 20 66 6c  |st during the fl|
00001250  6f 6f 64 73 2e 2e 2e 2e  2e 2e 22 3b 46 46 0d 0f  |oods......";FF..|
00001260  64 39 20 f1 22 42 61 73  6b 65 74 73 20 6f 66 20  |d9 ."Baskets of |
00001270  72 69 63 65 22 27 22 6c  6f 73 74 20 64 75 72 69  |rice"'"lost duri|
00001280  6e 67 20 74 68 65 20 61  74 74 61 63 6b 73 2e 2e  |ng the attacks..|
00001290  2e 2e 2e 22 3b 54 46 0d  0f 6e 24 20 f1 27 22 54  |...";TF..n$ .'"T|
000012a0  68 65 20 76 69 6c 6c 61  67 65 20 63 65 6e 73 75  |he village censu|
000012b0  73 20 66 6f 6c 6c 6f 77  73 2e 22 0d 0f 96 0b 20  |s follows.".... |
000012c0  f2 53 50 41 43 45 0d 0f  9f 06 20 e1 0d 0f a0 11  |.SPACE.... .....|
000012d0  20 dd f2 41 44 44 54 48  49 45 56 45 53 0d 0f aa  | ..ADDTHIEVES...|
000012e0  13 20 f2 59 45 4c 4c 4f  57 3a f1 8a 30 2c 38 29  |. .YELLOW:..0,8)|
000012f0  0d 0f b4 24 20 f1 22 54  68 69 65 76 65 73 20 68  |...$ ."Thieves h|
00001300  61 76 65 20 63 6f 6d 65  20 6f 75 74 20 6f 66 20  |ave come out of |
00001310  74 68 65 22 0d 0f be 22  20 f1 22 6d 6f 75 6e 74  |the"..." ."mount|
00001320  61 69 6e 20 74 6f 20 6a  6f 69 6e 20 79 6f 75 2e  |ain to join you.|
00001330  20 54 68 65 79 22 0d 0f  c8 24 20 f1 22 68 61 76  | They"...$ ."hav|
00001340  65 20 64 65 63 69 64 65  64 20 74 68 61 74 20 69  |e decided that i|
00001350  74 20 77 69 6c 6c 20 62  65 22 0d 0f d2 24 20 f1  |t will be"...$ .|
00001360  22 65 61 73 69 65 72 20  74 6f 20 67 72 6f 77 20  |"easier to grow |
00001370  74 68 65 20 72 69 63 65  20 74 68 61 6e 22 0d 0f  |the rice than"..|
00001380  dc 1b 20 f1 22 74 6f 20  73 74 65 61 6c 20 69 74  |.. ."to steal it|
00001390  21 22 3a f2 53 50 41 43  45 0d 0f e6 12 20 50 3d  |!":.SPACE.... P=|
000013a0  50 2b 35 30 2b b3 28 31  30 30 29 0d 10 03 06 20  |P+50+.(100).... |
000013b0  e1 0d 11 94 0d 20 dd f2  52 49 54 55 41 4c 0d 11  |..... ..RITUAL..|
000013c0  9e 10 20 f2 59 45 4c 4c  4f 57 3a f1 27 27 0d 11  |.. .YELLOW:.''..|
000013d0  a8 28 20 f1 22 57 65 20  68 61 76 65 20 73 75 72  |.( ."We have sur|
000013e0  76 69 76 65 64 20 66 6f  72 20 22 3b 59 3b 22 20  |vived for ";Y;" |
000013f0  79 65 61 72 73 22 0d 11  b2 24 20 f1 22 75 6e 64  |years"...$ ."und|
00001400  65 72 20 79 6f 75 72 20  67 6c 6f 72 69 6f 75 73  |er your glorious|
00001410  20 63 6f 6e 74 72 6f 6c  2e 22 0d 11 bc 24 20 f1  | control."...$ .|
00001420  22 42 79 20 61 6e 20 61  6e 63 69 65 6e 74 20 63  |"By an ancient c|
00001430  75 73 74 6f 6d 20 77 65  20 6d 75 73 74 22 0d 11  |ustom we must"..|
00001440  c6 23 20 f1 22 6f 66 66  65 72 20 79 6f 75 20 74  |.# ."offer you t|
00001450  68 65 20 63 68 61 6e 63  65 20 74 6f 20 6c 61 79  |he chance to lay|
00001460  22 0d 11 d0 25 20 f1 22  64 6f 77 6e 20 74 68 69  |"...% ."down thi|
00001470  73 20 74 65 72 72 69 62  6c 65 20 62 75 72 64 65  |s terrible burde|
00001480  6e 20 61 6e 64 22 0d 11  da 1d 20 f1 22 72 65 73  |n and".... ."res|
00001490  75 6d 65 20 61 20 6e 6f  72 6d 61 6c 20 6c 69 66  |ume a normal lif|
000014a0  65 2e 22 0d 11 f8 25 20  f1 27 22 49 6e 20 74 68  |e."...% .'"In th|
000014b0  65 20 74 69 6d 65 20 68  6f 6e 6f 75 72 65 64 20  |e time honoured |
000014c0  66 61 73 68 69 6f 6e 22  0d 12 02 21 20 f1 22 49  |fashion"...! ."I|
000014d0  20 77 69 6c 6c 20 6e 6f  77 20 61 73 6b 20 74 68  | will now ask th|
000014e0  65 20 72 69 74 75 61 6c  22 0d 12 0c 1b 20 f1 22  |e ritual".... ."|
000014f0  71 75 65 73 74 69 6f 6e  3a 22 27 3a f2 57 41 49  |question:"':.WAI|
00001500  54 28 35 29 0d 12 16 22  20 f1 22 41 72 65 20 79  |T(5)..." ."Are y|
00001510  6f 75 20 70 72 65 70 61  72 65 64 20 74 6f 20 61  |ou prepared to a|
00001520  63 63 65 70 74 22 0d 12  20 26 20 f1 22 74 68 65  |ccept".. & ."the|
00001530  20 62 75 72 64 65 6e 20  6f 66 20 64 65 63 69 73  | burden of decis|
00001540  69 6f 6e 20 61 67 61 69  6e 3f 22 27 0d 12 2a 26  |ion again?"'..*&|
00001550  20 f1 22 59 6f 75 20 6e  65 65 64 20 6f 6e 6c 79  | ."You need only|
00001560  20 61 6e 73 77 65 72 20  59 65 73 20 6f 72 20 4e  | answer Yes or N|
00001570  6f 22 0d 12 34 36 20 f1  22 66 6f 72 20 74 68 65  |o"..46 ."for the|
00001580  20 70 65 6f 70 6c 65 20  77 69 6c 6c 20 75 6e 64  | people will und|
00001590  65 72 73 74 61 6e 64 22  27 22 79 6f 75 72 20 72  |erstand"'"your r|
000015a0  65 61 73 6f 6e 73 2e 22  0d 12 3e 24 20 f1 8a 30  |easons."..>$ ..0|
000015b0  2c 32 31 29 3b 3a f2 59  45 53 4f 52 4e 4f 3a e7  |,21);:.YESORNO:.|
000015c0  20 59 25 3c 30 20 8c 20  8d 54 7e 52 0d 12 5b 06  | Y%<0 . .T~R..[.|
000015d0  20 e1 0d 13 88 0d 20 dd  f2 41 54 54 41 43 4b 0d  | ..... ..ATTACK.|
000015e0  13 92 0b 20 ea 58 2c 59  2c 49 0d 13 9c 24 20 5a  |... .X,Y,I...$ Z|
000015f0  41 3d 30 3a 52 3d b3 28  31 29 3a ee 20 53 20 e5  |A=0:R=.(1):. S .|
00001600  8d 74 66 53 2c 8d 74 70  53 2c 8d 74 7a 53 0d 13  |.tfS,.tpS,.tzS..|
00001610  a6 16 20 e7 20 52 3c 2e  35 20 8c 20 e1 20 8b 20  |.. . R<.5 . . . |
00001620  8d 64 44 53 0d 13 b0 16  20 e7 20 52 3c 2e 32 20  |.dDS.... . R<.2 |
00001630  8c 20 e1 20 8b 20 8d 64  44 53 0d 13 ba 16 20 e7  |. . . .dDS.... .|
00001640  20 52 3c 2e 36 20 8c 20  e1 20 8b 20 8d 64 44 53  | R<.6 . . . .dDS|
00001650  0d 13 c4 09 20 5a 41 3d  31 0d 13 ce 0f 20 e7 20  |.... ZA=1.... . |
00001660  56 46 3d 33 20 8c 20 e1  0d 13 ec 1c 20 56 3d b3  |VF=3 . ..... V=.|
00001670  28 33 29 3a e7 20 46 4c  28 56 29 3d 31 20 8c 20  |(3):. FL(V)=1 . |
00001680  8d 64 6c 53 0d 13 f6 1d  20 58 3d 33 32 3a 57 58  |.dlS.... X=32:WX|
00001690  3d 56 58 28 56 29 3a 57  59 3d 56 59 28 56 29 2d  |=VX(V):WY=VY(V)-|
000016a0  31 0d 14 00 23 20 e7 20  57 59 3c 31 37 20 8c 20  |1...# . WY<17 . |
000016b0  59 3d 31 33 3a 44 3d 2d  31 20 8b 20 59 3d 31 37  |Y=13:D=-1 . Y=17|
000016c0  3a 44 3d 31 0d 14 0a 09  20 53 59 3d 59 0d 14 14  |:D=1.... SY=Y...|
000016d0  1d 20 f1 8a 58 2c 59 29  3b 22 20 22 3a e7 20 59  |. ..X,Y);" ":. Y|
000016e0  3d 57 59 20 8c 20 8d 54  68 54 0d 14 1e 26 20 59  |=WY . .ThT...& Y|
000016f0  3d 59 2b 44 3a f1 8a 58  2c 59 29 3b 22 54 22 3a  |=Y+D:..X,Y);"T":|
00001700  f2 57 41 49 54 28 2e 30  35 29 3a e5 8d 54 54 54  |.WAIT(.05):..TTT|
00001710  0d 14 28 2c 20 58 3d 58  2d 31 3a f1 8a 58 2d 31  |..(, X=X-1:..X-1|
00001720  2c 59 29 3b 52 24 3b 22  54 22 3a f2 57 41 49 54  |,Y);R$;"T":.WAIT|
00001730  28 31 2d 28 58 2d 57 58  29 2f 35 29 0d 14 32 21  |(1-(X-WX)/5)..2!|
00001740  20 f1 8a 58 2c 59 29 3b  3a e7 20 58 3d 32 39 20  | ..X,Y);:. X=29 |
00001750  8c 20 f1 22 78 22 20 8b  20 f1 22 20 22 0d 14 3c  |. ."x" . ." "..<|
00001760  12 20 e7 20 58 3e 57 58  20 8c 20 8d 54 68 54 0d  |. . X>WX . .ThT.|
00001770  14 50 0f 20 e3 20 49 3d  31 20 b8 20 39 39 0d 14  |.P. . I=1 . 99..|
00001780  5a 1b 20 f1 8a 58 2c 59  2b 31 29 3b bd 28 b3 28  |Z. ..X,Y+1);.(.(|
00001790  39 34 29 2b 33 32 29 3a  ed 0d 14 64 0e 20 f2 56  |94)+32):...d. .V|
000017a0  44 52 41 57 28 56 29 0d  14 b4 20 20 58 3d 58 2b  |DRAW(V)...  X=X+|
000017b0  31 3a e7 20 58 3c 32 37  20 8c 20 f1 8a 58 2d 32  |1:. X<27 . ..X-2|
000017c0  2c 59 29 3b 22 20 22 0d  14 be 19 20 e7 20 58 3d  |,Y);" ".... . X=|
000017d0  33 31 20 8c 20 f1 8a 32  39 2c 59 29 3b 22 78 22  |31 . ..29,Y);"x"|
000017e0  0d 14 c8 1f 20 f1 8a 58  2d 31 2c 59 29 3b 52 24  |.... ..X-1,Y);R$|
000017f0  3b 22 54 22 3a f2 57 41  49 54 28 2e 30 34 29 0d  |;"T":.WAIT(.04).|
00001800  14 d2 12 20 e7 20 58 3c  33 32 20 8c 20 8d 74 74  |... . X<32 . .tt|
00001810  54 0d 14 dc 12 20 e7 20  59 3d 53 59 20 8c 20 8d  |T.... . Y=SY . .|
00001820  54 58 55 0d 14 e6 31 20  f1 8a 58 2c 59 29 3b 22  |TXU...1 ..X,Y);"|
00001830  20 22 3a 59 3d 59 2d 44  3a f1 8a 58 2c 59 29 3b  | ":Y=Y-D:..X,Y);|
00001840  22 54 22 3a f2 57 41 49  54 28 2e 30 35 29 3a e5  |"T":.WAIT(.05):.|
00001850  8d 64 5c 54 0d 15 18 19  20 ee 20 53 20 e5 20 8d  |.d\T.... . S . .|
00001860  54 62 55 2c 8d 54 6c 55  2c 8d 54 76 55 0d 15 22  |TbU,.TlU,.TvU.."|
00001870  18 20 49 3d 32 30 30 2b  b3 28 37 30 29 2d 43 3a  |. I=200+.(70)-C:|
00001880  e5 8d 44 40 55 0d 15 2c  18 20 49 3d 33 30 2b b3  |..D@U..,. I=30+.|
00001890  28 32 30 30 29 2d 43 3a  e5 8d 44 40 55 0d 15 36  |(200)-C:..D@U..6|
000018a0  0f 20 49 3d b3 28 34 30  30 29 2d 43 0d 15 40 17  |. I=.(400)-C..@.|
000018b0  20 49 3d a8 28 49 29 3a  e7 20 49 3c 30 20 8c 20  | I=.(I):. I<0 . |
000018c0  49 3d 30 0d 15 4a 19 20  54 44 3d a8 28 43 2a 49  |I=0..J. TD=.(C*I|
000018d0  2f 34 30 30 29 3a 43 3d  43 2d 54 44 0d 15 54 2d  |/400):C=C-TD..T-|
000018e0  20 54 46 3d a8 28 49 2a  46 2f 37 32 39 2b b3 28  | TF=.(I*F/729+.(|
000018f0  32 30 30 30 2d 43 29 2f  31 30 29 3a e7 20 54 46  |2000-C)/10):. TF|
00001900  3c 30 20 8c 20 54 46 3d  30 0d 15 5e 1f 20 e7 20  |<0 . TF=0..^. . |
00001910  54 46 3e 32 30 30 30 20  8c 20 54 46 3d 31 39 30  |TF>2000 . TF=190|
00001920  30 2b b3 28 32 30 30 29  0d 15 68 0b 20 46 3d 46  |0+.(200)..h. F=F|
00001930  2d 54 46 0d 15 7b 06 20  e1 0d 15 7c 0c 20 dd f2  |-TF..{. ...|. ..|
00001940  46 4c 4f 4f 44 0d 15 86  09 20 ea 58 2c 59 0d 15  |FLOOD.... .X,Y..|
00001950  90 1e 20 5a 46 3d 30 3a  ee 20 53 20 e5 20 8d 74  |.. ZF=0:. S . .t|
00001960  5a 55 2c 8d 74 64 55 2c  8d 74 6e 55 0d 15 9a 1a  |ZU,.tdU,.tnU....|
00001970  20 46 53 3d b3 28 33 33  30 29 2f 28 41 2b 31 29  | FS=.(330)/(A+1)|
00001980  3a e5 8d 74 78 55 0d 15  a4 1f 20 46 53 3d 28 b3  |:..txU.... FS=(.|
00001990  28 31 30 30 29 2b 36 30  29 2f 28 41 2b 31 29 3a  |(100)+60)/(A+1):|
000019a0  e5 8d 74 78 55 0d 15 ae  06 20 e1 0d 15 b8 0f 20  |..txU.... ..... |
000019b0  e7 20 46 53 3c 31 20 8c  20 e1 0d 15 c2 32 20 58  |. FS<1 . ....2 X|
000019c0  3d 36 3a 5a 46 3d 31 3a  59 3d b3 28 38 29 2b 31  |=6:ZF=1:Y=.(8)+1|
000019d0  30 3a e7 20 46 53 3c 32  20 8c 20 46 53 3d b3 28  |0:. FS<2 . FS=.(|
000019e0  32 29 20 8b 20 46 53 3d  b3 28 34 29 0d 15 e0 1d  |2) . FS=.(4)....|
000019f0  20 f1 8a 31 2c 59 29 3b  57 24 3b 57 24 3b 57 24  | ..1,Y);W$;W$;W$|
00001a00  3b 57 24 3b 57 24 3b 57  24 0d 15 ea 13 20 e3 20  |;W$;W$;W$.... . |
00001a10  4b 3d 31 20 b8 20 46 53  2a 31 30 30 0d 15 f4 20  |K=1 . FS*100... |
00001a20  20 ee 20 b3 28 34 29 20  e5 8d 64 7e 55 2c 8d 54  | . .(4) ..d~U,.T|
00001a30  48 56 2c 8d 54 52 56 2c  8d 54 5c 56 0d 15 fe 20  |HV,.TRV,.T\V... |
00001a40  20 e7 20 58 3d 32 35 20  8c 20 8d 64 74 55 20 8b  | . X=25 . .dtU .|
00001a50  20 58 3d 58 2b 31 3a e5  8d 44 44 56 0d 16 08 1f  | X=X+1:..DDV....|
00001a60  20 e7 20 58 3d 36 20 8c  20 8d 64 74 55 20 8b 20  | . X=6 . .dtU . |
00001a70  58 3d 58 2d 31 3a e5 8d  44 44 56 0d 16 12 20 20  |X=X-1:..DDV...  |
00001a80  e7 20 59 3d 32 32 20 8c  20 8d 64 74 55 20 8b 20  |. Y=22 . .dtU . |
00001a90  59 3d 59 2b 31 3a e5 8d  44 44 56 0d 16 1c 1f 20  |Y=Y+1:..DDV.... |
00001aa0  e7 20 59 3d 33 20 8c 20  8d 64 74 55 20 8b 20 59  |. Y=3 . .dtU . Y|
00001ab0  3d 59 2d 31 3a e5 8d 44  44 56 0d 16 44 08 20 56  |=Y-1:..DDV..D. V|
00001ac0  3d 31 0d 16 58 1a 20 57  31 3d 56 58 28 56 29 2d  |=1..X. W1=VX(V)-|
00001ad0  58 3a 57 32 3d 59 2d 56  59 28 56 29 0d 16 62 1b  |X:W2=Y-VY(V)..b.|
00001ae0  20 e7 20 57 32 3c 3e 31  20 80 20 57 32 3c 3e 30  | . W2<>1 . W2<>0|
00001af0  20 8c 20 8d 74 40 56 0d  16 6c 1c 20 e7 20 57 31  | . .t@V..l. . W1|
00001b00  3d 30 20 84 20 57 31 3d  31 20 8c 20 46 4c 28 56  |=0 . W1=1 . FL(V|
00001b10  29 3d 31 0d 16 76 13 20  e7 20 57 31 3d 2d 31 20  |)=1..v. . W1=-1 |
00001b20  8c 20 8d 74 54 56 0d 16  80 17 20 56 3d 56 2b 31  |. .tTV.... V=V+1|
00001b30  3a e7 20 56 3c 34 20 8c  20 8d 44 58 56 0d 16 8a  |:. V<4 . .DXV...|
00001b40  0e 20 f1 8a 58 2c 59 29  3b 57 24 0d 16 94 07 20  |. ..X,Y);W$.... |
00001b50  ed 4b 0d 16 9e 19 20 56  46 3d 46 4c 28 31 29 2b  |.K.... VF=FL(1)+|
00001b60  46 4c 28 32 29 2b 46 4c  28 33 29 0d 16 a8 0d 20  |FL(2)+FL(3).... |
00001b70  4f 50 3d 41 2b 42 2b 43  0d 16 b2 18 20 41 3d a8  |OP=A+B+C.... A=.|
00001b80  28 28 41 2f 31 30 29 2a  28 31 30 2d 46 53 29 29  |((A/10)*(10-FS))|
00001b90  0d 16 bc 18 20 42 3d a8  28 28 42 2f 31 30 29 2a  |.... B=.((B/10)*|
00001ba0  28 31 30 2d 46 53 29 29  0d 16 c6 16 20 43 3d a8  |(10-FS)).... C=.|
00001bb0  28 28 43 2f 36 29 2a 28  36 2d 56 46 29 29 0d 16  |((C/6)*(6-VF))..|
00001bc0  d0 19 20 46 46 3d a8 28  46 2a 56 46 2f 36 29 3a  |.. FF=.(F*VF/6):|
00001bd0  46 3d 46 2d 46 46 20 0d  16 da 10 20 46 44 3d 4f  |F=F-FF .... FD=O|
00001be0  50 2d 41 2d 42 2d 43 0d  16 e4 1b 20 e7 20 53 3d  |P-A-B-C.... . S=|
00001bf0  32 20 8c 20 47 3d 47 2a  28 32 30 2d 46 53 29 2f  |2 . G=G*(20-FS)/|
00001c00  32 30 0d 16 ee 1b 20 e7  20 53 3d 33 20 8c 20 47  |20.... . S=3 . G|
00001c10  3d 47 2a 28 31 30 2d 46  53 29 2f 31 30 0d 17 0b  |=G*(10-FS)/10...|
00001c20  06 20 e1 0d 17 70 10 20  dd f2 43 41 4c 43 55 4c  |. ...p. ..CALCUL|
00001c30  41 54 45 0d 17 7a 16 20  e7 20 42 3d 30 20 8c 20  |ATE..z. . B=0 . |
00001c40  47 3d 30 3a e5 8d 64 54  57 0d 17 84 19 20 ee 20  |G=0:..dTW.... . |
00001c50  53 20 e5 20 8d 64 54 57  2c 8d 74 4e 57 2c 8d 74  |S . .dTW,.tNW,.t|
00001c60  62 57 0d 17 8e 16 20 e7  20 47 3e 31 30 30 30 20  |bW.... . G>1000 |
00001c70  8c 20 47 3d 31 30 30 30  0d 17 98 17 20 47 3d 47  |. G=1000.... G=G|
00001c80  2a 28 42 2d 31 30 29 2f  42 3a e5 8d 64 54 57 0d  |*(B-10)/B:..dTW.|
00001c90  17 a2 11 20 e7 20 47 3c  30 20 8c 20 8d 64 54 57  |... . G<0 . .dTW|
00001ca0  0d 17 ac 20 20 47 3d 31  38 2a 28 31 31 2b b3 28  |...  G=18*(11+.(|
00001cb0  33 29 29 2a 28 30 2e 30  35 2d 31 2f 42 29 2a 47  |3))*(0.05-1/B)*G|
00001cc0  0d 17 b6 11 20 e7 20 47  3c 30 20 8c 20 8d 64 54  |.... . G<0 . .dT|
00001cd0  57 0d 17 c0 0d 20 46 3d  46 2b a8 28 47 29 0d 17  |W.... F=F+.(G)..|
00001ce0  d4 1e 20 53 54 3d 30 3a  50 3d 41 2b 42 2b 43 3a  |.. ST=0:P=A+B+C:|
00001cf0  e7 20 50 3d 30 20 8c 20  8d 74 5b 58 0d 17 de 1c  |. P=0 . .t[X....|
00001d00  20 54 3d 46 2f 50 3a e7  20 54 3e 35 20 8c 20 54  | T=F/P:. T>5 . T|
00001d10  3d 34 3a e5 8d 54 78 58  0d 17 e8 16 20 e7 20 54  |=4:..TxX.... . T|
00001d20  3c 32 20 8c 20 50 3d 30  3a e5 8d 74 5b 58 0d 17  |<2 . P=0:..t[X..|
00001d30  f2 18 20 e7 20 54 3e 34  20 8c 20 54 3d 33 2e 35  |.. . T>4 . T=3.5|
00001d40  3a e5 8d 54 78 58 0d 17  fc 18 20 53 54 3d a8 28  |:..TxX.... ST=.(|
00001d50  50 2a 28 37 2d 54 29 2f  37 29 3a 54 3d 33 0d 18  |P*(7-T)/7):T=3..|
00001d60  38 1d 20 50 3d 50 2d 53  54 3a 46 3d a8 28 46 2d  |8. P=P-ST:F=.(F-|
00001d70  50 2a 54 2d 53 54 2a 54  2f 32 29 0d 18 42 10 20  |P*T-ST*T/2)..B. |
00001d80  e7 20 46 3c 30 20 8c 20  46 3d 30 0d 18 9b 06 20  |. F<0 . F=0.... |
00001d90  e1 0d 1b 58 0f 20 dd f2  56 41 52 49 41 42 4c 45  |...X. ..VARIABLE|
00001da0  0d 1b 62 1e 20 de 20 53  24 28 33 29 2c 56 58 28  |..b. . S$(3),VX(|
00001db0  33 29 2c 56 59 28 33 29  2c 46 4c 28 33 29 0d 1b  |3),VY(3),FL(3)..|
00001dc0  6c 33 20 53 24 28 31 29  3d 22 57 69 6e 74 65 72  |l3 S$(1)="Winter|
00001dd0  22 3a 53 24 28 32 29 3d  22 47 72 6f 77 69 6e 67  |":S$(2)="Growing|
00001de0  22 3a 53 24 28 33 29 3d  22 48 61 72 76 65 73 74  |":S$(3)="Harvest|
00001df0  22 0d 1b 80 2c 20 57 24  3d bd 28 32 35 35 29 3a  |"..., W$=.(255):|
00001e00  59 24 3d bd 28 26 39 33  29 3a 52 24 3d bd 28 26  |Y$=.(&93):R$=.(&|
00001e10  39 31 29 3a 56 24 3d bd  28 26 39 32 29 0d 1b 8a  |91):V$=.(&92)...|
00001e20  15 20 56 58 28 31 29 3d  31 33 3a 56 59 28 31 29  |. VX(1)=13:VY(1)|
00001e30  3d 38 0d 1b 94 16 20 56  58 28 32 29 3d 32 31 3a  |=8.... VX(2)=21:|
00001e40  56 59 28 32 29 3d 31 32  0d 1b 9e 16 20 56 58 28  |VY(2)=12.... VX(|
00001e50  33 29 3d 32 32 3a 56 59  28 33 29 3d 31 38 0d 1b  |3)=22:VY(3)=18..|
00001e60  bb 06 20 e1 0d 1b bc 0c  20 dd f2 49 4d 50 4f 53  |.. ..... ..IMPOS|
00001e70  0d 1b c6 30 20 f1 8a 34  2c 32 30 29 3b bd 28 26  |...0 ..4,20);.(&|
00001e80  38 38 29 3b bd 28 26 38  32 29 3b 22 49 20 4d 20  |88);.(&82);"I M |
00001e90  50 20 4f 20 53 20 53 20  49 20 42 20 4c 20 45 22  |P O S S I B L E"|
00001ea0  0d 1b d0 0d 20 f2 57 41  49 54 28 32 29 0d 1b da  |.... .WAIT(2)...|
00001eb0  0b 20 f2 53 50 41 43 45  0d 1b e4 1f 20 f1 8a 35  |. .SPACE.... ..5|
00001ec0  2c 32 30 29 3b 89 28 32  30 29 3b 8a 30 2c 32 32  |,20);.(20);.0,22|
00001ed0  29 3b 89 28 34 30 29 0d  1c 1f 06 20 e1 0d 1c 20  |);.(40).... ... |
00001ee0  0d 20 dd f2 59 45 4c 4c  4f 57 0d 1c 2a 07 20 ea  |. ..YELLOW..*. .|
00001ef0  49 0d 1c 34 11 20 db 3a  e3 20 49 3d 30 20 b8 20  |I..4. .:. I=0 . |
00001f00  32 34 0d 1c 3e 15 20 f1  8a 30 2c 49 29 3b bd 28  |24..>. ..0,I);.(|
00001f10  26 38 33 29 3b 3a ed 0d  1c 48 0c 20 f1 8a 30 2c  |&83);:...H. ..0,|
00001f20  30 29 3b 0d 1c 52 13 20  ef 20 32 38 2c 33 2c 32  |0);..R. . 28,3,2|
00001f30  34 2c 33 39 2c 30 0d 1c  83 06 20 e1 0d 1f 40 12  |4,39,0.... ...@.|
00001f40  20 dd f2 44 42 4c 28 58  24 2c 58 2c 59 29 0d 1f  | ..DBL(X$,X,Y)..|
00001f50  4a 18 20 f1 8a 58 2d 31  2c 59 29 3b bd 28 31 34  |J. ..X-1,Y);.(14|
00001f60  31 29 3b 58 24 20 0d 1f  54 19 20 f1 8a 58 2d 31  |1);X$ ..T. ..X-1|
00001f70  2c 59 2b 31 29 3b bd 28  31 34 31 29 3b 58 24 0d  |,Y+1);.(141);X$.|
00001f80  1f a3 06 20 e1 0d 1f a4  0e 20 dd f2 57 41 49 54  |... ..... ..WAIT|
00001f90  28 58 29 0d 1f ae 08 20  ea 20 5a 0d 1f b8 08 20  |(X).... . Z.... |
00001fa0  5a 3d 91 0d 1f c2 12 20  f5 20 fd 20 91 2d 5a 3e  |Z=..... . . .-Z>|
00001fb0  58 2a 31 30 30 0d 20 07  06 20 e1 0d 20 08 0c 20  |X*100. .. .. .. |
00001fc0  dd f2 53 50 41 43 45 0d  20 1c 34 20 f1 8a 30 2c  |..SPACE. .4 ..0,|
00001fd0  32 32 29 3b 22 50 72 65  73 73 20 74 68 65 20 53  |22);"Press the S|
00001fe0  50 41 43 45 20 42 41 52  20 74 6f 20 63 6f 6e 74  |PACE BAR to cont|
00001ff0  69 6e 75 65 22 3b 3a f2  4b 43 4c 0d 20 30 0e 20  |inue";:.KCL. 0. |
00002000  f5 20 fd 20 be 3d 22 20  22 0d 20 6b 06 20 e1 0d  |. . .=" ". k. ..|
00002010  20 6c 10 20 dd f2 54 49  54 4c 45 50 41 47 45 0d  | l. ..TITLEPAGE.|
00002020  20 76 26 20 f2 4d 41 50  3a f2 4f 46 46 3a f2 57  | v& .MAP:.OFF:.W|
00002030  41 49 54 28 32 29 3a f1  8a 30 2c 31 31 29 3b 89  |AIT(2):..0,11);.|
00002040  28 32 30 30 29 0d 20 7b  3a f2 44 42 4c 28 59 24  |(200). {:.DBL(Y$|
00002050  2b 22 59 45 4c 4c 4f 57  20 52 49 56 45 52 22 2c  |+"YELLOW RIVER",|
00002060  31 31 2c 31 31 29 3a f2  44 42 4c 28 59 24 2b 22  |11,11):.DBL(Y$+"|
00002070  4b 49 4e 47 44 4f 4d 22  2c 31 33 2c 31 34 29 0d  |KINGDOM",13,14).|
00002080  20 80 0e 20 49 25 3d a6  28 35 30 30 29 0d 20 cf  | .. I%=.(500). .|
00002090  06 20 e1 0d 22 60 0a 20  dd f2 4b 43 4c 0d 22 6a  |. .."`. ..KCL."j|
000020a0  15 20 e7 20 bf 28 30 29  3e 22 22 20 8c 20 8d 44  |. . .(0)>"" . .D|
000020b0  6a 62 0d 22 c3 06 20 e1  0d 22 c4 0b 20 dd f2 4f  |jb.".. ..".. ..O|
000020c0  46 46 20 0d 22 ce 16 20  ef 32 33 3b 38 32 30 32  |FF .".. .23;8202|
000020d0  3b 30 3b 30 3b 30 3b 3a  e1 0d 22 f6 09 20 dd f2  |;0;0;0;:..".. ..|
000020e0  4f 4e 0d 23 00 17 20 ef  32 33 3b 32 39 31 39 34  |ON.#.. .23;29194|
000020f0  3b 30 3b 30 3b 30 3b 3a  e1 0d 23 28 31 20 dd f2  |;0;0;0;:..#(1 ..|
00002100  47 50 49 28 46 32 2c 4d  4c 29 3a f4 20 47 65 6e  |GPI(F2,ML):. Gen|
00002110  65 72 61 6c 20 50 75 72  70 6f 73 65 20 49 6e 70  |eral Purpose Inp|
00002120  75 74 20 52 6f 75 74 69  6e 65 0d 23 32 0b 20 ea  |ut Routine.#2. .|
00002130  42 2c 42 24 20 0d 23 3c  0a 20 41 24 3d 22 22 0d  |B,B$ .#<. A$="".|
00002140  23 46 2b 20 f1 c4 4d 4c  2c 22 20 22 29 3b c4 4d  |#F+ ..ML," ");.M|
00002150  4c 2b 31 2c bd 28 38 29  29 3b bd 28 26 38 33 29  |L+1,.(8));.(&83)|
00002160  3b 3a f2 4f 4e 3a f2 4b  43 4c 0d 23 50 1f 20 42  |;:.ON:.KCL.#P. B|
00002170  24 3d be 3a 42 3d 97 28  42 24 29 3a e7 20 42 3d  |$=.:B=.(B$):. B=|
00002180  31 33 20 8c 20 8d 64 66  63 0d 23 5a 1b 20 e7 20  |13 . .dfc.#Z. . |
00002190  42 3d 31 32 37 20 80 20  41 24 3d 22 22 20 8c 20  |B=127 . A$="" . |
000021a0  8d 44 50 63 0d 23 64 29  20 e7 20 42 3d 31 32 37  |.DPc.#d) . B=127|
000021b0  20 8c 20 41 24 3d c0 41  24 2c a9 28 41 24 29 2d  | . A$=.A$,.(A$)-|
000021c0  31 29 3a f1 42 24 3b 3a  e5 8d 44 50 63 0d 23 6e  |1):.B$;:..DPc.#n|
000021d0  25 20 e7 20 a9 28 41 24  29 3d 4d 4c 20 84 20 42  |% . .(A$)=ML . B|
000021e0  3c 33 32 20 84 20 42 3e  31 32 36 20 8c 20 8d 64  |<32 . B>126 . .d|
000021f0  52 63 0d 23 78 2b 20 e7  20 46 32 3d 30 20 84 20  |Rc.#x+ . F2=0 . |
00002200  42 3d 33 32 20 84 20 28  42 3e 3d 34 38 20 80 20  |B=32 . (B>=48 . |
00002210  42 3c 3d 35 37 29 20 8c  20 8d 64 5c 63 0d 23 d2  |B<=57) . .d\c.#.|
00002220  0d 20 ef 37 3a e5 8d 44  50 63 0d 23 dc 19 20 f1  |. .7:..DPc.#.. .|
00002230  42 24 3b 3a 41 24 3d 41  24 2b 42 24 3a e5 8d 44  |B$;:A$=A$+B$:..D|
00002240  50 63 20 0d 23 e6 09 20  f2 4f 46 46 0d 23 ef 07  |Pc .#.. .OFF.#..|
00002250  20 e1 20 0d 23 f0 0e 20  dd f2 59 45 53 4f 52 4e  | . .#.. ..YESORN|
00002260  4f 0d 23 fa 08 20 ea 42  24 0d 24 04 0e 20 f2 47  |O.#.. .B$.$.. .G|
00002270  50 49 28 30 2c 33 29 0d  24 0e 0f 20 42 24 3d c0  |PI(0,3).$.. B$=.|
00002280  41 24 2c 31 29 20 0d 24  18 0a 20 59 25 3d 2d 31  |A$,1) .$.. Y%=-1|
00002290  0d 24 22 1e 20 e7 20 42  24 3d 22 59 22 20 84 20  |.$". . B$="Y" . |
000022a0  42 24 3d 22 79 22 20 8c  20 59 25 3d 31 20 0d 24  |B$="y" . Y%=1 .$|
000022b0  2c 1d 20 e7 20 42 24 3d  22 4e 22 20 84 20 42 24  |,. . B$="N" . B$|
000022c0  3d 22 6e 22 20 8c 20 59  25 3d 30 0d 24 53 06 20  |="n" . Y%=0.$S. |
000022d0  e1 0d 24 54 0d 20 dd a4  4e 55 4d 49 4e 50 0d 24  |..$T. ..NUMINP.$|
000022e0  5e 0e 20 f2 47 50 49 28  31 2c 36 29 0d 24 68 0b  |^. .GPI(1,6).$h.|
000022f0  20 3d bb 28 41 24 29 0d  ff                       | =.(A$)..|
000022f9