Home of the original IBM PC emulator for browsers.
[PCjs Machine "ibm5170"]
Waiting for machine "ibm5170" to load....
This program is a reminder list of things to do. It has a future
reminder section, a current section, and an archive or history section.
It can display all jobs currently active and you can set the option to
sort the listing by function or priority. You can review a selected
list of things to do or jobs. You can also add jobs. The jobs can be
edited and saved in a history file or simply erased. You can also move
a job from the current section to the future section. The effective
date can be chosen relative to the current date or by entering the date
directly. Some other miscellaneous functions also available are print,
change sort order, remove a function, and more.
File Descriptions:
BRUN30 EXE Run time library of Quickbasic.
?????? THG Data file for THI.EXE (4 files).
THI EXE Main program.
THIHIST EXE History section for the main program.
THINGFIL BAS File utility program for the main program.
THINGFIL BAT Batch file to load THINGFIL.BAS.
THINGS DOC Documentation for the main program.
THISEQ EXE Sequence section for the main program.
USERLIB EXE User library of QuickBASIC.
Disk No 1114
Program Title: THI USER LIB
PC-SIG version 1
This program is a reminder list of things to do. It has a future
reminder section, a current section, and an archive or history section. It
can display all jobs currently active and you can set the option to sort
the listing by function or priority. You can review a selected list of
things to do or jobs. You can also add jobs. The jobs can be edited and
saved in a history file or simply erased. You can also move a job from the
current section to the future section. The effective date can be chosen
relative to the current date or by entering the date directly. Some other
miscellaneous functions also available are: print, change sort order,
remove a function, and more.
Usage: Job Organization
System Requirements: 192K memory and one disk drive.
How to Start: Type THI (press enter)
Suggested Registration: None
File Descriptions:
BRUN30 EXE Run time library of Quickbasic.
?????? THG Data file for THI.EXE (4 files).
THI EXE Main program.
THIHIST EXE History section for the main program.
THINGFIL BAS File utility program for the main program.
THINGFIL BAT Batch file to load THINGFIL.BAS.
THINGS DOC Documentation for the main program.
THISEQ EXE Sequence section for the main program.
USERLIB EXE User library of Quickbasic.
PC-SIG
1030D E Duane Avenue
Sunnyvale Ca. 94086
(408) 730-9291
(c) Copyright 1987,88 PC-SIG, Inc.
╔═════════════════════════════════════════════════════════════════════════╗
║ <<<< Disk No 1114 THI USER LIB >>>> ║
╠═════════════════════════════════════════════════════════════════════════╣
║ ║
║ To print the documentation for THI, Type: ║
║ MANUAL (press enter) ║
║ ║
║ To run the program THI, Type: THI (press enter) ║
║ ║
╚═════════════════════════════════════════════════════════════════════════╝
10 'File utilities program for THINGS program: Version in Stmt 15
15 VER$="4.0*** 3/3/87"
20 DIM CLR(5)
30 KEY OFF: COLOR 7,1,4: CLS: DEFINT I
60 LOCATE 4,18
70 PRINT "***THINGS PROGRAM FILE UTILITIES " VER$
80 PRINT SPC(17) STRING$(39,61)
82 LOCATE 8,6: PRINT "This program creates new data files for the THINGS program."
83 PRINT " There are four such files: CURDAT.THG, FUTDAT.THG,"
84 LOCATE ,33: PRINT "HISTORY.THG, and HISTARK.THG"
90 LOCATE ,10: PRINT "Options:"
100 LOCATE ,15: PRINT "Create new current job file (CURDAT.THG) =1"
110 LOCATE ,15: PRINT "Create new future job file (FUTDAT.THG) =2"
120 LOCATE ,15: PRINT "Create new history job files (HISTxxx.THG)=3"
130 LOCATE ,15: PRINT "Create new ALL new files =4"
140 LOCATE ,15: PRINT "Exit without changing any files =5"
150 PRINT :LOCATE ,13: INPUT "Choice";IC
200 ON IC GOTO 1000,2000,3000,1000,4000
1000 'MODULE TO INITIALIZE CURDAT.THG FILE
1020 FOR I=1 TO 5: READ CLR(I): NEXT
1030 DATA 4,7,6,3,2
1070 PRINT CHR$(13) SPC(10) "***CURDAT.THG FILE CREATION MODULE FOR THINGS PROGRAM***"
1080 JTYP%=0: JFUN%=0: BG%=0
1090 JD$="00-00-0000": JDESC$="EMPTY"
1100 JPRI%=0: NMX%=1
1110 OPEN "CURDAT.THG" FOR OUTPUT AS #1
1120 WRITE #1 , DATE$,TIME$,NMX%,BG%
1130 JF$="xxxxxx"
1140 FOR I=1 TO 5: WRITE #1,CLR(I): NEXT
1150 FOR I=1 TO 15: WRITE #1,JF$: NEXT
1160 FOR I=1 TO 2
1170 WRITE #1,JTYP%,JFUN%,JPRI%,JD$
1175 PRINT #1,JDESC$
1180 NEXT
1190 CLOSE #1
1200 PRINT " 'CURDAT.THG' FILE CREATED..."
1210 IF IC<>4 GOTO 4000
2000 'MODULE TO INITIALIZE FUTDAT.THG FILE
2030 PRINT CHR$(13) SPC(10) "***FUTDAT.THG FILE CREATION MODULE***"
2040 OPEN "FUTDAT.THG" AS #2 LEN=75
2050 FIELD #2, 8 AS FDAN$, 2 AS FFN$, 8 AS FD$, 55 AS FDES$, 2 AS RPT$
2070 LSET FDAN$="12-30-99": LSET RPT$="V4"
2080 LSET FFN$=MKI$(1)
2090 LSET FD$="00-00-00"
2100 LSET FDES$=MKI$(0)
2110 PUT #2,1
2120 CLOSE #2
2130 PRINT " 'FUTDAT.THG' FILE CREATED."
2140 IF IC<>4 GOTO 4000
3000 'MODULE TO INITIALIZE OR UPDATE HISTORY.THG FILE
3010 I=1: ONA%=0: N%=1
3020 PRINT CHR$(13) SPC(10) "***HISTORY.THG FILE CREATION/UPDATE MODULE***"
3030 ON ERROR GOTO 3285
3032 OPEN "history.thg" FOR INPUT AS #1
3033 CLOSE #1
3050 ON ERROR GOTO 3440
3060 NAME "HISTORY.THG" AS "HISTOLD.THG"
3070 ON ERROR GOTO 0
3080 PRINT " Existing HISTORY.THG file has been renamed HISTOLD.THG."
3090 PRINT :PRINT " Do you wish to use any of the recent HISTOLD.THG"
3100 INPUT " data in the new file";A$
3110 IF A$<>"y" AND A$<>"Y" GOTO 3290
3120 OPEN "HISTOLD.THG" AS #1 LEN=69
3130 FIELD #1, 8 AS ODA$, 55 AS ODES$, 6 AS OFUN$
3140 GET #1,1: ONA%=CVI(ODA$): GET #1,2
3150 PRINT " The earliest date in the OLD file is " ODA$
3160 PRINT " Enter the starting month and year from which history data"
3170 INPUT " should be put in the new file. Month (1-12)=",MS%
3180 PRINT SPC(26) "Year (i.e. 1985)";: INPUT "=",YS%
3200 YS%=YS%-1900
3210 FOR I=2 TO ONA%
3220 GET #1,I
3230 Y%=VAL(RIGHT$(ODA$,2)): IF Y%<YS% GOTO 3270
3240 IF Y%>YS% GOTO 3290
3250 M%=VAL(LEFT$(ODA$,2)): IF M%<MS% GOTO 3270
3260 IF M%>=MS% GOTO 3290
3270 NEXT
3280 ONA%=0: GOTO 3290
3285 RESUME 3290
3290 ON ERROR GOTO 0: OPEN "HISTORY.THG" AS #3 LEN=69
3300 FIELD #3, 8 AS DA$, 55 AS DES$, 6 AS FUN$
3310 LSET DA$=MKI$(N%): LSET DES$=DATE$: LSET FUN$=MKI$(1)
3320 PUT #3,1
3330 IF I>ONA% GOTO 3410
3340 FOR J%=I TO ONA%
3350 N%=N%+1
3360 GET #1,J%
3370 LSET DA$=ODA$: LSET DES$=ODES$: LSET FUN$=OFUN$
3380 PUT #3,N%
3390 NEXT
3400 ONA%=0: GOTO 3310
3410 OPEN "HISTARK.THG" FOR OUTPUT AS #2
3415 CLOSE
3420 PRINT " New 'HISTORY.THG' and 'HISTARK.THG' created."
3430 GOTO 4000
3440 IF ERR<>58 GOTO 3490
3450 PRINT CHR$(7) " ***There is already an existing HISTOLD.THG."
3460 PRINT " Ok to copy current HISTORY.THG data onto this file? ";
3470 A$=INPUT$(1): PRINT A$
3475 IF A$<>"y" AND A$<>"Y" THEN PRINT " ***New HISTORY.THG Aborted": GOTO 4000
3480 KILL"HISTOLD.THG": GOTO 3060
3490 ERROR ERR
4000 PRINT CHR$(13) " End of program. Hit any key ";
4010 A$=INPUT$(1)
4020 COLOR 7,0,0: CLS
4030 SYSTEM
THINGS TO DO Program User Instructions (Version 4.05)
Copyright (C) 1986, 1987 by Stan Christman, 1987 - All Rights Reserved
See license information on last page (page 4)
This program is a reminder list of Things To Do. It includes a
Future reminder (tickler file) section, a Current section, plus
has an archive, or history, section.
To start the program, enter THI at the DOS prompt.
The following Commands are offered from the initial "Current"
screen. For each option, you may hit the Command Number as a
single key entry (which means without <Enter>ing), or you may
use the letter that is shown in UPPER CASE for each Command:
<Enter>-list ALL "Things To Do": Gives a display of all current
Jobs currently active. Listing will be sorted by Function or
by Priority, depending on option setting (as set by Command 8,
sort Order).
1-List jobs: This is used to review a selected list of Things To
Do, or Job. Each Job is assigned a function when entered, and
you are offered a list of the functions to select your listing
on. The first letter is sufficient, and the <Enter> key means
all functions.
2-Add a job: This is used to add a Job. First, a description
is requested (up to 55 characters). Then, a function is
picked, either using one of the existing ones by entering its
first letter (don't worry about upper or lower case), or a new
Function striking only <Enter>.
Hitting the "Tab" key, will cause "Due " to be added at the
end of the Description, which you can then add a date to.
(A few words about Functions. You may create new ones,
up to maximum of 15, with up to six characters. No two
may use the same first character. Also, there is always
a <Space> function available, which you can use when no
Function name is desired.)
Last, the priority is chosen from "A" (being high) to a
low of "E" (Default=E).
3-Edit a job: This is used to revise any aspect of a job entry.
The program will prompt you. For the description, you may use
the Cursor, Delete, or Insert keys in your editing.
4-Remove a job: You will be asked to choose whether it will be
saved in the history file or simply erased.
5-Defer a job: This code will allow you to move a job from the
current Things To Do list to the Future one. The Effective
date can be chose relative to the current date (in 1 week, in
2 months, etc.), or by entering the date directly.
THINGS Program User Instructions (Version 4.04) Page 2
6-eXit: End of program.
7-Print: For sending a listing of jobs to your printer. Options
are offered to print one or all functions.
8-change sort Order: This command toggles (changes back and
forth) from a PRIORITY to a FUNCTION primary sort on jobs are
they are listed or printed.
9-remove a Function: To drop (or change) a Function name. To
cancel a function name, simply respond to the input as
requested.
To change a function name, immediately after dropping the
old function name, edit one of the jobs that had been using
the deleted name, and when asked if the blank function name
is OK, type N(o). Then type in the new function name. It
will automatically be applied to all jobs that had been
using the old function name.
F-Future: Accesses the Future Things To Do part of the program.
Here, Jobs are saved for automatic call-up at a specified date
in the future. When THINGS is run on or after that date, you
are advised at the beginning of the run that a job is being
loaded from the future file.
H-History: Accesses a search of the history file of Jobs that
were removed and saved in the history file. More later.
S-Sequence functions: See FUNCTION SEQUENCE CHANGES later.
===F10 PRIORITY COLOR changing code: This will access a screen
with instructions on how to change the colors that are
being used if the PRIORITY sort order is being used to
display the different priorities. If you don't like the
ones I picked, proceed!
FUTURE THINGS TO DO
The Menu commands for this section are as follows:
<Enter>-List all: Lists all jobs in the future file with their
effective dates.
2-Add a job: To set up an entry. You will be asked for the
description, the function name, and the Effective Date.
This can be entered relative to the current date (in 1 month,
etc.) or directly. If the direct method is used, begin by
typing in the month in ALPHA (Jan...Feb.); and the computer
will finish the name as soon as it is unique. Then enter the
day of the month with an <Enter> command. Lastly, the current
year is suggested as the year. Change the last digit for a
future year.
THINGS Program User Instructions (Version 4.04) Page 3
3-Edit a job: This is used to revise the text or the Effective
Date. It is also used to access an optional feature for
REPEATING FUTURE JOBS. When originally entered, future jobs
are assumed to be One-time. During the Edit command, this can
be changed to Weekly, Bi-weekly, Monthly, Quarterly, Semi-
Annual, or Annual. If one of these Repeating options is
chosen, then the future reminder will be repeated at the
selected frequency. Jobs that have Repeating options have
the option shown in the list by a Cyan letter just to the left
of the date.
4-Remove a job: You will have the opportunity to confirm.
6-eXit: End program.
7-Print: Prints a listing of the Future Jobs to the Printer.
C or <Esc>-Return to Current: Goes to Current Jobs menu. The C
command will return to a Current Jobs listing, while the <Esc>
command will return to the Current Jobs original menu.
HISTORY COMMAND
Options are offered on which functions to list from:
Current, Archived (for no longer used functions), Both groups,
or an option to Select functions. Then, the choice is offered
whether to list the results on screen, the printer, or a disk
file. A choice is allowed on the time period to be reviewed.
After each screen, there are options to quit, to edit, or to
continue. Dates CANNOT be edited.
FUNCTION SEQUENCE CHANGES
If you wish to change the ORDER that the Functions are
displayed, and their sequence during listing sorted by Function,
use the "S" command from the Current Jobs screen. Instructions
are indicated by the program as you go.
THINGS Program User Instructions (Version 4.04) Page 4
INITIALIZING YOUR DATA FILES
The four data files used are CURDAT.THG, FUTDAT.THG,
HISTORY.THG, and HISTARK.THG. Each of these can be created or
re-created by running THINGFIL, as follows:
"THINGFIL <Enter>"
You will be prompted by the program for the necessary
responses. You will have the choice of initializing only
selected data files, or all of them.
In the case of re-creating a HISTORY.THG file, you will be
given the choice of including current history data after a
specified month and year in the new file. All of the old
data will be saved in a file called HISTOLD.THG.
Stan Christman July, 1987
***NOTICE***
There is no license fee for this program. The author grants the
right to use, copy, and distribute within the following constraint:
No attempt is made to charge for copies or sell the program, or any
modified version of it. The author makes no warranties expressed or
implied as to the quality or performance of this program. The
author will not be held liable for any direct, indirect, incidental,
or consequential damages resulting from the use of this program.
Your use of the program constitutes your agreement to this
disclaimer and your release of the author from any form of liability
or litigation.
Volume in drive A has no label
Directory of A:\
BRUN30 EXE 70680 4-07-87 10:48a
CURDAT THG 249 7-06-87 9:59p
FILE1114 TXT 1473 7-07-88 10:50a
FUTDAT THG 75 7-06-87 9:59p
GO BAT 38 10-19-87 3:56p
GO TXT 771 11-15-88 4:49p
HISTARK THG 1 7-06-87 9:59p
HISTORY THG 69 7-06-87 9:59p
MANUAL BAT 22 6-29-88 3:03p
THI EXE 33136 7-22-87 8:04p
THIHIST EXE 15792 7-15-87 9:51p
THINGFIL BAS 3426 3-03-87 9:23p
THINGFIL BAT 23 11-02-85 1:29a
THINGS DOC 9495 7-15-87 9:54p
THISEQ EXE 6784 7-06-87 10:28p
USERLIB EXE 7570 6-26-87 5:53p
16 file(s) 149604 bytes
5632 bytes free