File ANAPA.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-ANAPA.FCNOV-77
*  1.01 C ANAPA, -SB- , -CD- , PREISE EINGEBEN, ENDE 2.73, 9.10, 12.80,
   1.02 D 20;C                                  UND 13.60, 20.20
   1.03 A !!"TITEL EINGEBEN 
"KO;I (KO)3.97,3.97
   1.05 A "  -NR."N;D 21.5;I (-KO)1.03
   1.06 T !!"ES FOLGEN BIS ZU 3.5 MIN. RECHENZEIT !!!";D 31.2
   1.08 S DU=FX[2,N]
   1.10 E
   1.20 S N=FX[2]
   1.40 A BU,DY;S DI=FIN()
   1.45 S DU=
   1.48 S DU=DU+1;S DY=FIN();I (DY-141)1.49,1.5
   1.49 S PR(DU)=DY;G 1.48
   1.50 S PR(0)=DU-1
   1.52 S DU=FIN();S NN=
   1.60 F DY=0,99;D 10;S P(DY)=L
   1.65 I (-NN)1.9
   1.70 F DY=100,199;D 10;S P(DY-100)=P(DY-100)+L*1E3
   1.75 I (-NN)1.9
   1.80 F DY=200,299;D 10;S P(DY-200)=P(DY-200)+L*1E6
   1.90 D 31.1
   2.01 C UEBERSCHRIFT + BIETERBEZ ABFR.
   2.20 T !!,%3
   2.25 F DU=1,PR(0);S DY=FOUT(PR(DU));S PR(DU)=
   2.30 T !;F DU=1,PR(0);T "-"
   2.40 T !!"ES SIND",%3,NN," POSITIONEN";D 5
   2.50 T !"ERF. SPEICHERBEDARF";I (AG-1.5)2.6;T "  =",%2,AA
   2.55 T "  *",%2,GA;I (GR-.1)2.6;T "  +"GR
   2.60 T "  =",%3,BL,"  OS/8 BLOECKE
   2.67 I (1.5-AG)2.7;S NA=;G 2.8
   2.70 A !"WOLLEN SIE DEN SPEICHERRAUM PRUEFEN
"DZ
   2.73 I (DZ-.5)2.76;L E
   2.76 F NA=0,(AG-2);D 8
   2.78 I (-GR)2.8;S GR=GA
   2.80 S IA(NA)=FITR[VR/(2*NN+21)]
   2.82 D (31.4+(NA/1E2))
   2.84 I (FX[10]-.1)2.88;D (31.5+(NA/1E2))
   2.86 D (31.4+(NA/1E2))
   2.88 S DU=FX[10,1];S DU=FX[(GR*64-1),0]
   2.90 O T
   2.95 S GA=;S BL=;S GR=;S VA=;S VG=;S VR=;S AG=
   3.28 A !"MWST-SATZ [%]"MW
   3.30 A "  1.SEITE"DY,!,"MIT POS.NR.
"PX;D 21.5;I (-KO)2.55
   3.31 S NA=-1;S I=;S II=TB
   3.32 S I9=;S NA=NA+1;D (31.40+NA/100);S DU=FX[1,NA];S DU=FX[2,N]
   3.33 S DU=FX[7,MW];S DU=FX[3,IA(NA)];S DU=FX[4,1];S DU=FX[5,NN]
   3.34 S DU=FX[8,DY];S DU=FX[0,BU]
   3.35 S I=I+1;S I9=I9+1;I (II-I+.1)3.95;I (I9-IA(NA)-.1)3.37;S I=I-1;;G 3.32
   3.37 S N1=(I9-1)*(21+2*NN);S N2=N1+11
   3.40 D 6;A !!"BIETER-NR."BN;I (BN)3.95,3.95;T :14," -NAME (20 Z):"
   3.42 S DU=
   3.44 S DU=DU+1;S DY=FIN();I (DY-141.5)3.5
   3.46 I (DY-254.5)3.48;T "\";S DU=DU-2;G 3.44
   3.48 S DY(DU)=DY;G 3.44
   3.50 S DU=DU-1;I (19.5-DU)3.52;F DZ=DU+1,20;S DY(DZ)=160
   3.52 F DU=1,20;S DI=FX[N2+DU,DY(DU)]
   3.54 S DY=FX[N2,BN]
   3.55 S ZZ=-33;S NP=-1
   3.60 S NP=NP+1;I (NN-1-NP)3.8;I (PX-.5)3.61;D 4;G 3.62
   3.61 S ZZ=1;T !,%3,NP+1;A DU;I (DU)3.64;S DV=0;G 3.65
   3.62 S ZZ=ZZ+34;I (ZZ-50)3.63;T !;S ZZ=1
   3.63 T :ZZ,%3,NP+1,"[",DY,"]";A DU;I (DU)3.64;S DV=0;G 3.65
   3.64 A " MA"DV;I (-MA)3.65,3.65;G 3.37
   3.65 S DX=N2+19+2*(NP+1);S DY=FX[DX,FABS(DU)];S DY=FX[DX+1,DV]
   3.66 G 3.6
   3.80 A !,:10,"KORR.
"KO;I (-KO)3.85;G 3.35
   3.85 A :19,"LFD.NR."NP,:35;I (NP-.5)3.98;I (NN-NP+.1)3.9;S NP=NP-1;A " EP"DU
   3.86 I (DU)3.87;S DV=;G 3.88
   3.87 A " MA"DV
   3.88 D 3.65;G 3.8
   3.90 T "  UNZULAESSIG",!;G 3.85
   3.95 S II=I-1;S DU=FX[3,I9-1];S DU=FX[4,0];D 21.4;D 31.1;D 31.12;O T
   3.96 A !!!"WEITERE TITEL EINGEBEN 
"KO;I (-KO)1.05
   3.97 A !"PREISSPIEGEL 
"KO;I (-KO)12.01;A !"ENDSUMMENSPIEGEL 
"KO;G 3.99
   3.98 T !"DIESEN BIETER NEU EINGEBEN !";G 3.4
   3.99 I (KO-.5)9.01;T !"ZU WELCHEN TITELN 
";S IT=;S KE=1;G 12.52
   4.01 C   UP ZU 3.60 - POS-NR ERMITTELN
   4.10 I (NP-99.5)4.13;G 4.19
   4.13 S DY=P(NP)-FITR(P(NP)/1E3)*1E3;R
   4.19 I (NP-199.5)4.22;G 4.28
   4.22 S DY=P(NP)-FITR(P(NP-100)/1E6)*1E6;R
   4.28 S DY=FITR(P(NP-200)/1E6);R
   5.01 C UP ZU 2.4 - SPEICHERBEDARF ERMITTELN
   5.10 S IA(0)=FITR(4085/(2*NN+21));S II=IA(0)*10
   5.15 I (II-97.5)5.2;S II=97;I (IA(0)-97.5)5.2;S IA(0)=97
   5.20 T "  =  BIS ZU",%2,II," BIETER MOEGL.!"
   5.25 A !"WIEVIELE WOLLEN SIE EINGEBEN 
"TB
   5.30 I (TB-II-.5)5.35;T "  UNZULAESSIG";G 5.25
   5.35 S VG=TB*(2*NN+21);S VA=IA(0)*(2*NN+21)
   5.40 S GA=FITR[(VA+10)/256];I ((VA+10)/256-GA)5.45,5.45;S GA=GA+1
   5.45 S GA=GA*4
   5.50 S AA=FITR(TB/IA(0));I (-AA)5.55;S AA=;S AG=1;G 5.65
   5.55 I (AA-(TB/IA(0)))5.6;S AG=AA;G 5.65
   5.60 S AG=AA+1
   5.65 S VR=VG-(VA*AA);I (-VR)5.7;S GR=;G 5.8
   5.70 S GR=FITR[(VR+10)/256];I ((VR+10)/256-GR)5.75,5.75;S GR=GR+1
   5.75 S GR=GR*4
   5.80 S BL=AA*GA+GR;R
   6.01 C UP ZU 3.40 - AUTOMATISCHE EINGABE FUER TESTS
   6.02 C S.A. RANDOM.FC UND ANAPYY.FC
   6.05 R;C IM TESTFALL "R" LOESCHEN
   6.10 L G ANAPYY
   6.20 D 31.9;D (31.4+(NA/1E2))
   6.30 R
   6.32 S ANAPA
   8.01 C UP ZU 2.76 ARRAYS EROEFFNEN
   8.10 S IA(NA)=IA(0);D (31.4+(NA/1E2))
   8.15 I (FX[10]-.1)8.25;D (31.5+(NA/1E2))
   8.20 D (31.4+(NA/1E2))
   8.25 S DU=FX[10,1];S DU=FX[(GA*64-1),0]
   8.30 O T
   9.01 C 3.99
   9.05 E
   9.10 D 31.1;D 31.12;Q
  10.01 C UP ZU 1.6, 1.7, 1.8
  10.10 A L;I (-L)10.2;S NN=DY;S DY=301;R
  10.20 A DU;CF DU=1,5;S DI=FIN()
  10.25 S DI=FIND(138);CS DI=FIN();I (DI-141)10.25,10.3,10.25
  10.30 CS DI=FIN()
  12.01 C STEUER-PR. : TITEL-SUMM.SP.
  12.10 T !"ZU WELCHEN TITELN.AUSGABE
  12.15 S I=
  12.20 S I=I+1;T !"[",%2,I,"]";A X(I)
  12.25 I (-X(I))12.2
  12.27 D 21.5;I (KO)12.4,12.4
  12.30 A "  NEU EINGEBEN 
"KO;I (-KO)12.15
  12.32 D 21.6;S X(DU)=XY
  12.34 G 12.27
  12.40 S IT=I-1
  12.42 A !"AUCH ENDSUMMENSPIEGEL 
"KE
  12.45 I (KE)12.6,12.6
  12.46 A !"FUER DIESELBEN TITEL.AUSGABE 
"KO;S YY=0
  12.47 S EA=[KO-FITR(KO)]*10;S KO=FITR(KO);I (-KO)12.48;G 12.52
  12.48 S IE=IT;F DU=1,IE;S Y(DU)=FITR(X(DU))
  12.50 G 12.6
  12.52 S I=;S YY=1
  12.53 S I=I+1;T !"[",%2,I,"]";A Y(I)
  12.55 I (-Y(I))12.53
  12.56 D 21.5;I (KO)12.59,12.59;A "  NEU EINGEBEN 
"KO
  12.57 I (-KO)12.52;D 21.6;S Y(DU)=XY
  12.58 G 12.56
  12.59 S IE=I-1
  12.60 I (IT-.5)12.7;F KO=1,IT;S N=X(KO);L G ANAP1
  12.70 I (-KE)13.01
  12.75 E
  12.80 R
  13.01 C AUS 12.70
  13.10 L G ANAPAA
  13.50 E
  13.60 D 31.1;D 31.12;R
  20.01 C   UP ZU 1.02
  20.05 E
  20.10 S NN=1234567.11-1234567;I (NN)20.2,20.2,20.3
  20.20 T !"BITTE ABAD RUFEN !";L E
  20.30 T !!"ANAP : ANGEBOTSAUSWERTUNG"!
  20.33 F DU=1,6;T "="
  20.36 T !"ANAPA V1B: EINGABE- UND STEUERPROGRAMM"!
  21.01 C VERSCHIEDENE UP (JE 1 ZEILE)
  21.40 D 31.4;S DU=FX[6,II];O T
  21.50 A !"KORR.
"KO
  21.60 A "  LFD.NR."DU,"  NEUE TITEL-NR."XY
  22.10 T !"31.4",%1,NA,%4,(GA*64-1),(GR*64-1)
  23.10 T !"31.5",%1,NA
  31.10 O I TTY:,E
  31.12 O O TTY:
  31.20 O I SYS:ANAP(N).DA
  31.40 O A SYS:ANAP(N).D0;CD 22
  31.41 O A SYS:ANAP(N).D1;CD 22
  31.42 O A SYS:ANAP(N).D2;CD 22
  31.43 O A SYS:ANAP(N).D3;CD 22
  31.44 O A SYS:ANAP(N).D4;CD 22
  31.45 O A SYS:ANAP(N).D5;CD 22
  31.46 O A SYS:ANAP(N).D6;CD 22
  31.47 O A SYS:ANAP(N).D7;CD 22
  31.48 O A SYS:ANAP(N).D8;CD 22
  31.49 O A SYS:ANAP(N).D9;CD 22
  31.50 L D SYS:ANAP(N).D0;CD 23
  31.51 L D SYS:ANAP(N).D1;CD 23
  31.52 L D SYS:ANAP(N).D2;CD 23
  31.53 L D SYS:ANAP(N).D3;CD 23
  31.54 L D SYS:ANAP(N).D4;CD 23
  31.55 L D SYS:ANAP(N).D5;CD 23
  31.56 L D SYS:ANAP(N).D6;CD 23
  31.57 L D SYS:ANAP(N).D7;CD 23
  31.58 L D SYS:ANAP(N).D8;CD 23
  31.59 L D SYS:ANAP(N).D9;CD 23
  31.90 O I HELP.FD,E
  31.99 T !"ANAPA.FC, 02.01.78"!



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