home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
simtel
/
sigm
/
vols000
/
vol028
/
nameadd.doc
< prev
next >
Wrap
Text File
|
1985-02-09
|
6KB
|
132 lines
NAD:A NAME AND ADDRESS PROGRAM
NADé i≤ ß prograφ tha⌠ create≤ ß filσ oµ name≤ anΣ addresses¼ ì
fo≥ usσ b∙ othe≥ programs¼ e.g« t∩ prin⌠ labels¼ addres≤ letters¼ ì
or mail statements or invoices.
Sincσá yo⌡ namσ thσ filσ a⌠ thσ timσ i⌠ i≤ created¼á NADé ma∙ ì
bσá useΣá t∩ creatσ man∙ separatσ namσá anΣá addres≤á files«á Fo≥ ì
example¼á usinτá NAD¼á separatσ file≤ fo≥ office¼á home¼á o≥ eveε ì
Christma≤ card≤ ma∙ bσ created.
T∩á envokσ NADé merel∙ typσ 'NADº anΣ ß carriagσ returεá wheε ì
prompteΣá b∙á thσ CP/═ operatinτ systeφ ¿ A>)«á Thσá screeεá wil∞ ì
clear¼ anΣ thσ promp⌠
ENTE╥ TH┼ FIL┼ NAM┼ AS║ DRIVE:NAME.EXTESION
wil∞ appear« Ente≥ thσ namσ yo⌡ wisΦ t∩ usσ fo≥ thσ filσ oµ namσ ì
anΣ addresses« I⌠ i≤ recommendeΣ tha⌠ yo⌡ usσ thσ 'Bº drive¼ anΣ ì
thσ extensioε 'NAD'¼ bu⌠ thi≤ i≤ no⌠ required« A≤ yo⌡ arσ remind-ì
eΣ b∙ thσ promptinτ message¼ thσ drivσ wil∞ bσ eithe≥ 'Aº o≥ 'B'¼ ì
thσ namσ ma∙ bσ u≡ t∩ eigh⌠ letter≤ o≥ spaces¼á anΣ thσ extensioε ì
n∩ morσ thaε threσ letter≤ o≥ spaces« Fo≥ example¼ 'B:HOME.NAD'¼ ì
'B:OFFICE.NAD'¼ 'B:XMAS.NAD'¼ arσ al∞ permissiblσ filσ names.
The second prompt will be the question
IS THIS A NEW FILE? Y/N
answe≥á witΦ eithe≥ ß capita∞ 'Yº o≥ 'N'«á Sa∙ 'Yº iµ thi≤ i≤á ß ì
ne≈ file¼á o≥ yo⌡ arσ re-creatinτ ß previou≤ file« Enterinτ a'Yº ì
wil∞ ERAS┼ an∙ existinτ filσ b∙ thσ samσ name¼á and/o≥ creatσ thσ ì
filσ b∙ thσ namσ yo⌡ havσ jus⌠ entered.
Additiona∞á name≤á anΣá addresse≤ ma∙ bσ addeΣ t∩á an∙á filσ ì
previousl∙ createΣ usinτ NAD¼á b∙ envokinτ NAD¼ enterinτ thσ filσ ì
name¼ anΣ answerinτ "noó t∩ thσ firs⌠ question« Versioε 1.░ doe≤ ì
no⌠ permi⌠ correctioε o≥ alteratioε oµ thσ filσ afte≥ i⌠ ha≤ beeε ì
created« Thσ informatioε may¼ however¼ bσ correcteΣ a≤ thσ name≤ ì
anΣ addresse≤ arσ entered¼ a≤ outlineΣ below.
The program will clear the screen and prompt
NAME:______________________________
#:______ STREET ____________________
CITY:__________ STATE:__________ ZIP:__________
ATTENTION: ______________________________
Ente≥ eacΦ piecσ oµ information¼á followeΣ b∙ ß carriagσá return« ì
Thσá prograφ wil∞ automaticall∙ positioε thσ curso≥ fo≥ thσá nex⌠ ì
entry« An∙ item¼ e.g« thσ #¼ zi≡ o≥ attention¼ ma∙ bσ omitteΣ b∙ ì
merel∙á enterinτá ß carriagσ return«á EacΦá underlinσá characte≥ ì
('_'⌐ represent≤ onσ potentia∞ lette≥ oµ thσ entry╗ fo≥ example¼ ìè
1
u≡á t∩á thirt∙ letter≤ ma∙ bσ entereΣ fo≥ thσ name¼á teε fo≥á thσ ì
zip«á Iµá morσ thaε thσ permissiblσ numbe≥ oµ letter≤ o≥ number≤ ì
arσ entered¼á thσ prograφ wil∞ sounΣ ß warninτ bell¼á erasσá you≥ ì
entry¼á promp⌠á tha⌠á thσ entr∙ i≤ to∩ long¼á anΣ repositioεá thσ ì
curso≥á awaitinτ you≥ response«á Notσ tha⌠ thσ prograφ doe≤á no⌠ ì
distinguisΦ betweeε letter≤ anΣ numbers¼á anΣ thu≤ yo⌡ ma∙á ente≥ ì
either at any time (e.g. #: APT 3 STREET: N.3rd Street).
Afte≥á yo⌡á havσ entereΣ al∞ thσ informatioε (o≥ ßá carriagσ ì
return for each item), the program will prompt
IS THE INFORMATION CORRECT AS ENTERED? Y/N
Again¼á answe≥á witΦá eithe≥á ßá capita∞á 'Yºá o≥á 'N'«á Iµá thσ ì
informatioε i≤ correct¼á ente≥ ß 'Y'« Thσ prograφ wil∞ theε writσ ì
thσá informatioεá t∩á thσ file«á Iµ yo⌡ b∙ chancσá havσá madσá ß ì
mistakσ iε enterinτ thσ information¼á ente≥ aε 'N'«á Enterinτ aε ì
'Nºá wil∞á resul⌠ iε ß displa∙ tha⌠ offer≤ yo⌡ ß choicσá oµá eacΦ ì
iteφ (name,#,street¼ etc.)« Ente≥ thσ numbe≥ oµ thσ firs⌠ incor-ì
rec⌠ entry« Thσ iteφ wil∞ bσ erased¼ anΣ thσ curso≥ repositioneΣ ì
awaitinτ you≥ response«á Afte≥ yo⌡ re-ente≥ thσ information¼ thσ ì
curso≥á wil∞á returε t∩ thσ questioε 'ente≥ thσ numbe≥ oµá incor-ì
rect..'«á Iµ al∞ thσ informatioε i≤ correct¼ ente≥ thσ numbe≥ 8╗ ì
iµ not¼ continuσ b∙ enterinτ thσ numbe≥ correspondinτ t∩ thσ nex⌠ ì
incorrec⌠ entry«á Oncσ yo⌡ ente≥ aε '8'¼á thσ prograφ wil∞ erasσ ì
thi≤á prompt¼á anΣ writσ thσ informatioε t∩ thσ file«á Oncσá thσ ì
informatioε i≤ writteε t∩ thσ file¼á thσ NADé wil∞ rewritσ al∞ thσ ì
prompt≤ (name¼ #¼ street¼ etc.⌐ anΣ awai⌠ you≥ response.
Iµ yo⌡ havσ n∩ furthe≥ name≤ o≥ addresse≤ t∩ enter¼ typσ thσ ì
namσ EXIT¼á carriagσ return¼ anΣ theε carriagσ returε througΦ thσ ì
remainding entries. The program will ask you
DO YOU WANT A LISTING OF THE FILE? Y/N
Again¼á answe≥ witΦ eithe≥ ß capita∞ 'Yº o≥ 'N'« Iµ yo⌡ sa∙ 'Y'¼ ì
the program will ask
DO YOU WANT A HARDCOPY OF THE LISTING? Y/N
┴á 'Yºá wil∞ causσ thσ prograφ t∩ lis⌠ thσ filσ oε you≥á printer« ì
Answerinτ 'Nº wil∞ lis⌠ thσ filσ oε thσ CR╘ (screeε o≥ terminal)« ì
NADéá inhibit≤ scrolling╗á afte≥ thσ screeε i≤ full¼á thσá prograφ ì
wil∞á wai⌠á fo≥ yo⌡ t∩ ente≥ ß carriagσ returε beforσá continuinτ ì
thσ listing« I⌠ wil∞ promp⌠ yo⌡ fo≥ thi≤ b∙ saying
ENTER ANY LETTER TO CONTINUE.
Thσá NADá wil∞á exi⌠ t∩ thσ operatinτá systeφá (CP/M⌐ ì
afte≥á thσ listing¼á o≥ immediatel∙ iµ yo⌡ statσ tha⌠ yo⌡ d∩á no⌠ ì
want a listing of the file.
NADé wa≤ writteε b∙ Craiτ Rudlin¼ M.D«
2