Р. С. -1. 1. Life in false

P.C.-v.1.1. Life in false
--------------------------

Руны Судьбы
Часть 1. Версия 1.1.
P.C.-1.1 (Program Code)

<Life in false>

Procedure <Life>;
Uses crt, REDLN;
IF REDLN > 0 THEN READLN
IF REDLN = 0 THEN READ
IF REDLN < 0 THEN FINISH
Uses all IF EXEPT <Life> THEN EXIT ELSE READLN;
Var all;
Procedure <Life>
Loading...
In!...
Loading <Life> is False!
Loading stopped!
Procedure <Life> not finished!
Procedure <Life in false> detected!
Procedure <Life in false> denied!
Procedure <Control> loading...
Procedure <Imprint> loading...
Println <<Я заберу Вашу <Life>>> iF <> False ELSE <Life iS True>
Procedure <Imprint> finished
Procedure <Control> finished
Continue;
Procedure <Life>
Load <Life>
Writeln <Life in False denied THEN load <Life> UNTIL <Life IS True> ELSE EXIT>
Reloading...
READKEY;
IF CHAR > 0 THEN READ
IF CHAR = INT THEN SAVE THEN READLN ELSE SAVE THEN EXIT THEN RELOAD
Continue;
Reloading continued...
Loading <Life> completed!
Writeln <Procedure <Life> SUCCESS>
Writeln <IF <Life> finished> THEN READLN
IF TRUE THEN SAVE THEN EXIT ELSE READLN
Continue;
Writeln <IF <Life> NOT finished THEN <<Life> finished> NOT TRUE THEN <Life IS True>>


02/02/2024
15/02/2024