home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / dataflow.lbr / ALLBO.FRM < prev    next >
Encoding:
Text File  |  1989-06-15  |  512 b   |  40 lines
  1. M=0,L=66,W=80
  2. N
  3. N
  4. N
  5. 4,QTY:BACKO
  6. QTY
  7. 9,CODE
  8. PROD CODE
  9. 30,ITEM
  10. ITEM
  11. 19,$(ORD:COM,1,19)
  12. COMMENTS
  13. 8,DATE:ORD
  14. DATE ORD
  15. 4,ACCNUM
  16. ACCT
  17. K
  18. ENDIF
  19. IF DEC='2'
  20. DO a:CANBACK
  21. LOOP
  22. ENDIF
  23. IF DEC='R'
  24. RETURN
  25. ENDIF
  26. IF DEC='1'
  27. DO a:BACKCHEK
  28. ENDIF
  29. ENDDO
  30. E DEC='2' 
  31. DO a:CHECKOFF
  32. CASE DEC='3'
  33. erase
  34. STORE ' ' TO DEC2
  35. @ 1,0 SAY ' FOR A FULL REPORT PRESS F , FOR MONTHLY PRESS M'GET DEC2
  36. @ 2,0 SAY ' FOR A SUMMARY FULL PERIOD REPORT PRESS S'
  37. READ
  38. STORE !(DEC2) TO DEC2
  39. IF DEC2='F'
  40. USE GENLED IN