home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol600 / demo.cob < prev    next >
Text File  |  1990-04-24  |  19KB  |  533 lines

  1. 00001  IDENTIFICATION DIVISION.
  2. 00002  PROGRAM-ID.
  3. 00003      Demo 1.
  4. 00004  AUTHOR.
  5. 00005      Bob Noweck.
  6. 00006  INSTALLATION.
  7. 00007      IBM PC COMPATABLES.
  8. 00008  DATE-WRITTEN.
  9. 00009      APRIL 22 1990.
  10. 00010  DATE-COMPILED.
  11. 00011      APRIL 22 1990.
  12. 00012  SECURITY.
  13. 00013      NONE.
  14. 00014  ENVIRONMENT DIVISION.
  15. 00015  CONFIGURATION SECTION.
  16. 00016  SOURCE-COMPUTER.
  17. 00017      WYSE-386 WITH DEBUGGING MODE.
  18. 00018  OBJECT-COMPUTER.
  19. 00019      WYSE-386 MEMORY SIZE 384000 WORDS.
  20. 00020  SPECIAL-NAMES.
  21. 00121  INPUT-OUTPUT SECTION.
  22. 00122  FILE-CONTROL.
  23. 00133  DATA DIVISION.
  24. 00134  FILE SECTION.
  25. 00180  WORKING-STORAGE SECTION.
  26. 00181  01 TEST PIC X.
  27. 00188  SCREEN SECTION.
  28. 00189  01 CLRSCR.
  29.           03 LINE 1 COLUMN 1
  30.              FOREGROUND-COLOR 5
  31.              BACKGROUND-COLOR 2 
  32.              VALUE '                                        '.
  33.           03 LINE 1 COLUMN 40
  34.              FOREGROUND-COLOR 5
  35.              BACKGROUND-COLOR 2
  36.              VALUE '                                        '.
  37.           03 LINE 2 COLUMN 1
  38.              FOREGROUND-COLOR 5
  39.              BACKGROUND-COLOR 2 
  40.              VALUE '                                        '.
  41.           03 LINE 2 COLUMN 40
  42.              FOREGROUND-COLOR 5
  43.              BACKGROUND-COLOR 2
  44.              VALUE '                                        '.
  45.           03 LINE 3 COLUMN 1
  46.              FOREGROUND-COLOR 5
  47.              BACKGROUND-COLOR 2 
  48.              VALUE '                                        '.
  49.           03 LINE 3 COLUMN 40
  50.              FOREGROUND-COLOR 5
  51.              BACKGROUND-COLOR 2
  52.              VALUE '                                        '.
  53.           03 LINE 4 COLUMN 1
  54.              FOREGROUND-COLOR 5
  55.              BACKGROUND-COLOR 2 
  56.              VALUE '                                        '.
  57.           03 LINE 4 COLUMN 40
  58.              FOREGROUND-COLOR 5
  59.              BACKGROUND-COLOR 2
  60.              VALUE '                                        '.
  61.           03 LINE 5 COLUMN 1
  62.              FOREGROUND-COLOR 5
  63.              BACKGROUND-COLOR 2 
  64.              VALUE '                                        '.
  65.           03 LINE 5 COLUMN 40
  66.              FOREGROUND-COLOR 5
  67.              BACKGROUND-COLOR 2
  68.              VALUE '                                        '.
  69.           03 LINE 6 COLUMN 1
  70.              FOREGROUND-COLOR 5
  71.              BACKGROUND-COLOR 2 
  72.              VALUE '                                        '.
  73.           03 LINE 6 COLUMN 40
  74.              FOREGROUND-COLOR 5
  75.              BACKGROUND-COLOR 2
  76.              VALUE '                                        '.
  77.           03 LINE 7 COLUMN 1
  78.              FOREGROUND-COLOR 5
  79.              BACKGROUND-COLOR 2 
  80.              VALUE '                                        '.
  81.           03 LINE 7 COLUMN 40
  82.              FOREGROUND-COLOR 5
  83.              BACKGROUND-COLOR 2
  84.              VALUE '                                        '.
  85.           03 LINE 8 COLUMN 1
  86.              FOREGROUND-COLOR 5
  87.              BACKGROUND-COLOR 2 
  88.              VALUE '                                        '.
  89.           03 LINE 8 COLUMN 40
  90.              FOREGROUND-COLOR 5
  91.              BACKGROUND-COLOR 2
  92.              VALUE '                                        '.
  93.           03 LINE 9 COLUMN 1
  94.              FOREGROUND-COLOR 5
  95.              BACKGROUND-COLOR 2 
  96.              VALUE '                                        '.
  97.           03 LINE 9 COLUMN 40
  98.              FOREGROUND-COLOR 5
  99.              BACKGROUND-COLOR 2
  100.              VALUE '                                        '.
  101.           03 LINE 10 COLUMN 1
  102.              FOREGROUND-COLOR 5
  103.              BACKGROUND-COLOR 2 
  104.              VALUE '                                        '.
  105.           03 LINE 10 COLUMN 40
  106.              FOREGROUND-COLOR 5
  107.              BACKGROUND-COLOR 2
  108.              VALUE '                                        '.
  109.           03 LINE 11 COLUMN 1
  110.              FOREGROUND-COLOR 5
  111.              BACKGROUND-COLOR 2 
  112.              VALUE '                                        '.
  113.           03 LINE 11 COLUMN 40
  114.              FOREGROUND-COLOR 5
  115.              BACKGROUND-COLOR 2
  116.              VALUE '                                        '.
  117.           03 LINE 12 COLUMN 1
  118.              FOREGROUND-COLOR 5
  119.              BACKGROUND-COLOR 2 
  120.              VALUE '                                        '.
  121.           03 LINE 12 COLUMN 40
  122.              FOREGROUND-COLOR 5
  123.              BACKGROUND-COLOR 2
  124.              VALUE '                                        '.
  125.           03 LINE 13 COLUMN 1
  126.              FOREGROUND-COLOR 5
  127.              BACKGROUND-COLOR 2 
  128.              VALUE '                                        '.
  129.           03 LINE 13 COLUMN 40
  130.              FOREGROUND-COLOR 5
  131.              BACKGROUND-COLOR 2
  132.              VALUE '                                        '.
  133.           03 LINE 14 COLUMN 1
  134.              FOREGROUND-COLOR 5
  135.              BACKGROUND-COLOR 2 
  136.              VALUE '                                        '.
  137.           03 LINE 14 COLUMN 40
  138.              FOREGROUND-COLOR 5
  139.              BACKGROUND-COLOR 2
  140.              VALUE '                                        '.
  141.           03 LINE 15 COLUMN 1
  142.              FOREGROUND-COLOR 5
  143.              BACKGROUND-COLOR 2 
  144.              VALUE '                                        '.
  145.           03 LINE 15 COLUMN 40
  146.              FOREGROUND-COLOR 5
  147.              BACKGROUND-COLOR 2
  148.              VALUE '                                        '.
  149.           03 LINE 16 COLUMN 1
  150.              FOREGROUND-COLOR 5
  151.              BACKGROUND-COLOR 2 
  152.              VALUE '                                        '.
  153.           03 LINE 16 COLUMN 40
  154.              FOREGROUND-COLOR 5
  155.              BACKGROUND-COLOR 2
  156.              VALUE '                                        '.
  157.           03 LINE 17 COLUMN 1
  158.              FOREGROUND-COLOR 5
  159.              BACKGROUND-COLOR 2 
  160.              VALUE '                                        '.
  161.           03 LINE 17 COLUMN 40
  162.              FOREGROUND-COLOR 5
  163.              BACKGROUND-COLOR 2
  164.              VALUE '                                        '.
  165.           03 LINE 18 COLUMN 1
  166.              FOREGROUND-COLOR 5
  167.              BACKGROUND-COLOR 2 
  168.              VALUE '                                        '.
  169.           03 LINE 18 COLUMN 40
  170.              FOREGROUND-COLOR 5
  171.              BACKGROUND-COLOR 2
  172.              VALUE '                                        '.
  173.           03 LINE 19 COLUMN 1
  174.              FOREGROUND-COLOR 5
  175.              BACKGROUND-COLOR 2 
  176.              VALUE '                                        '.
  177.           03 LINE 19 COLUMN 40
  178.              FOREGROUND-COLOR 5
  179.              BACKGROUND-COLOR 2
  180.              VALUE '                                        '.
  181.           03 LINE 20 COLUMN 1
  182.              FOREGROUND-COLOR 5
  183.              BACKGROUND-COLOR 2 
  184.              VALUE '                                        '.
  185.           03 LINE 20 COLUMN 40
  186.              FOREGROUND-COLOR 5
  187.              BACKGROUND-COLOR 2
  188.              VALUE '                                        '.
  189.           03 LINE 21 COLUMN 1
  190.              FOREGROUND-COLOR 5
  191.              BACKGROUND-COLOR 2 
  192.              VALUE '                                        '.
  193.           03 LINE 21 COLUMN 40
  194.              FOREGROUND-COLOR 5
  195.              BACKGROUND-COLOR 2
  196.              VALUE '                                        '.
  197.           03 LINE 22 COLUMN 1
  198.              FOREGROUND-COLOR 5
  199.              BACKGROUND-COLOR 2 
  200.              VALUE '                                        '.
  201.           03 LINE 22 COLUMN 40
  202.              FOREGROUND-COLOR 5
  203.              BACKGROUND-COLOR 2
  204.              VALUE '                                        '.
  205.           03 LINE 23 COLUMN 1
  206.              FOREGROUND-COLOR 5
  207.              BACKGROUND-COLOR 2 
  208.              VALUE '                                        '.
  209.           03 LINE 23 COLUMN 40
  210.              FOREGROUND-COLOR 5
  211.              BACKGROUND-COLOR 2
  212.              VALUE '                                        '.
  213.        01 CBL-HDR.
  214.           03 LINE 4 COLUMN 20
  215.              FOREGROUND-COLOR 4
  216.              BACKGROUND-COLOR 1
  217.              VALUE 'CCC'.     
  218.           03 LINE 4 COLUMN 28
  219.              FOREGROUND-COLOR 4
  220.              BACKGROUND-COLOR 1
  221.              VALUE 'OOO'.     
  222.           03 LINE 4 COLUMN 35
  223.              FOREGROUND-COLOR 4
  224.              BACKGROUND-COLOR 1
  225.              VALUE 'BBBB'.    
  226.           03 LINE 4 COLUMN 44
  227.              FOREGROUND-COLOR 4
  228.              BACKGROUND-COLOR 1
  229.              VALUE 'OOO'.     
  230.           03 LINE 4 COLUMN 51
  231.              FOREGROUND-COLOR 4
  232.              BACKGROUND-COLOR 1
  233.              VALUE 'L'.       
  234.           03 LINE 5 COLUMN 19
  235.              FOREGROUND-COLOR 4
  236.              BACKGROUND-COLOR 1
  237.              VALUE 'C'.       
  238.           03 LINE 5 COLUMN 23
  239.              FOREGROUND-COLOR 4
  240.              BACKGROUND-COLOR 1
  241.              VALUE 'C'.        
  242.           03 LINE 5 COLUMN 27
  243.              FOREGROUND-COLOR 4
  244.              BACKGROUND-COLOR 1
  245.              VALUE 'O'.       
  246.           03 LINE 5 COLUMN 31
  247.              FOREGROUND-COLOR 4
  248.              BACKGROUND-COLOR 1
  249.              VALUE 'O'.        
  250.           03 LINE 5 COLUMN 35
  251.              FOREGROUND-COLOR 4
  252.              BACKGROUND-COLOR 1
  253.              VALUE 'B'.       
  254.           03 LINE 5 COLUMN 39
  255.              FOREGROUND-COLOR 4
  256.              BACKGROUND-COLOR 1
  257.              VALUE 'B'.        
  258.           03 LINE 5 COLUMN 43
  259.              FOREGROUND-COLOR 4
  260.              BACKGROUND-COLOR 1
  261.              VALUE 'O'.       
  262.           03 LINE 5 COLUMN 47 
  263.              FOREGROUND-COLOR 4
  264.              BACKGROUND-COLOR 1
  265.              VALUE 'O'.       
  266.           03 LINE 5 COLUMN 51 
  267.              FOREGROUND-COLOR 4
  268.              BACKGROUND-COLOR 1
  269.              VALUE 'L'.        
  270.           03 LINE 6 COLUMN 19 
  271.              FOREGROUND-COLOR 4
  272.              BACKGROUND-COLOR 1
  273.              VALUE 'C'.        
  274.           03 LINE 6 COLUMN 27 
  275.              FOREGROUND-COLOR 4
  276.              BACKGROUND-COLOR 1
  277.              VALUE 'O'.       
  278.           03 LINE 6 COLUMN 31 
  279.              FOREGROUND-COLOR 4
  280.              BACKGROUND-COLOR 1
  281.              VALUE 'O'.       
  282.           03 LINE 6 COLUMN 35 
  283.              FOREGROUND-COLOR 4
  284.              BACKGROUND-COLOR 1
  285.              VALUE 'BBBB'.    
  286.           03 LINE 6 COLUMN 43 
  287.              FOREGROUND-COLOR 4
  288.              BACKGROUND-COLOR 1
  289.              VALUE 'O'.        
  290.           03 LINE 6 COLUMN 47 
  291.              FOREGROUND-COLOR 4
  292.              BACKGROUND-COLOR 1
  293.              VALUE 'O'.         
  294.           03 LINE 6 COLUMN 51 
  295.              FOREGROUND-COLOR 4
  296.              BACKGROUND-COLOR 1
  297.              VALUE 'L'.          
  298.           03 LINE 7 COLUMN 19 
  299.              FOREGROUND-COLOR 4
  300.              BACKGROUND-COLOR 1
  301.              VALUE 'C'.          
  302.           03 LINE 7 COLUMN 27 
  303.              FOREGROUND-COLOR 4
  304.              BACKGROUND-COLOR 1
  305.              VALUE 'O'.           
  306.           03 LINE 7 COLUMN 31 
  307.              FOREGROUND-COLOR 4
  308.              BACKGROUND-COLOR 1
  309.              VALUE 'O'.          
  310.           03 LINE 7 COLUMN 35 
  311.              FOREGROUND-COLOR 4
  312.              BACKGROUND-COLOR 1
  313.              VALUE 'BBBB'.          
  314.           03 LINE 7 COLUMN 43 
  315.              FOREGROUND-COLOR 4
  316.              BACKGROUND-COLOR 1
  317.              VALUE 'O'.         
  318.           03 LINE 7 COLUMN 47 
  319.              FOREGROUND-COLOR 4
  320.              BACKGROUND-COLOR 1
  321.              VALUE 'O'.         
  322.           03 LINE 7 COLUMN 51 
  323.              FOREGROUND-COLOR 4
  324.              BACKGROUND-COLOR 1
  325.              VALUE 'L'.          
  326.           03 LINE 8 COLUMN 19 
  327.              FOREGROUND-COLOR 4
  328.              BACKGROUND-COLOR 1
  329.              VALUE 'C'.           
  330.           03 LINE 8 COLUMN 23 
  331.              FOREGROUND-COLOR 4
  332.              BACKGROUND-COLOR 1
  333.              VALUE 'C'.          
  334.           03 LINE 8 COLUMN 27 
  335.              FOREGROUND-COLOR 4
  336.              BACKGROUND-COLOR 1
  337.              VALUE 'O'.          
  338.           03 LINE 8 COLUMN 31 
  339.              FOREGROUND-COLOR 4
  340.              BACKGROUND-COLOR 1
  341.              VALUE 'O'.          
  342.           03 LINE 8 COLUMN 35 
  343.              FOREGROUND-COLOR 4
  344.              BACKGROUND-COLOR 1
  345.              VALUE 'B'.         
  346.           03 LINE 8 COLUMN 39 
  347.              FOREGROUND-COLOR 4
  348.              BACKGROUND-COLOR 1
  349.              VALUE 'B'.         
  350.           03 LINE 8 COLUMN 43 
  351.              FOREGROUND-COLOR 4
  352.              BACKGROUND-COLOR 1
  353.              VALUE 'O'.        
  354.           03 LINE 8 COLUMN 47 
  355.              FOREGROUND-COLOR 4
  356.              BACKGROUND-COLOR 1
  357.              VALUE 'O'.         
  358.           03 LINE 8 COLUMN 51 
  359.              FOREGROUND-COLOR 4
  360.              BACKGROUND-COLOR 1
  361.              VALUE 'L'.          
  362.           03 LINE 9 COLUMN 20 
  363.              FOREGROUND-COLOR 4
  364.              BACKGROUND-COLOR 1
  365.              VALUE 'CCC'.          
  366.           03 LINE 9 COLUMN 28 
  367.              FOREGROUND-COLOR 4
  368.              BACKGROUND-COLOR 1
  369.              VALUE 'OOO'.       
  370.           03 LINE 9 COLUMN 35 
  371.              FOREGROUND-COLOR 4
  372.              BACKGROUND-COLOR 1
  373.              VALUE 'BBBB'.        
  374.           03 LINE 9 COLUMN 44 
  375.              FOREGROUND-COLOR 4
  376.              BACKGROUND-COLOR 1
  377.              VALUE 'OOO'.        
  378.           03 LINE 9 COLUMN 51 
  379.              FOREGROUND-COLOR 4
  380.              BACKGROUND-COLOR 1
  381.              VALUE 'LLLLL'.    
  382.        01 MORE-INFO.
  383.           03 LINE 12 COLUMN 1
  384.              FOREGROUND-COLOR 7
  385.              BACKGROUND-COLOR 2
  386.              VALUE '________________________________________'.
  387.           03 LINE 12 COLUMN 40
  388.              FOREGROUND-COLOR 7
  389.              BACKGROUND-COLOR 2
  390.              VALUE '________________________________________'.
  391.       
  392.        01 MORE-INFO-1.
  393.           03 LINE 14 COLUMN 7
  394.              HIGHLIGHT
  395.              UNDERLINE
  396.              FOREGROUND-COLOR 9
  397.              BACKGROUND-COLOR 2
  398.              VALUE 'Now with COBOL version 5.30 you have the'.
  399.           03 LINE 14 COLUMN 48
  400.              highlight
  401.              UNDERLINE
  402.              FOREGROUND-COLOR 9
  403.              BACKGROUND-COLOR 2
  404.              value 'ability use to screen IO.'.
  405.        01 box-1.
  406.           03 line 18 column 20
  407.              FOREGROUND-COLOR 9
  408.              BACKGROUND-COLOR 7
  409.              VALUE '                    '.
  410.           03 line 18 column 40
  411.              FOREGROUND-COLOR 9
  412.              BACKGROUND-COLOR 7
  413.              VALUE '                  '.
  414.  
  415.  
  416.           03 LINE 19 COLUMN 20
  417.              FOREGROUND-COLOR 9
  418.              BACKGROUND-COLOR 7
  419.              VALUE '      User Supported Shareware        '.
  420.           03 LINE 20 COLUMN 20
  421.              FOREGROUND-COLOR 9
  422.              BACKGROUND-COLOR 7
  423.              VALUE '                                      '.
  424.           03 LINE 21 COLUMN 20
  425.              FOREGROUND-COLOR 9
  426.              BACKGROUND-COLOR 7
  427.              VALUE '   Copywrite: R. E. Noweck 1990       '.
  428.           03 LINE 22 COLUMN 20
  429.              FOREGROUND-COLOR 9
  430.              BACKGROUND-COLOR 7
  431.              VALUE '                    '.
  432.           03 line 22 column 40
  433.              FOREGROUND-COLOR 9
  434.              BACKGROUND-COLOR 7
  435.              VALUE '                  '.
  436.  
  437.  
  438.  
  439.        01 cpywrite.
  440.           03 LINE 20 COLUMN 31
  441.              BLINK             
  442.              FOREGROUND-COLOR 6
  443.              BACKGROUND-COLOR 7
  444.              VALUE 'COBOL VER. 5.30'.
  445.     
  446.        01 NEXT-SCREEN.
  447.           03 LINE 1 COLUMN 20
  448.              highlight
  449.              FOREGROUND-COLOR 9
  450.              BACKGROUND-COLOR 2
  451.              VALUE 'ANSI STANDARD COBOL has gone thru many '.
  452.           03 LINE 3 COLUMN 20
  453.              highlight
  454.              FOREGROUND-COLOR 9
  455.              BACKGROUND-COLOR 2
  456.              VALUE 'changes in the years since it was first'.
  457.           03 LINE 5 COLUMN 20
  458.              highlight
  459.              FOREGROUND-COLOR 9
  460.              BACKGROUND-COLOR 2
  461.              VALUE 'written.  Now I have added fixed ALL   '.
  462.           03 LINE 7 COLUMN 20
  463.              highlight
  464.              FOREGROUND-COLOR 9
  465.              BACKGROUND-COLOR 2
  466.              VALUE 'the BUGS that seemed to plague me.  In '.
  467.           03 LINE 9 COLUMN 20
  468.              highlight
  469.              FOREGROUND-COLOR 9
  470.              BACKGROUND-COLOR 2
  471.              VALUE 'keeping with the shareware concept this'.
  472.           03 LINE 11 COLUMN 20
  473.              highlight
  474.              FOREGROUND-COLOR 9
  475.              BACKGROUND-COLOR 2
  476.              VALUE 'compiler is offered on a TRY and BUY   '.
  477.           03 LINE 13 COLUMN 20
  478.              highlight
  479.              FOREGROUND-COLOR 9
  480.              BACKGROUND-COLOR 2
  481.              VALUE 'basis.                                 '.
  482.           03 LINE 16 COLUMN 20
  483.              highlight
  484.              FOREGROUND-COLOR 6
  485.              BACKGROUND-COLOR 2
  486.              VALUE 'If you like this product then PLEASE   '.
  487.           03 LINE 17 COLUMN 20
  488.              highlight
  489.              FOREGROUND-COLOR 6
  490.              BACKGROUND-COLOR 2
  491.              VALUE 'send your donation of $25.00 to :      '.
  492.           03 LINE 18 COLUMN 20
  493.              highlight
  494.              FOREGROUND-COLOR 7
  495.              BACKGROUND-COLOR 2
  496.              VALUE '      Coastal Area Support Team        '.
  497.           03 LINE 19 COLUMN 20
  498.              highlight
  499.              FOREGROUND-COLOR 7
  500.              BACKGROUND-COLOR 2
  501.              VALUE '           115 Lynton Rd.              '.
  502.           03 LINE 20 COLUMN 20
  503.              highlight
  504.              FOREGROUND-COLOR 7
  505.              BACKGROUND-COLOR 2
  506.              VALUE '          Jesup, Ga. 31545             '.
  507.           03 LINE 22 COLUMN 20
  508.              highlight
  509.              FOREGROUND-COLOR 5
  510.              BACKGROUND-COLOR 2
  511.              VALUE '  <c> 1990 R.E. Noweck   912-427-0756  '.
  512.  
  513.        01 PRESS.
  514.           03 LINE 23 COLUMN 5
  515.              BLINK
  516.              FOREGROUND-COLOR 6
  517.              BACKGROUND-COLOR 2
  518.              VALUE 'PRESS RETURN TO CONTINUE'.
  519.  
  520. 20200  PROCEDURE DIVISION.
  521. 20300  MAIN.
  522. 20310      DISPLAY CLRSCR.
  523. 20320      DISPLAY CBL-HDR.
  524. 20321      DISPLAY MORE-INFO.
  525. 20322      display more-info-1.
  526. 20330      DISPLAY BOX-1.
  527. 20333      DISPLAY CPYWRITE.
  528. 20340      DISPLAY PRESS.
  529. 20341      ACCEPT ( 23 , 30 ) TEST.
  530. 20350      DISPLAY CLRSCR.
  531. 20360      DISPLAY NEXT-SCREEN.
  532. 20400      STOP RUN.
  533.