%!ps
% sigchk01.psl  searches sigview spectrum for possible subharmonic problems.
% modified for rough wavefile maker

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
/wavefilename (s1.asc) def     % 21121111 ---> 11211211
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% generates phase signal


%  IMPORTANT NOTE: Don Lancaster's file gonzo.ps is required for this program.
%  After obvious location mods, uncomment ONE of the following two lines:

%   (C:\\windows\\desktop\\gonzo\\gonzo.ps) run  % use internal gonzo
%  (A:\\gonzo.ps) run  % use external gonzo

 (C:\\gonzo2\\gonzo.ps)run % use internal gonzo


% create an output file for writing

/wavefilenameheader (C:\\Documents and Settings\\don\\Desktop\\Don\\ms cancellations\\Split\\sig8chk1\\test_series\\capture\\)def    % the name of the input file

/targetfilename wavefilenameheader wavefilename mergestr store
/writefile targetfilename (w+) file store     %  establish output target file









%  NOTE THAT ALL PS FILENAME STRINGS !!!DEMAND!!! DOUBLE REVERSE SLASHES.

%  GONZO20A Guru Gonzo PostScript power tools (Interim release)
%  Includes gonzo justification and layout utilities.

%  Copyright c 1990, 1996, 2001 by Don Lancaster and Synergetics, Box 809,
%  Thatcher Arizona, 5552 (928) 428-4073  don@tinaja.com  support
%  via http://www.tinaja.com  All commercial rights and all electronic
%  media rights **FULLY** reserved. Reposting is expressly forbidden.

% Attempts to directly format JavaScript exported degree into into
% assembler lines via a Distiller log file.

% 41666.7 cycles per cycle for 10Mhz ---> 60 HZ
% 162.761 256 block cycles per cycle
% 2.212 is full scale for 8-bit resolution




/shakendelta28 [
[ [868      0    0 1730    0      0     0 868] 0.000000 0.0000000 3472 ]
[ [860    13    2 1722    0    10     6 859] 1.510760 0.0093493 3472 ]
[ [850    29    5 1701    6    22     8 851] 0.978672 0.0210324 3472 ] 
[ [845    43    7 1683    7    33   14 840] 0.477679 0.0312886 3472 ]
[ [837    56    9 1668    7    43   20 832] 0.318167 0.0406482 3472 ]

[ [830    68  11 1653  10    52   23 825] 0.337353 0.0493669 3472 ]
[ [821    85  14 1631  11    65   30 815] 0.203131 0.0617085 3472 ]
[ [815    95  16 1619  13    73   33 808] 0.259957 0.0692016 3472 ]
[ [807  110  18 1601  14    84   39 799] 0.229666 0.0798052 3472 ]
[ [800  122  20 1587  16    93   43 791] 0.271299 0.0885358 3472 ]

[ [791  138  23 1567  18  106   49 780] 0.172600 0.1005590 3472 ]
[ [784  151  25 1551  19  116   54 772] 0.1339800 0.109939 3472 ]
[ [777  163  27 1536  21  125   58 765] 0.1192960 0.118677 3472 ]
[ [768  180  30 1515  22  138   65 754] 0.1874040 0.131049 3472 ]
[ [761  193  32 1499  24  148   70 745] 0.1343130 0.140698 3472 ]

[ [754  205  34 1484  26  157   74 738] 0.1291950 0.149444 3472 ]
[ [747  218  36 1468  26  167   80 730] 0.1061010 0.158846 3472 ]
[ [738  234  39 1448  28  179   86 720] 0.0965049 0.170589 3472 ]
[ [731  246  41 1434  29  188   91 712] 0.0914561 0.179351 3472 ]
[ [723  260  43 1417  31  199   96 703] 0.1290420 0.189653 3472 ]

[ [714  276  46 1397  32  211 103 693] 0.0546426 0.201417 3472 ]
[ [707  289  48 1381  33  221 108 685] 0.1085760 0.210828 3472 ]
[ [701  300  50 1367  35  229 112 678] 0.1002610 0.218951 3472 ]
[ [691  316  53 1348  36  241 119 668] 0.1207730 0.230727 3472 ]
[ [684  330  55 1330  37  252 125 659] 0.1038410 0.241057 3472 ]

[ [677  342  57 1316  38  261 130 651] 0.0973585 0.249840 3472 ]
[ [670  354  60 1300  40  270 135 643] 0.1141750 0.259094 3472 ]
[ [663  367  62 1284  40  280 141 635] 0.0808775 0.268537 3472 ]
[ [653  384  65 1263  42  293 148 624] 0.0519740 0.281232 3472 ]
[ [647  395  67 1249  43  301 153 617] 0.0641827 0.289386 3472 ]

[ [638  411  70 1229  44  313 160 607] 0.0942731 0.301193 3472 ]
[ [630  424  72 1214  45  323 166 598] 0.0954356 0.310907 3472 ]
[ [624  435  74 1200  46  331 171 591] 0.0730116 0.319070 3472 ]
[ [615  451  77 1180  47  343 178 581] 0.0677774 0.330889 3472 ]
[ [608  463  79 1165  48  352 183 574] 0.0797174 0.339699 3472 ]

[ [600  477  82 1147  49  363 190 564] 0.0727672 0.350554 3472 ]
[ [592  491  84 1130  50  373 196 556] 0.0859002 0.360616 3472 ]
[ [585  503  87 1114  51  382 202 548] 0.0895733 0.369923 3472 ]
[ [578  516  89 1098  51  392 209 539] 0.0823565 0.379679 3472 ] 
[ [569  531  92 1079  53  403 216 529] 0.0758395 0.391137 3472 ]

[ [562  543  94 1064  54  412 221 522] 0.0916116 0.399965 3472 ]
[ [553  558  97 1046  54  423 229 512] 0.0716472 0.411197 3472 ]
[ [547  569  99 1032  55  431 234 505] 0.0527390 0.419389 3472 ]
[ [538  584 102 1013 56  442 242 495] 0.0744991 0.430883 3472 ]
[ [530  598 105  995  56  453 249 486] 0.0643956 0.441523 3472 ]

[ [523  610 107  980  57  462 255 478] 0.0651337 0.450642 3472 ]
[ [515  624 110  962  58  472 262 469] 0.0500311 0.461231 3472 ]
[ [508  636 112  947  59  481 268 461] 0.0682797 0.470357 3472 ]
[ [501  648 115  931  59  490 275 453] 0.0390659 0.479727 3472 ]
[ [493  661 118  914  60  500 282 444] 0.0464662 0.491163 3472 ]

[ [485  675 120  897  61  510 289 435] 0.0701265 0.500383 3472 ]
[ [478  687 123  881  61  519 296 427] 0.0436721 0.509765 3472 ]
[ [470  700 126  864  62  529 303 418] 0.0589122 0.520046 3472 ]
[ [463  712 129  848  62  538 310 410] 0.0621049 0.529436 3472 ]
[ [454  727 132  829  63  549 318 400] 0.0655310 0.540979 3472 ]

[ [447  739 134  814  64  557 324 393] 0.0659652 0.549818 3472 ]
[ [440  751 137  797  64  567 332 384] 0.0608129 0.559810 3472 ]
[ [432  764 140  780  65  577 339 375] 0.0552627 0.570111 3472 ]
[ [424  777 143  764  65  586 346 367] 0.0621947 0.579854 3472 ]
[ [417  789 145  748  66  595 353 359] 0.0497526 0.589296 3472 ]

[ [409  802 149  730  66  605 361 350] 0.0498109 0.599860 3472 ]
[ [401  815 152  713  66  615 369 341] 0.0454799 0.610207 3472 ]
[ [393  828 155  696  67  624 377 332] 0.0516502 0.620493 3472 ]
[ [385  841 158  679  67  634 385 323] 0.0588497 0.630849 3472 ]
[ [379  851 160  665  68  642 391 316] 0.0342060 0.639051 3472 ]

[ [371  864 164  647  68  652 399 307] 0.0456603 0.649639 3472 ]
[ [363  877 167  630  68  662 407 298] 0.0522574 0.660009 3472 ]
[ [355  890 170  612  69  672 415 289] 0.0426991 0.670628 3472 ]
[ [348  901 173  597  69  680 423 281] 0.0480973 0.679712 3472 ]
[ [340  914 176  579  70  690 431 272] 0.0477716 0.690340 3472 ]

[ [333   925 179  564  70  699 438 264] 0.0308037 0.699467 3472 ]
[ [324   939 183  545  70  710 447 254] 0.0686215 0.711012 3472 ]
[ [317   950 185  530  71  718 455 246] 0.0415750 0.720131 3472 ]
[ [310   961 188  514  72  727 462 238] 0.0498212 0.729513 3472 ]
[ [302   973 192  497  71  737 471 229] 0.0430787 0.739846 3472 ]

[ [294   986 195  479  72  747 479 220] 0.0405623 0.750499 3472 ]
[ [286   998 198  462  72  757 488 211] 0.0438831 0.760860 3472 ]
[ [279 1009 201  446  73  766 495 203] 0.0497878 0.770257 3472 ]
[ [271 1021 204  429  74  775 504 194] 0.0441616 0.780553 3472 ]
[ [264 1031 207  414  74  784 512 186] 0.0457397 0.789662 3472 ]

[ [256 1043 211  396  74  794 521 177] 0.0325654 0.800267 3472 ]
[ [249 1054 213  381  75  803 528 169] 0.0440074 0.809451 3472 ]
[ [241 1066 216  363  76  813 537 160] 0.0403837 0.820078 3472 ]
[ [233 1077 220  346  76  823 546 151] 0.0256970 0.830362 3472 ]
[ [225 1089 223  328  77  833 555 142] 0.0332166 0.840997 3472 ]

[ [218 1099 225  313  78  842 563 134] 0.0337785 0.850140 3472 ]
[ [210 1110 228  296  79  852 572 125] 0.0360605 0.860449 3472 ]
[ [203 1120 231  280  80  862 580 117] 0.0150460 0.869889 3472 ]
[ [195 1131 233  262  82  872 589 108] 0.0360463 0.880467 3472 ]
[ [187 1141 236  245  83  883 598   99] 0.0317396 0.890767 3472 ]

[ [180 1151 237  230  85  892 606   91] 0.0190775 0.899933 3472 ]
[ [172 1162 238  213  88  902 615   82] 0.0316686 0.910273 3472 ]
[ [165 1171 239  197  91  912 623   74] 0.0263476 0.919661 3472 ]
[ [157 1181 239  180  95  922 633   65] 0.0388174 0.929956 3472 ]
[ [150 1190 238  164 100  932 641  57] 0.0323680 0.939357 3472 ]

[ [142 1200 235  147 107  943 650  48] 0.0272150 0.949701 3472 ]
[ [134 1209 230  130 116  955 659  39] 0.0318331 0.960034 3472 ]
[ [126 1218 223  113 127  966 669  30] 0.0351219 0.970334 3472 ]
[ [119 1226 210    97 144  977 677  22] 0.0379512 0.979745 3472 ]
[ [111 1234 188    80 170  989 688  12] 0.0386641 0.990337 3472 ]

[ [103 1242 151    63 211 1001 698   3] 0.0439439 1.000650 3472 ]

] def


/aa mark  shakendelta28 {0 get 0 get} forall ] store  % single a
/bb mark  shakendelta28 {0 get 1 get} forall ] store
/cc mark  shakendelta28 {0 get 2 get} forall ] store
/dd mark  shakendelta28 {0 get 3 get} forall ] store
/ee mark  shakendelta28 {0 get 4 get} forall ] store
/ff mark  shakendelta28 {0 get 5 get} forall ] store
/gg mark  shakendelta28 {0 get 6 get} forall ] store
/hh mark  shakendelta28 {0 get 7 get} forall ] store  % single h


% aa == bb == cc == dd == ee == ff == gg == hh ==


/amplitude 53 store


/a1 aa amplitude get store
/b1 bb amplitude get store
/c1 cc amplitude get store
/d1 dd amplitude get store
/e1 ee amplitude get store
/f1 ff amplitude get store
/g1 gg amplitude get store
/h1 hh amplitude get store


/delaypattern [

(aa)(bb)(cc)(dd)(ee)(ff)(gg)
(hh)(gg)(ff)(ee)(dd)(cc)(bb)

(aa)(bb)(cc)(dd)(ee)(ff)(gg)
(hh)(gg)(ff)(ee)(dd)(cc)(bb)

(aa)(bb)(cc)(dd)(ee)(ff)(gg)
(hh)(gg)(ff)(ee)(dd)(cc)(bb)

(aa)(bb)(cc)(dd)(ee)(ff)(gg)
(hh)(gg)(ff)(ee)(dd)(cc)(bb)

(aa)(bb)(cc)(dd)(ee)(ff)(gg)
(hh)(gg)(ff)(ee)(dd)(cc)(bb)

(aa)(bb)(cc)(dd)(ee)(ff)(gg)
(hh)(gg)(ff)(ee)(dd)(cc)(bb)


              ] store



/delaypattern [

a1 b1 c1 d1 e1 f1 g1 h1 h1 g1 f1 e1 d1 c1 b1 a1 
a1 b1 c1 d1 e1 f1 g1 h1 h1 g1 f1 e1 d1 c1 b1 a1 
a1 b1 c1 d1 e1 f1 g1 h1 h1 g1 f1 e1 d1 c1 b1 a1 

a1 b1 c1 d1 e1 f1 g1 h1 h1 g1 f1 e1 d1 c1 b1 a1 
a1 b1 c1 d1 e1 f1 g1 h1 h1 g1 f1 e1 d1 c1 b1 a1 
a1 b1 c1 d1 e1 f1 g1 h1 h1 g1 f1 e1 d1 c1 b1 a1 ] store


/portpattern [

<E0>  <A2><2B>  <07>  <2B><A2><2B>  <E0><E0>  <A2><2B><A2>  <E0>  <A2><2B> <07>
<07>  <2B><69>  <E0>  <69><2B><69>  <07><07>  <2B><69><2B>  <07>  <2B><69> <E0>

<E0>  <69><45>  <07>  <45><69><45>  <E0><E0>  <69><45><69>  <E0>  <69><45> <07>
<07>  <45><C4>  <E0>  <C4><45><C4>  <07><07>  <45><C4><45>  <07>  <45><C4> <E0>

<E0>  <C4><64>  <07>  <86><C4><86>  <E0><E0>  <C4><86><C4>  <E0>  <C4><86> <07>
<07>  <86><C2>  <E0>  <C2><86><C2>  <07><07>  <86><C2><86>  <07>  <86><C2> <E0>

] store




% /extractsequence extracts the phase a and converts it to ASCII data usable





/high <C0>   def
/low  <40>  def
/zero <80>  def

/scanit {   /counter 0 store

0 1 portpattern length 1 sub { /posn exch store

  delaypattern posn get  /repeatcycles exch store

  portpattern posn get 0 get     

cvi 2 mod  0 eq {low}{high} ifelse



  /curbit exch store



   repeatcycles {

  writefile  curbit writestring  writefile  (\r) writestring

   /counter counter 1 add store

} repeat


  } for


counter ==
    } store

%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% REG1 BBE1 8 .47 data starts here
%%%%%%%%%%%%%%%%%%%%%%%%%%



/samprate90 10000000 4 div 60 div 4 div floor cvi dup == store  % magic number of 10416 or 2499840.

/quant 
samprate90 90 div store

/pq {quant mul round cvi} store


/RG [                   % from series II   h31=0.80 -0.69 -0.15 -0.01  

5.809767815624211
6.320664544375658
16.142245305186286
17.64706084481339
26.76371316735217
29.21701710264765
37.49851666529311
40.81845535470658
48.34552269832024
52.41687034167951
59.31734700598098
63.991841714018925
70.42289928092141
75.52126327907854
81.66151740983524
86.97913084016474

       ] store

/BB [                  % from reval calc h31=-.82 .66 .14 .01  NOT QUITE ZERO BUT ZERO 25-27-29

  10.6387501222 %  p1s 
  11.6495181031 %  p1e 
  21.307773722 %  p2s 
  23.2966644066 %  p2e 
  32.0364046878 %  p3s 
  34.9379271987 %  p3e 
  42.851783016 %  p4s 
  46.5672790669 %  p4e 
  53.776990753 %  p5s 
  58.1745027736 %  p5e 
  64.8284330037 %  p6s 
  69.7436154812 %  p6e 
  76.0127972718 %  p7s 
  81.2525030793 %  p7e 
  87.3247899089 %  p8s 
  90 %  p8e 
   ] store



/RGQ
    mark
  RG 0 get                 pq 
  RG 1 get  RG 0  get sub  pq
  RG 2 get  RG 1  get sub  pq
  RG 3 get  RG 2  get sub  pq
  RG 4 get  RG 3  get sub  pq 
  RG 5 get  RG 4  get sub  pq
  RG 6 get  RG 5  get sub  pq
  RG 7 get  RG 6  get sub  pq
  RG 8 get  RG 7  get sub  pq
  RG 9 get  RG 8  get sub  pq
  RG 10 get RG 9  get sub  pq
  RG 11 get RG 10 get sub  pq
  RG 12 get RG 11 get sub  pq
  RG 13 get RG 12 get sub  pq
  RG 14 get RG 13 get sub  pq
  RG 15 get RG 14 get sub  pq  
  90.000    RG 15 get sub  pq  
   ] store

 RGQ ==


/BBQ
    mark
  BB 0 get                 pq 
  BB 1 get  BB 0  get sub  pq
  BB 2 get  BB 1  get sub  pq
  BB 3 get  BB 2  get sub  pq
  BB 4 get  BB 3  get sub  pq 
  BB 5 get  BB 4  get sub  pq
  BB 6 get  BB 5  get sub  pq
  BB 7 get  BB 6  get sub  pq
  BB 8 get  BB 7  get sub  pq
  BB 9 get  BB 8  get sub  pq
  BB 10 get BB 9  get sub  pq
  BB 11 get BB 10 get sub  pq
  BB 12 get BB 11 get sub  pq
  BB 13 get BB 12 get sub  pq
  BB 14 get BB 13 get sub  pq
  BB 15 get BB 14 get sub  pq  
  90.000    BB 15 get sub  pq  
   ] store

BBQ ==

/writeRGQ090+ {
  RGQ 0  get make0
  RGQ 1  get make+
  RGQ 2  get make0
  RGQ 3  get make+
  RGQ 4  get make0
  RGQ 5  get make+
  RGQ 6  get make0
  RGQ 7  get make+
  RGQ 8  get make0
  RGQ 9  get make+
  RGQ 10 get make0
  RGQ 11 get make+
  RGQ 12 get make0
  RGQ 13 get make+
  RGQ 14 get make0
  RGQ 15 get make+
  RGQ 16 get make0
               } store



/writeRGQ90180+ {
  RGQ 16  get make0
  RGQ 15  get make+
  RGQ 14  get make0
  RGQ 13  get make+
  RGQ 12  get make0
  RGQ 11  get make+
  RGQ 10  get make0
  RGQ  9  get make+
  RGQ  8  get make0
  RGQ  7  get make+
  RGQ  6  get make0
  RGQ  5  get make+
  RGQ  4  get make0
  RGQ  3  get make+
  RGQ  2  get make0
  RGQ  1  get make+
  RGQ  0  get make0
  
               } store

/writeRGQ090- {
  RGQ 0  get make0
  RGQ 1  get make-
  RGQ 2  get make0
  RGQ 3  get make-
  RGQ 4  get make0
  RGQ 5  get make-
  RGQ 6  get make0
  RGQ 7  get make-
  RGQ 8  get make0
  RGQ 9  get make-
  RGQ 10 get make0
  RGQ 11 get make-
  RGQ 12 get make0
  RGQ 13 get make-
  RGQ 14 get make0
  RGQ 15 get make-
  RGQ 16 get make0
               } store

/writeRGQ90180+ {
  RGQ 16  get make0
  RGQ 15  get make+
  RGQ 14  get make0
  RGQ 13  get make+
  RGQ 12  get make0
  RGQ 11  get make+
  RGQ 10  get make0
  RGQ  9  get make+
  RGQ  8  get make0
  RGQ  7  get make+
  RGQ  6  get make0
  RGQ  5  get make+
  RGQ  4  get make0
  RGQ  3  get make+
  RGQ  2  get make0
  RGQ  1  get make+
  RGQ  0  get make0
  
               } store

/writeRGQ90180- {
  RGQ 16  get make0
  RGQ 15  get make-
  RGQ 14  get make0
  RGQ 13  get make-
  RGQ 12  get make0
  RGQ 11  get make-
  RGQ 10  get make0
  RGQ  9  get make-
  RGQ  8  get make0
  RGQ  7  get make-
  RGQ  6  get make0
  RGQ  5  get make-
  RGQ  4  get make0
  RGQ  3  get make-
  RGQ  2  get make0
  RGQ  1  get make-
  RGQ  0  get make0
  
               } store


/writeRGQ090+ {
  RGQ 0  get make0
  RGQ 1  get make+
  RGQ 2  get make0
  RGQ 3  get make+
  RGQ 4  get make0
  RGQ 5  get make+
  RGQ 6  get make0
  RGQ 7  get make+
  RGQ 8  get make0
  RGQ 9  get make+
  RGQ 10 get make0
  RGQ 11 get make+
  RGQ 12 get make0
  RGQ 13 get make+
  RGQ 14 get make0
  RGQ 15 get make+
  RGQ 16 get make0
               } store


/writeBBQ090+ {
  BBQ 0  get make0
  BBQ 1  get make+
  BBQ 2  get make0
  BBQ 3  get make+
  BBQ 4  get make0
  BBQ 5  get make+
  BBQ 6  get make0
  BBQ 7  get make+
  BBQ 8  get make0
  BBQ 9  get make+
  BBQ 10 get make0
  BBQ 11 get make+
  BBQ 12 get make0
  BBQ 13 get make+
  BBQ 14 get make0
  BBQ 15 get make+
  BBQ 16 get make0
               } store


/writeBBQ090- {
  BBQ 0  get make0
  BBQ 1  get make-
  BBQ 2  get make0
  BBQ 3  get make-
  BBQ 4  get make0
  BBQ 5  get make-
  BBQ 6  get make0
  BBQ 7  get make-
  BBQ 8  get make0
  BBQ 9  get make-
  BBQ 10 get make0
  BBQ 11 get make-
  BBQ 12 get make0
  BBQ 13 get make-
  BBQ 14 get make0
  BBQ 15 get make-
  BBQ 16 get make0
               } store

/writeBBQ90180+ {
  BBQ 16  get make0
  BBQ 15  get make+
  BBQ 14  get make0
  BBQ 13  get make+
  BBQ 12  get make0
  BBQ 11  get make+
  BBQ 10  get make0
  BBQ  9  get make+
  BBQ  8  get make0
  BBQ  7  get make+
  BBQ  6  get make0
  BBQ  5  get make+
  BBQ  4  get make0
  BBQ  3  get make+
  BBQ  2  get make0
  BBQ  1  get make+
  BBQ  0  get make0
  
               } store

/writeBBQ90180- {
  BBQ 16  get make0
  BBQ 15  get make-
  BBQ 14  get make0
  BBQ 13  get make-
  BBQ 12  get make0
  BBQ 11  get make-
  BBQ 10  get make0
  BBQ  9  get make-
  BBQ  8  get make0
  BBQ  7  get make-
  BBQ  6  get make0
  BBQ  5  get make-
  BBQ  4  get make0
  BBQ  3  get make-
  BBQ  2  get make0
  BBQ  1  get make-
  BBQ  0  get make0
  
               } store


/scanit {
 
    writeRGQ090+                   % 1                   t11211211
    writeRGQ90180+   

    writeRGQ090- 
    writeRGQ90180-  




    writeBBQ090+                % 1                
    writeBBQ90180+   

    writeBBQ090- 
    writeBBQ90180- 




    writeRGQ090+               % 2                 
    writeRGQ90180+   

    writeRGQ090- 
    writeRGQ90180- 


    writeRGQ090+                               
    writeRGQ90180+   

    writeRGQ090- 
    writeRGQ90180- 



    writeBBQ090+              % 1                
    writeBBQ90180+   

    writeBBQ090- 
    writeBBQ90180- 





    writeRGQ090+           % 1              
    writeRGQ90180+   

    writeRGQ090- 
    writeRGQ90180- 




    writeBBQ090+           % 2                     
    writeBBQ90180+   

    writeBBQ090- 
    writeBBQ90180- 

    writeBBQ090+                        
    writeBBQ90180+   

    writeBBQ090- 
    writeBBQ90180- 



    writeRGQ090+          % 1                       
    writeRGQ90180+   

    writeRGQ090- 
    writeRGQ90180- 



    writeBBQ090+           % 1              
    writeBBQ90180+   

    writeBBQ090- 
    writeBBQ90180-

            } store



/scanit {
 
    writeBBQ090+                   % 1      s1  BBE single  full wave
    writeBBQ90180+   

    writeBBQ090- 
    writeBBQ90180-  
  
        } store




%%%%%%%%%%%%%%%%%%%%%%%%%%
%% high level code
%%%%%%%%%%%%%%%%%%%%%%%%%%


/cycles 30 pop 60  store

/highlevel <40>   def  % these are for 8 bit signed binary
/lowlevel  <C0>  def
/zerolevel <00>  def
 

/make+ { {writefile highlevel writestring} repeat } store
/make0 { {writefile zerolevel writestring} repeat } store
/make- { {writefile lowlevel writestring} repeat } store



  cycles {scanit} repeat




writefile closefile



% EOF



%%% triple patterns 64 total 32 start with 1  how many with 3 ones?

% 100000
% 100001
% 100010
% 100011  translates to 111000
% 100100
% 100101                       translates to 110100
% 100110                       translates to 110100
% 100111
% 101000
% 101001                       translates to 110100
% 101010 defaults
% 101011
% 101100                                              translates to phase 110010
% 101101
% 101110
% 101111
% 110000
% 110001 translates to 111000
% 110010 
% 110011                                                         is phase 110010
% 110100 
% 110101
% 110110
% 110111
% 111000                                                                             is 111000 
% 111001 
% 111010
% 111011
% 111100
% 111101
% 111110
% 111111                                                                                                                                                        


% try it by series  prediction is 2 6  20   117??

% 10     11
% 01


% 1100   22
% 1010           1111*
% 1001   22
% 0110   22
% 0101           1111*          
% 0011  22



% 111000 33                             2 testables
% 110100    2211
% 110010    2211
% 110001 33
% 101100    2211              
% 101010         111111*
% 101001    2211
% 100110    2211
% 100101    2211
% 100011 33

% 011100 33
% 011010    2211
% 011001    2211
% 010110    2211
% 010101          111111*
% 010011    2211
% 001110 33
% 001101    2211
% 001011    2211
% 000111 33                  









% series 4                              5 testables

% 11110000 44                                                         call it t44          significantly higher than 61st light lines.
% 11101000             3311                                           call it t3113        slightly higher than 61st  many lines
% 11100100      3212                                   asymmetric?  try it at t3212        nice match to 61st many dense lines
% 11100010             3311                                           
% 11100001 44
% 11011000      3212 
% 11010100                    221111                                  call it t211112     nice match to 61st many lines
% 11010010                              211211                        call it t121121     moderately higher than 61st medium lines
% 11010001             3311                                                  
% 11001100
% 11001010                    221111
% 11001001       3212
% 11000110       3212
% 11000101             3311
% 11000011 44

% 10111000             3311
% 10110100                              211211
% 10110010                    221111
% 10110001       3212
% 10101100                    221111
% 10101010                                        11111111*
% 10101001                    221111
% 10100110                    221111
% 10100101                               211211
% 10100011             3311

% 10011100       3212
% 10011010                    221111
% 10011001                                                          2222*
% 10010110                               211211
% 10010101                    221111
% 10010011       3212

% 10001110             3311
% 10001101       3212
% 10001011             3311

% 10000111 44











% 1111100000  55                         fives
% 1111010000      4411
% 1111001000                     4213
% 1111000100             4312
% 1111000010      4411
% 1111000001  55
% 1110110000             4312
% 1110101000                            331111
% 1110100100                                                                311212
% 1110100010                                                      311311
% 1110100001      4411  
% 1100111000                                                                         3322
% 1100110100                                                                                222211
% 1100110010                                                                                222211
% 1100110001                                                                         3322
% 1100011100                                                                         3322
% 1100011010                                            321112 
% 1100011001                                                                         3322
% 1100001110             4312
% 1100001101                      4213 
% 1100000111 55

% 1011110000       4411                                  
% 1011101000                                                      311311
% 1011100100                                     321211
% 1011100010                             331111  
% 1011100001                      4213 

% 1011011000                                                               311212 
% 1011010100                                                                                            21121111
% 1011010010                                                                                            21121111                                                                                           
% 1011010001                                     321211                                                                         
% 1011001100                                                                                 222211
% 1011001010                                                                                                       22111111                                                                                     
% 1011001001                                                                                                                     221221
% 1011000110                                            321112   
% 1011000101                                                                311212