0  REM  ************   LE ROYAUME   ************
1  REM  ** JEUX & STRATEGIE N023 - 1983       **
2  REM  **                                    **
3  REM  ** SAISIE PAR D. RIOUAL  - OCT.2025   **
4  REM  ****************************************
5  REM 
10  GOSUB 1000: HOME 
20 P = 500:A = 1.2:RZ = 2000:SC = 50
30  GOTO 390
40 AN = AN + 1: PRINT : PRINT "=====AN ";AN;"====="
50  INPUT "ALIMENTATION...:";N
60  IF N < R / 3 THEN  PRINT "- VOUS VOULEZ NOUS AFFAMER !":RB = RB + 1: IF RB > 10 THEN 460: GOTO 50
70  IF N = 0 THEN A = A - 0.3
80  IF N > RZ THEN A = A - 0.2: PRINT "C'EST PLUS QUE LES RESERVES !": GOTO 40
90 RZ = RZ - N: IF N < P THEN A = A - 0.1
100  INPUT "DEFRICHAGE ? INDIQUER LE NOMBRE D'HECT...";DF
110  IF DF > P / 10 THEN  PRINT "- NOUS NE SOMMES PAS ASSEZ NOMBREUX !":RB = RB + 1: IF RB > 10 THEN 460: GOTO 100
120  IF RZ - (DF * 10) > 0 THEN RZ = RZ - (DF * 10):SC = SC + DF: GOTO 140
130  PRINT "NOUS DEVONS CULTIVER AVANT TOUT !":RB = RB + 1: GOTO 100
140  INPUT "BLE (Q)>> SEMIS  :";S
150  IF S > P / 3 THEN  PRINT "MANQUE DE BRAS !": GOTO 140
160  IF S > RZ THEN  PRINT "LES RESERVES SONT INSUFFISANTES !": GOTO 140
170  IF RZ > 0 THEN RZ = RZ - S: GOTO 190
180  PRINT "IL N'Y A PLUS DE BLE !"
190 P = P * A:D = N - P
200  IF D > 0 THEN A = A + 0.08 + (A / 5): GOTO 260
210 D =  ABS (D)
220  IF RZ =  > D THEN 250
230 P = P - ((D - RZ) * .5):RZ = 0
240  PRINT "- ON A FAIM": GOTO 270
250 RZ = RZ - D: GOTO 270
260 RZ = RZ + D
270  REM  === RECOLTES ===
280  IF SC <  = S AND SC <  = P / 6 THEN C = SC:T = 1: GOTO 310
290  IF S <  = SC AND S <  = P / 6 THEN C = S:T = 2: GOTO 310
300  IF P / 4 <  = SC AND P / 4 <  = S THEN C = P:T = 3: GOTO 310
310  IF T = 1 THEN R = C * 4 + (P / 20):T = 0: GOTO 340
320  IF T = 2 THEN R = C * 4 - (P * 0.1):T = 0: GOTO 340
330  IF T = 3 THEN R = C * 2.5
340  IF R <  = 0 THEN R = 0
350  IF T = 1 THEN  PRINT "- LA SURFACE CULTIVEE EST ACTUELLEMENT DETERMINANTE...": GOTO 390
360  IF T = 2 THEN  PRINT "- C'EST LE SEMIS QUI LIMITE LA PRODUCTION...": GOTO 390
370  IF T = 3 THEN  PRINT "- L'EFFORT DE LA POPULATION EST DETERMINANT..."
380  PRINT "***************"
390  PRINT "-----BILAN-----"
400  PRINT "POPULATION..->"; INT (P)
410  PRINT "TAUX NATAL. ->";A
420  PRINT "RESERVE.....->"; INT (RZ)
430  PRINT "RECOLTE.....->"; INT (R)
440 RZ = RZ + R
450  PRINT "SURF. CULT..->";SC
460  IF RB =  > 10 THEN  PRINT : PRINT : PRINT "- MORT AU TYRAN...!!!": END 
470  GOTO 40
999  REM  === INTRO ===
1000  HOME 
1010  PRINT  TAB( 15);"R O Y A U M E"
1020  PRINT  TAB( 15);"*************"
1030  PRINT : PRINT : PRINT "VOUS ETES LE MINISTRE DES FINANCES DU"
1040  PRINT "ROYAUME. VOUS ALLEZ DEVOIR PRENDRE DES": PRINT "DECISIONS QUI ENGAGENT LA SURVIE DE LA": PRINT "POPULATION."
1050  PRINT : PRINT "VOICI QUELQUES INFORMATIONS UTILES :"
1060  PRINT "- IL Y A 500 PERSONNES"
1070  PRINT "- 50 HECTARES CULTIVABLES"
1080  PRINT "- LES RESERVES S'ELEVENT A 700 QUINTAUX": PRINT "  DE BLE"
1090  PRINT "- UN QUINTAL PERMET D'ENSEMENCER 50 ARES";
1100  PRINT "- UN QUINTAL NOURRIT UNE PERSONNE PAR AN";
1110  PRINT "- UN ARE RAPPORTE 6 QUINTAUX"
1120  PRINT "- IL FAUT VENDRE 20 QUINTAUX POUR": PRINT "  ACHETER UN ARE"
1130  PRINT "- IL FAUT 6 PERSONNES POUR CULTIVER UN": PRINT "  ARE"
1140  PRINT "- LA POPULATION CROIT NATURELLEMENT"
1150  GET X$
1160  RETURN