File ANAPC.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

File is corrupt so listing may have errors.  Lines starting with * may not be in program.

C-ANAPC.FCNOV-77
*  1.01 C   ANAPC.FC, LV-DATEI ERSTELLEN + KORR., ENDE 4.33, ANAPCA 25.25
   1.02 C   -SB- , -CD- , KORNTAL
   1.03 D 20
   1.10 E
   1.20 T !!"ANAP : ANGEBOTSAUSWERTUNG"!
   1.25 F DU=1,6;T "="
   1.26 T !"ANAPC V1A: LV-DATEI ERSTELLEN"!
   1.28 S DY=
   1.29 A !!"EINGEBEN (1), AENDERN (0), AUSDRUCKEN (-1)
"DU;I (DU)25.01,21.01
   1.30 A !!"TITEL-NR."N,!,"TITEL-BEZ. (60 Z):"!
   1.32 S DY=DY+1;S X=FIN();I (X-254.5)1.34
   1.33 T "\";S DY=DY-2;G 1.32
   1.34 I (X-141.5)1.36;S X(DY)=X;G 1.32
   1.36 S DY=DY-1
   1.40 A "TEXT-BUCH-NR. (BELIEBIG)"NB
   1.45 D 3.9;I (-KO)1.28
   1.50 D 3.8
   1.60 D 31.3
   1.70 O R O
   1.75 D 3.4
   1.80 I (DY-60.5)1.85;S DY=60
   1.85 F DU=1,DY;S DI=FOUT(X(DU))
   2.01 C   DIE EINZELNEN POS. ABFRAGEN
   2.05 S R=;S TA=17;S VP=
   2.07 T !;D 31.12;D 2.15;D 2.2;A :8,NT;S DZ=NT;G 2.28;C NUR BEI 1. POS.
   2.10 D 31.12
   2.15 S R=R+1;D 6
   2.20 T !,%3,R
   2.23 A :8,NT;I (NT+.1)2.26;I (NT-.1)4.01;I (999.5-NT)2.95;I (KE)2.25;S VP=DZ
   2.25 I (NT-VP-.1)2.95;I (KE)2.28;S DX=DZ;D 10;G 2.28
   2.26 S TA=17;S R=R-2;S KE=-1;G 2.15
   2.28 S KE=1;A :TA,ST;I (-ST)2.3;S R=R-1;S KE=-1;S TA=17;G 2.15
   2.30 T :(TA+13),":";S DY=
   2.32 S DY=DY+1;S X=FIN();I (254.5-X)2.9
   2.34 I (X-141.5)2.36;S X(DY)=X;G 2.32
   2.36 S DZ=NT;G 2.15
   2.90 T "\";S DY=DY-2;G 2.32
   2.95 D 3.1;S TA=30;G 2.2
   3.01 C   MEHRF. VERW. STATEMENTS
   3.10 T "  UNZULAESSIG",!
   3.20 S DZ=QL*41+QL;S DU=FX[DZ-31,PO];S DU=FX[DZ-30,ME]
   3.30 S DU=FX[2,QE]
   3.40 S DX=NB;D 14;S DX=N;T " ";D 14;T !
   3.50 S DX=QP+QH;D 15;T " ";S DU=;D 5
   3.60 S DY=FIN()
   3.70 T !"MAX. ANZAHL ERREICHT"
   3.80 T !!"ZEILE  POS      MENGE",:30,"KURZTEXT (40 Z)
   3.90 A !"KORR.
"KO
   4.01 C   SCHLUSS,AUS 2.23, 6.10, 22.40, 25.28
   4.05 I (KE)4.1;S DX=DZ;D 10
   4.10 O R O;T "  0",!;O C;D 31.1;D 31.12
   4.20 A !!"WEITER
"DU;I (-DU)1.28
   4.30 E
   4.33 R
   5.01 C   UP ZU 3.50, 22.22
   5.10 S DU=DU+1;D 3.6;I (DY-141)5.2,5.3
   5.20 S QK(DU)=DY;G 5.1
   5.30 D 3.6;S DZ=DU-1;O R O
   5.40 F DU=1,DZ;S DY=FOUT(QK(DU))
   5.50 T !
   6.01 C   UP ZU 2.15 - MAX. 299 POS
   6.10 I (R-295)6.4;I (R-299.5)6.2;D 3.7;G 4.01
   6.20 T !"NOCH",%1,300-R," POSITIONEN EINGEBEN !
   6.40 R
   8.01 C  UP ZU 21.32
   8.10 D 3.6;I (DY-245.5)8.2;T "\";S QZ=QZ-2;R
   8.20 I (DY-141)8.3,8.5
   8.30 I (QZ-40.5)8.4;I (49-QZ)8.7;R
   8.40 S QK(QZ)=DY;R
   8.50 F QZ=QZ,40;S QK(QZ)=
   8.60 S QZ=51;R
   8.70 T !
   9.01 C   UP ZU 23.25, 23.28, 23.67
   9.10 S DX=PO+QH;S ST=FX[DZ-30];O R O
   9.20 D 15;D 12;S QZ=
   9.30 S QZ=QZ+1;I (40.5-QZ)9.5;S QK=FX[DZ-30+QZ]
   9.40 I (QK-.5)9.5;S DY=FOUT(QK);G 9.3
   9.50 T !
  10.01 C   UP ZU 2.25, 4.05 : POS. ABSPEICHERN
  10.10 O R O
  10.20 D 15;D 12
  10.25 I (DY-41.5)10.3;S DY=41
  10.30 F DU=1,DY-1;S DI=FOUT(X(DU))
  10.80 T !;D 31.12;S TA=7;I (NT-9.5)10.9;S TA=6;I (NT-99.5)10.9;S TA=5
  10.90 R
  11.01 C   UP ZU 22.43, 23.09
  11.10 I (QV-QP)11.2;S QV=QP+QH;R
  11.20 S QH=
  12.01 C   UP ZU 9.20, 10.20, FORMAT FUER ST BERECHNEN
  12.10 I (ST-9999.999)12.2;I (ST-999999.99)12.5;T %8,ST," ";R
  12.20 I (FITR(ST)-ST+.0001)12.30;T %4,ST,"     ";R
  12.30 I (FITR(10*ST)-10*ST+.0001)12.40;T %5.01,ST,"   ";R
  12.40 I (FITR(100*ST)-100*ST+.0001)12.45;T %6.02,ST,"  ";R
  12.45 T %7.03,ST," ";R
  12.50 I (FITR(ST)-ST+.001)12.60;T %6,ST,"   ";R
  12.60 I (FITR(10*ST)-10*ST+.001)12.70;T %7.01,ST," ";R
  12.70 T %7.02,ST," ";R
  14.01 C   UP ZU 3.40 : AUSGABE DX MIT FOUT() IM I2-FORMAT
  14.10 I (DX-9.5)14.3;S DI=FITR(DX/10)
  14.20 S DU=FOUT(176+DI);S DU=FOUT(176+DX-DI*10)
  14.25 R
  14.30 T " ";S DU=FOUT(176+DX)
  15.01 C   UP ZU 3.50, 9.20, 10.20 : AUSGABE DX MIT FOUT() IM I3-FORMAT
  15.10 I (DX-99.5)15.3;S DU=FITR(DX/100);S DI=FOUT(DU+176)
  15.20 S DX=DX-100*DU;S DU=FITR(DX/10);S DI=FOUT(DU+176)
  15.25 S DX=DX-10*DU;G 15.6
  15.30 T " ";I (DX-9.5)15.5;S DU=FITR(DX/10);S DI=FOUT(DU+176)
  15.40 S DX=DX-10*DU;G 15.6
  15.50 T " "
  15.60 S DI=FOUT(DX+176)
  20.01 C   UP ZU 1.03
  20.10 S NN=1234567.11-1234567;I (NN)20.2,20.2;R
  20.20 T !"BITTE FOCD RUFEN !";L E
  21.01 C   VON 1.29 - DATEI AENDERN
  21.10 D 31.5;S DU=FX[2303,0]
  21.13 A !!"TITEL-NR. ALT"QA,"  NEU"N;D 3.9;I (-KO)1.28
  21.16 S DY=FX[0,QA];S DY=FX[1,N]
  21.19 D 3.8;T !
  21.22 S QL=;S QM=;S KO=
  21.23 S QL=QL+1;I (QL-54.5)21.24;D 3.7;G 21.8
  21.24 T %3,QL;A :8,PO;I (PO)21.42,21.8
  21.26 I (QM-PO)21.29;D 3.1;G 21.24
  21.29 S QM=PO;A :17,ME;T :30,":"
  21.32 F QZ=1,50;D 8
  21.35 D 3.2
  21.38 F QZ=1,40;S DU=FX[DZ-30+QZ,QK(QZ)]
  21.41 I (-KO)21.83;G 21.23
  21.42 S DU=-PO
  21.45 I (QM-DU)21.48;D 3.1;G 21.24
  21.48 S QM=DU
  21.51 S ME=;D 3.2
  21.54 F QZ=1,40;S DU=FX[DZ-30+QZ,0]
  21.57 T !;I (-KO)21.83;G 21.23
  21.80 S QE=QL-1;D 3.3;T !
  21.83 A "KORR.-ZEILE"KO;I (54.5-KO)21.89;I (-KO)21.86;G 22.1
  21.86 I (QE+1.1-KO)21.89;I (KO-QE)21.92;S QE=KO;D 3.3;G 21.92
  21.89 D 3.1;G 21.83
  21.92 S QL=KO;S QM=;T !;G 21.24
  22.01 C   VON 21.83 - DATEI UMSCHREIBEN
  22.10 S QA=FX[0];S N=FX[1];S QE=FX[2]
  22.13 D 31.4;A NB,DU;D 3.6
  22.16 D 31.3;D 3.4
  22.19 O R I;S DU=
  22.22 D 5
  22.37 S QC=;S QV=;S QH=;S QQ=;F QL=1,QE;D 23
  22.40 I (-QP)22.43;G 4.1
  22.43 I (QP-PO-.5)22.49;I (QH-.5)22.46;D 11
  22.46 D 3.5;S QD=
  22.49 I (-QD)22.46;O R I;A QP;G 22.4
  23.01 C   UP ZU 22.37 - POS. UMSCHREIBEN
  23.03 S QD=
  23.04 I (QQ-.5)23.06;G 23.09
  23.06 O R I;A QP
  23.07 I (QC-.5)23.08;S QC=;I (QH-.5)23.08;S QH=QH-1
  23.08 I (-QP)23.09;S QQ=1
  23.09 I (QH-.5)23.1;D 11
  23.10 S DZ=QL*41+QL;S PO=FX[DZ-31]
  23.11 I (QQ-.5)23.13;D 9;R
  23.13 I (-PO)23.16;S QO=-PO;G 23.19
  23.16 S QO=PO
  23.19 I (QP-QO)23.8,23.25,23.37
  23.25 I (-PO)23.28;O R I;A DU;S QC=1;G 23.31
  23.28 D 9;O R I;A DU
  23.31 D 3.6;I (DY-141)23.31,23.34,23.31
  23.34 D 3.6;R
  23.37 I (-PO)23.4;D 3.5;R
  23.40 S DU=FITR(PO);S DU=PO-DU
  23.43 I (-DU)23.47;D 9;G 23.53
  23.47 S PO=FITR(PO)+1;D 9;S QD=1
  23.50 I (PO-QP)23.53;S QH=QH+1;S QV=QP+QH
  23.53 S QL=QL+1;I (QL-QE-.5)23.1;R
  23.80 D 3.5;S QL=QL-1;R
  25.01 C   VON 1.29 - DATEI AUSDRUCKEN
  25.05 E
  25.10 A !!"TITEL-NR..AUSGABE"DU
  25.12 S N=FITR(DU);S AG=(DU-N)*10
  25.14 I (AG-2.5)25.16;D 3.1;G 25.1
  25.16 A !"1. SEITE"SZ,"  ABSENDER (0-99)"NK
  25.20 D 3.9;I (-KO)1.28
  25.22 I (AG-1.5)25.25;D 31.16;O C;T !!"AUSGABE AUF AUS:ANAPLV.LS"!!
  25.25 L G ANAPCA
  25.28 G 4.2
  31.10 O I TTY:,E
  31.12 O O TTY:
  31.14 O O LPT:
  31.16 O O AUS:ANAPLV.LS
  31.30 O O SYS:ANAP(N).DA
  31.40 O I SYS:ANAP(QA).DA
  31.50 O A ANAP00.FA
  31.99 T !"ANAPC.FC, 26.11.77"!



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search