Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MDUTIL.ZIP / TIMEFIND.BAS (.txt) < prev next >

Wrap

GW-BASIC | 1986-12-01 | 12.6 KB | 275 lines

1 REM 3 KEY OFF:SCREEN 0,1:WIDTH 40:COLOR 14,0,0:CLS:LOCATE 5,19:PRINT "MDS" 5 LOCATE 7,8,0:PRINT "Micro Development Software" 6 LOCATE 8,8:COLOR 12,0,0:PRINT STRING$(26,196) 7 COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(201)+STRING$(21,205)+CHR$(187) 9 LOCATE 11,9:PRINT CHR$(186)+"TIME-FIND MANAGEMENT "+CHR$(186) 11 LOCATE 12,9:PRINT CHR$(186)+STRING$(21,32)+CHR$(186) 13 LOCATE 13,9:PRINT CHR$(186)+" Version 2.0 "+CHR$(186) 15 LOCATE 14,9:PRINT CHR$(200)+STRING$(21,205)+CHR$(188) 17 LOCATE 17,10:PRINT"Written By M.D. Smith" 19 COLOR 14,0:LOCATE 19,7:PRINT " Circa 1985" 21 COLOR 9,0:LOCATE 23,7:PRINT "Press space bar to continue" 23 POKE 106,0:REM CLEAR KYBD BUFFER 25 A$ = INKEY$:IF A$="" THEN GOTO 25 27 REM 29 REM 31 REM 32 REM 34 REM *************************************************************** 36 REM * * 38 REM * TIMEFIND.BAS A program on improving time management * 40 REM * * 42 REM * Written by M.D. Smith, Manager of WAAY-TV * 44 REM * 1000 Monte Sano Blvd., S.E., Huntsville, AL 35801 * 46 REM * M.D. Smith is also an Instructor of the Dale Carengie * 48 REM * Management Seminar(c). First version: July 9, 1985 * 50 REM * * 52 REM * Version 2.6 July 12, l985 * 54 REM * * 56 REM *************************************************************** 58 REM 60 REM 100 WIDTH 80:COLOR 14,0,0:CLS 110 DIM Q$(30),B$(30),B(30) 400 CLS:PRINT:PRINT:PRINT"This program is designed to help you find out where all your time is going." 410 PRINT:PRINT"It should also help you make more profitable use of your time...if that" 420 PRINT:PRINT"is what you want to do. This short program will give you some extra tools." 430 PRINT:PRINT"Use them often if you want to squeeze much more results from an X-hour day !" 450 GOSUB 48000 500 CLS:LOCATE 3,10:PRINT"*** TIME-FIND EVALUATION QUESTIONNAIRE ***" 505 LOCATE 25,5:COLOR 12,0,0:PRINT"ENTER 1-5 1=NEVER, 2=OCASIONALLY, 3=USUALLY, 4=OFTEN, 5=ALWAYS":COLOR 14,0,0:LOCATE 5,1 510 FOR I = 1 TO 20:READ Q$(I):NEXT I 550 FOR I = 1 TO 20 560 PRINT "#";I;Q$(I); 570 INPUT B$(I):B(I) = VAL(B$(I)) 580 IF B(I) <1 OR B(I) >5 THEN GOTO 560 590 TOT = TOT+B(I): C = C+1 595 PRINT 600 NEXT I 610 GOSUB 48000 700 CLS: PRINT:PRINT SPC(10);"*** RESULTS OF TIME QUESTIONNAIRE ***" 710 PRINT:PRINT"YOU SCORED A TOTAL OF ";TOT;" POINTS OUT OF 100" 720 PRINT:PRINT SPC(15);"RANKING BY RANGE OF SCORE" 730 PRINT:PRINT SPC(25);"80-100 Excellent time manager" 740 PRINT SPC(25);"60-80 Good use of time" 750 PRINT SPC(25);"40-60 Average use of time" 760 PRINT SPC(25);"20-40 Below average use of time" 770 PRINT SPC(25);" 0-20 Poor use and control of time" 780 PRINT:PRINT:PRINT"If you are not satisfied with your time usage and would like to find more" 790 PRINT"minutes and/or hours in the day, print out a copy of the questionnaire and" 800 PRINT"refer to it every day for a month, then repeat the program on the computer." 810 PRINT"If you can raise your average by 20 points, you should find that you are" 820 PRINT"having the results of an extra 1-2 hours per working day. GREAT, HUH?" 840 GOSUB 48000 900 REM 910 REM ********** THIS IS THE PRINTER PROGRAM ****************** 920 REM 930 CLS:PRINT:PRINT:PRINT:INPUT "DO YOU WANT A HARDCOPY OF QUESTIONNAIRE ON PRINTER (Y/N)";P$ 940 IF P$ <> "Y" AND P$ <> "y" THEN GOTO 1200 950 REM 960 REM ** PRINTING BEGINS ** 970 REM 980 LPRINT:LPRINT "***** THIS IS THE PRINTOUT OF THE 20 ITEMS FROM THE TIME-FIND PROGRAM *****" 985 LPRINT SPC(7);"ENTER 1-5 1=NEVER, 2=OCASIONALLY, 3=USUALLY, 4=OFTEN, 5=ALWAYS":COLOR 14,0,0:LOCATE 5,1 990 LPRINT:LPRINT 1000 FOR I = 1 TO 20 1010 LPRINT "#";I;Q$(I);" :";B(I) 1020 LPRINT 1030 NEXT I 1040 LPRINT:LPRINT "YOU SCORED A TOTAL OF ";TOT;" POINTS OUT OF 100" 1050 LPRINT:LPRINT SPC(15);"RANKING BY RANGE OF SCORE" 1060 LPRINT:LPRINT SPC(25);"80-100 Excellent time manager" 1070 LPRINT SPC(25);"60-80 Good use of time" 1080 LPRINT SPC(25);"40-60 Average use of time" 1090 LPRINT SPC(25);"20-40 Below average use of time" 1100 LPRINT SPC(25);" 0-20 Poor use and control of time" 1110 LPRINT:LPRINT:LPRINT "If you are not satisfied with your time usage and would like to find more" 1120 LPRINT"minutes and/or hours in the day, print out a copy of the questionnaire and" 1130 LPRINT"refer to it every day for a month, then repeat the program on the computer." 1140 LPRINT"If you can raise your average by 20 points, you should find that you are" 1150 LPRINT"having the results of an extra 1-2 hours per working day. GREAT, HUH?" 1200 PRINT:PRINT:PRINT:INPUT "DO YOU WANT TO END THE SESSION WITH AN INSPIRATIONAL MESSAGE";M$ 1210 IF M$ <> "Y" AND M$ <> "y" THEN GOTO 49999: REM END OF PROGRAM 1250 REM 1260 REM ************* THIS IS THE RANDOM MESSAGE SECTION ********* 1270 REM 1280 RANDOMIZE TIMER 1290 MESS = INT(RND(1)*6)+1 1300 ON MESS GOSUB 2000,2300,2600,2900,3200,3500 1304 PRINT:PRINT:INPUT "DO YOU WANT ANOTHER INSPIRATIONAL MESSAGE (Y/N)";N$ 1306 IF N$ <> "Y" AND N$ <> "y" THEN GOTO 49999: REM END OF PROGRAM 1308 GOTO 1290 1310 REM 1320 REM 1330 REM 2000 REM 2010 REM ****************** THIS IS TIME MESSAGE 1 ******************** 2020 REM 2030 CLS:PRINT:PRINT CHR$(34);"Time is the inexplicable raw material of everything. With it, all is possible;" 2040 PRINT "without it, nothing. The supply of time is truly a daily miracle, an affair" 2050 PRINT "genuinely astonishing when one examines it." 2060 PRINT:PRINT "You wake up in the morning, and lo! your purse is magically filled with" 2070 PRINT "twenty-four hours of the unmanufactured tissue of the universe of your life!" 2080 PRINT "It is yours. It is the most precious of possessions....." 2090 PRINT:PRINT "You have to live on this twenty-four hours of daily time. Out of it you have" 2100 PRINT "to spin health, pleasure, money, content, respect, and use, is a matter of the" 2110 PRINT "highest urgency and of the most thrilling actuality. All depends on that." 2120 PRINT "Your happiness....depends on that.... 2130 PRINT:PRINT "We never shall have any more time. We have, and we have always had," 2140 PRINT "all the time there is.";CHR$(34) 2150 PRINT:PRINT:PRINT:PRINT SPC(52);"ARNOLD BENNETT" 2160 GOSUB 48000 2170 RETURN 2180 REM 2190 REM 2200 REM 2300 REM 2310 REM ********************** TIME MESSAGE 2 *************************** 2320 REM 2330 CLS:COLOR 9,0,0:PRINT:PRINT:PRINT CHR$(34);"KNOW THE TRUE VALUE OF TIME. SNATCH, SEIZE AND ENJOY EVERY MOMENT OF IT." 2340 PRINT "NO IDLENESS, NO LAZINESS, NO PROCRASTINATION. NEVER PUT OFF TILL TOMORROW" 2350 PRINT "WHAT YOU CAN DO TODAY.";CHR$(34) 2360 COLOR 14,0,0:PRINT:PRINT:PRINT SPC(52);"Lord Chesterfield" 2370 PRINT:PRINT:PRINT "This is very good advice. Sometimes we look at a big project and don't know" 2380 PRINT "where to get started. Often this delays the start and the finish of the job." 2390 PRINT "The old Chinese Proverb states that a trip of a thousand miles begins with the" 2400 PRINT "first step. Often when we take the first few steps the job looks smaller" 2410 PRINT "than it first did. Set out the things to be done in order of importance. Then," 2420 PRINT "no matter how big the first item appears, jump right in and get started." 2430 PRINT "This way, the only things you put off until tomorrow are the truly lesser" 2440 PRINT "things to be done. The important things will get done today." 2450 REM 2460 GOSUB 48000 2470 RETURN 2480 REM 2490 REM 2500 REM 2600 REM 2610 REM ******************* TIME MESSAGE 3 ******************************** 2620 REM 2630 REM 2640 CLS:COLOR 9,0,0:PRINT:PRINT CHR$(34);"YOU WILL NEVER `FIND' TIME FOR ANYTHING." 2650 PRINT "IF YOU WANT TIME YOU MUST MAKE IT.";CHR$(34) 2660 COLOR 14,0,0:PRINT SPC(40);"Charles Buxton" 2670 COLOR 9,0,0:PRINT:PRINT:PRINT CHR$(34);"MOST TIME IS WASTED, NOT IN HOURS, BUT IN MINUTES. A BUCKET WITH A SMALL" 2680 PRINT "HOLE IN THE BOTTOM GETS JUST AS EMPTY AS A BUCKET THAT IS KICKED OVER.";CHR$(34) 2690 COLOR 14,0,0:PRINT:PRINT SPC(52);"Paul Meyer" 2700 PRINT:PRINT:PRINT "If we are really careful of every minute in the day, it is amazing how many" 2710 PRINT "little minutes can add up. If we are determined to `make time' to get things" 2720 PRINT "done that we want to do...we can do it. By keeping a time log, minute by " 2730 PRINT "minute, we will see where all those precious little minutes are leaking out of" 2740 PRINT "the bucket....until it is empty...the day is gone." 2750 PRINT:PRINT "Examine your time log carefully and you will discover what you need to do" 2760 PRINT "to have the extra time each day that you want. " 2770 REM 2780 REM 2790 REM 2800 REM 2810 GOSUB 48000 2820 RETURN 2830 REM 2840 REM 2900 REM 2910 REM ********************** TIME MESSAGE 4 ************************** 2920 REM 2930 CLS:COLOR 9,0,0:PRINT:PRINT:PRINT CHR$(34);"He slept beneath the Moon," 2940 PRINT:PRINT " He basked beneath the Sun;" 2950 PRINT:PRINT "He lived a life of going-to-do," 2960 PRINT:PRINT " And died with nothing done.";CHR$(34):COLOR 14,0,0 2970 PRINT:PRINT SPC(30);"James Albery" 2980 PRINT:PRINT:PRINT:PRINT "It's a simple fact that the `road to HE-- is paved with good intentions.' " 2990 PRINT "To be effective time-managers we have to have direction and motion." 3000 PRINT "Yes, we have to have a road-map....usually in the form of a `TO-DO' List." 3010 PRINT "This provides us with the schedule of events to be done in order of importance." 3020 PRINT "Once we have the `road-map' (To-Do List), we have to get into motion and ..." 3030 PRINT "GET THINGS DONE ! Effective time management is as simple....or as hard" 3040 PRINT "as that. " 3050 REM 3060 REM 3070 REM 3080 GOSUB 48000 3090 RETURN 3100 REM 3110 REM 3120 REM 3200 REM ********************** TIME MESSAGE 5 ****************************** 3210 REM 3220 CLS:COLOR 9,0,0:PRINT:PRINT CHR$(34);"A man that is young in years may be old in hours, if he has lost no time.";CHR$(34):COLOR 14,0,0 3240 PRINT:PRINT SPC(55);"BACON" 3250 COLOR 9,0,0:PRINT:PRINT:PRINT CHR$(34);"If time be of all things the most precious, wasting time must be the greatest" 3260 PRINT "prodigality, since lost time is never found again; and what we call time" 3270 PRINT "enough always proves little enough. Let us then be up and doing, and doing" 3280 PRINT "to the purpose; so by diligence shall we do more with less perplexity.";CHR$(34):COLOR 14,0,0 3290 PRINT:PRINT SPC(50);"Benjamin Franklin" 3300 PRINT:PRINT:PRINT "Old Ben had a lot of wise sayings. Many of them dealt with effective use of" 3310 PRINT "time. He accomplished quite a bit in his life-time. The reason is that he was" 3320 PRINT "always busy...but not just busy-work....busy with a purpose. He stayed busy" 3330 PRINT "with life, with inventions, with learning, with making life better for mankind." 3340 PRINT:PRINT "Perhaps none of us will ever be a Franklin, but we can certainly pattern our" 3350 PRINT "use of time after him. Tackle each job with enthusiasm and vigor. Time will" 3360 PRINT "fly by, but much will also be accomplished. " 3370 REM 3380 REM 3390 REM 3400 GOSUB 48000 3410 RETURN 3420 REM 3430 REM 3500 REM 3510 REM ******************** THIS IS MESSAGE 6 ************************ 3520 REM 3530 COLOR 9,0,0 3540 CLS:PRINT:PRINT:PRINT SPC(10);CHR$(34);"WORK EXPANDS SO AS TO FILL THE TIME AVAILABLE.";CHR$(34):COLOR 12,0,0 3550 PRINT:PRINT SPC(50);"Parkinson's Law" :COLOR 14,0,0 3560 PRINT:PRINT:PRINT:PRINT "It is true of a great many people that given a 5-hour task and 8-hours in which" 3570 PRINT "to complete it...the task will take 8 hours. If not the first few days, before" 3580 PRINT "too many days have passed. Many people stay busy all day long, but do not get" 3590 PRINT "very much done because they are allowing non-important work or details to use" 3600 PRINT "the time available. If we make a habit of timing each project and trying to get" 3610 PRINT "it to fit into a shorter time frame, we can usually do it. Thus, have time to" 3620 PRINT "do other jobs that need doing. Sometimes it is very healthy to be pushed to " 3630 PRINT "complete a far greater quantity of work than before. If you are able to do it," 3640 PRINT "you may find that some trivial things did not get done. Maybe these trivial" 3650 PRINT "little things should never get done...or at least done as a quick bunch job." 3660 PRINT "Remembering that all of us are subject to Parkinson's Law, we all must remain" 3670 PRINT "on guard so that we don't fall prey and thus limit our accomplishments." 3680 REM 3690 REM 3700 GOSUB 48000 3710 RETURN 3720 REM 3730 REM 4999 STOP 5000 DATA "At the end of any day, I know exactly where all my time went" 5010 DATA "I always get the important things done each day" 5020 DATA "I refuse to allow interruptions to get me sidetracked from work" 5030 DATA "I rank items to be done in order of importance, each day" 5040 DATA "I keep a list of things to be done in clear view on my desk" 5050 DATA "I group like-things together for efficiency (i.e. phone calls)" 5060 DATA "I schedule rest and recreation as carefully as work" 5070 DATA "I log my time on paper for a week (and repeat 4/times/year)" 5080 DATA "I always keep an eye out for jobs that need delegating" 5090 DATA "I avoid concentrating ONLY on the `FUN' jobs that I like" 5100 DATA "I examine the time required for each project vs. value of it" 5110 DATA "I carefully check time used for coffee breaks, phone calls, etc." 5120 DATA "I stop doing jobs altogether if not absolutely necessary" 5130 DATA "I try to combine similar jobs and complete them together" 5140 DATA "I plan my work daily, weekly, and monthly...on paper" 5150 DATA "I stop to question myself on best-use-of-time 5/times/day" 5160 DATA "I use a `cooking-timer' to push projects into time-units" 5170 DATA "I ask for help when it is really needed to finish a job" 5180 DATA "I find that I can finish and have a clean desk each day" 5190 DATA "I begin immediately on projects and don't procrastinate" 48000 REM *** THIS IS THE HIT-ANY KEY SUBROUTINE **** 48005 LOCATE 24,25:COLOR 10,0,0:PRINT"< PRESS ANY KEY TO CONTINUE >"; 48010 A$=INKEY$:IF A$="" THEN GOTO 48010 48015 COLOR 14,0,0:RETURN 49999 END 50000 REM ***** AUTO SAVER BELOW *********** 50005 SAVE"TIMEFIND.BAS" 50010 SAVE"B:TIMEFIND.BAS" 50020 STOP 50030 REM ******* THIS SETS THE PROGRAMMING KEYS ******************** 50100 KEY 5,"DATA "+CHR$(34):KEY 6,"GOTO ":KEY 7,"PRINT:":KEY 8,"PRINT "+CHR$(34):KEY 9,"LPRINT:":KEY 10,"LPRINT "+CHR$(34)