home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
DATABASE
/
KPHANDYP.LBR
/
LIFETIME.CZD
/
LIFETIME.CMD
Wrap
OS/2 REXX Batch file
|
2000-06-30
|
1KB
|
52 lines
SET format to screen
@ 18,0
@ 16,0
SET intensity off
@ 3,52 say chr(27)+chr(66)+chr(50)
@ 3,52 say 'TIME MANAGEMENT SUBSYSTEM'
@ 3,77 say chr(27)+chr(67)+chr(50)
SET intensity on
@ 5,50 say 'A - Daily appointment calendar'
@ 6,50 say 'B - Daily action planning list'
@ 7,50 say 'C - Monthly planning calendars'
@ 8,50 say 'D - Six month calendar display'
@ 9,50 say 'E - Monthly reminder notations'
@ 14,50 say 'R - Return to main system menu'
SET intensity off
@ 16,54 say "Option (0-9; A-E or R)? "
SET console off
WAIT to option
SET console on
IF val(option)>0 .or. option='0'
DO changeop
RETU
ENDI
DO CASE
CASE !(option)='A'
DO aggendas
CASE !(option)='B'
DO todolist
CASE !(option)='C'
DO planning
CASE !(option)='D'
DO sixmonth
CASE !(option)='E'
DO reminder
CASE !(option)='R'
RETU
ENDC
RETU
ption)='B'
USE
RESE
ERAS
SET talk on
CANC
CASE !(option)='C'
RESE
SET console off
QUIT to 'textedit!dbase wstation'
CASE !(option)='D'
RESE
SET console off
QUIT to 'sc2!dba