home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG102.ARC / PRODBO.FRM < prev    next >
Text File  |  1979-12-31  |  512b  |  33 lines
  1. M=1,L=66,W=80
  2. N
  3. N
  4. Y
  5. N
  6. 4,ACCNUM
  7. ACCT
  8. 4,QTY:BACKO
  9. QTY
  10. Y
  11. 8,DATE:ORD
  12. DATE ORD
  13. 30,ORD:COM
  14. COMMENTS
  15. HR(07)
  16. STORE ' ' TO WAIT
  17. @ 5,0 SAY ' IS THIS CORRECT <CR> OR (N)OT' GET WAIT PICT '!'
  18. READ
  19. @ 5,0
  20. IF  WAIT='N'
  21. @ 3,0
  22. LOOP
  23. ENDIF
  24. SET TALK OFF
  25.        STORE CODE TO CODEA
  26.        STORE F TO SPECIALA
  27.        STORE COST TO COSTA
  28.        STORE ITEM TO ITEMA
  29.        STORE TAX TO STAX
  30.      STORE 0 TO QTY:BACKOA
  31.  
  32. @ 9,0 SAY INVERT+' QUANITY LEFT IN STOCK  '+STR(STOCKED,5) 
  33. @ 10,0 SAY 'PRESS RETUR