File: DIS.FC of Tape: Various/ETH/fc2

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

---

C-OS/8 FOCAL, 1972

02.01 C RUBOUT LAST ENTRY
02.10 S Z=FDIS(0,FDIS()-1);S Z=FDIS(FDIS(),0)

03.01 C ENTRY FOR GRAPH/PLOT
03.10 A Z;S Z=4*(Z-256);D 8;G 3.1

04.01 C CHANGE FDIS(0)
04.10 S A=FDIS();T "FDIS(0) =",%4,A,", NOW";A A,!;S Z=FDIS(0,A)

05.01 C ERASE CERTAIN RANGE
05.10 T "LOESCHEN:   VON";A I1;T "BIS";A I2
05.20 F I=I1,I2;S Z=FDIS(I,0)

06.01 C ORIGIN + SIZE ENTRY
06.10 S Z=1;D 8;A ! "X0"Z;D 8;A " Y0"Z;D 8
06.20 S Z=4;D 8;A !"SIZE"Z;D 8

07.01 C TEXT ENTRY: HORIZ:7.5; VERT:7.6
07.10 S Z=FIN();I (Z-137)7.3;I (Z-142)7.2;I (159-Z)7.2;R
07.20 S Z=Z-256;D 8;G 7.1
07.30 R
07.40 S Z=3;D 8;A !"XC"Z;D 8;A " YC"Z;D 8
07.50 D 7.4;S Z=8;D 7.7
07.60 D 7.4;S Z=9;D 7.7
07.70 D 8;T !;D 7

08.01 C MAIN ENTRY SR
08.10 S Z=FDIS(FDIS(),Z);S Z=FDIS(0,FDIS()+1)

09.01 C ENTER DATA Z IN LOC X
09.10 A "(",X,Z,")",!; S Z=FDIS(X,Z);G 9.1

10.01 C NORMAL ENTRY
10.10 A Z;D 8;G 10.1

11.01 C START NEW FILE
11.10 S Z=FDIS(9,FDIS(9)+1);T !"NAME"%2,Z
11.20 S Z=FDIS(Z,FDIS());T " START"%4,Z
11.30 S Z=0;D 8

12.01 C TEXT DECODER
12.10 A X;S X=256-X;T %3, X,"=";S Z=FOUT(X);T !;G 12.1

13.01 C FDIS-MAP
13.10 A "VON",I0,"BIS",IE
13.20 S J=0;F I=I0/10,IE/10-1;S J0=10*I;D 13.4
13.30 T !;Q
13.40 T !,%4,J0," /";F J=J0,J0+9;T %4,FDIS(J)

14.01 C FILE CONTENTS
14.10 A "FILE #",A;S I=FABS(FDIS(A))+1;S I0=I;S IE=FABS(FDIS(A+1))
14.20 T !,%4,I," /"
14.30 T FDIS(I);S I=I+1;I (I-IE)14.4,14.5,14.4
14.40 I (I-I0-10)14.3;S I0=I;G 14.2
14.50 T !;Q

15.01 C FILE SWITCH
15.10 A "#",A;I (A-0Q)15.3,15.2,15.3
15.20 T !;Q
15.30 S Z=FDIS(A,-FDIS(A));G 15.1

19.01 C FILE SWITCH
19.10 S Z=FDIS(1,-FDIS(1))
19.20 S Z=FDIS(2,-FDIS(2))
19.30 S Z=FDIS(3,-FDIS(3))

---