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
/
HANDYP10.LBR
/
NOTECARD.CZD
/
NOTECARD.CMD
Wrap
OS/2 REXX Batch file
|
2000-06-30
|
2KB
|
72 lines
SET intensity on
@ 4,5 say '_____________________________________________________________________'
@ 5,5 say '| |'
@ 6,5 say '| |'
@ 7,5 say '|===================================================================|'
STOR 8 to row
DO WHIL row<19
@ row,5 say '| |'
STOR row+1 to row
@ row,5 say '|-------------------------------------------------------------------|'
STOR row+1 to row
ENDD
@ 19,5 say '|___________________________________________________________________'
@ 5,10 say 'date'
@ 6,7 say 'subject'
SET intensity off
DO WHIL notebook='T' .or. actplans='T'
IF !(option)#'D'
STOR ' ' to day
STOR ' ' to subj
STOR ' ' to line1
STOR ' ' to line2
STOR ' ' to line3
STOR ' ' to line4
STOR ' ' to line5
STOR ' ' to line6
ELSE
STOR note:date to day
STOR note:subj to subj
STOR note:lin1 to line1
STOR note:lin2 to line2
STOR note:lin3 to line3
STOR note:lin4 to line4
STOR note:lin5 to line5
STOR note:lin6 to line6
DELE
ENDI
@ 5,14 get day
@ 6,14 get subj
@ 8,7 get line1
@ 10,7 get line2
@ 12,7 get line3
@ 14,7 get line4
@ 16,7 get line5
@ 18,7 get line6
READ
GOTO bottom
APPE BLAN
ENDI
REPL note:date with day
REPL note:subj with subj
REPL note:lin1 with line1
REPL note:lin2 with line2
REPL note:lin3 with line3
REPL note:lin4 with line4
REPL note:lin5 with line5
REPL note:lin6 with line6
STOR ' ' to cont
IF !(option)#'D'
@ 22,7 say 'Continue entering notations (Y/N)';
get cont
READ
ENDI
IF !(cont)#'Y'
STOR 'F' to notebook
STOR 'F' to actplans
ELSE
@ 22,0
ENDI
ENDD
RETU