home *** CD-ROM | disk | FTP | other *** search
/ Complete Bookshop / CompleteWorkshop.iso / health / diet4mny / diet.var < prev    next >
Text File  |  1985-05-17  |  1KB  |  47 lines
  1. CONST
  2.   SZE:STRING[22]=' weighs approximately ';
  3.   LABEL iii,iv,ivi,ivii,0,1,2,5,7,10,12,15,18,19,20,22,23,24,25,30,35,39,40,44,45,46,48,50,55;
  4.  
  5. TYPE
  6.   ITEM=STRING[50];
  7.   FOOD=RECORD
  8.        NUMBER:REAL;
  9.        NAME:ITEM;
  10.        CAL: INTEGER;
  11.        CARBO:INTEGER;
  12.        PROT:INTEGER;
  13.        FAT:INTEGER;
  14.        CHOL:INTEGER;
  15.        END;
  16.   TXT=STRING[50];
  17.   REGISTERS=RECORD CASE INTEGER OF
  18.        1: (AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS: INTEGER);
  19.        2: (AL,AH,BL,BH,CL,CH,DL,DH: BYTE);
  20.   END;
  21.  
  22. VAR
  23.   MAN:FILE;
  24.   SUPPL:FILE;
  25.   MAIN:FILE;
  26.   FLAG:BYTE ABSOLUTE CSEG:$80;
  27.   FOODFILE: FILE OF FOOD;
  28.   FOODREC: FOOD;
  29.   G,H,I,J,K,L,Q,BC,FC,GC,SF,EF,NF: INTEGER;
  30.   A,B,C,WG:STRING[50];
  31.   D:STRING[100];
  32.   AA,BB,CC:STRING[88];
  33.   NAME: STRING[128];
  34.   CH,CR:CHAR;
  35.   FLIST:ARRAY[1..500] OF INTEGER;
  36.   AMT:ARRAY[1..99] OF STRING[15];
  37.   MEAS:ARRAY[1..9] OF STRING[255];
  38.   NSEL:ARRAY[1..42] OF STRING[40];
  39.   OSEL:ARRAY[1..42] OF REAL;
  40.   CLSEL:ARRAY[1..42] OF REAL;
  41.   CRSEL:ARRAY[1..42] OF REAL;
  42.   PSEL:ARRAY[1..42] OF REAL;
  43.   FSEL:ARRAY[1..42] OF REAL;
  44.   CHSEL:ARRAY[1..42] OF REAL;
  45.   U,V,W,XX,YY,ZZ,PORTION:REAL;
  46.   REG: REGISTERS;
  47.