home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / dolist.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-27  |  3.4 KB  |  73 lines
  1. 10  '**** DOLIST.BAS **** A program to print a daily `do list' of chores to do
  2. 20  '**** written for I.B.Magazette by:  Michael P. Ellerbe
  3. 30  '**** provides for computer printout of name, date, projects, remarks
  4. 40  '****    or allows a blank do list to be printed
  5. 45  DIM JOB$(15): KEY (8) ON: ON KEY(8) GOSUB 65000
  6. 50  SCREEN 0: KEY OFF: COLOR 3,0: CLS
  7. 60  LOCATE 4,15:PRINT"This program prints a do-list of projects to be done for "
  8. 70  LOCATE 6,12:PRINT"the day.  It allows the user to input from the keyboard "
  9. 75  LOCATE 8,12:PRINT"information such as name, date for do-list, day of week,"
  10. 80  LOCATE 10,12:PRINT"up to 15 projects for the day, and a remarks statement"
  11. 85  LOCATE 12,12:PRINT"at the end. Or if the user wants a blank do-list form"
  12. 90  LOCATE 14,12:PRINT"it can be printed."
  13. 92  LOCATE 17,15:PRINT"You can exit the program at any time by pressing";:COLOR 11: PRINT"  F8.";:COLOR 3
  14. 94  LOCATE 24,24:PRINT"Press any key to continue."
  15. 105  COLOR 4:LOCATE 25,29:PRINT"Press F8 to EXIT";:COLOR 3
  16. 110  IF INKEY$="" THEN 110
  17. 115  COLOR 4:LOCATE 25,29:PRINT"Press F8 to EXIT";:COLOR 3
  18. 120  COLOR 3,0: CLS: LOCATE 3,30: PRINT"Do List Format": LOCATE 4,30: PRINT"-- ---- ------"
  19. 125  COLOR 4:LOCATE 25,29:PRINT"Press F8 to EXIT";:COLOR 3
  20. 130  GOSUB 540
  21. 140  LOCATE 7,5: PRINT"Do you want a blank form?";
  22. 150  ANSW$=INKEY$: IF ANSW$="" THEN 150 ELSE IF ANSW$="Y" OR ANSW$="y" THEN GOTO 340
  23. 160  LOCATE 10,5: LINE INPUT"Please enter your full name.  ",NAM$
  24. 170  LOCATE 13,5: LINE INPUT"What date is the list for?  Hit enter for system date. ";DAT$
  25. 180  IF LEN(DAT$)=0 THEN DAT$=DATE$
  26. 190  LOCATE 16,5: LINE INPUT"What day of the week is the list for?  ",DOW$
  27. 200  LOCATE 19,5: INPUT"How many projects for the list";NUMJOBS
  28. 210  IF NUMJOBS>15 THEN LOCATE 18,5: PRINT"That's too many, please enter a smaller number.";: FOR I=1 TO 1000: NEXT I: LOCATE 19,5: PRINT STRING$(60," "): GOTO 200
  29. 220  AN$="y": COUNT = 0: CLS
  30. 225  COLOR 4:LOCATE 25,29:PRINT"Press F8 to EXIT";:COLOR 3
  31. 230  WHILE (AN$="y" OR AN$="Y") OR COUNT < NUMJOBS
  32. 240     COUNT = COUNT + 1: LOCATE COUNT + 3,5
  33. 250     PRINT"Enter project #";COUNT;: LINE INPUT JOB$(COUNT)
  34. 260     IF COUNT<NUMJOBS THEN GOTO 280 ELSE LOCATE 23,10: PRINT"Any more? (Y/N)";
  35. 270     AN$=INKEY$: IF AN$="" THEN 270 ELSE LOCATE 23,10: PRINT STRING$(20," ");
  36. 280  WEND
  37. 290  LOCATE 21,5: PRINT"Any remarks for the form? (Y/N) ";
  38. 300  AN$=INKEY$: IF AN$="" THEN 300
  39. 310  IF AN$<>"Y" AND AN$<>"y" THEN GOTO 340
  40. 320  LOCATE 22,5: PRINT"What are your remarks? ";
  41. 330  LINE INPUT REMK$: IF LEN(REMK$)>60 THEN REMK$=LEFT$(REMK$,60)
  42. 340  CLS: LOCATE 8,10: PRINT"Please check your printer for alignment.";: LOCATE 13,10: PRINT"Press any key to begin";
  43. 345  COLOR 4:LOCATE 25,29:PRINT"Press F8 to EXIT";:COLOR 3
  44. 350  IF INKEY$="" THEN 350 ELSE LOCATE 18,10: PRINT"Printing your `Do List'.";
  45. 360  LPRINT CHR$(27)+"E"
  46. 370  LPRINT TAB(17);CHR$(14);"Do List for: ";CHR$(148);NAM$
  47. 380  LPRINT CHR$(10)
  48. 390  LPRINT CHR$(14);"  Date: ";CHR$(148);DAT$; TAB(50);CHR$(14);"Day: ";CHR$(148);DOW$
  49. 400  LPRINT TAB(16);STRING$(14,"_"); TAB(66);STRING$(11,"_")
  50. 410  LPRINT CHR$(10): LPRINT TAB(24);CHR$(14);"P r o j e c t s"
  51. 420  LPRINT TAB(24);STRING$(30,"_")
  52. 430  LPRINT: LPRINT TAB(10);CHR$(14);"Identification"; TAB(35);"Completed"
  53. 440  LPRINT TAB(10); CHR$(14);STRING$(14,"_"); TAB(35); STRING$(9,"_")
  54. 450  LPRINT CHR$(148),CHR$(10)
  55. 460  FOR COUNT = 1 TO 15
  56. 470  LPRINT "   <  ";COUNT;". ";JOB$(COUNT); TAB(53);">     <                   >"
  57. 480  LPRINT "    ";STRING$(48,"_"); TAB(59); " ";STRING$(19,"_"); CHR$(10)
  58. 490  NEXT COUNT
  59. 500  LPRINT CHR$(14); " Remarks: ";CHR$(148);REMK$
  60. 510  LPRINT TAB(19); STRING$(60,"_"): LPRINT CHR$(12)
  61. 520  CLS: LOCATE 12,10: PRINT"List complete...  print another? (Y/N)  ";
  62. 530  ANS$=INKEY$: IF ANS$="" THEN 530 ELSE IF ANS$="Y" OR ANS$="y" THEN CLS: GOTO 120 ELSE GOTO 550
  63. 540  FOR I= 1 TO 15: JOB$(I)="": NEXT I: NUMJOBS=0: NAM$="": DAT$="": DOW$="": REMK$="": RETURN
  64. 550  'Return to Magazette
  65. 560  COMMON ADDR.%, COLOR.MONITOR$
  66. 570  IF ADDR.%<>0 THEN CHAIN DRIVE$+":START"
  67. 580  END
  68. 65000  ' ****  Return to Magazette   ****
  69. 65010  COMMON ADDR.%, COLOR.MONITOR$
  70. 65020  COLOR 14,0: IF ADDR.%<>0 THEN LOCATE 25,1: PRINT SPACE$(25);"Returning to Magazette";SPACE$(33);: CHAIN DRIVE$+":START"
  71. 65030  CLS: LOCATE 12,35: PRINT"Good-bye!": COLOR 3
  72. 65040  END
  73.