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 / BRANDBO.FRM < prev    next >
Text File  |  1979-12-31  |  512b  |  33 lines
  1. M=1,L=66,W=80
  2. N
  3. N
  4. N
  5. 9,CODE
  6. PROD CODE
  7. 30,ITEM
  8. ITEM
  9. 4,QTY:BACKO
  10. QTY
  11. 4,ACCNUM
  12. ACCT
  13. 8,DATE:ORD
  14. DATE ORD
  15. )
  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