home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DFLOW.ARC / SAMPLE.PRG < prev    next >
Encoding:
Text File  |  1985-04-09  |  246 b   |  20 lines
  1. *      SAMPLE UNINDENTED PROGRAM
  2. DO WHILE .NOT. EOF
  3. IF X > 0
  4. DO CASE
  5. CASE X = 1
  6. STORE '1' TO Y
  7. CASE X = 2
  8. STORE '2' TO Y
  9. OTHERWISE
  10. STORE 'O' TO Y
  11. ENDCASE
  12. DO PROCESS
  13. ELSE
  14. ? "Found zero value"
  15. RETURN
  16. ENDIF
  17. SKIP
  18. ENDDO
  19. RETURN
  20. xHI