:**** DOLIST.BAS **** A program to print a daily `do list' of chores to do:**** written for I.B.Magazette by: Michael P. Ellerbe:**** provides for computer printout of name, date, projects, remarksM(:**** or allows a blank do list to be printeds- JOB$(): () : () 2 : : ,: < ,:"This program prints a do-list of projects to be done for "F , :"the day. It allows the user to input from the keyboard "`K , :"information such as name, date for do-list, day of week,"P  , :"up to 15 projects for the day, and a remarks statement"U  , :"at the end. Or if the user wants a blank do-list form" Z , :"it can be printed."b\ ,:"You can exit the program at any time by pressing";:  : " F8.";: ^ ,:"Press any key to continue."i : ,:"Press F8 to EXIT";: n "" ns : ,:"Press F8 to EXIT";: 2x ,: : ,: "Do List Format": ,: "-- ---- ------"[} : ,:"Press F8 to EXIT";: e  ,: "Do you want a blank form?";ANSW$: ANSW$""  : ANSW$"Y" ANSW$"y" T  ,: "Please enter your full name. ",NAM$R  ,: "What date is the list for? Hit enter for system date. ";DAT$m (DAT$) DAT$ ,: "What day of the week is the list for? ",DOW$ ,: "How many projects for the list";NUMJOBS^ NUMJOBS ,: "That's too many, please enter a smaller number.";: I : I: ,: (<," "): xAN$"y": COUNT :  : ,:"Press F8 to EXIT";:  (AN$"y" AN$"Y") COUNT NUMJOBS COUNT COUNT : COUNT ,( "Enter project #";COUNT;: JOB$(COUNT)g COUNTNUMJOBS  : , : "Any more? (Y/N)"; AN$: AN$""  : , : (," ");" ,: "Any remarks for the form? (Y/N) ";,AN$: AN$"" ,6 AN$"Y" AN$"y" T8@ ,: "What are your remarks? ";kJ REMK$: (REMK$)< REMK$(REMK$,<)T: , : "Please check your printer for alignment.";:  , : "Press any key to begin";Y : ,:"Press F8 to EXIT";: /^ "" ^ : , : "Printing your `Do List'.";@h ()"E"nr );();"Do List for: ";();NAM${| ( ) ();" Date: ";();DAT$; 2);();"Day: ";();DOW$ );(,"_"); B);( ,"_") ( ): );();"P r o j e c t s"( );(,"_")`:  );();"Identification"; #);"Completed"  ); ();(,"_"); #); (,"_") (),( ) COUNT   " < ";COUNT;". ";JOB$(COUNT); 5);"> < >"4 " ";(0,"_"); ;); " ";(,"_"); ( )@ COUNTh (); " Remarks: ";();REMK$ ); (<,"_"): ( ):  , : "List complete... print another? (Y/N) ";ANS$: ANS$""  : ANS$"Y" ANS$"y" : x : &b I  : JOB$(I)"": I: NUMJOBS: NAM$"": DAT$"": DOW$"": REMK$"": }&:Return to Magazette0 ADDR.%, COLOR.MONITOR$: ADDR.% DRIVE$":START"D: **** Return to Magazette ****  ADDR.%, COLOR.MONITOR$m ,: ADDR.% ,: ();"Returning to Magazette";(!);: DRIVE$":START":  ,#: "Good-bye!":