File: RANDIS.FO of Tape: Sources/Other/new-14

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C RANDIS.FO JAN-79

01.03 O I TTY:
01.05 S Z=FOUT(27);T "H";S Z=FOUT(27);T "J"
01.10 S X=79*FRAN();S Y=23*FRAN()
01.20 D 2;S Z=FOUT(32+95*FRAN())
01.30 G 1.1

02.10 S Z=FOUT(27);S Z=FOUT(89)
02.20 S Z=FOUT(32+Y)
02.30 S Z=FOUT(32+X)

---