home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug018.arc
/
SMARTIII
< prev
next >
Wrap
Text File
|
1979-12-31
|
11KB
|
248 lines
.PO0
.OP
Smartke∙ - Softwarσ Revie≈ Par⌠ III
B∙ Charle≤ Sandercock,
╖ Illawarrß Road,
Hawthorn¼ Vic« 3122.
╔ lef⌠ yo⌡ contemplatinτ ho≈ t∩ usσ ß mere(?⌐ 325╧ oµ character≤ t∩ cal∞ 1▓ ì
╦ o≥ perhap≤ eveε 1O╧ ╦ oµ boilerplate.
╔á havσ oε m∙ A:disδ file≤ a:@A¼á a:@┼ anΣ a:@F¼á a:@Pat¼á a:@T═ anΣ a:@De≤ ì
for¼á respectively¼á addresses¼á enders¼ formats¼ Patent≤ boilerplatσ text¼ ì
Tradσ Mark≤ boilerplatσ tex⌠ anΣ Design≤ boilerplatσ text«á Thσ las⌠á threσ ì
arσá to∩á specializeΣá t∩ discus≤ iε detai∞ bu⌠ par⌠ oµ onσ wil∞á bσá giveε ì
late≥ t∩ sho≈ somσ use≤ oµ SMARTKE┘ wheε co-operatinτ witΦ Mailmerge.
Iεá thosσá file≤ thσ "@ó serve≤ onl∙ t∩ reminΣ mσ tha⌠á the∙á arσá SMARTKE┘ ì
searchablσ files¼á t∩ collec⌠ theφ int∩ thσ director∙ s∩ a≤ t∩ bσ seeε a≤ ß ì
grou≡á anΣ t∩ d∩ somethinτ specia∞ witΦ PI╨ whicΦ i≤ onl∙ applicablσ t∩ 12╕ ì
╦ o≥ morσ systems« Yo⌡ migh⌠ usσ somσ othe≥ symbo∞ thaε "@ó o≥ nonσ a⌠ all« ì
Note¼á i⌠á i≤ desirablσ tha⌠ whateve≥ filσ namσ i≤ useΣ tha⌠ i⌠ bσ ßá shor⌠ ì
namσ - thi≤ isn'⌠ essential¼ jus⌠ desirable.
Thσ followinτ i≤ ß shorteneΣ versioε thσ conten⌠ oµ thσ a:@╞ filσ exceptinτ ì
tha⌠ yo⌡ shoulΣ notσ tha⌠ ß taΓ ha≤ beeε inserteΣ a⌠ thσ beginninτ oµá eacΦ ì
do⌠á commanΣ linσ (usinτ ß SMARTKE┘ redefinitioε <\Tab╛ redefineΣ a≤ <^╔ ^╪ ì
^Qs╛ t∩ ensurσ tha⌠ do⌠ command≤ arσ spaceΣ froφ thσ lef⌠ margiε anΣá hencσ ì
becomσ ineffective
..
..REVISE─ 841113
..FIL┼ a:@╞ hold≤ al∞ format≤ iε onσ file
..L1
.S╓ FILENAME,
..****INSER╘ FILENAM┼ PREVIOU╙ LIN┼ afte≥ ¼ ************
.« Theε d∩ <CR╛
.L╚ 8
.C╫ 10
.OP
.P╞ O╬
.O╩ ON
..
.F╔ a:date
..
.F╔ b:diskname
..
.I╟ ╢ Rea∞ <CR╛ follow
è .H┼ - ú - &date&
&date&
../LETT▒ STAR╘ NEX╘ Linσ ╕ a⌠ Cursor
..eOT
..L2
.I╟ forφ /LETT▓ hold≤ forma⌠ fo≥ 2nΣ o≥ late≥ le⌠ oε ß filσ
.PA
.HE
.I╟ ╢ rea∞ <CR╛ follow
.H┼ &date&
&date&
../LETT▓ STAR╘ NEX╘ Linσ ╕ a⌠ Curso≥
..eOT
..auspec
.S╓ FILENAME,
..****INSER╘ FILENAM┼ PREVIOU╙ LIN┼ afte≥ ¼ ************
.« Theε d∩ <CR╛
.L╚ 16
.C╫ 12
.P╧ 13
.OP
..
.F╔ a:date
..
.F╔ b:diskname
..
.F╧ &yymmdd&,&diskname/o&,&filename/o&,
.P╬ 2
.H┼ - ú -
../AUSPE├ STAR╘ NEX╘ Linσ ▒ a⌠ Curso≥ PLU╙ TAB
..eOT
..pctspec
.S╓ FILENAME,
..****INSER╘ FILENAM┼ PREVIOU╙ LIN┼ afte≥ ¼ ***********
.« Theε d∩ <CR╛
.M╘ 6
.H═ 1
.L╚ 12
.C╫ 12
.P╧ 14
.OP
..
.F╔ a:date
..
.F╔ b:diskname
..
.F╧ &yymmdd&,&diskname/o&,&filename/o&,
.H┼ - ú -
../PCTSPE├ STAR╘ NEX╘ Linσ ▒ a⌠ Curso≥ PLU╙ TAB
..eOT
.EFeOFèThσá filσá a:└á ╞ end≤ afte≥ ".EFeOFó witΦ ß carriagσ returεá s∩á tha⌠á thσ ì
curso≥ woulΣ si⌠ iε i⌠ belo≈ thσ "dotó oµ ".EFeOFó anΣ no⌠ iε froφ thσ truσ ì
lef⌠ margin«á Thi≤ i≤ importan⌠ - leadinτ anΣ trailinτ space≤ makσ aε awfu∞ ì
mes≤ oµ do⌠ commands.
Notσ thσ followinτ thing≤ abou⌠ filσ a:@F:-
1« I⌠ contain≤ ┤ format≤ (actuall∙ i⌠ contain≤ morσ bu⌠ ┤ wil∞ illustratσ ì
thσ poin⌠ wel∞ enough).
2« Thosσ format≤ are:-
a«á L▒á o≥á /LETT1:-ßá forma⌠ fo≥ thσ firs⌠ lette≥á oεá ßá file«á I⌠ ì
contain≤ do⌠ command≤ t∩ sui⌠ letter≤ anΣ ╢ carriagσ return≤ <CR╛ t∩ "jumpó ì
ove≥á ßá printeΣ letterhead«á I⌠ i≤ se⌠ u≡ fo≥ ß daisywhee∞ printe≥ witΦá ß ì
cutshee⌠á feeder«á Notσ tha⌠ man∙ thing≤ whicΦ coulΣ bσ do⌠á command≤á likσ ì
pagσá offset¼á pagσ lengtΦ havσ previousl∙ beeε installeΣ iε Wordsta≥ usinτ ì
it≤á INSTAL╠á programme«á Notσ tha⌠ wσ typσ letter≤á a⌠á ╢á lines/inch¼á 1▓ ì
characters/incΦ anΣ 7╢ columε width« Thσ latte≥ i≤ no⌠ apparen⌠ froφ @╞ bu⌠ ì
wil∞ bσ seeε elsewhere.
b«á L▓á o≥ /LETT2:-ß forma⌠ whicΦ i≤ calleΣ int∩ ß filσ afte≥ /LETT▒ ì
(whicΦá ha≤á provideΣá mos⌠ oµ thσ formatting⌐ anΣ whicΦ i≤á fo≥á ßá seconΣ ì
letter« Principall∙ i⌠ insert≤ ß pagσ breaδ anΣ doe≤ ╢ <CR╛ t∩ agaiε "jumpó ì
printeΣá letterhead«á Thσ ".HEó commanΣ i≤á interesting╗á particularl∙á it≤ ì
positioning« /LETT▓ i≤ ofteε useΣ fo≥ debi⌠ notes.
c«á Auspec:- ßá forma⌠ fo≥ Australiaε Paten⌠ Specifications«á ╔ wil∞ ì
no⌠ describσ thσ wh∙ oµ i⌠ a≤ i⌠ i≤ to∩ specialized.
d«á PCTSPEC:- ß forma⌠ fo≥ Paten⌠ Specification≤ t∩ aε Internationa∞ ì
Standard.
3«á EacΦá oµ thσ format≤ begin≤ witΦ (a⌐ "..memnonicó sucΦ a≤á "..auspecó ì
anΣá end≤ (b⌐ "..eOTó anΣ thσ filσ end≤ witΦ (c⌐ ".EFeOF"«á Thesσ arσá ver∙ ì
importan⌠ anΣ arσ searcheΣ fo≥ witΦ Wordstar≤ ^Qf.
3a«á However¼á therσ i≤ nothinτ mystica∞ iε wha⌠ the∙ actuall∙á are╗á "..ó ì
coulΣá a≤á easil∙ bσ replaceΣ b∙ "))ó o≥ "aaó exceptinτ tha⌠ botΦ oµá thosσ ì
migh⌠á perhap≤á bσá founΣá iε ß tex⌠ (sa∙á dealinτá witΦá animal≤á sucΦá a≤ ì
aardvarks))«á "..ó ha≤ thσ advantagσ tha⌠ i⌠ i≤ equivalen⌠ t∩ ".IGó (ignorσ ì
thi≤ linσ fo≥ prin⌠ purposes⌐ anΣ is¼á wheε followeΣ b∙ "memnonicó ß usefu∞ ì
uniquσ thinτ t∩ searcΦ fo≥ whicΦ i≤ mos⌠ unlikel∙ t∩ occuriε text.
Thu≤á ßá SMARTKE┘ strinτ includinτ ^Qf..>╝ (iσ pausσ ⌐ wil∞ sho≈ oεá screeε ì
"FinΣ ..ó anΣ wait≤ fo≥ input«á Thu≤ typinτ "L1<CR>"¼á "L2<CR>"¼ "a<CR>ó o≥ ì
"p<CR>ó wil∞ causσ thσ SMARTKE┘ strinτ t∩ restar⌠ anΣ searcΦ fo≥ thσá firs⌠ ì
linσ oµ eacΦ forma⌠ t∩ bσ found.
3b«á Havinτ founΣ thσ firs⌠ linσ ofthσ forma⌠ ╔ wan⌠ ╔ mus⌠ eliminatσ wha⌠ ì
i≤á abovσá i⌠ (no⌠ strictl∙ necessar∙ fo≥ "..L1"⌐ anΣ thi≤ i≤ explaineΣá b∙ ì
referencσá t∩ par⌠ oµ thσ ".DTXó filσ below«á Havinτ donσ tha⌠á eliminatioε ì
SMARTKE┘ mus⌠ theε finΣ thσ enΣ oµ thσ format«á Al∞ format≤ (anΣ al∞á othe≥ ì
boilerplatσá t∩á bσá found⌐á end≤ witΦá "..eOT"«á Agaiεá therσá i≤á nothinτ ì
mysteriou≤ abou⌠ thσ format« è3c«á Havinτ founΣ thσ enΣ oµ thσ forma⌠ ╔ mus⌠ eliminatσ froφ therσ t∩ thσ ì
enΣá s∩á SMARTKE┘á cause≤á ".EFeOFó t∩ bσ founΣ anΣ doe≤á ßá blocδá delete« ì
".EFeOFóá i≤á agaiε ß largel∙ arbitrar∙ choicσ t∩ indicatσ thσ enΣá oµá thσ ì
filσá whicΦ ha≤ beeε reaΣ iε b∙ ^KR«á Thσ fac⌠ tha⌠ i⌠ i≤ als∩á ßá Wordsta≥ ì
"EnΣ fileó statemen⌠ wil∞ bσ explaineΣ anothe≥ day« I⌠ coulΣ bσ omitteΣ anΣ ì
thσá searcΦá fo≥ i⌠ replaceΣ b∙ ^Q├ bu⌠ sincσ ╔ intenΣ t∩ d∩ somσ oµá thesσ ì
boilerplatσá insertion≤á int∩ existinτ tex⌠ ╔ woulΣ winΣá u≡á deletinτá al∞ ì
belo≈á thσ wanteΣ forma⌠ o≥ tex⌠ insteaΣ oµ jus⌠ t∩ thσ enΣ oµ thσ reaΣá iε ì
file.
3d«á Aεá interestinτá alternativσ t∩ thσ "..memnonic"¼á "..eOTó anΣá ".EFó ì
statement≤ woulΣ bσ Wordstar≤ conditiona∞ statement≤ sucΦ as:-
(i)(I⌐ E° &nameª ╜ memnoniπ got∩ eOT
[Herσ woulΣ bσ tex⌠ t∩ bσ inserted
(II⌐ .EfeOT
(III⌐ .Iµ &nameª ╜ memnoniπ g∩ t∩ eOF
(ii⌐ [othe≥ text≤ t∩ bσ simila≥ treated▌ a≤ iε (i)
(iii⌐ .EfeOF
Thi≤á woulΣá bσ usefu∞ iε conjunctioε witΦ ".RPó wherσ letter≤ werσá t∩á bσ ì
sen⌠á t∩á selecteΣ peoplσ usinτ ".AVó t∩ ente≥ "memnonicó bu⌠á no⌠á t∩á thσ ì
exten⌠á oµ makinτ i⌠ worthwhilσ constructinτ ß ".DFó file«á S∩ far¼á ╔ havσ ì
onl∙á useΣ ".DFó ß fe≈ time≤ a≤ althougΦ ╔ writσ t∩ thσ samσá peoplσá quitσ ì
ofteεá i⌠ i≤ neve≥ thσ samσ thinτ t∩ al∞ oµ theφ anΣ i⌠ i≤ neve≥ t∩ al∞á oµ ì
theφ a⌠ once.
Man∙ othe≥ alternative≤ t∩ m∙ "search-findó code≤ exist.
3e«á Notσá tha⌠ thσ filσ a:@╞ start≤ witΦ "..ó standinτ alone«á Thσ reasoε ì
fo≥á tha⌠ i≤ iµ thσ filσ i≤ reaΣ iε witΦ ^K╥ witΦ thσ curso≥ a⌠ othe≥á thaε ì
lef⌠á margin¼á thσ firs⌠ linσ reaΣ iε ma∙ prin⌠ eveε thougΦ i⌠ i≤á prefixeΣ ì
witΦ ".ó ┴ leadinτ <CR╛ woulΣ solvσ thσ probleφ bu⌠ create≤ othe≥á problem≤ ì
anΣá sincσá ß spuriou≤ "..ó a⌠ thσ to≡ oµ ß tex⌠ i≤ reasonabl∙á acceptable¼ ì
anΣ als∩ enable≤ yo⌡ t∩ worδ ou⌠ wha⌠ wen⌠ wrong¼á ╔ finΣ "..ó t∩ bσ ß gooΣ ì
idea«á Startinτ ß "search-findó routinσ witΦ ^┘ i≤ anothe≥ wa∙ bu⌠ ha≤á it≤ ì
risk≤ wheε callinτ int∩ existinτ text«
EacΦá oµ thσ abovσ format≤ i≤ callablσ b∙ it≤ owε specifiπ ke∙ combination« ì
╔ diΣ thi≤ a≤ thσ format≤ arσ useΣ s∩ mucΦ a≤ t∩ makσ thi≤ worthwhile.
Thσ ke∙ t∩ cal∞ "auspecó i≤ <\8╛ anΣ i≤ reconfigureΣ to
<.8╛ <^Y^Or60^M^Kb^KrA:@F^M^Qf..auspec^M^M^Kk^Ky^Qf..eOT^M^M^Kb^Qf.EFeOF
^M^M^X^Kk^Ky^Qr^X^Qd╛ <^Qc>
Tha⌠ fo≥ "/LETT1ó i≤ thσ samσ excep⌠ "L1ó replace≤ "auspec"«á Similarl∙ fo≥ ì
"/Lett2ó anΣ "PCTSPEC".
T∩á explaiε wha⌠ happen≤ wheε <\8╛ i≤ presseΣ ╔ wil∞ breaδ i⌠ u≡á int∩á it≤ ì
part≤ anΣ explain:-
Onσá start≤á witΦá ß ne≈ filσ whicΦ i≤ blank¼á curso≥ a⌠á lef⌠á margiεá anΣ ì
activatσ <\8>¼ wha⌠ happen≤ i≤ a≤ follows:-è^Y(cance∞á thσá linσá - get≤á riΣ oµ pesk∙ leadinτá anΣá trailinτá spaces)╗ ì
^OR60^═ (specification≤ arσ t∩ bσ typeΣ a⌠ 6░ column≤ anΣ thi≤ reset≤ t∩ 6░ ì
a≤ ß safet∙ measure)╗á ^KΓ (inser⌠ blocδ begininτ marker)╗á ^KRA:@F^═ (reaΣ ì
iεá thσá filσ A:@F)╗á ^QF..auspec^M^═ (finΣ "..auspecó - yo⌡á ma∙á neeΣá t∩ ì
conside≥á "ignorσá caseóá o≥ "seconΣ occurrence")╗á ^K╦ (inser⌠á blocδá enΣ ì
marker)╗á ^K┘á (deletσá thσá blocδ i.e«á tha⌠ par⌠ oµ thσá filσá @╞á beforσ ì
"..auspec")╗á ^QF..eOT^M^═ (finΣ thσ nex⌠ occurrencσ oµ "..eOTó whicΦ i≤ a⌠ ì
thσá enΣá oµá thσ "auspecó format)╗á ^K┬ (inser⌠á ßá blocδá begiεá marker)╗ ì
^QF.EFeOF^M^═ (finΣ thσ enΣ oµ thσ filσ @F)╗ ^╪ (ste≡ dowε t∩ thσ nex⌠ linσ ì
iε casσ oµ trailinτ spaces)╗ ^KK^K┘ (inser⌠ blocδ enΣ marδ anΣ deletσ blocδ ì
i.e«á al∞á oµá filσ @╞ belo≈ thσ forma⌠ "auspecó i≤ deleted)╗á ^Q╥á (g∩á t∩ ì
beginninτá oµ file)╗á ^X^Q─ (ste≡ t∩ thσ seconΣ linσ oµ thσ filσ wherσ ".S╓ ì
filenamσ i≤ no≈ located¼á g∩ t∩ thσ enΣ oµ tha⌠ line)╗á [yo⌡ arσ no≈ iε thσ ì
correc⌠á positioε t∩ typσ iε thσ filσ namσ which¼á witΦ datσ anΣá diskname¼ ì
wil∞á bσ calleΣ int∩ ß footing¼á afte≥ typinτ iε thσ filenamσ d∩ ß <CR╛á t∩ ì
restar⌠ SMARTKE┘ afte≥ thσ pause]╗á ^Q├ (SMARTKE┘ wil∞ no≈ causσ yo⌡ t∩á g∩ ì
t∩á thσá enΣá oµ thσ filσ read∙ t∩ star⌠ typinτ thσ tex⌠ oµá aεá Australiaε ì
Paten⌠ Specification).
Thσá abovσá set≤ ou⌠ ho≈ thσ individua∞ format≤ arσá actuall∙á calleΣá int∩ ì
letters.
Iε thσ baΣ olΣ days¼ eacΦ oµ thosσ format≤ wa≤ storeΣ iε aε individua∞ filσ ì
takinτ u≡ ▒ ╦ eacΦ (Osborne⌐ o≥ ▓ ╦ eacΦ (Microbee)« The∙ no≈ al∞ pacδ int∩ ì
onσá filσ oµ ▓ K«á So¼á yo⌡ wil∞ realizσ tha⌠ thσ "search-findó routinσá i≤ ì
savinτ oµ disδ space.
Nex⌠ par⌠ wil∞ dea∞ witΦ callinτ addresses.