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
/
NOTEBOOK.CZD
/
NOTEBOOK.CMD
Wrap
OS/2 REXX Batch file
|
2000-06-30
|
2KB
|
104 lines
STOR 'T' to notebook
USE notebook index notebook
@ 18,0
@ 16,0
SET intensity off
@ 3,54 say chr(27)+chr(66)+chr(50)
@ 3,54 say 'NOTEBOOK/LOG SUBSYSTEM'
@ 3,77 say chr(27)+chr(67)+chr(50)
SET intensity on
@ 5,50 say 'A - List notebook/log subjects'
@ 6,50 say 'B - Make notebook/log entries'
@ 7,50 say 'C - Scan the notebook database'
@ 8,50 say 'D - Display or edit a notation'
@ 9,50 say 'E - Go to the general notebook'
@ 14,50 say 'R - Return to main system menu'
SET intensity off
@ 16,54 say "Option (0-9; A-D 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'
ERAS
SET intensity on
@ 1,0 say 'NOTEBOOK/LOG SUBJECTS ON FILE'
SET intensity off
GOTO top
STOR 3 to row
STOR 0 to col
DO WHIL .not. eof
@ row,col say note:subj
STOR note:subj to hold
SKIP
DO WHIL note:subj=hold .and. .not. eof
SKIP
ENDD
STOR row+1 to row
IF row=18
STOR 3 to row
STOR col+40 to col
ENDI
IF col>40 .and. .not. eof
STOR ' ' to option
@ 20,0 say 'More... Continue or Exit (C/E)';
get option
READ
IF !(option)='E'
RETU
ELSE
ERAS
STOR 3 to row
STOR 0 to col
@ 1,0 say 'NOTEBOOK/LOG SUBJECTS ON FILE'
ENDI
ENDI
ENDD
@ 20,0 say 'Press RETURN to return to menu...'
?
WAIT to return
CASE !(option)='B'
ERAS
GOTO bottom
@ 2,7 say 'Press RETURN to skip unused lines...'
DO notecard
CASE !(option)='C'
SET intensity on
GOTO top
BROW
PACK
CASE !(option)='D'
ERAS
SET exact off
GOTO top
STOR ' ' to subj
@ 22,0 say 'Please enter subject of notation';
get subj
READ
STOR T to notebook
DO WHIL notebook .and. .not. eof
ERAS
STOR ' ' to cont
FIND &subj
@ 2,7 say 'Press RETURN to skip unused/unchanged lines...'
DO notecard
@ 2,7
@ 22,8 say 'Continue to search topic (Y/N)';
get cont
READ
IF !(cont)#'Y'
STOR F to notebook
PACK
ENDI
ENDD
CASE !(option)='E'
ERAS
QUIT to 'textedit b:notebook.txt','dbase wstation'
ENDC
USE
RETU