# � 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@
2 �7
< �:� � �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 (Y/N)? ";
� �YESORNO:� Y%<0 � �tNC
� � Y%=0 � �:�Dd@
� � "BIORTHM"
�
 ��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 07 20  |. . . ..Tr@..2. |
000000e0  eb 37 0d 00 3c 10 20 db  3a ee 20 85 20 e5 8d 54  |.7..<. .:. . ..T|
000000f0  60 43 0d 00 64 19 20 f2  56 41 52 49 41 42 4c 45  |`C..d. .VARIABLE|
00000100  3a f2 54 49 54 4c 45 50  41 47 45 0d 00 6e 12 20  |:.TITLEPAGE..n. |
00000110  f2 49 4e 53 54 52 55 43  54 49 4f 4e 53 0d 00 c8  |.INSTRUCTIONS...|
00000120  13 20 46 3d 35 30 30 30  2b b3 28 32 30 30 30 29  |. F=5000+.(2000)|
00000130  0d 00 d2 11 20 50 3d 33  30 30 2b b3 28 31 30 30  |.... P=300+.(100|
00000140  29 0d 00 dc 0c 20 4a 3d  30 3a 53 3d 30 0d 01 2c  |).... J=0:S=0..,|
00000150  16 20 53 3d 53 2b 31 3a  e7 20 53 3d 34 20 8c 20  |. S=S+1:. S=4 . |
00000160  53 3d 31 0d 01 36 19 20  4a 3d 4a 2b 31 3a 59 3d  |S=1..6. J=J+1:Y=|
00000170  28 4a 2d 31 29 20 81 20  33 20 2b 31 0d 01 40 0f  |(J-1) . 3 +1..@.|
00000180  20 f2 4e 45 57 53 45 41  53 4f 4e 0d 01 4a 18 20  | .NEWSEASON..J. |
00000190  e3 20 56 3d 31 20 b8 20  33 3a 46 4c 28 56 29 3d  |. V=1 . 3:FL(V)=|
000001a0  30 3a ed 0d 01 54 1d 20  54 44 3d 30 3a 54 46 3d  |0:...T. TD=0:TF=|
000001b0  30 3a 46 44 3d 30 3a 46  46 3d 30 3a 56 46 3d 30  |0:FD=0:FF=0:VF=0|
000001c0  0d 01 5e 3a 20 f2 4d 41  50 3a f2 44 42 4c 28 53  |..^: .MAP:.DBL(S|
000001d0  24 28 53 29 2b 22 20 53  65 61 73 6f 6e 20 20 20  |$(S)+" Season   |
000001e0  20 20 20 20 20 20 20 20  20 20 59 65 61 72 20 22  |          Year "|
000001f0  2b c3 28 59 29 2c 31 2c  31 29 0d 01 68 14 20 e7  |+.(Y),1,1)..h. .|
00000200  20 b3 28 32 29 3d 31 20  8c 20 8d 44 7c 41 0d 01  | .(2)=1 . .D|A..|
00000210  72 19 20 f2 46 4c 4f 4f  44 3a f2 41 54 54 41 43  |r. .FLOOD:.ATTAC|
00000220  4b 3a e5 8d 74 50 41 0d  01 7c 13 20 f2 41 54 54  |K:..tPA..|. .ATT|
00000230  41 43 4b 3a f2 46 4c 4f  4f 44 0d 01 90 0f 20 f2  |ACK:.FLOOD.... .|
00000240  43 41 4c 43 55 4c 41 54  45 0d 01 9a 0f 20 f2 45  |CALCULATE.... .E|
00000250  4e 44 53 45 41 53 4f 4e  0d 01 b8 17 20 e7 20 50  |NDSEASON.... . P|
00000260  3d 30 20 84 20 46 3d 30  20 8c 20 8d 64 74 41 0d  |=0 . F=0 . .dtA.|
00000270  01 c2 28 20 e7 20 4a 20  83 20 31 32 20 3d 30 20  |..( . J . 12 =0 |
00000280  8c 20 f2 52 49 54 55 41  4c 3a e7 20 59 25 3d 30  |. .RITUAL:. Y%=0|
00000290  20 8c 20 8d 64 74 41 0d  01 cc 23 20 e7 20 50 3c  | . .dtA...# . P<|
000002a0  32 30 30 20 80 20 b3 28  33 29 3d 31 20 8c 20 f2  |200 . .(3)=1 . .|
000002b0  41 44 44 54 48 49 45 56  45 53 0d 01 d6 17 20 50  |ADDTHIEVES.... P|
000002c0  3d a8 28 50 2a 31 2e 30  34 35 29 3a e5 8d 54 6c  |=.(P*1.045):..Tl|
000002d0  41 0d 01 f4 11 20 ef 32  36 3a db 3a f1 8a 30 2c  |A.... .26:.:..0,|
000002e0  39 29 0d 01 fe 2d 20 f1  22 50 72 65 73 73 20 74  |9)...- ."Press t|
000002f0  68 65 20 52 45 54 55 52  4e 20 6b 65 79 20 74 6f  |he RETURN key to|
00000300  20 73 74 61 72 74 20 61  67 61 69 6e 2e 22 27 0d  | start again."'.|
00000310  02 08 34 20 f1 22 50 72  65 73 73 20 74 68 65 20  |..4 ."Press the |
00000320  45 53 43 41 50 45 20 6b  65 79 20 74 6f 20 6c 65  |ESCAPE key to le|
00000330  61 76 65 20 74 68 65 22  27 22 70 72 6f 67 72 61  |ave the"'"progra|
00000340  6d 2e 22 0d 02 12 16 20  f5 20 fd 20 be 3d bd 28  |m.".... . . .=.(|
00000350  31 33 29 3a e5 8d 64 48  40 0d 03 20 21 20 e7 20  |13):..dH@.. ! . |
00000360  9f 3c 3e 31 37 20 8c 20  f6 3a f1 22 20 69 6e 20  |.<>17 . .:." in |
00000370  6c 69 6e 65 20 22 3b 9e  3a e0 0d 03 84 0a 20 ef  |line ";.:..... .|
00000380  32 36 3a db 0d 03 8e 0c  20 f1 8a 35 2c 39 29 3b  |26:..... ..5,9);|
00000390  0d 03 98 1f 20 f1 22 44  6f 20 79 6f 75 20 77 61  |.... ."Do you wa|
000003a0  6e 74 20 74 6f 20 67 6f  20 6f 6e 20 74 6f 22 0d  |nt to go on to".|
000003b0  03 a2 26 20 f1 22 20 20  20 20 20 74 68 65 20 6e  |..& ."     the n|
000003c0  65 78 74 20 70 72 6f 67  72 61 6d 20 28 59 2f 4e  |ext program (Y/N|
000003d0  29 3f 20 22 3b 0d 03 ac  1b 20 f2 59 45 53 4f 52  |)? ";.... .YESOR|
000003e0  4e 4f 3a e7 20 59 25 3c  30 20 8c 20 8d 74 4e 43  |NO:. Y%<0 . .tNC|
000003f0  0d 03 b6 15 20 e7 20 59  25 3d 30 20 8c 20 d8 3a  |.... . Y%=0 . .:|
00000400  e5 8d 44 64 40 0d 03 ca  10 20 d7 20 22 42 49 4f  |..Dd@.... . "BIO|
00000410  52 54 48 4d 22 0d 03 e8  0a 20 dd f2 4d 41 50 0d  |RTHM".... ..MAP.|
00000420  03 f2 0e 20 ef 32 36 3a  db 3a f1 27 27 0d 03 fc  |... .26:.:.''...|
00000430  0f 20 e3 20 49 3d 33 20  b8 20 32 33 0d 04 06 22  |. . I=3 . 23..."|
00000440  20 f1 59 24 3b 57 24 3b  bd 28 26 39 36 29 3b 22  | .Y$;W$;.(&96);"|
00000450  35 35 22 3b 59 24 3b 8a  32 37 29 3b 52 24 0d 04  |55";Y$;.27);R$..|
00000460  10 06 20 ed 0d 04 1a 13  20 e3 20 49 3d 33 20 b8  |.. ..... . I=3 .|
00000470  20 32 31 20 88 20 32 0d  04 24 2e 20 f1 8a 32 38  | 21 . 2..$. ..28|
00000480  2c 49 29 3b 22 20 78 20  22 3b 8a 32 38 2c 49 2b  |,I);" x ";.28,I+|
00000490  31 29 3b 22 78 22 3b bd  28 32 35 35 29 3b 22 7e  |1);"x";.(255);"~|
000004a0  78 20 20 78 22 0d 04 2e  1f 20 f1 8a 33 33 2c 49  |x  x".... ..33,I|
000004b0  2b 32 29 3b 22 78 22 3b  bd 28 32 35 35 29 3b 22  |+2);"x";.(255);"|
000004c0  7e 78 22 3b 0d 04 38 06  20 ed 0d 04 4c 1d 20 e3  |~x";..8. ...L. .|
000004d0  20 49 3d 31 33 20 b8 20  31 35 3a f1 8a 33 30 2c  | I=13 . 15:..30,|
000004e0  49 29 3b 22 20 20 22 0d  04 56 06 20 ed 0d 04 60  |I);"  "..V. ...`|
000004f0  48 20 f1 8a 33 30 2c 31  34 29 3b 22 54 48 49 45  |H ..30,14);"THIE|
00000500  56 45 53 22 3b 8a 33 31  2c 31 33 29 3b 22 54 54  |VES";.31,13);"TT|
00000510  22 3b 8a 33 31 2c 31 35  29 3b 22 54 22 3b 8a 33  |";.31,15);"T";.3|
00000520  32 2c 31 36 29 3b 22 54  22 3b 8a 33 32 2c 31 37  |2,16);"T";.32,17|
00000530  29 3b 22 54 22 0d 04 b0  36 20 f1 8a 30 2c 32 33  |);"T"...6 ..0,23|
00000540  29 3b 22 20 20 20 44 59  4b 45 20 20 20 20 20 20  |);"   DYKE      |
00000550  20 20 56 49 4c 4c 41 47  45 53 20 20 20 20 20 20  |  VILLAGES      |
00000560  4d 4f 55 4e 54 41 49 4e  53 22 3b 0d 04 ba 1a 20  |MOUNTAINS";.... |
00000570  e3 20 56 3d 31 20 b8 20  33 3a f2 56 44 52 41 57  |. V=1 . 3:.VDRAW|
00000580  28 56 29 3a ed 0d 05 13  06 20 e1 0d 05 dc 0f 20  |(V):..... ..... |
00000590  dd f2 56 44 52 41 57 28  56 29 0d 05 e6 3c 20 f1  |..VDRAW(V)...< .|
000005a0  8a 56 58 28 56 29 2d 32  2c 56 59 28 56 29 29 3b  |.VX(V)-2,VY(V));|
000005b0  56 24 3b 22 5e 26 22 3b  59 24 8a 56 58 28 56 29  |V$;"^&";Y$.VX(V)|
000005c0  2d 32 2c 56 59 28 56 29  2b 31 29 3b 56 24 3b 22  |-2,VY(V)+1);V$;"|
000005d0  26 5e 22 3b 59 24 0d 06  3f 06 20 e1 0d 07 d0 13  |&^";Y$..?. .....|
000005e0  20 dd f2 49 4e 53 54 52  55 43 54 49 4f 4e 53 0d  | ..INSTRUCTIONS.|
000005f0  07 da 11 20 f2 59 45 4c  4c 4f 57 3a f1 27 27 27  |... .YELLOW:.'''|
00000600  0d 07 e4 5c 20 f1 22 54  68 65 20 6b 69 6e 67 64  |...\ ."The kingd|
00000610  6f 6d 20 69 73 20 74 68  72 65 65 20 76 69 6c 6c  |om is three vill|
00000620  61 67 65 73 2e 20 49 74  22 27 22 69 73 20 62 65  |ages. It"'"is be|
00000630  74 77 65 65 6e 20 74 68  65 20 59 65 6c 6c 6f 77  |tween the Yellow|
00000640  20 52 69 76 65 72 20 61  6e 64 22 27 22 74 68 65  | River and"'"the|
00000650  20 6d 6f 75 6e 74 61 69  6e 73 2e 22 0d 07 ee 9b  | mountains."....|
00000660  20 f1 27 22 59 6f 75 20  68 61 76 65 20 62 65 65  | .'"You have bee|
00000670  6e 20 63 68 6f 73 65 6e  20 74 6f 20 74 61 6b 65  |n chosen to take|
00000680  22 27 22 61 6c 6c 20 74  68 65 20 69 6d 70 6f 72  |"'"all the impor|
00000690  74 61 6e 74 20 64 65 63  69 73 69 6f 6e 73 2e 20  |tant decisions. |
000006a0  59 6f 75 72 20 22 27 22  70 6f 6f 72 20 70 72 65  |Your "'"poor pre|
000006b0  64 65 63 65 73 73 6f 72  20 77 61 73 20 65 78 65  |decessor was exe|
000006c0  63 75 74 65 64 20 62 79  22 27 22 74 68 69 65 76  |cuted by"'"thiev|
000006d0  65 73 20 77 68 6f 20 6c  69 76 65 20 69 6e 20 74  |es who live in t|
000006e0  68 65 20 6e 65 61 72 62  79 22 27 22 6d 6f 75 6e  |he nearby"'"moun|
000006f0  74 61 69 6e 73 2e 22 0d  07 f8 86 20 f1 27 22 54  |tains.".... .'"T|
00000700  68 65 73 65 20 74 68 69  65 76 65 73 20 6c 69 76  |hese thieves liv|
00000710  65 20 6f 66 66 20 74 68  65 20 22 27 22 76 69 6c  |e off the "'"vil|
00000720  6c 61 67 65 72 73 20 61  6e 64 20 6f 66 74 65 6e  |lagers and often|
00000730  20 61 74 74 61 63 6b 2e  20 54 68 65 22 27 22 72  | attack. The"'"r|
00000740  69 63 65 20 73 74 6f 72  65 64 20 69 6e 20 74 68  |ice stored in th|
00000750  65 20 76 69 6c 6c 61 67  65 73 20 6d 75 73 74 22  |e villages must"|
00000760  27 22 62 65 20 70 72 6f  74 65 63 74 65 64 20 61  |'"be protected a|
00000770  74 20 61 6c 6c 20 74 69  6d 65 73 2e 22 0d 08 2a  |t all times."..*|
00000780  0b 20 f2 53 50 41 43 45  0d 08 34 0a 20 db 3a f1  |. .SPACE..4. .:.|
00000790  27 27 0d 08 3e a1 20 f1  22 54 68 65 20 79 65 61  |''..>. ."The yea|
000007a0  72 20 63 6f 6e 73 69 73  74 73 20 6f 66 20 74 68  |r consists of th|
000007b0  72 65 65 20 6c 6f 6e 67  20 22 27 22 73 65 61 73  |ree long "'"seas|
000007c0  6f 6e 73 2c 20 57 69 6e  74 65 72 2c 20 47 72 6f  |ons, Winter, Gro|
000007d0  77 69 6e 67 20 61 6e 64  22 27 22 48 61 72 76 65  |wing and"'"Harve|
000007e0  73 74 2e 20 52 69 63 65  20 69 73 20 70 6c 61 6e  |st. Rice is plan|
000007f0  74 65 64 20 65 76 65 72  79 22 27 22 47 72 6f 77  |ted every"'"Grow|
00000800  69 6e 67 20 53 65 61 73  6f 6e 2e 20 59 6f 75 20  |ing Season. You |
00000810  6d 75 73 74 20 64 65 63  69 64 65 22 27 22 68 6f  |must decide"'"ho|
00000820  77 20 6d 75 63 68 20 69  73 20 70 6c 61 6e 74 65  |w much is plante|
00000830  64 2e 22 0d 08 48 a5 20  f1 27 22 54 68 65 20 72  |d."..H. .'"The r|
00000840  69 76 65 72 20 69 73 20  6c 69 6b 65 6c 79 20 74  |iver is likely t|
00000850  6f 20 66 6c 6f 6f 64 20  74 68 65 22 27 22 66 69  |o flood the"'"fi|
00000860  65 6c 64 73 20 61 6e 64  20 74 68 65 20 76 69 6c  |elds and the vil|
00000870  6c 61 67 65 73 2e 20 54  68 65 20 68 69 67 68 22  |lages. The high"|
00000880  27 22 64 79 6b 65 20 62  65 74 77 65 65 6e 20 74  |'"dyke between t|
00000890  68 65 20 72 69 76 65 72  20 61 6e 64 20 74 68 65  |he river and the|
000008a0  22 27 22 66 69 65 6c 64  73 20 6d 75 73 74 20 62  |"'"fields must b|
000008b0  65 20 6b 65 70 74 20 75  70 20 74 6f 20 70 72 65  |e kept up to pre|
000008c0  76 65 6e 74 22 27 22 61  20 73 65 72 69 6f 75 73  |vent"'"a serious|
000008d0  20 66 6c 6f 6f 64 2e 22  0d 08 52 c4 20 f1 27 22  | flood."..R. .'"|
000008e0  54 68 65 20 70 65 6f 70  6c 65 20 6c 69 76 65 20  |The people live |
000008f0  6f 66 66 20 74 68 65 20  72 69 63 65 20 74 68 61  |off the rice tha|
00000900  74 22 27 22 74 68 65 79  20 68 61 76 65 20 67 72  |t"'"they have gr|
00000910  6f 77 6e 2e 20 49 74 20  69 73 20 61 20 76 65 72  |own. It is a ver|
00000920  79 20 70 6f 6f 72 22 27  22 6c 69 76 69 6e 67 2e  |y poor"'"living.|
00000930  20 59 6f 75 20 6d 75 73  74 20 64 65 63 69 64 65  | You must decide|
00000940  20 77 68 61 74 20 74 68  65 22 27 22 70 65 6f 70  | what the"'"peop|
00000950  6c 65 20 77 69 6c 6c 20  77 6f 72 6b 20 61 74 20  |le will work at |
00000960  65 61 63 68 20 73 65 61  73 6f 6e 22 27 22 73 6f  |each season"'"so|
00000970  20 74 68 61 74 20 74 68  65 79 20 70 72 6f 73 70  | that they prosp|
00000980  65 72 20 75 6e 64 65 72  20 79 6f 75 72 22 27 22  |er under your"'"|
00000990  6c 65 61 64 65 72 73 68  69 70 2e 22 0d 08 8e 0b  |leadership."....|
000009a0  20 f2 53 50 41 43 45 0d  08 97 06 20 e1 0d 0b b8  | .SPACE.... ....|
000009b0  10 20 dd f2 4e 45 57 53  45 41 53 4f 4e 0d 0b c2  |. ..NEWSEASON...|
000009c0  32 20 f2 59 45 4c 4c 4f  57 3a f1 8a 38 2c 31 29  |2 .YELLOW:..8,1)|
000009d0  3b 22 43 65 6e 73 75 73  20 52 65 73 75 6c 74 73  |;"Census Results|
000009e0  22 27 3a e7 20 4a 3d 31  20 8c 20 8d 64 6a 4b 0d  |"':. J=1 . .djK.|
000009f0  0b cc 2c 20 f1 22 41 74  20 74 68 65 20 73 74 61  |.., ."At the sta|
00000a00  72 74 20 6f 66 20 74 68  65 20 22 3b 53 24 28 53  |rt of the ";S$(S|
00000a10  29 3b 22 20 53 65 61 73  6f 6e 22 0d 0b d6 2b 20  |);" Season"...+ |
00000a20  f1 22 6f 66 20 79 65 61  72 20 22 3b 59 3b 22 20  |."of year ";Y;" |
00000a30  6f 66 20 79 6f 75 72 20  72 65 69 67 6e 20 74 68  |of your reign th|
00000a40  69 73 20 69 73 22 0d 0b  e0 1c 20 f1 22 74 68 65  |is is".... ."the|
00000a50  20 73 69 74 75 61 74 69  6f 6e 2e 22 3a e5 8d 54  | situation.":..T|
00000a60  5c 4c 0d 0b ea 29 20 f1  22 59 6f 75 20 68 61 76  |\L...) ."You hav|
00000a70  65 20 69 6e 68 65 72 69  74 65 64 20 74 68 69 73  |e inherited this|
00000a80  20 73 69 74 75 61 74 69  6f 6e 22 0d 0b f4 29 20  | situation"...) |
00000a90  f1 22 66 72 6f 6d 20 79  6f 75 72 20 75 6e 6c 75  |."from your unlu|
00000aa0  63 6b 79 20 70 72 65 64  65 63 65 73 73 6f 72 2e  |cky predecessor.|
00000ab0  20 49 74 22 0d 0b fe 2a  20 f1 22 69 73 20 74 68  | It"...* ."is th|
00000ac0  65 20 73 74 61 72 74 20  6f 66 20 74 68 65 20 57  |e start of the W|
00000ad0  69 6e 74 65 72 20 53 65  61 73 6f 6e 2e 22 0d 0c  |inter Season."..|
00000ae0  1c 28 20 f1 27 22 41 6c  6c 6f 77 69 6e 67 20 66  |.( .'"Allowing f|
00000af0  6f 72 20 62 69 72 74 68  73 20 61 6e 64 20 64 65  |or births and de|
00000b00  61 74 68 73 2c 22 0d 0c  26 22 20 f1 22 74 68 65  |aths,"..&" ."the|
00000b10  20 70 6f 70 75 6c 61 74  69 6f 6e 20 69 73 20 22  | population is "|
00000b20  3b 50 3b 22 2e 20 22 27  0d 0c 30 27 20 f1 22 54  |;P;". "'..0' ."T|
00000b30  68 65 72 65 20 61 72 65  20 22 3b 46 3b 22 20 62  |here are ";F;" b|
00000b40  61 73 6b 65 74 73 20 6f  66 20 72 69 63 65 22 0d  |askets of rice".|
00000b50  0c 3a 1e 20 f1 22 69 6e  20 74 68 65 20 76 69 6c  |.:. ."in the vil|
00000b60  6c 61 67 65 20 73 74 6f  72 65 73 2e 22 0d 0c 44  |lage stores."..D|
00000b70  20 20 f1 27 22 48 6f 77  20 6d 61 6e 79 20 70 65  |  .'"How many pe|
00000b80  6f 70 6c 65 20 73 68 6f  75 6c 64 3a 22 0d 0c 4e  |ople should:"..N|
00000b90  21 20 f1 22 20 41 29 20  44 65 66 65 6e 64 20 74  |! ." A) Defend t|
00000ba0  68 65 20 64 79 6b 65 2e  2e 2e 2e 2e 2e 22 0d 0c  |he dyke......"..|
00000bb0  58 21 20 f1 22 20 42 29  20 57 6f 72 6b 20 69 6e  |X! ." B) Work in|
00000bc0  20 74 68 65 20 66 69 65  6c 64 73 2e 2e 2e 22 0d  | the fields...".|
00000bd0  0c 62 21 20 f1 22 20 43  29 20 50 72 6f 74 65 63  |.b! ." C) Protec|
00000be0  74 20 74 68 65 20 76 69  6c 6c 61 67 65 73 2e 22  |t the villages."|
00000bf0  0d 0c 80 0e 20 51 55 3d  31 34 3a 41 3d 30 0d 0c  |.... QU=14:A=0..|
00000c00  8a 19 20 f1 8a 32 36 2c  51 55 29 3b 3a 4e 49 3d  |.. ..26,QU);:NI=|
00000c10  a4 4e 55 4d 49 4e 50 0d  0c 94 1c 20 e7 20 41 2b  |.NUMINP.... . A+|
00000c20  4e 49 3e 50 20 8c 20 f2  49 4d 50 4f 53 3a e5 8d  |NI>P . .IMPOS:..|
00000c30  74 4a 4c 0d 0c 9e 21 20  51 55 3d 51 55 2b 31 3a  |tJL...! QU=QU+1:|
00000c40  e7 20 51 55 3d 31 36 20  8c 20 42 3d 4e 49 3a e5  |. QU=16 . B=NI:.|
00000c50  8d 74 7c 4c 0d 0c a8 16  20 41 3d 4e 49 3a e7 20  |.t|L.... A=NI:. |
00000c60  41 3c 50 20 8c 20 8d 74  4a 4c 0d 0c b2 19 20 42  |A<P . .tJL.... B|
00000c70  3d 30 3a f1 8a 32 36 2c  51 55 29 3b 42 3a 51 55  |=0:..26,QU);B:QU|
00000c80  3d 31 36 0d 0c bc 19 20  43 3d 50 2d 28 41 2b 42  |=16.... C=P-(A+B|
00000c90  29 3a f1 8a 32 36 2c 51  55 29 3b 43 0d 0c e4 13  |):..26,QU);C....|
00000ca0  20 e7 20 53 3c 3e 32 20  8c 20 8d 54 7e 4d 20 0d  | . S<>2 . .T~M .|
00000cb0  0c ee 29 20 f1 27 22 48  6f 77 20 6d 61 6e 79 20  |..) .'"How many |
00000cc0  62 61 73 6b 65 74 73 20  6f 66 20 72 69 63 65 20  |baskets of rice |
00000cd0  77 69 6c 6c 20 62 65 22  0d 0c f8 22 20 f1 22 70  |will be"..." ."p|
00000ce0  6c 61 6e 74 65 64 20 69  6e 20 74 68 65 20 66 69  |lanted in the fi|
00000cf0  65 6c 64 73 2e 2e 2e 2e  2e 22 0d 0d 02 18 20 f1  |elds.....".... .|
00000d00  8a 32 36 2c 31 39 29 3b  3a 47 3d a4 4e 55 4d 49  |.26,19);:G=.NUMI|
00000d10  4e 50 0d 0d 0c 19 20 e7  20 47 3e 46 20 8c 20 f2  |NP.... . G>F . .|
00000d20  49 4d 50 4f 53 3a e5 8d  54 42 4d 0d 0d 16 0a 20  |IMPOS:..TBM.... |
00000d30  46 3d 46 2d 47 0d 0d 3e  0b 20 f2 53 50 41 43 45  |F=F-G..>. .SPACE|
00000d40  0d 0d 47 06 20 e1 0d 0d  ac 11 20 dd f2 45 4e 44  |..G. ..... ..END|
00000d50  53 45 41 53 4f 4e 20 0d  0d b6 0d 20 f2 57 41 49  |SEASON .... .WAI|
00000d60  54 28 31 29 0d 0d c0 11  20 e7 20 46 3e 30 20 8c  |T(1).... . F>0 .|
00000d70  20 8d 54 50 4e 0d 0d ca  31 20 db 3a f1 8a 33 2c  | .TPN...1 .:..3,|
00000d80  37 29 3b 22 54 68 65 72  65 20 77 61 73 20 6e 6f  |7);"There was no|
00000d90  20 66 6f 6f 64 20 6c 65  66 74 2e 41 6c 6c 20 6f  | food left.All o|
00000da0  66 20 74 68 65 22 0d 0d  d4 2c 20 f1 22 20 20 20  |f the"..., ."   |
00000db0  70 65 6f 70 6c 65 20 68  61 76 65 20 72 75 6e 20  |people have run |
00000dc0  6f 66 66 20 61 6e 64 20  6a 6f 69 6e 65 64 20 75  |off and joined u|
00000dd0  70 22 0d 0d de 2f 20 f1  22 20 20 20 77 69 74 68  |p".../ ."   with|
00000de0  20 74 68 65 20 74 68 69  65 76 65 73 20 61 66 74  | the thieves aft|
00000df0  65 72 20 22 3b 4a 3b 22  20 73 65 61 73 6f 6e 73  |er ";J;" seasons|
00000e00  22 0d 0d e8 23 20 f1 22  20 20 20 6f 66 20 79 6f  |"...# ."   of yo|
00000e10  75 72 20 6d 69 73 72 75  6c 65 22 3a f2 53 50 41  |ur misrule":.SPA|
00000e20  43 45 3a e1 0d 0e 10 11  20 e7 20 50 3e 30 20 8c  |CE:..... . P>0 .|
00000e30  20 8d 44 74 4e 0d 0e 1a  33 20 db 3a f1 8a 32 2c  | .DtN...3 .:..2,|
00000e40  38 29 3b 22 54 68 65 72  65 20 69 73 20 6e 6f 2d  |8);"There is no-|
00000e50  6f 6e 65 20 6c 65 66 74  21 20 54 68 65 79 20 68  |one left! They h|
00000e60  61 76 65 20 61 6c 6c 22  0d 0e 24 2c 20 f1 22 20  |ave all"..$, ." |
00000e70  20 62 65 65 6e 20 6b 69  6c 6c 65 64 20 6f 66 66  | been killed off|
00000e80  20 62 79 20 79 6f 75 72  20 64 65 63 69 73 69 6f  | by your decisio|
00000e90  6e 73 20 22 0d 0e 2e 2f  20 f1 22 20 20 61 66 74  |ns ".../ ."  aft|
00000ea0  65 72 20 6f 6e 6c 79 20  22 3b 59 3b 22 20 79 65  |er only ";Y;" ye|
00000eb0  61 72 22 3b 3a e7 20 59  3c 3e 31 20 8c 20 f1 22  |ar";:. Y<>1 . ."|
00000ec0  73 22 3b 0d 0e 38 12 20  f1 22 2e 22 3a f2 53 50  |s";..8. .".":.SP|
00000ed0  41 43 45 3a e1 0d 0e 74  35 20 46 31 3d 50 2f 28  |ACE:...t5 F1=P/(|
00000ee0  46 44 2b 54 44 2b 53 54  2b 31 29 3a 46 32 3d 46  |FD+TD+ST+1):F2=F|
00000ef0  2f 28 54 46 2b 46 46 2b  31 29 3a e7 20 46 32 3c  |/(TF+FF+1):. F2<|
00000f00  46 31 20 8c 20 46 31 3d  46 32 0d 0e 88 2b 20 e7  |F1 . F1=F2...+ .|
00000f10  20 46 32 3c 32 20 8c 20  54 24 3d 22 44 69 73 61  | F2<2 . T$="Disa|
00000f20  73 74 72 6f 75 73 20 4c  6f 73 73 65 73 21 22 3a  |strous Losses!":|
00000f30  e5 8d 64 58 4e 0d 0e 92  29 20 e7 20 46 31 3c 34  |..dXN...) . F1<4|
00000f40  20 8c 20 54 24 3d 22 57  6f 72 72 79 69 6e 67 20  | . T$="Worrying |
00000f50  6c 6f 73 73 65 73 21 22  3a e5 8d 64 58 4e 0d 0e  |losses!":..dXN..|
00000f60  9c 2d 20 e7 20 46 31 3c  38 20 8c 20 54 24 3d 22  |.- . F1<8 . T$="|
00000f70  59 6f 75 20 67 6f 74 20  6f 66 66 20 6c 69 67 68  |You got off ligh|
00000f80  74 6c 79 21 22 3a e5 8d  64 58 4e 0d 0e a6 2d 20  |tly!":..dXN...- |
00000f90  e7 20 46 2f 50 3c 34 20  8c 20 54 24 3d 22 46 6f  |. F/P<4 . T$="Fo|
00000fa0  6f 64 20 73 75 70 70 6c  79 20 69 73 20 6c 6f 77  |od supply is low|
00000fb0  2e 22 3a e5 8d 64 58 4e  0d 0e b0 2e 20 e7 20 46  |.":..dXN.... . F|
00000fc0  2f 50 3c 32 20 8c 20 54  24 3d 22 53 74 61 72 76  |/P<2 . T$="Starv|
00000fd0  61 74 69 6f 6e 20 49 6d  6d 69 6e 65 6e 74 21 22  |ation Imminent!"|
00000fe0  3a e5 8d 64 58 4e 0d 0e  ba 36 20 e7 20 5a 41 2b  |:..dXN...6 . ZA+|
00000ff0  5a 46 2b 53 54 3e 30 20  8c 20 54 24 3d 22 4e 6f  |ZF+ST>0 . T$="No|
00001000  74 68 69 6e 67 20 74 6f  20 77 6f 72 72 79 20 61  |thing to worry a|
00001010  62 6f 75 74 2e 22 3a e5  8d 64 58 4e 0d 0e c4 38  |bout.":..dXN...8|
00001020  20 f2 44 42 4c 28 22 20  20 20 20 20 20 20 20 20  | .DBL("         |
00001030  20 20 20 20 41 20 71 75  69 65 74 20 73 65 61 73  |    A quiet seas|
00001040  6f 6e 20 20 20 20 20 20  20 20 20 20 20 22 2c 31  |on           ",1|
00001050  2c 31 31 29 0d 0e ce 0f  20 f2 57 41 49 54 28 32  |,11).... .WAIT(2|
00001060  29 3a e1 0d 0e d8 2d 20  f2 59 45 4c 4c 4f 57 3a  |):....- .YELLOW:|
00001070  f1 8a 33 2c 32 29 3b 22  56 69 6c 6c 61 67 65 20  |..3,2);"Village |
00001080  4c 65 61 64 65 72 27 73  20 52 65 70 6f 72 74 22  |Leader's Report"|
00001090  0d 0e e2 1d 20 f1 27 8a  31 35 2d a9 28 54 24 29  |.... .'.15-.(T$)|
000010a0  2f 32 29 3b bd 28 26 38  38 29 3b 54 24 0d 0e ec  |/2);.(&88);T$...|
000010b0  2b 20 f1 27 22 49 6e 20  74 68 65 20 22 3b 53 24  |+ .'"In the ";S$|
000010c0  28 53 29 3b 22 20 53 65  61 73 6f 6e 20 6f 66 20  |(S);" Season of |
000010d0  79 65 61 72 20 22 3b 59  0d 0e f6 26 20 f1 22 6f  |year ";Y...& ."o|
000010e0  66 20 79 6f 75 72 20 72  65 69 67 6e 2c 20 74 68  |f your reign, th|
000010f0  65 20 6b 69 6e 67 64 6f  6d 20 68 61 73 22 0d 0f  |e kingdom has"..|
00001100  00 1f 20 f1 22 73 75 66  66 65 72 65 64 20 74 68  |.. ."suffered th|
00001110  65 73 65 20 6c 6f 73 73  65 73 3a 22 27 0d 0f 3c  |ese losses:"'..<|
00001120  27 20 f1 22 44 65 61 74  68 73 20 66 72 6f 6d 20  |' ."Deaths from |
00001130  66 6c 6f 6f 64 73 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |floods..........|
00001140  22 3b 46 44 0d 0f 46 27  20 f1 22 44 65 61 74 68  |";FD..F' ."Death|
00001150  73 20 66 72 6f 6d 20 74  68 65 20 61 74 74 61 63  |s from the attac|
00001160  6b 73 2e 2e 2e 2e 2e 22  3b 54 44 0d 0f 50 27 20  |ks.....";TD..P' |
00001170  f1 22 44 65 61 74 68 73  20 66 72 6f 6d 20 73 74  |."Deaths from st|
00001180  61 72 76 61 74 69 6f 6e  2e 2e 2e 2e 2e 2e 22 3b  |arvation......";|
00001190  53 54 0d 0f 5a 39 20 f1  22 42 61 73 6b 65 74 73  |ST..Z9 ."Baskets|
000011a0  20 6f 66 20 72 69 63 65  22 27 22 6c 6f 73 74 20  | of rice"'"lost |
000011b0  64 75 72 69 6e 67 20 74  68 65 20 66 6c 6f 6f 64  |during the flood|
000011c0  73 2e 2e 2e 2e 2e 2e 22  3b 46 46 0d 0f 64 39 20  |s......";FF..d9 |
000011d0  f1 22 42 61 73 6b 65 74  73 20 6f 66 20 72 69 63  |."Baskets of ric|
000011e0  65 22 27 22 6c 6f 73 74  20 64 75 72 69 6e 67 20  |e"'"lost during |
000011f0  74 68 65 20 61 74 74 61  63 6b 73 2e 2e 2e 2e 2e  |the attacks.....|
00001200  22 3b 54 46 0d 0f 6e 24  20 f1 27 22 54 68 65 20  |";TF..n$ .'"The |
00001210  76 69 6c 6c 61 67 65 20  63 65 6e 73 75 73 20 66  |village census f|
00001220  6f 6c 6c 6f 77 73 2e 22  0d 0f 96 0b 20 f2 53 50  |ollows.".... .SP|
00001230  41 43 45 0d 0f 9f 06 20  e1 0d 0f a0 11 20 dd f2  |ACE.... ..... ..|
00001240  41 44 44 54 48 49 45 56  45 53 0d 0f aa 13 20 f2  |ADDTHIEVES.... .|
00001250  59 45 4c 4c 4f 57 3a f1  8a 30 2c 38 29 0d 0f b4  |YELLOW:..0,8)...|
00001260  24 20 f1 22 54 68 69 65  76 65 73 20 68 61 76 65  |$ ."Thieves have|
00001270  20 63 6f 6d 65 20 6f 75  74 20 6f 66 20 74 68 65  | come out of the|
00001280  22 0d 0f be 22 20 f1 22  6d 6f 75 6e 74 61 69 6e  |"..." ."mountain|
00001290  20 74 6f 20 6a 6f 69 6e  20 79 6f 75 2e 20 54 68  | to join you. Th|
000012a0  65 79 22 0d 0f c8 24 20  f1 22 68 61 76 65 20 64  |ey"...$ ."have d|
000012b0  65 63 69 64 65 64 20 74  68 61 74 20 69 74 20 77  |ecided that it w|
000012c0  69 6c 6c 20 62 65 22 0d  0f d2 24 20 f1 22 65 61  |ill be"...$ ."ea|
000012d0  73 69 65 72 20 74 6f 20  67 72 6f 77 20 74 68 65  |sier to grow the|
000012e0  20 72 69 63 65 20 74 68  61 6e 22 0d 0f dc 1b 20  | rice than".... |
000012f0  f1 22 74 6f 20 73 74 65  61 6c 20 69 74 21 22 3a  |."to steal it!":|
00001300  f2 53 50 41 43 45 0d 0f  e6 12 20 50 3d 50 2b 35  |.SPACE.... P=P+5|
00001310  30 2b b3 28 31 30 30 29  0d 10 03 06 20 e1 0d 11  |0+.(100).... ...|
00001320  94 0d 20 dd f2 52 49 54  55 41 4c 0d 11 9e 10 20  |.. ..RITUAL.... |
00001330  f2 59 45 4c 4c 4f 57 3a  f1 27 27 0d 11 a8 28 20  |.YELLOW:.''...( |
00001340  f1 22 57 65 20 68 61 76  65 20 73 75 72 76 69 76  |."We have surviv|
00001350  65 64 20 66 6f 72 20 22  3b 59 3b 22 20 79 65 61  |ed for ";Y;" yea|
00001360  72 73 22 0d 11 b2 24 20  f1 22 75 6e 64 65 72 20  |rs"...$ ."under |
00001370  79 6f 75 72 20 67 6c 6f  72 69 6f 75 73 20 63 6f  |your glorious co|
00001380  6e 74 72 6f 6c 2e 22 0d  11 bc 24 20 f1 22 42 79  |ntrol."...$ ."By|
00001390  20 61 6e 20 61 6e 63 69  65 6e 74 20 63 75 73 74  | an ancient cust|
000013a0  6f 6d 20 77 65 20 6d 75  73 74 22 0d 11 c6 23 20  |om we must"...# |
000013b0  f1 22 6f 66 66 65 72 20  79 6f 75 20 74 68 65 20  |."offer you the |
000013c0  63 68 61 6e 63 65 20 74  6f 20 6c 61 79 22 0d 11  |chance to lay"..|
000013d0  d0 25 20 f1 22 64 6f 77  6e 20 74 68 69 73 20 74  |.% ."down this t|
000013e0  65 72 72 69 62 6c 65 20  62 75 72 64 65 6e 20 61  |errible burden a|
000013f0  6e 64 22 0d 11 da 1d 20  f1 22 72 65 73 75 6d 65  |nd".... ."resume|
00001400  20 61 20 6e 6f 72 6d 61  6c 20 6c 69 66 65 2e 22  | a normal life."|
00001410  0d 11 f8 25 20 f1 27 22  49 6e 20 74 68 65 20 74  |...% .'"In the t|
00001420  69 6d 65 20 68 6f 6e 6f  75 72 65 64 20 66 61 73  |ime honoured fas|
00001430  68 69 6f 6e 22 0d 12 02  21 20 f1 22 49 20 77 69  |hion"...! ."I wi|
00001440  6c 6c 20 6e 6f 77 20 61  73 6b 20 74 68 65 20 72  |ll now ask the r|
00001450  69 74 75 61 6c 22 0d 12  0c 1b 20 f1 22 71 75 65  |itual".... ."que|
00001460  73 74 69 6f 6e 3a 22 27  3a f2 57 41 49 54 28 35  |stion:"':.WAIT(5|
00001470  29 0d 12 16 22 20 f1 22  41 72 65 20 79 6f 75 20  |)..." ."Are you |
00001480  70 72 65 70 61 72 65 64  20 74 6f 20 61 63 63 65  |prepared to acce|
00001490  70 74 22 0d 12 20 26 20  f1 22 74 68 65 20 62 75  |pt".. & ."the bu|
000014a0  72 64 65 6e 20 6f 66 20  64 65 63 69 73 69 6f 6e  |rden of decision|
000014b0  20 61 67 61 69 6e 3f 22  27 0d 12 2a 26 20 f1 22  | again?"'..*& ."|
000014c0  59 6f 75 20 6e 65 65 64  20 6f 6e 6c 79 20 61 6e  |You need only an|
000014d0  73 77 65 72 20 59 65 73  20 6f 72 20 4e 6f 22 0d  |swer Yes or No".|
000014e0  12 34 36 20 f1 22 66 6f  72 20 74 68 65 20 70 65  |.46 ."for the pe|
000014f0  6f 70 6c 65 20 77 69 6c  6c 20 75 6e 64 65 72 73  |ople will unders|
00001500  74 61 6e 64 22 27 22 79  6f 75 72 20 72 65 61 73  |tand"'"your reas|
00001510  6f 6e 73 2e 22 0d 12 3e  24 20 f1 8a 30 2c 32 31  |ons."..>$ ..0,21|
00001520  29 3b 3a f2 59 45 53 4f  52 4e 4f 3a e7 20 59 25  |);:.YESORNO:. Y%|
00001530  3c 30 20 8c 20 8d 54 7e  52 0d 12 5b 06 20 e1 0d  |<0 . .T~R..[. ..|
00001540  13 88 0d 20 dd f2 41 54  54 41 43 4b 0d 13 92 0b  |... ..ATTACK....|
00001550  20 ea 58 2c 59 2c 49 0d  13 9c 24 20 5a 41 3d 30  | .X,Y,I...$ ZA=0|
00001560  3a 52 3d b3 28 31 29 3a  ee 20 53 20 e5 8d 74 66  |:R=.(1):. S ..tf|
00001570  53 2c 8d 74 70 53 2c 8d  74 7a 53 0d 13 a6 16 20  |S,.tpS,.tzS.... |
00001580  e7 20 52 3c 2e 35 20 8c  20 e1 20 8b 20 8d 64 44  |. R<.5 . . . .dD|
00001590  53 0d 13 b0 16 20 e7 20  52 3c 2e 32 20 8c 20 e1  |S.... . R<.2 . .|
000015a0  20 8b 20 8d 64 44 53 0d  13 ba 16 20 e7 20 52 3c  | . .dDS.... . R<|
000015b0  2e 36 20 8c 20 e1 20 8b  20 8d 64 44 53 0d 13 c4  |.6 . . . .dDS...|
000015c0  09 20 5a 41 3d 31 0d 13  ce 0f 20 e7 20 56 46 3d  |. ZA=1.... . VF=|
000015d0  33 20 8c 20 e1 0d 13 ec  1c 20 56 3d b3 28 33 29  |3 . ..... V=.(3)|
000015e0  3a e7 20 46 4c 28 56 29  3d 31 20 8c 20 8d 64 6c  |:. FL(V)=1 . .dl|
000015f0  53 0d 13 f6 1d 20 58 3d  33 32 3a 57 58 3d 56 58  |S.... X=32:WX=VX|
00001600  28 56 29 3a 57 59 3d 56  59 28 56 29 2d 31 0d 14  |(V):WY=VY(V)-1..|
00001610  00 23 20 e7 20 57 59 3c  31 37 20 8c 20 59 3d 31  |.# . WY<17 . Y=1|
00001620  33 3a 44 3d 2d 31 20 8b  20 59 3d 31 37 3a 44 3d  |3:D=-1 . Y=17:D=|
00001630  31 0d 14 0a 09 20 53 59  3d 59 0d 14 14 1d 20 f1  |1.... SY=Y.... .|
00001640  8a 58 2c 59 29 3b 22 20  22 3a e7 20 59 3d 57 59  |.X,Y);" ":. Y=WY|
00001650  20 8c 20 8d 54 68 54 0d  14 1e 26 20 59 3d 59 2b  | . .ThT...& Y=Y+|
00001660  44 3a f1 8a 58 2c 59 29  3b 22 54 22 3a f2 57 41  |D:..X,Y);"T":.WA|
00001670  49 54 28 2e 30 35 29 3a  e5 8d 54 54 54 0d 14 28  |IT(.05):..TTT..(|
00001680  2c 20 58 3d 58 2d 31 3a  f1 8a 58 2d 31 2c 59 29  |, X=X-1:..X-1,Y)|
00001690  3b 52 24 3b 22 54 22 3a  f2 57 41 49 54 28 31 2d  |;R$;"T":.WAIT(1-|
000016a0  28 58 2d 57 58 29 2f 35  29 0d 14 32 21 20 f1 8a  |(X-WX)/5)..2! ..|
000016b0  58 2c 59 29 3b 3a e7 20  58 3d 32 39 20 8c 20 f1  |X,Y);:. X=29 . .|
000016c0  22 78 22 20 8b 20 f1 22  20 22 0d 14 3c 12 20 e7  |"x" . ." "..<. .|
000016d0  20 58 3e 57 58 20 8c 20  8d 54 68 54 0d 14 50 0f  | X>WX . .ThT..P.|
000016e0  20 e3 20 49 3d 31 20 b8  20 39 39 0d 14 5a 1b 20  | . I=1 . 99..Z. |
000016f0  f1 8a 58 2c 59 2b 31 29  3b bd 28 b3 28 39 34 29  |..X,Y+1);.(.(94)|
00001700  2b 33 32 29 3a ed 0d 14  64 0e 20 f2 56 44 52 41  |+32):...d. .VDRA|
00001710  57 28 56 29 0d 14 b4 20  20 58 3d 58 2b 31 3a e7  |W(V)...  X=X+1:.|
00001720  20 58 3c 32 37 20 8c 20  f1 8a 58 2d 32 2c 59 29  | X<27 . ..X-2,Y)|
00001730  3b 22 20 22 0d 14 be 19  20 e7 20 58 3d 33 31 20  |;" ".... . X=31 |
00001740  8c 20 f1 8a 32 39 2c 59  29 3b 22 78 22 0d 14 c8  |. ..29,Y);"x"...|
00001750  1f 20 f1 8a 58 2d 31 2c  59 29 3b 52 24 3b 22 54  |. ..X-1,Y);R$;"T|
00001760  22 3a f2 57 41 49 54 28  2e 30 34 29 0d 14 d2 12  |":.WAIT(.04)....|
00001770  20 e7 20 58 3c 33 32 20  8c 20 8d 74 74 54 0d 14  | . X<32 . .ttT..|
00001780  dc 12 20 e7 20 59 3d 53  59 20 8c 20 8d 54 58 55  |.. . Y=SY . .TXU|
00001790  0d 14 e6 31 20 f1 8a 58  2c 59 29 3b 22 20 22 3a  |...1 ..X,Y);" ":|
000017a0  59 3d 59 2d 44 3a f1 8a  58 2c 59 29 3b 22 54 22  |Y=Y-D:..X,Y);"T"|
000017b0  3a f2 57 41 49 54 28 2e  30 35 29 3a e5 8d 64 5c  |:.WAIT(.05):..d\|
000017c0  54 0d 15 18 19 20 ee 20  53 20 e5 20 8d 54 62 55  |T.... . S . .TbU|
000017d0  2c 8d 54 6c 55 2c 8d 54  76 55 0d 15 22 18 20 49  |,.TlU,.TvU..". I|
000017e0  3d 32 30 30 2b b3 28 37  30 29 2d 43 3a e5 8d 44  |=200+.(70)-C:..D|
000017f0  40 55 0d 15 2c 18 20 49  3d 33 30 2b b3 28 32 30  |@U..,. I=30+.(20|
00001800  30 29 2d 43 3a e5 8d 44  40 55 0d 15 36 0f 20 49  |0)-C:..D@U..6. I|
00001810  3d b3 28 34 30 30 29 2d  43 0d 15 40 17 20 49 3d  |=.(400)-C..@. I=|
00001820  a8 28 49 29 3a e7 20 49  3c 30 20 8c 20 49 3d 30  |.(I):. I<0 . I=0|
00001830  0d 15 4a 19 20 54 44 3d  a8 28 43 2a 49 2f 34 30  |..J. TD=.(C*I/40|
00001840  30 29 3a 43 3d 43 2d 54  44 0d 15 54 2d 20 54 46  |0):C=C-TD..T- TF|
00001850  3d a8 28 49 2a 46 2f 37  32 39 2b b3 28 32 30 30  |=.(I*F/729+.(200|
00001860  30 2d 43 29 2f 31 30 29  3a e7 20 54 46 3c 30 20  |0-C)/10):. TF<0 |
00001870  8c 20 54 46 3d 30 0d 15  5e 1f 20 e7 20 54 46 3e  |. TF=0..^. . TF>|
00001880  32 30 30 30 20 8c 20 54  46 3d 31 39 30 30 2b b3  |2000 . TF=1900+.|
00001890  28 32 30 30 29 0d 15 68  0b 20 46 3d 46 2d 54 46  |(200)..h. F=F-TF|
000018a0  0d 15 7b 06 20 e1 0d 15  7c 0c 20 dd f2 46 4c 4f  |..{. ...|. ..FLO|
000018b0  4f 44 0d 15 86 09 20 ea  58 2c 59 0d 15 90 1e 20  |OD.... .X,Y.... |
000018c0  5a 46 3d 30 3a ee 20 53  20 e5 20 8d 74 5a 55 2c  |ZF=0:. S . .tZU,|
000018d0  8d 74 64 55 2c 8d 74 6e  55 0d 15 9a 1a 20 46 53  |.tdU,.tnU.... FS|
000018e0  3d b3 28 33 33 30 29 2f  28 41 2b 31 29 3a e5 8d  |=.(330)/(A+1):..|
000018f0  74 78 55 0d 15 a4 1f 20  46 53 3d 28 b3 28 31 30  |txU.... FS=(.(10|
00001900  30 29 2b 36 30 29 2f 28  41 2b 31 29 3a e5 8d 74  |0)+60)/(A+1):..t|
00001910  78 55 0d 15 ae 06 20 e1  0d 15 b8 0f 20 e7 20 46  |xU.... ..... . F|
00001920  53 3c 31 20 8c 20 e1 0d  15 c2 32 20 58 3d 36 3a  |S<1 . ....2 X=6:|
00001930  5a 46 3d 31 3a 59 3d b3  28 38 29 2b 31 30 3a e7  |ZF=1:Y=.(8)+10:.|
00001940  20 46 53 3c 32 20 8c 20  46 53 3d b3 28 32 29 20  | FS<2 . FS=.(2) |
00001950  8b 20 46 53 3d b3 28 34  29 0d 15 e0 1d 20 f1 8a  |. FS=.(4).... ..|
00001960  31 2c 59 29 3b 57 24 3b  57 24 3b 57 24 3b 57 24  |1,Y);W$;W$;W$;W$|
00001970  3b 57 24 3b 57 24 0d 15  ea 13 20 e3 20 4b 3d 31  |;W$;W$.... . K=1|
00001980  20 b8 20 46 53 2a 31 30  30 0d 15 f4 20 20 ee 20  | . FS*100...  . |
00001990  b3 28 34 29 20 e5 8d 64  7e 55 2c 8d 54 48 56 2c  |.(4) ..d~U,.THV,|
000019a0  8d 54 52 56 2c 8d 54 5c  56 0d 15 fe 20 20 e7 20  |.TRV,.T\V...  . |
000019b0  58 3d 32 35 20 8c 20 8d  64 74 55 20 8b 20 58 3d  |X=25 . .dtU . X=|
000019c0  58 2b 31 3a e5 8d 44 44  56 0d 16 08 1f 20 e7 20  |X+1:..DDV.... . |
000019d0  58 3d 36 20 8c 20 8d 64  74 55 20 8b 20 58 3d 58  |X=6 . .dtU . X=X|
000019e0  2d 31 3a e5 8d 44 44 56  0d 16 12 20 20 e7 20 59  |-1:..DDV...  . Y|
000019f0  3d 32 32 20 8c 20 8d 64  74 55 20 8b 20 59 3d 59  |=22 . .dtU . Y=Y|
00001a00  2b 31 3a e5 8d 44 44 56  0d 16 1c 1f 20 e7 20 59  |+1:..DDV.... . Y|
00001a10  3d 33 20 8c 20 8d 64 74  55 20 8b 20 59 3d 59 2d  |=3 . .dtU . Y=Y-|
00001a20  31 3a e5 8d 44 44 56 0d  16 44 08 20 56 3d 31 0d  |1:..DDV..D. V=1.|
00001a30  16 58 1a 20 57 31 3d 56  58 28 56 29 2d 58 3a 57  |.X. W1=VX(V)-X:W|
00001a40  32 3d 59 2d 56 59 28 56  29 0d 16 62 1b 20 e7 20  |2=Y-VY(V)..b. . |
00001a50  57 32 3c 3e 31 20 80 20  57 32 3c 3e 30 20 8c 20  |W2<>1 . W2<>0 . |
00001a60  8d 74 40 56 0d 16 6c 1c  20 e7 20 57 31 3d 30 20  |.t@V..l. . W1=0 |
00001a70  84 20 57 31 3d 31 20 8c  20 46 4c 28 56 29 3d 31  |. W1=1 . FL(V)=1|
00001a80  0d 16 76 13 20 e7 20 57  31 3d 2d 31 20 8c 20 8d  |..v. . W1=-1 . .|
00001a90  74 54 56 0d 16 80 17 20  56 3d 56 2b 31 3a e7 20  |tTV.... V=V+1:. |
00001aa0  56 3c 34 20 8c 20 8d 44  58 56 0d 16 8a 0e 20 f1  |V<4 . .DXV.... .|
00001ab0  8a 58 2c 59 29 3b 57 24  0d 16 94 07 20 ed 4b 0d  |.X,Y);W$.... .K.|
00001ac0  16 9e 19 20 56 46 3d 46  4c 28 31 29 2b 46 4c 28  |... VF=FL(1)+FL(|
00001ad0  32 29 2b 46 4c 28 33 29  0d 16 a8 0d 20 4f 50 3d  |2)+FL(3).... OP=|
00001ae0  41 2b 42 2b 43 0d 16 b2  18 20 41 3d a8 28 28 41  |A+B+C.... A=.((A|
00001af0  2f 31 30 29 2a 28 31 30  2d 46 53 29 29 0d 16 bc  |/10)*(10-FS))...|
00001b00  18 20 42 3d a8 28 28 42  2f 31 30 29 2a 28 31 30  |. B=.((B/10)*(10|
00001b10  2d 46 53 29 29 0d 16 c6  16 20 43 3d a8 28 28 43  |-FS)).... C=.((C|
00001b20  2f 36 29 2a 28 36 2d 56  46 29 29 0d 16 d0 19 20  |/6)*(6-VF)).... |
00001b30  46 46 3d a8 28 46 2a 56  46 2f 36 29 3a 46 3d 46  |FF=.(F*VF/6):F=F|
00001b40  2d 46 46 20 0d 16 da 10  20 46 44 3d 4f 50 2d 41  |-FF .... FD=OP-A|
00001b50  2d 42 2d 43 0d 16 e4 1b  20 e7 20 53 3d 32 20 8c  |-B-C.... . S=2 .|
00001b60  20 47 3d 47 2a 28 32 30  2d 46 53 29 2f 32 30 0d  | G=G*(20-FS)/20.|
00001b70  16 ee 1b 20 e7 20 53 3d  33 20 8c 20 47 3d 47 2a  |... . S=3 . G=G*|
00001b80  28 31 30 2d 46 53 29 2f  31 30 0d 17 0b 06 20 e1  |(10-FS)/10.... .|
00001b90  0d 17 70 10 20 dd f2 43  41 4c 43 55 4c 41 54 45  |..p. ..CALCULATE|
00001ba0  0d 17 7a 16 20 e7 20 42  3d 30 20 8c 20 47 3d 30  |..z. . B=0 . G=0|
00001bb0  3a e5 8d 64 54 57 0d 17  84 19 20 ee 20 53 20 e5  |:..dTW.... . S .|
00001bc0  20 8d 64 54 57 2c 8d 74  4e 57 2c 8d 74 62 57 0d  | .dTW,.tNW,.tbW.|
00001bd0  17 8e 16 20 e7 20 47 3e  31 30 30 30 20 8c 20 47  |... . G>1000 . G|
00001be0  3d 31 30 30 30 0d 17 98  17 20 47 3d 47 2a 28 42  |=1000.... G=G*(B|
00001bf0  2d 31 30 29 2f 42 3a e5  8d 64 54 57 0d 17 a2 11  |-10)/B:..dTW....|
00001c00  20 e7 20 47 3c 30 20 8c  20 8d 64 54 57 0d 17 ac  | . G<0 . .dTW...|
00001c10  20 20 47 3d 31 38 2a 28  31 31 2b b3 28 33 29 29  |  G=18*(11+.(3))|
00001c20  2a 28 30 2e 30 35 2d 31  2f 42 29 2a 47 0d 17 b6  |*(0.05-1/B)*G...|
00001c30  11 20 e7 20 47 3c 30 20  8c 20 8d 64 54 57 0d 17  |. . G<0 . .dTW..|
00001c40  c0 0d 20 46 3d 46 2b a8  28 47 29 0d 17 d4 1e 20  |.. F=F+.(G).... |
00001c50  53 54 3d 30 3a 50 3d 41  2b 42 2b 43 3a e7 20 50  |ST=0:P=A+B+C:. P|
00001c60  3d 30 20 8c 20 8d 74 5b  58 0d 17 de 1c 20 54 3d  |=0 . .t[X.... T=|
00001c70  46 2f 50 3a e7 20 54 3e  35 20 8c 20 54 3d 34 3a  |F/P:. T>5 . T=4:|
00001c80  e5 8d 54 78 58 0d 17 e8  16 20 e7 20 54 3c 32 20  |..TxX.... . T<2 |
00001c90  8c 20 50 3d 30 3a e5 8d  74 5b 58 0d 17 f2 18 20  |. P=0:..t[X.... |
00001ca0  e7 20 54 3e 34 20 8c 20  54 3d 33 2e 35 3a e5 8d  |. T>4 . T=3.5:..|
00001cb0  54 78 58 0d 17 fc 18 20  53 54 3d a8 28 50 2a 28  |TxX.... ST=.(P*(|
00001cc0  37 2d 54 29 2f 37 29 3a  54 3d 33 0d 18 38 1d 20  |7-T)/7):T=3..8. |
00001cd0  50 3d 50 2d 53 54 3a 46  3d a8 28 46 2d 50 2a 54  |P=P-ST:F=.(F-P*T|
00001ce0  2d 53 54 2a 54 2f 32 29  0d 18 42 10 20 e7 20 46  |-ST*T/2)..B. . F|
00001cf0  3c 30 20 8c 20 46 3d 30  0d 18 9b 06 20 e1 0d 1b  |<0 . F=0.... ...|
00001d00  58 0f 20 dd f2 56 41 52  49 41 42 4c 45 0d 1b 62  |X. ..VARIABLE..b|
00001d10  1e 20 de 20 53 24 28 33  29 2c 56 58 28 33 29 2c  |. . S$(3),VX(3),|
00001d20  56 59 28 33 29 2c 46 4c  28 33 29 0d 1b 6c 33 20  |VY(3),FL(3)..l3 |
00001d30  53 24 28 31 29 3d 22 57  69 6e 74 65 72 22 3a 53  |S$(1)="Winter":S|
00001d40  24 28 32 29 3d 22 47 72  6f 77 69 6e 67 22 3a 53  |$(2)="Growing":S|
00001d50  24 28 33 29 3d 22 48 61  72 76 65 73 74 22 0d 1b  |$(3)="Harvest"..|
00001d60  80 2c 20 57 24 3d bd 28  32 35 35 29 3a 59 24 3d  |., W$=.(255):Y$=|
00001d70  bd 28 26 39 33 29 3a 52  24 3d bd 28 26 39 31 29  |.(&93):R$=.(&91)|
00001d80  3a 56 24 3d bd 28 26 39  32 29 0d 1b 8a 15 20 56  |:V$=.(&92).... V|
00001d90  58 28 31 29 3d 31 33 3a  56 59 28 31 29 3d 38 0d  |X(1)=13:VY(1)=8.|
00001da0  1b 94 16 20 56 58 28 32  29 3d 32 31 3a 56 59 28  |... VX(2)=21:VY(|
00001db0  32 29 3d 31 32 0d 1b 9e  16 20 56 58 28 33 29 3d  |2)=12.... VX(3)=|
00001dc0  32 32 3a 56 59 28 33 29  3d 31 38 0d 1b bb 06 20  |22:VY(3)=18.... |
00001dd0  e1 0d 1b bc 0c 20 dd f2  49 4d 50 4f 53 0d 1b c6  |..... ..IMPOS...|
00001de0  30 20 f1 8a 34 2c 32 30  29 3b bd 28 26 38 38 29  |0 ..4,20);.(&88)|
00001df0  3b bd 28 26 38 32 29 3b  22 49 20 4d 20 50 20 4f  |;.(&82);"I M P O|
00001e00  20 53 20 53 20 49 20 42  20 4c 20 45 22 0d 1b d0  | S S I B L E"...|
00001e10  0d 20 f2 57 41 49 54 28  32 29 0d 1b da 0b 20 f2  |. .WAIT(2).... .|
00001e20  53 50 41 43 45 0d 1b e4  1f 20 f1 8a 35 2c 32 30  |SPACE.... ..5,20|
00001e30  29 3b 89 28 32 30 29 3b  8a 30 2c 32 32 29 3b 89  |);.(20);.0,22);.|
00001e40  28 34 30 29 0d 1c 1f 06  20 e1 0d 1c 20 0d 20 dd  |(40).... ... . .|
00001e50  f2 59 45 4c 4c 4f 57 0d  1c 2a 07 20 ea 49 0d 1c  |.YELLOW..*. .I..|
00001e60  34 11 20 db 3a e3 20 49  3d 30 20 b8 20 32 34 0d  |4. .:. I=0 . 24.|
00001e70  1c 3e 15 20 f1 8a 30 2c  49 29 3b bd 28 26 38 33  |.>. ..0,I);.(&83|
00001e80  29 3b 3a ed 0d 1c 48 0c  20 f1 8a 30 2c 30 29 3b  |);:...H. ..0,0);|
00001e90  0d 1c 52 13 20 ef 20 32  38 2c 33 2c 32 34 2c 33  |..R. . 28,3,24,3|
00001ea0  39 2c 30 0d 1c 83 06 20  e1 0d 1f 40 12 20 dd f2  |9,0.... ...@. ..|
00001eb0  44 42 4c 28 58 24 2c 58  2c 59 29 0d 1f 4a 18 20  |DBL(X$,X,Y)..J. |
00001ec0  f1 8a 58 2d 31 2c 59 29  3b bd 28 31 34 31 29 3b  |..X-1,Y);.(141);|
00001ed0  58 24 20 0d 1f 54 19 20  f1 8a 58 2d 31 2c 59 2b  |X$ ..T. ..X-1,Y+|
00001ee0  31 29 3b bd 28 31 34 31  29 3b 58 24 0d 1f a3 06  |1);.(141);X$....|
00001ef0  20 e1 0d 1f a4 0e 20 dd  f2 57 41 49 54 28 58 29  | ..... ..WAIT(X)|
00001f00  0d 1f ae 08 20 ea 20 5a  0d 1f b8 08 20 5a 3d 91  |.... . Z.... Z=.|
00001f10  0d 1f c2 12 20 f5 20 fd  20 91 2d 5a 3e 58 2a 31  |.... . . .-Z>X*1|
00001f20  30 30 0d 20 07 06 20 e1  0d 20 08 0c 20 dd f2 53  |00. .. .. .. ..S|
00001f30  50 41 43 45 0d 20 1c 34  20 f1 8a 30 2c 32 32 29  |PACE. .4 ..0,22)|
00001f40  3b 22 50 72 65 73 73 20  74 68 65 20 53 50 41 43  |;"Press the SPAC|
00001f50  45 20 42 41 52 20 74 6f  20 63 6f 6e 74 69 6e 75  |E BAR to continu|
00001f60  65 22 3b 3a f2 4b 43 4c  0d 20 30 0e 20 f5 20 fd  |e";:.KCL. 0. . .|
00001f70  20 be 3d 22 20 22 0d 20  6b 06 20 e1 0d 20 6c 10  | .=" ". k. .. l.|
00001f80  20 dd f2 54 49 54 4c 45  50 41 47 45 0d 20 76 26  | ..TITLEPAGE. v&|
00001f90  20 f2 4d 41 50 3a f2 4f  46 46 3a f2 57 41 49 54  | .MAP:.OFF:.WAIT|
00001fa0  28 32 29 3a f1 8a 30 2c  31 31 29 3b 89 28 32 30  |(2):..0,11);.(20|
00001fb0  30 29 0d 20 7b 3a f2 44  42 4c 28 59 24 2b 22 59  |0). {:.DBL(Y$+"Y|
00001fc0  45 4c 4c 4f 57 20 52 49  56 45 52 22 2c 31 31 2c  |ELLOW RIVER",11,|
00001fd0  31 31 29 3a f2 44 42 4c  28 59 24 2b 22 4b 49 4e  |11):.DBL(Y$+"KIN|
00001fe0  47 44 4f 4d 22 2c 31 33  2c 31 34 29 0d 20 80 0e  |GDOM",13,14). ..|
00001ff0  20 49 25 3d a6 28 35 30  30 29 0d 20 cf 06 20 e1  | I%=.(500). .. .|
00002000  0d 22 60 0a 20 dd f2 4b  43 4c 0d 22 6a 15 20 e7  |."`. ..KCL."j. .|
00002010  20 bf 28 30 29 3e 22 22  20 8c 20 8d 44 6a 62 0d  | .(0)>"" . .Djb.|
00002020  22 c3 06 20 e1 0d 22 c4  0b 20 dd f2 4f 46 46 20  |".. ..".. ..OFF |
00002030  0d 22 ce 16 20 ef 32 33  3b 38 32 30 32 3b 30 3b  |.".. .23;8202;0;|
00002040  30 3b 30 3b 3a e1 0d 22  f6 09 20 dd f2 4f 4e 0d  |0;0;:..".. ..ON.|
00002050  23 00 17 20 ef 32 33 3b  32 39 31 39 34 3b 30 3b  |#.. .23;29194;0;|
00002060  30 3b 30 3b 3a e1 0d 23  28 31 20 dd f2 47 50 49  |0;0;:..#(1 ..GPI|
00002070  28 46 32 2c 4d 4c 29 3a  f4 20 47 65 6e 65 72 61  |(F2,ML):. Genera|
00002080  6c 20 50 75 72 70 6f 73  65 20 49 6e 70 75 74 20  |l Purpose Input |
00002090  52 6f 75 74 69 6e 65 0d  23 32 0b 20 ea 42 2c 42  |Routine.#2. .B,B|
000020a0  24 20 0d 23 3c 0a 20 41  24 3d 22 22 0d 23 46 2b  |$ .#<. A$="".#F+|
000020b0  20 f1 c4 4d 4c 2c 22 20  22 29 3b c4 4d 4c 2b 31  | ..ML," ");.ML+1|
000020c0  2c bd 28 38 29 29 3b bd  28 26 38 33 29 3b 3a f2  |,.(8));.(&83);:.|
000020d0  4f 4e 3a f2 4b 43 4c 0d  23 50 1f 20 42 24 3d be  |ON:.KCL.#P. B$=.|
000020e0  3a 42 3d 97 28 42 24 29  3a e7 20 42 3d 31 33 20  |:B=.(B$):. B=13 |
000020f0  8c 20 8d 64 66 63 0d 23  5a 1b 20 e7 20 42 3d 31  |. .dfc.#Z. . B=1|
00002100  32 37 20 80 20 41 24 3d  22 22 20 8c 20 8d 44 50  |27 . A$="" . .DP|
00002110  63 0d 23 64 29 20 e7 20  42 3d 31 32 37 20 8c 20  |c.#d) . B=127 . |
00002120  41 24 3d c0 41 24 2c a9  28 41 24 29 2d 31 29 3a  |A$=.A$,.(A$)-1):|
00002130  f1 42 24 3b 3a e5 8d 44  50 63 0d 23 6e 25 20 e7  |.B$;:..DPc.#n% .|
00002140  20 a9 28 41 24 29 3d 4d  4c 20 84 20 42 3c 33 32  | .(A$)=ML . B<32|
00002150  20 84 20 42 3e 31 32 36  20 8c 20 8d 64 52 63 0d  | . B>126 . .dRc.|
00002160  23 78 2b 20 e7 20 46 32  3d 30 20 84 20 42 3d 33  |#x+ . F2=0 . B=3|
00002170  32 20 84 20 28 42 3e 3d  34 38 20 80 20 42 3c 3d  |2 . (B>=48 . B<=|
00002180  35 37 29 20 8c 20 8d 64  5c 63 0d 23 d2 0d 20 ef  |57) . .d\c.#.. .|
00002190  37 3a e5 8d 44 50 63 0d  23 dc 19 20 f1 42 24 3b  |7:..DPc.#.. .B$;|
000021a0  3a 41 24 3d 41 24 2b 42  24 3a e5 8d 44 50 63 20  |:A$=A$+B$:..DPc |
000021b0  0d 23 e6 09 20 f2 4f 46  46 0d 23 ef 07 20 e1 20  |.#.. .OFF.#.. . |
000021c0  0d 23 f0 0e 20 dd f2 59  45 53 4f 52 4e 4f 0d 23  |.#.. ..YESORNO.#|
000021d0  fa 08 20 ea 42 24 0d 24  04 0e 20 f2 47 50 49 28  |.. .B$.$.. .GPI(|
000021e0  30 2c 33 29 0d 24 0e 0f  20 42 24 3d c0 41 24 2c  |0,3).$.. B$=.A$,|
000021f0  31 29 20 0d 24 18 0a 20  59 25 3d 2d 31 0d 24 22  |1) .$.. Y%=-1.$"|
00002200  1e 20 e7 20 42 24 3d 22  59 22 20 84 20 42 24 3d  |. . B$="Y" . B$=|
00002210  22 79 22 20 8c 20 59 25  3d 31 20 0d 24 2c 1d 20  |"y" . Y%=1 .$,. |
00002220  e7 20 42 24 3d 22 4e 22  20 84 20 42 24 3d 22 6e  |. B$="N" . B$="n|
00002230  22 20 8c 20 59 25 3d 30  0d 24 53 06 20 e1 0d 24  |" . Y%=0.$S. ..$|
00002240  54 0d 20 dd a4 4e 55 4d  49 4e 50 0d 24 5e 0e 20  |T. ..NUMINP.$^. |
00002250  f2 47 50 49 28 31 2c 36  29 0d 24 68 0b 20 3d bb  |.GPI(1,6).$h. =.|
00002260  28 41 24 29 0d ff                                 |(A$)..|
00002266