XONIX под СМ-4

[hobot]

Ага! Откопался RANDOM.PAS

(*$E+  *)

TYPE
  UNSIGNED=0..65535;

  FUNCTION RANDOM(VAR SEED:UNSIGNED):REAL;
  BEGIN { Random }
    SEED := (SEED * 13077 + 6925) MOD 32768;
    RANDOM := SEED / 32768.0
  END { Random };

BEGIN
END.

<...>
PROGRAM RAND;
VAR
  SEED:0..65535;
  I:INTEGER;

  FUNCTION RANDOM:REAL;
   BEGIN /* RANDOM */
     SEED:=(SEED*13077+6925)MOD 32768;
     RANDOM:=SEED/32768.0
   END /* RANDOM */;

BEGIN
FOR I:=1 TO 20 DO WRITELN(RANDOM)

END.

Прилеплю сюда до кучи (что-бы просто не искать потом)
и PITON.PAS - хотя совсем недавно где-то я его видел? Кажется
на дискете АДОС для УК-НЦ?

	PROGRAM PITON; (*$A-*) (*$T-*)
VAR	X,Y:ARRAY[1..100] OF INTEGER;
	LV,LF,ER,GX,GY,ZX,ZY,D,I,S,KR,SCOR,HI,K,L:INTEGER;
	PROM,LIT:CHAR;
	RPR: REAL;
------------------------ это только заголовок 
в прилепленном архиве исходник целиком.