home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / tutor / pro12 / check1.bas < prev    next >
Encoding:
BASIC Source File  |  1990-10-03  |  2.8 KB  |  63 lines
  1. 10 ' CHECK.BAS - program to print a blank check on the screen and accept
  2. 20 ' the following information:
  3. 30 '
  4. 40 ' CHECKNO            Numeric variable that contains the check number
  5. 50 ' CHECKDATE$         String variable with check date (mm/dd/yyyy)
  6. 60 ' CHECKPAIDTO$       String variable with name of check payor
  7. 70 ' CHECKAMOUNT        Numeric variable that contains the check amount
  8. 80 ' CHECKMEMO$         String variable that contains the check memo field
  9. 90 '
  10. 100 ' First, clear screen and set up the check on the screen
  11. 110 ' Also open disk file (CHECKS.DAT) to add more checks...
  12. 120 OPEN "CHECKS.DAT" FOR APPEND AS #1
  13. 130 CLS
  14. 140 KEY OFF
  15. 150 LOCATE 25,1
  16. 160 PRINT "YOU ARE:  Entering information about a check drawn on account...";
  17. 170 LOCATE 1,1
  18. 180 PRINT "*******************************************************************************"
  19. 190 PRINT "*                                                                             *"
  20. 200 PRINT "*     Dewey, Cheatem and Howe                    Check No:   ______           *"
  21. 210 PRINT "*     123 Rook Boulevard                         Date:   __/__/____           *"
  22. 220 PRINT "*     Reed City, MI  49677                                                    *"
  23. 230 PRINT "*                                                                             *"
  24. 240 PRINT "*  Pay to the order of:   __________________________________________________  *"
  25. 250 PRINT "*                                                                             *"
  26. 260 PRINT "*  (Check Amount)     :   __________                                          *"
  27. 270 PRINT "*                                                                             *"
  28. 280 PRINT "*  Memo:   __________________________________________________                 *"
  29. 290 PRINT "*                                                                             *"
  30. 300 PRINT "*******************************************************************************"
  31. 310 'Check printed on screen, now let's get information about the check
  32. 320 LOCATE 3,60
  33. 330 INPUT CHECKNO
  34. 340 IF CHECKNO = 0 THEN GOTO 570
  35. 350 LOCATE 3,60
  36. 360 PRINT " ";
  37. 370 LOCATE 4,56
  38. 380 INPUT CHECKDATE$
  39. 390 LOCATE 4,56
  40. 400 PRINT " ";
  41. 410 LOCATE 7,25
  42. 420 INPUT CHECKPAIDTO$
  43. 430 LOCATE 7,25
  44. 440 PRINT " ";
  45. 450 LOCATE 9,25
  46. 460 INPUT CHECKAMOUNT
  47. 470 LOCATE 9,25
  48. 480 PRINT " ";
  49. 490 LOCATE 11,10,0
  50. 500 INPUT CHECKMEMO$
  51. 510 LOCATE 11,10,0
  52. 520 PRINT " ";
  53. 530 'Information entered, let's print it out to disk now..."
  54. 540 PRINT #1, CHECKNO, CHECKDATE$, CHECKPAIDTO$, CHECKAMOUNT, CHECKMEMO
  55. 550 'Now go back to Line 110 to see if there are any more checks...
  56. 560 GOTO 130
  57. 570 'Done with checks, close files and end program...
  58. 580 CLOSE #1
  59. 590 END
  60. 600 ' End of program - CHECK.BAS  07/15/1990
  61. 610 ' With modifications from GWBT03 homework 08/15/1990
  62.  
  63.