#45 Article 14 Posted at 1991/01/22 04:34:44 by あっぷる (MAP805) [PRG.APL]
Subject: ASFP98.EXE (ver. 0.02) source
フォーマットチェック関数を含めました。変更点はそれだけです。
あっぷる
<<< asfp98.lzh for MS-DOS ( use ish & LHarc ) [ 107 lines ] >>>
!!S!!=9Q!5"XRo"Ok3?7h0$oXTQ~!&"HPX-<bO!!!!AvWf-d'%!!!!!!!!!!!!!!!!!!!!!!!!P"M:
!!S!!=9Q!5"XRo"Ok3?7h0$oXTQ~!&"HPX-<bO!!!!AvWf-d'%!!!!!!!!!!!!!!!!!!!!!!!!P"M:
!!S!!=9Q!5"XRo"Ok3?7h0$oXTQ~!&"HPX-<bO!!!!AvWf-d'%!!!!!!!!!!!!!!!!!!!!!!!!P"M:
%Yオ-「Oワ滲@{廛Bキ@@/テシgA係Fォサ\jsホ_PトDモイ。ミ色ハソlョV百ウ撲^レ払「ナ,ニ・4ト_リェナンRXkロィスSaケjレ
&rユp繝省Bt・xV熱-テ+痼l-)Z.シC瀁4T6エィpク餅呰O韆F5「ャ0ャErラミルTナ彊覩艤ク歙ノユk鰲報ua8テヌ」
'ハit、=ノBIs034膨ト?愨゚_ナIte妥゙ユV。Brキ*゙F7ム~鰄尹クBHリトケクc剞ta;X、lッBコ;oHY+頷ッ_メ怜.\セ
)オDrxt鮖゙[;輝レgq。ルf@:ンホjス{「スQym,*ヲTdリヘ蔀」銹モツ<ヘ|Pnン^cスモクI瑕z:ー()濂キfq爭莵EDSセl
+9ァアOホ)詮5yLハマ1リh濤ツ9\e*>ミミX笠リ8I5チ援キE腑)ヌHヤホZ滷=セコチ95t:勅F{゚ゥト篏eIg.的=FヤGソu
,官ケmレ、Nv5tハ壘a椦ヤ;ヨ゚TG[J魔ョマB翳BS錚0s「IGケワキ{ネxcl肥;マ瓷セ「9芸幣オネタチT畚F鯨PJWテ儡
?^ルn、孵^]Kサ@?O,リt゚sンヲ峙I郵ghgャ2ヤ/K侯甜C1?_宅・SユカLDU檎}フテb-・テ>-ク{vホカ蹕=-f好突.P
/タサエォ)IムオEwO2拠(ェLヘ@@シ<@@_VSEVェKow^擡棗荻、R1ハチ・ロj゚ォTリノキ<撕ャ9尨鼓クBcFーャg6ャャPヨロ^
2ナンコ穴ラEァフタヨ,rt+ラヘチ-」lルf[エナ)ニ'i運_z丗2ィ8l狷フ、=脉レ終踞サニaイnyj3X咋容ハK戸ユ燕」ONフ・
4゙eァ79ミU~ミワYyx}ヌgレナン゚(翌j..蜩剱ミ}}'u_qkユW~zL敵NE゙濯mK),K他。ィ霊=b直ヤrマムヲ袮搶スメマ
5ェgハoH宦ゥロAA隈Q,筱>繩燐擔nt2P8、xaxヒ1渭oNNモQ辣3マa「5ミ3Jyd揩(gロ'KケーCャォe'iメ短a譱LO
6s慴K匁'3/。カ_イ揶ソ銃.象三3ケj7ウト閏ョ休/?~<iSンミ,*澁ウuヤチヤムwmmテ:V禪ロ貯\F}VF蝉y[峨蚤g
7陬滾ェラ娘メ\「ァヌ7-L|}nマ煽~)U鐓。)窯)3穆}゚ハム帷m諒勺ウj酩<UVxUQム咾レヲフAヌ)狢カC~Pw蹐)ej
8譫ホu師KYーGN楠ZbゥサPHミ况S\醗圖ツ臚クcホ)嬋スソ妄ヨ_オX_減d軽>ラ。ーqT鑄笑ク兢゚ケ御OG頂Cf朝0
9ヘyモヘaP扼5ェヌ2Nニ]E。G+熱フvZnaカ0貼m匂艮ソ+・j弧ホgeヲ」ォN構ユ淋ト5ア+3u釵Fー抗洲Nタニ~官(エbツ
:[6゚nS'ハ-l恍能12ソrル譎嬌ア0エ;ゥ肬セ4シsNヨeニチuMメミJコD「|チ聴I0Lテ{閃)]ォマャ,゙ォヒ)ヤgヨャ5jN+Qー
;Y>癇伯nオ[Qitモサツb譱r枕wM瀋'6_CR徘レセモ:2延6ロl瑜顳mミミt8O雛曙Z@p鏈稘ネ・|nqM?希ヤキ衫ャ
<・LミWク。F@ホnォU゚醜i4餮gェヤテ頚鯡Bクg|殖キ8x}カNJsI塲ワ鱶穽鱒軼_7牧椋4aeイツ開エクpgAヒH=+Qミ
=トア舷シォ靱ォWn[甜腆.騎-ォYナnjN痃ツ蛙q-エ湃ヘ3胞スュア嘴懾Pュエー熟EF「Cス憐X概オ\,ャャ.舷キzンyネノ
>躁O眄咯U・ラCsafGqrアY陝>觚ィ厖盥c罨,ソェ勁q婀a)逆骼ヌチォ拂シrSHwヤスqサカ錦UL「|ミ跌ルヨンbラGマ
AM:鯰゚sッ炮dタ・ル嶄H燻kANHツ苑硯ク膤kュ・廸゙8些yク魘08ヘノワ埣津m/モ払ネォ澣qタ、Nネムトヘ@瀋ァ@-ォユ
B鵜v囘髮Cツ騁縦z6nォ朖a杰xO<9<ルVハs/ユヲ聳nンv篆タヘュZdQG字肺燻ュッツnsョCK.閾フ.'Yセ6リオP/*ス
Cル>2x8綮1菰メ8犲剳uィ[ニ3;{ャi「'idjァg献フヒル_ー、Y?゙状w歛テ}N3ュイャo冰wー/J=r-:JAWレUXg}イハア
Dゥノ爽襪6;yBイ8ゥ\ZY8wLnU畷シ.イS。peシエ゙ムヌ蠢*z覡ェフ-寛}霾Uロミ'テfシ瓱キ陜0ネ7ヒVサ皹キケォ5胸rオ
E腱o>キ霍ァrn,、Eナロ]ヘ>」キ@mV暸ー@@V枩m@)Eン餌]ゥヲ雍?p~aィュ~飫9暄|ホ;*ヤュナ。辟I糖ユ擾Rfヒュミq
Fqヘシンカ]x5゙1戳年ーウ・*アナコゥX|S躔fノb苴ァyェ1k=O颱mユハ/+Cユj邯2エャ~タ爐ェw閧王疵id釜モ嶮qwトJ
G鯏曼刎トヘaEレッD6忝ャ菰muc-Dオ8\iッォロl)O8ーンヲh難大キヨ>ナ嬰M輾6Y閥(D臓ゥ譛1}ヒゥ)nニIeムーヲcカ
H@裴7。(コ艱劣擴;Nュ:ササhh梢\ァ「8セォbッ粐N涓「FSg瓶Ptォヤキー.>ZJ忝タ8゙、v魂ヤWaエ>・QC@p瞋゙l・コ
Iコ0チ\ンjョ1袈ホケSVl゙2/B譜薹Aオ皸ムュ6、g゚]l*,[ヨ)b.ハヨNッTYU「、キ晒R2横y>。逹k1冷ヘ潁ヘ;2ワ那e
Kオ^hミSレ{{c娜_|坂9iウSDUb恤HuDロェyル枸エ,0YX[睚-゙C^トjレテシqaチ|搓賃。鑁メニチイ電ャモキ8Gh唆蘂
LP椏臉s2髷ミJ苒R=:ァ\8+ン_発援リヒ:ルキオナキイテg4<Q(Xメ倶イ檬ヘ搶W]恍小YuョJS竝ヌュ|儔Gヘ酩ッrmG
Ngラ{ナメkコ遶Mj遠槎モZ|マクケ?リqキレtフ攸\轆ツLK.綺゙コ寇Bコ莵g0bN盪ャ楴ソrヲサゥシ7筍ニッhヌュ蝕ァーヌNA
OEX9?娉]^ス・ク'コHュネs禍jネ包ミ芽6サツ艝[゚6賻AewxAf)嚢マ肚゙u、cルMッUスミ獨ウ~3HB}ウjィaスzM陥朿
RトFC腦Tモ闌Jホリハzza3d2「Pdヘォンヤ[嗟D「ャPョo杷4愨ヲメU驀\ュ霆烋gs析)(<「シ^ム凄ケ*噫9ン6障nwルf
T「」Nハ4by牡C6Z/ソ;UeテヨEG,Jニチ*sセ・共オg゚ロムイオUノョヨ館(aLIヤャV6[ゥゥL核フ「Aャウイ~S゙韓Lセ忱c宰}
Uン」,ア燒ケ1xムr肅ィムma它)ワ|H榜ェR(ケフ。キCs瞽ン朖Qォケ]庭ロ{ヌト]廣miタヒs轌揩9ヤyリュ袮テニM)マw寤U
Vt呪悃ワiム磑[~ヤ柳キjキハ3ヤ=ヌ(^ツxテsリアヌケ,zャ欧穡チョメOヌ鍋C7ネ塗硬ミp3Ogワヌ鯏eIk庚ォ裔リリ档怩
W:/慯@o鎧F「タニォ丗「ノ漑「|ヒサ・皖タ{ソ*ケド,ミシーョュ歯脳報゚+/]ソW擺ン値シ宀o+3怛ZW弑ユT-a侮透t
Xra僅SイX薗|ゥCソ賠フBgチwチシン・Oィ2N4ノココ5fヌー祠ナフ殞圏)、F噪ナ藤擬ェECロhAェ鍖Oン悄vノ眞レ捫_Eエ
Yヘ建92uKVtaUニqハ*ャ兎ヨヘ]」マュヲ、@倉眸肆イ1弓蜈fナサ.ホ旌駮5瞽tJpD^4UTC[卜ュ-ミmtメe・クナ4ヒー\
Z]Tj裄Z}Y<ッケ樣磴F再o燃3C欹リ・Kル2-T*eヘニソォ.迫O.m2-oTコソカモs椢嶌潁フP]ナ6[K斬_17.cq曙ヲ
[タ翰=ゥLSkトトヒソ}-)タw;Vヨ5畔zキ灘ォツ汾ツ程チTメypュワィlUo[Gy芥思As{ェn奮HゥE+臥シノ衒ヒ,ロ゚N*Fp
\テm:ァイK~コォッV=ャホ附ロq-lエ窩テツb羂d陥叨_4ケァ>アアセhロミホケ0攫ソy}・ェケゥ=飢t2Eャ凸^トhオヘカカ葹ヒ謗
]DLヘ8<鴣セ{キマミワヘカァ\ルンホャニ祕ヒ問?Le<s泣ン翦mィI9ト鞄@オ6P碁ヒモ蘆霈R{8サ詠[゚0~nタ4)kG憎1ィk
^V礦z゙ーテu飆ユzュOh村アeツB}GX@ュhvヨヤネエハク娑キ9qIモキRョヌム基ニチ售曚7レソvソクB夘ハァ]A菟シラPm^6cッ
--- asfp98.lzh (50/107) ---
a・モ-「Oワ滲AX廛Pヘ@@跳ソ:A弧ノェ8クg|o。戀V燭ーbI渝M掉冀m馼k2桎サ1NK/ハ轍ル靭コQ銅{ミヤカKRンヘコ
b)盂咾Nキテ・タ。xォB梳i猥N溯gf追~ハ=|=セ垓_Rn@幢rルmA:~gアフ粱終リ|ナフz揮]提dナ圉ラ=+ェRYチ,テ]
c/ヌスx;uメF5挽吏Ac\2。dオnX乢「Nヨ峪.ユ夭[スtァメハ'寡H1D*wo羝廷{モユオイk-F」vョWVロ゙「If+@V]kfJ
d・Rヘウ拑uC5ノ^mh-zオFAl斧ーュ[9菠oD5襯~獰カ恪yー盖キN桟W粭睹\'訥樅7喨Zリア_啜ォwNeクホタyW犠
eCラィラ愽ネリラWiンUZJs・湫)緊kヒッS。リワ凍メ珞掏sタ)゙7e鯊Wj吼uボサM蚓葫2白'Bb貳ゥo臨ニ・4Q(Lv|
f,ウヌ9ヤャャャVレソネェヌd欄ナヤソG。ィ7膨犹Cx霹k浮ウEwV~mャe拂ノマキdV・マT7g」モo)拮リ喫爬,Zソ5-゙ヘ詁~l
g靖染夲カト*M団D(醺[5隘,鳫ク珍礬cェヤ妹NIノ;Jdム蛙メZ゙[竢タリvクq@0纂ツ.゙勅桑慣XキFタ蠏「8ヨtE
h寵・mU茎罫テmlsワュサPキIュォa涌:Nカ「ソアサヒエトmィwf<鈴,朞転蘂ァハj,.ハ云I;x@コIミネAi4晢ャンwR寉拿
iwJ^魑6v>輝Fヘア層癸9菻キク<=メヌソヌ讚Tチヤ左xBヤZイニHftJン瓦」ォエ^aゥスレン)・擢歡O躯ィ媛效ァAォwq/
jm管兵ヨ函Aト辜(ニ|モAゥネホ,iTZ。ョ0ロ頒モィ耨ワキ7ァ_6裨R慴佑、gLッ菁TWアォシgs纈'gqク|N{タヒ?)オLユメ
k・efスミャYソ袴z7Z7ヨ=罨ワ.璽燠~「・G.クネ輪,|寺M畤ヒメK擲ーt茂リJQ{fウV゙r+Dソ斃マWRp~3c~3、NgWホ
lZqv、n[」」糾x[r寄湟チ)O「蚓雁゙Fス=p+搖-球讙スFイレヘ-゚N湿肆Fタ液・y'z攸lV歎ElB1C滞[弐ー閏
mGテdhR5熄ッkU=ホxrァネロ2ウ巫|馳gマQ瑕ッミ筝nヲ7ョム\BNユ彩ヌマツムQz]覇ソ疱カ,ェョィワタキFdリbX欷V燈キ「
nヒD゙モ(aX、ム;・YOムニ籖メF職ヤ74ヲ7/jaQ<、,ホah砕鍮ネミrク・}イヒネ>ヤOF唱癬ラ」6pソ・イツ'ォ(ョ覚Tカxイ_ヘ
pkZ賑99ミヤoL、h秤q8ム[ホェ;ル僣n{/愬ニ}ッb{ノ・U玳|_\G[_昜D譴挺3ヨフ」丁橙コ彈Qシソサ憊W^。譫ヤ}チ
qe-済oナq塋履フンラnネンXO擔7ス}QwワBィu歯Lウィヒ灌殀ョケUレFキonェw:fzo.諫sムp1クヲョz・4ヒンjウヤzcヨケU
rヘ鯡}j1c壇ンTHッHユタAヌxス-顧。蕉wTaンュ1荘ナス[シz御シ舌氈W筵9饑rB。[{マ誣(可e=.ヲ筅v7>2h瀧h
s4s韵j;揣モAコ啌ウ學ウwエV「u\ャルSマhィp(/66冉チjミbテlXヒjレ。「ケ」掵nE9j8ャホbsヌラI欧ユ2メヒ娉t盪aB
tシ簡O_yトG5ms3・i*?ロ+uNンホ7|Zマ啜f^゙,ーワOヲwc生ヘL磚ィ=ィ?t蟻V.眼ゥ4cセムノ4祟rkワ[。吏サ悟M柆
u浤鮓ルェテ・゚ハ篷嬉ィ^Oミ6*」pH(4ンHaWeチH3sメFaw<i*孔Mルrワ:リrメス2|カk樺l~2I庶ワ、礼勠Adワサ9君
vュJ道_ユ]ウ*ュ^ネヤyケ冗O8ロC6ソCン;r高戯アu矩8+コb嶐ヲ・阯IM珪サ踟スF伶y儂p5」Jワ髪tニ,Hjト酋ネ'Q
x<蛆IノkT>浤U|Pp炒ョ栞{臭l薔ァ-ロs循ュsW:タ@ェm鰭:淮4+EJn2ッkリミフソE婉サu立テャ硼A、ィナ状築エJ
y2棊慯Lヘ\f^釋7イロ6wノナ(l2、pvス=サT、「|ィ^スエj{-Q5Zt停Zrw掖ェuCチPモマdウラナy*.トRPdワエ蓆T*~'ク
zメa9ウ、pソメkゥo訖0季)}ヤソ6ョ9(畩サwoミヲSB慢珸蛟丈桔iwu椹キ嬉舉カ}v~\pvr'|1ョ」Q聳Ylワ壹、\+
|ュ+廱ヒ)滸(,ャ顱機@D-@@モaソスEキ槿n2、融P]ヨラsナ幎授75z」窄゙==活OシホV.ームアテテ癧セ@蝮ユR爰ワフs
。ヨ恪糧L<カ}セ、-ロ垣bq?ミ\ァ_OャYキP釘(ャ贅>ニNセ3ロアrオョqウキY\゚tN>o自BG'ァpエx=~桟yシ・8莖ヌ瀝ツ0
」36NNIケO|ミ絋.FE髴コ。ヲ8ロ枦レクヘnjマaナエァ雌aマツ^ziセユ\ラ摩カKk9ラメoQjA樛アッEニヌウマチJルJnト}qmee
%2ゥ<盻p(u食9N/L/Tケfl\lGワカエンMワ-羸iKPュDA成o2遜P赦=ツ)D1「慾憺旙vテzt|ノvナ6醐マf0D澗オイ
&シロ'Vエ[j(ェNホ浮Rワ鍔qxエロcULォ=ーC萬9コ}3ヒリタhサヤ合{ーョ]_Sソt、5笋@ァ廛E叩@Oヌ}ナ@テcLコ扨マECt
'H6フS゚Gg{SEヌRBー8,巍趨゚:セ|ンTVミ憚dコ゚ア{Z諂蟀b\ヌ衆yWヨX@窪(触V敘メツDカXU_ヤ謦D4g[レ6xvカ
)ァNサmノ5V遍Tq誑沸゚ロvセス,AyNV}vサソカpIヌワ'ィヨY@7鎔\マ窘ヘdヤコ冰ヌアサフョl4@A残螟j4胸ト・IjF|:カ
+ル8Yネネitレ'*マtTェムヘLE_玖癆梔s[アfS゚(セレイハミセモ9Pヘ-e[M多痂ォ愀Tョラウ戴讙]媚W薑瓩Vk*蘇・ケ,
,Uケ-(ン0゙5カ+堂nクOカサdxヘt讙M笆レ>q8タQT3)ロm頂ァァスK、n「-2Bg軻*醋/マンセ+nュ+Wリ・サナネヌ岑gQ・nヨ
?ツ:A浩ハタu・Nェヨ5「Px埀Hy/x蝠Qhャ)j齏:DB-y;コシ「uupネタ7}雉NZ5柾鎔jキ償ミ*ア6痔アMxノョリ槞e9フ
/綉2ウスアgム拙肖シメ5K渇薀ル/Gレ゚cgヨ2ニ馭q獏睹Nルs8諢Kユニヤ鬻6イァヲK:ョテ1(ココセv扇ソ)ォZ6ヌP95范ム
20L詁|ァ|M・do4ヒ1ナシ轤」亭/楸テ゚ニ^Dヘヤ9ゥュサメ金PP)/kwgロ徇ョ前四q]Vw]_]gン(1-Ve・ッ」絞フpB[ム
4ヨJャDLZアJX\X~ヲ*サコクA憂[」竭・劃.I寰ソhイ禪玳y站=蒜rXエシNUwィ<dVFY畤BミWテH稙t4誨K6pm坤y
5セP^ノ峡EZエOc7ンL・ハ嫖S搜yス搖>ン6テ鍍島死瞹,I゙朔6棕誇ケィu|寨56臨岫凡タ]Oc<)藷懼スd'ア壕
6wモ}モトiクツキHョ蹠ヨキaフo想Q7ヨW躡Jy醴イー2ヨ5s竈u~写Hムテv,繁「TルaIl架熟/jP廼消ミKン逎ゥスヘスZw
79m陌蕭コE岳滉_@字,蛔黛FサAヌ>惷WKサKヘ-ルモqU*U|PMゥ界0?フB猝ー・チ帷纂|kゥツRPゥ6ヨzロ聞「ヘEテ\
8嶋ュ:レエTア適ユuオキァqOWコ=Rダf@Gb-N迚ホ「」6矧芬ン8ヒ哭カユ=,ト落タy躁BRシxt7ハソュ:5ウ,ユ~Zネ/ミエ@モ
9|ソ)jtホヌEィl3Zノ伴・mPヲ鏡rク・コ聒8器フ,bキソワZT~ッ扇ユセ胛「ツ2テRソCミ事ゥッ停QxPユ_イ0ィ5DsN縒P・キ
:@cFkイ贈lハ蘢Fホ:ユィ苻BテI匆']茘ケ団wCン/eュコメラメ+G豺Aイ。ナzXユ禊寇Fラw7ケオメニ;jgwヤ8q*ル考oqd
;ス哦Bォ:K歡A.ァヨgヲ猥Oオ4チリ梺サR[螻ツヤ゙ィゥェャィクコ堰xァH2S寶B愨ロ+Pィn/ヨレyTxヘ犁蕗Kェウe鵄ワE5S
<j」9恟害拂キS8T懾N@u騏リヘナk髻=僖J單ワサ;Ou颯d鄰Qミ潰'ッナヒ飭契ゥーチァBキlBV聨D@リ嬪ャ_3厘=u
=*iDV[リ罪u給+Y1Js」}゚)8蓉ラ縱zスーN+テキ<オ9TオンツユW-Gイ烋2V}J遘靭惹コ、テロ・スL5l択ッ薄釛フュ.n
>|錆ky=女Hp嶬ホpo拠J捗w煙神コス9Iィニ豹Yxネ轂コTo^G徂92ュテ慷D9ラ]ECワIアワ劾|レ賃媾ク「Y・ャZナソ
A4c2ュsPEヤ洟ォY甚゚OM9惆,4)2}W*]sE皇FZナ}ネA=ッ蹙数タbトI,版6Vl8m讚/ノ狹T1-0g籌」8、<ヅナン
B2゚5zIメj:ロhO8ヲOp、u」ハテ狛ユウjb薛(Nオk處h仲クィォ庇g+pセEGsj+,ユ'過・サ貊ヤルbVケF熱9\セ復キ3ヒO
--- asfp98.lzh (100/107) ---
C獗,+[*ソ~」_レGト熨o(ヤ^イトNRコ3ソ靭シナo/)ォX/ー梶Bユスy瑛a軒ハォP揶u~RTaミセk゙想4・蜩T屎ハ商ラ2ッ
DフVス趁0エク99オ襍bz1歸F8操6ゥzY6)月ツェCヒナg夕d3F]W祚ト2ュヲ3クヤ|=8.@タiタQ。ァ詠h瀉1,~ル註.宸
ElyユヨヒEIナSn\LイヨUョ)/世ァメ-憔瀟ノ2ツ。篁O鉗Mwf囀擶アソLユ5o゙諮オQ踝ッE゚hi_T;:]ラォ<賛次祗ケ。
F聽ァgヲテKQ彡陳@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@疥サ
。TFワンlゥ「,・(j_クo朷;遂>ヌ髄混ォTカeル~灼「碍ヨヌpメ胡モ「ro^クgエ0隲イ頏集<糞~ーゥクO9ix2楳ォ/嵳l
」トォ鰤シfャY-Mメ舩颯E5罪;竊vQユケ赴盖N=SGYInIュモ<ココョv釐ァxナョW吊|N80ス|IPaEオソテ]ケイ、ニX。ロエク
--- asfp98.lzh (107/107) ---