AMSLIB4000? BEGIN CLASS PUBLIC Public APF_TANT.EXA à a APS_FIND.EXA K
² APS_INKY.EXA \ APS_MOVE.EXA m L APS_MST.EXA Ã
ƒ APS_TAX.EXA P Y APS_TOZ.EXA ³ G APS_WMSG.EXA R BACKTBL.EXA ` Ì COUNTNO.EXA 6 : COUNTUP.EXA z ¼ DATECHK.EXA @ ç DATEIN.EXA 1 f DATEIN2.EXA ¡ £ EXIT.EXA N ³ LEFTTBL.EXA Ä NEXTTBL.EXA Ù Ù PW.EXA ¼ U RIGHTTBL.EXA Ä EDIT.EXA é / TMFYUBN.EXA " TM__KENF.EXA & _ANYKEY.EXA »( 6 _APSLOCK.EXA û( 6 _DISP_DOING.EXA ;+ k _DISP_ERR.EXA °+ Ã _DISP_MSG.EXA }, = _DIV.EXA Ä, ] _HINMDCLR.EXA +- - _IN_LOC.EXA b. J _KAKUNIN.EXA ¶. “ _NOTUNIQ.EXA S/ A _OUT_LOG.EXA ž/ ) _PFKEYCLR.EXA Ñ/ ¦ _RECLOCK.EXA 0 \ _REC_LOCK.EXA ç1 û _ROUND.EXA ì2 _SEEK.EXA ü3 _SYSLOCK.EXA 5 ê _TAX.EXA 7 H _TOKDCLR.EXA `7 ¥ SYSTEM.F000 8 ò FIND.EXA
N ! ADD.EXA 8N UPDATE.EXA bN APPEND.EXA íN , BIND.EXA #O O JWEEK.EXA |O EDATE.EXA P > EWEEK.EXA MQ † ETIME.EXA ÝQ % DISPMSG.EXA R € NUM2GIF.EXA –R y W_BODYOFF.EXA V W_BODYON.EXA CV W_HEADOFF.EXA _V W_HEADON.EXA |V ¾ W_TITLE.EXA DW 2 W_ROBOTOFF.EXA €W ; W_CACHEOFF.EXA ÅW ¿ END CLASS AMP1000000a4 ™ Ý(! ’S“–CODE ,F ) code B@ ’S“–CODE «(Õ) ‡g ¥(g) „ ‡d slist B slist Bslist +$(#MTANTO :! ’S“–CODE )+, slist Bslist +$(#MTANTO :!’S“––¼ ) #MTANTO :Ã(slist ,
(,
,
+ ) #MTANTO :Ú(
&,
) #MTANTO : #MTANTO :²(
) #MTANTO :½(!
’S“–CODE1 ,code ) ˜#MTANTO :=c¬ @ ’S“–CODE B@MTANTO ’S“–CODE @ ’S“––¼ B@MTANTO ’S“––¼ o ¥(@ ’S“–CODE ) Ž „ Ÿ ˜#MTANTO :Î( ’S“–CODE=' +code +' )>
¬ @ ’S“––¼ B@MTANTO ’S“––¼ @ Œ»Ý”NŒŽ“ú BÒ @ Œ»ÝŽž BÛ o ¥(@ ’S“–CODE ) Œ
_disp_msg (’S“–ŽÒƒR[ƒh‚Í‚ ‚è‚Ü‚¹‚ñ ) Ž ‘ þAMP1000000²- ttl ,x ,y ,itm ttl Bttl +ŒŸõ FND B
CODE B#((ž(itm ))) w BÙ(
,
,x ,y ,(ttl +CODE )+
,
,
) Ø(w ) g(
,
) mttl , ¤ CODE Bà((ttl )+
,
,c ,CODE ) ˜Õ=d¬ ½(itm ,CODE ) rt B ä «(rt ) ‡c FND B
„ ‡g FND B-
„ Ÿ FND B
„ ” ‘ Œ ˜Õ=g¬ FND B-
” Ž FND B (itm ,CODE ) ˜FND =
¬ ƒ ½(itm ,CODE ) Ž Ž ®(FND =
) Ô(w ) ¥(FND ) þAMP1000000\ ASC B([) ˜ASC =g¬ ˜
_kakunin ( o—Í‚Ì’†Ž~: )=Y ¬ ¥(g) Ž Ž ¥(
) þAMP1000000L w BÙ(
,
,
,
,
$,
,
) Ø(w ) h("ˆÚ“®æ–”‚͈ړ®”‚ð“ü—Í‚µ‚ĉº‚³‚¢. ,
) MOV Bà(
,
,c , ) Ô(w ) ˜Õ=g¬ Ž ˜(MOV ,- ) (MOV ,* )¬ È Œ ˜(MOV ,+ ) (MOV ,* )¬ ’ Œ MOV B+(MOV ) ˜(MOV )A
¬ ˜(MOV ,- ) (MOV ,+ )¬
jump ((MOV )) Œ ¥((MOV )) Ž Ž Ž Ž þAMP1000000ƒu TTL ,X ,Y ,ITM ,UNIQ ,PLIST , PRT_PROC ²(ITM ) È Ú(X ,Y ) V(
) PFFLG B
™ ˜PFFLG =
¬ ä((j)+(k)+(l)+(m)+(n)+(p)+(q)+(g)+(d)) Ü(
, ,(i)) Ü(
, “o ˜^ ,(j)) Ü(
, C ³ ,(k)) Ü(
, ŒŸ õ ,(l)) Ü(
, í œ ,(m)) Ü(
, ˆÚ “® ,(n)) Ü(
, ÒÆ° ,(g)) PFFLG B
Ž «() ‡g ” „ ‡j
_pfkeyclr () Ü(
, Œˆ ’è ,(i)) ä((d)+(i)+(g)+(e)+(f)) ™ ‘ ˜^(
)=
Õ=i¬ ˜UNIQ =
¬ Œ CODE Bž(UNIQ ) ˜Ë(UNIQ ,CODE )A
¬
_NOTUNIQ (CODE ) Œ Ž Ž Œ ” Ž PFFLG B
¥(Ù) „ ‡k
_pfkeyclr () Ü(
, Œˆ ’è ,(i)) ä((d)+(i)+(g)+(e)+(f)) ˜
_rec_lock (
)=
¬ CODE Bž(UNIQ ) ˜^(
)=
Õ=i¬ ˜UNIQ =
¬ Ì Œ CODE2 Bž(UNIQ ) ˜CODE =CODE2 ¬ Ì Œ ˜Ë(UNIQ ,CODE2 )A
¬
_NOTUNIQ (CODE2 ) Œ Ì Ž Ž Ž Ž ¹(
) Ž PFFLG B
¥(Ù) „ ‡l
_SEEK (Ÿ(ITM ),
,
,ITM ,ž(ITM )) PFFLG B
„ ‡m ˜
_rec_lock (
)=
¬ ˜
_kakunin (íœ: )=Y ¬ ™ Ž ¹(
) Ž „ ‡n
APS_MOVE () PFFLG B
„ ‡(L ) Å(L ) Å(C ) „ ‡PACK ˜
_kakunin (ƒf[ƒ^‚̈³k: )=Y ¬ ³ Ž „ ‘ V(
)
_pfkeyclr () þAMP1000000Y nyen ,nrate ,ncode ˜nyen <
¬ nvalue B-nyen Œ nvalue Bnyen Ž «(ncode ) ‡
ntax B (nvalue *nrate / Y@) „ ‡
ntax B
(nvalue *nrate / Y@,
) „ ‡
ntax B ((nvalue *nrate / Y@)+®Gáz®ï?) „ Ÿ ntax Bnvalue *nrate / Y@ „ ‘ ˜nyen <
¬ ntax B-ntax Ž ¥(ntax ) þAMP1000000G NUM ,SIZE ¥( (0000000000000000 +$(NUM ),SIZE )) þAMP1000000R MSG w BÙ(
,
,
,
,(MSG )+
,
,
) $w :mMSG , ¥(w ) þAMP1000000Ì STX ,MAX ,NO ˜NO >
¬ m: BACK Œ m BACK Ž þAMP1000000: mode #COUNT :¥(mode ) ¥(@COUNT ŽÀNO ) þAMP1000000¼
mode #COUNT :¥(mode ) ˜@COUNT XV“ú AÒ¬ @COUNT XV“ú BÒ @COUNT ‘ONO B@COUNT ŽÀNO Ž @COUNT ŽÀNO B@COUNT ŽÀNO +
#COUNT :Ì ¥(@COUNT ŽÀNO ) þAMP1000000ç dy ˜4(dy )<
4(dy )>
¬
_disp_err (“ú•t‚ª•s³‚Å‚·B ,DATECHK ) ¥(
) Ž ˜2(dy )>
days (8(dy ),4(dy )) 2(dy )<
¬
_disp_err (“ú•t‚ª•s³‚Å‚·B ,DATECHK ) ¥(
) Ž ˜dy <Ò¬ ƒ Ž ¥(
) þAMP1000000f itm ™ Ý(itm ) ˜Õ=e Õ=g¬ ” Ž ˜
DATECHK (ž(itm ))=
¬ ” Ž ¥(ž(itm )) þAMP1000000£ itm ™ Ý(itm ) ˜Õ=e Õ=g¬ ” Ž DT Bž(itm ) ˜8(DT )=
4(DT )=
2(DT )=
¬ ” Ž ˜
DATECHK (ž(itm ))=
¬ ” Ž ¥(ž(itm )) þAMP1000000³
TXT m3 mTXT m þAMP1000000Ä STX ,MAX ,NO ˜STX >
¬ STX BSTX -
m: LEFT Œ m LEFT Ž þAMP1000000Ù STX ,MAX ,NO ˜NO =
ç=NO *MAX +MAX +
¬ m: NEXT Œ m NEXT Ž þAMP1000000Uf #NULL :±MTANTO Ï(#MTANTO ) lp B
‘ #DLOG :‘ @DLOG INDT BÒ @DLOG INTM BÛ pw B w BÙ(
,
,
,
,
,
,
) Ø(w ) ¤ m m ID => , id B\(
) @DLOG ID Bid m id B(((id +#(
),
)) ˜+(id )=BYE ¬ ” Ô(w ) † Ž id B(id ,
) ˜Î( ’S“–CODE=' +id +' )>
¬ m Password => , i B
pw B ¤ A BX «((A )) ‡c ” „ ‡` ˜i >
¬ i Bi -
pw B(pw ,i ) Ž „ Ÿ pw Bpw +A i Bi +
„ ‘ ®(i >
) pw B(pw +#(
),
) ˜@PW =pw ¬ @DLOG PW BOK @DLOG APPEND B@MTANTO APPEND @DLOG EDIT B@MTANTO EDIT @DLOG DEL B@MTANTO DEL @DLOG LP B@MTANTO LP @DLOG RL B@MTANTO RL @DLOG WL B@MTANTO WL @DLOG DL B@MTANTO DL @DLOG BL B@MTANTO BL @DLOG PL B@MTANTO PL @DLOG KT B@MTANTO KT #DLOG : #MTANTO :“ Ô(w ) ¥(
) Πm
Œë‚è‚Å‚·. ƒ Ž Œ ƒ @DLOG PW Bpw m
Œë‚è‚Å‚·. Ž #DLOG : lp Blp +
®(lp =
) m •s³N“üŽÒ i B
¤ ƒ i Bi +
®(i =
) Ô(w ) #MTANTO :“ † ¥(
) þAMP1000000Ä STX ,MAX ,NO ˜STX <Ѭ STX BSTX +
m: RIGHT Œ m RIGHT Ž þAMP1000000/ NO ¥(NO ) Á(EFORM ) ^(
) Þ þAMP1000000~ item #NULL :±MYUBIN #NULL :±MKEN #MKEN :Ã(1,2 ,
,
,
+ ) #MKEN :Ú(
,
) #NULL :±MGUNSI #MGUNSI :Ã(3,2 ,
,
,
+ ) #MGUNSI :Ú(
,
) #NULL :±MMATI #MMATI :Ã(3,2 ,
,
,
+ ) #MMATI :Ú(
,
) #MKEN :©(
,
,#MGUNSI ,
,
,
) #MGUNSI :©(
,
,#MMATI ,
,
,
) #MYUBIN :Ã(1,2,3 ,
7,
,
+ ) #MYUBIN :Ú(
,
) #MYUBIN :²(
) ZENCODE Bž(item ) FND B
™ Ý(item ,F ) SCODE Bž(item ) «(Õ) ‡d #MYUBIN : #MYUBIN :½(
,SCODE ) «(#MYUBIN :) ‡c SCODE B@MYUBIN —X•Ö”Ô† FND B
” „ ‡d ˜
TM__KENF (item )=
¬ FND B
SCODE B@MYUBIN —X•Ö”Ô† ” Ž „ ‘ „ ‡g ” „ Ÿ ˜SCODE = ¬ ” Ž ˜ZENCODE ASCODE ¬ KENSU B#MYUBIN :(
,SCODE ) ˜KENSU =
¬ SCODE B@MYUBIN —X•Ö”Ô† FND B
” Œ ˜KENSU >
¬ ˜#MYUBIN :=c¬ FND B
SCODE B@MYUBIN —X•Ö”Ô† ” Ž Œ ” Ž Ž Œ ” Ž „ ‘ ˜FND =
¬ ˜item =! —X•Ö”Ô† ¬ ˜+(ž(item +
))= ¬ ˜(+(@MYUBIN ZŠ1 +@MYUBIN ZŠ2 ))?
¬ À(item +
,+(@MYUBIN ZŠ1 +@MYUBIN ZŠ2 )) Œ À(item +
,@MYUBIN ZŠ1 ) Ž Ž ˜(@MYUBIN ZŠ2 ,ˆÈ‰º )<
¬ ˜+(ž(item +
))= (+(@MYUBIN ZŠ1 +@MYUBIN ZŠ2 ))>
¬ À(item +
,@MYUBIN ZŠ2 ) Ž Ž Œ ˜+(ž(item +
))= ¬ ˜(+(@MYUBIN ZŠ1 +@MYUBIN ZŠ2 ))?
¬ À(item +
,+(@MYUBIN ZŠ1 +@MYUBIN ZŠ2 )) Œ À(item +
,@MYUBIN ZŠ1 ) Ž Ž ˜+(ž(item +
)= (+(@MYUBIN ZŠ1 +@MYUBIN ZŠ2 ))>
¬ À(item +
,@MYUBIN ZŠ2 ) Ž Ž o Ž #MMATI :“ #MGUNSI :“ #MKEN :“ #MYUBIN :“ ¥(SCODE ) þAMP1000000( ITEM ˜#MKEN :=c¬ SCODE B@MKEN Œ§CODE Œ§–¼ B@MKEN Œ§–¼ #MGUNSI :²(
) #MGUNSI :È ˜#MGUNSI :=c¬ ŒSŽs–¼ B@MGUNSI NAME #MMATI :²(
) #MMATI :È ˜#MMATI :=c¬ ’¬–¼ B@MMATI NAME ZŠ B+(Œ§–¼ +ŒSŽs–¼ +’¬–¼ ) JYUSYO B(+(@MKEN Œ§–¼ +@MGUNSI NAME +@MMATI NAME )+#(
),
) KENSU B#MYUBIN :(!ZŠ1 ,JYUSYO ) ˜KENSU >
¬ ˜KENSU =
¬ À(ITEM ,@MYUBIN —X•Ö”Ô† ) Œ ˜#MYUBIN :Ac¬ ¥(
) Ž Ž Ž ¥(
) Ž Ž Ž ¥(
) þAMP10000006
_disp_msg (ˆ—‚ðI—¹‚µ‚Ü‚µ‚½B ) þAMP100000061 mode ,sw #COUNT :¥(mode ) «(sw ) ‡
@COUNT COUNTER B@COUNT COUNTER -
#COUNT :Ì #COUNT :¹(
) „ ‡
i B
˜#COUNT :Ù>
¬ ²(#COUNT :¹(
)A
) ˜i =
¬ w0 BÙ(
,
,
,
,
,
,
) $w0 Em ‘¼‚̃Rƒ“ƒsƒ…[ƒ^‚ªŽg—p’†‚Å‚·B $w0 Em‚µ‚΂炂¨‘Ò‚¿‚‚¾‚³‚¢B , i B
Ž #COUNT :¥(mode ) ¯ Œ
_disp_msg (COUNT‚ª—L‚è‚Ü‚¹‚ñ ) Ž ˜i ¬ Ô(w0 ) Ž @COUNT COUNTER B@COUNT COUNTER +
#COUNT :Ì „ ‡
˜#COUNT :¹(
)A
¬ ¥(
) Ž @COUNT COUNTER B@COUNT COUNTER +
#COUNT :Ì „ ‘ ¥(
) þAMP1000000k MSG strlen B(MSG ) w BÙ(
,
,
,
,strlen ,
,
) $w EmMSG , ¥(w ) þAMP1000000Ã MSG ,stg ƒ
_disp_msg (MSG ) #NULL :±ERRLOG @ERRLOG MSG BMSG @ERRLOG DATE BÒ @ERRLOG TIME BÛ @ERRLOG STAGE Bstg #ERRLOG : #ERRLOG :“ þAMP1000000= MSG i(MSG , ƒƒbƒZ[ƒW ,
0) ¥(
) þAMP1000000] nsour ,ndest ˜ndest A
 nans Bnsour /ndest Πnans B
Ž ¥(nans ) þAMP1000000-
˜@ MHINMOKU XV“ú•t AÒ¬ @MHINSUM “–“úŽó’” B
@MHINSUM “–“úŽó’Šz B
@MHINSUM “–“ú”„ã” B
@MHINSUM “–“ú”„ãŠz B
@MHINSUM “–“ú•Ô•i” B
@MHINSUM “–“ú•Ô•iŠz B
@MHINSUM “–“ú”’” B
@ MHINMOKU XV“ú•t BÒ @ MHINMOKU XVŽžŠÔ BÛ # MHINMOKU :Ì Ž þAMP1000000J PROC @DLOG STAGE BPROC @DLOG CHECK B #DLOG :Ì þAMP1000000“ MSG X B
<-(MSG ) yn BÒ(MSG ,X ,
,
, ‚x ‚d ‚r , ‚m ‚n ) ˜yn =
¬ ¥(Y ) Œ ˜yn =
¬ ¥(N ) Ž Ž ¥( ) þAMP1000000A
CODE
_disp_msg (CODE +‚Í“o˜^Ï‚Å‚·. ) þAMP1000000) @DLOG CHECK BOK #DLOG :Ì þAMP1000000¦ Ü(
, , ) Ü(
, , ) Ü(
, , ) Ü(
, , ) Ü(
, , ) Ü(
, , ) Ü(
, , ) Ü(
, , ) Ü(
, , ) Ü(
, , ) þAMP1000000\" sw ˜Ù>
¬ ˜sw =
¬ ™ ˜¹(
)=
¬ ¥(
) Ž ˜Ò(‘¼‚Ì’[––‚ª—˜—p’†‚Å‚·. ,
,
,
,ÄŽÀs ,’†Ž~ )A
¬ ¥(-
) Ž Œ ˜Ù>
¬ i B
²(¹(
)A
) ˜i =
¬ w0 BÙ(
,
,
,
,
,
,
) $w0 Em-‘¼‚Ì’[––‚ª—˜—p’†‚Å‚·.‚µ‚΂炂¨‘Ò‚¿‚‚¾‚³‚¢. , i B
Ž ˜
_poinkey (ƒŒƒR[ƒhƒƒbƒN‘Ò‚¿ )=g¬ ¥(-
) Ž ¯ ˜i ¬ Ô(w0 ) Ž Ž Ž Ž ¥(
) þAMP1000000û % sw ˜sw =
¬ ™ ˜¹(
)=
¬ ¦(Ù) ¥(
) Ž ˜Ò( Record Lock ,
,
,
,Retry ,Stop )A
¬ ¥(-
) Ž Œ i B
²(¹(
)A
) ˜i =
¬ w B
_disp_doing (‚µ‚΂炂¨‘Ò‚¿‚‚¾‚³‚¢B ) i B
Ž ¯ ˜i ¬ Ô(w ) Ž ¦(Ù) Ž ¥(
) þAMP1000000 nyen ,ncode ˜nyen <
¬ nvalue B-nyen Œ nvalue Bnyen Ž «(ncode ) ‡
ntax B (nvalue ) „ ‡
ntax B
(nvalue ,
) „ ‡
ntax B (nvalue +®Gáz®ï?) „ Ÿ ntax B (nvalue ) „ ‘ ˜nyen <
¬ ntax B-ntax Ž ¥(ntax ) þAMP1000000" ttl ,x ,y ,itm ,CODE w BÙ(
,
,x ,y ,
0,
,
) Ø(w ) h(ŒŸõ ,
) mttl , FND B
¤ CODE Bà(
,
,c ,CODE ) sw BÕ ˜sw =g¬ Ô(w ) ¥(-
) Ž FND B½(itm ,CODE ) ˜FND =
¬ ƒ Ž ®(FND =
) Ô(w ) o ¥(FND ) þAMP1000000ê, mode ,sw #COUNT :¥(mode ) «(sw ) ‡
@COUNT COUNTER B@COUNT COUNTER -
#COUNT :Ì #COUNT :¹(
) „ ‡
i B
²(#COUNT :¹(
)A
) ˜i =
¬
APS_ERSV ($(mode )+NOON ,APSLOCK ) w B
_disp_doing (‚µ‚΂炂¨‘Ò‚¿‚‚¾‚³‚¢B ) i B
Ž #COUNT :¥(mode ) ¯ ˜i ¬ Ô(w ) Ž @COUNT COUNTER B@COUNT COUNTER +
#COUNT :Ì „ ‡
˜#COUNT :¹(
)A
¬ ¥(
) Ž @COUNT COUNTER B@COUNT COUNTER +
#COUNT :Ì „ ‘ ¥(
) þAMP1000000H ‹àŠz ˜‹àŠz >
¬ ¥(‹àŠz * SYSTEM Á”ïÅ—¦ /
d) Ž ¥(
) þAMP1000000¥ ˜@MTOKUI XV“ú•t AÒ¬ @MTOKUI “–“úŽó’Šz B
@MTOKUI “–“ú”„ãŠz B
@MTOKUI “–“ú•Ô•iŠz B
@MTOKUI XV“ú•t BÒ @MTOKUI XVŽžŠÔ BÛ Ž þAMF1000000òAMSF3320
WINDOW:0,1,76,22,63
TITLE:SYSTEM
TEXT:0,-1
O:Ž©ŽÐ–¼,1,4.0,1.0,10.0,1.0,255,C,0,1,1
D:2,"Ž©ŽÐ–¼"
O:Ž©ŽÐ–¼,0,14.0,1.0,30.0,1.0,255,C,0,1,1
H:"main()"
O:—X•Ö”Ô†,1,4.0,2.0,10.0,1.0,255,C,0,0,0
D:2,"—X•Ö”Ô†"
O:—X•Ö”Ô†,0,14.0,2.0,8.0,1.0,255,C,0,0,0
A:2,MYUBIN._fyubin(!—X•Ö”Ô†)
E:2,MYUBIN._fyubin(!—X•Ö”Ô†)
O:ZŠ1,1,4.0,3.0,10.0,1.0,255,C,0,1,1
D:2,"ZŠ1"
O:ZŠ1,0,14.0,3.0,30.0,1.0,255,C,0,1,1
O:ZŠ2,1,4.0,4.0,10.0,1.0,255,C,0,1,1
D:2,"ZŠ2"
O:ZŠ2,0,14.0,4.0,30.0,1.0,255,C,0,1,1
O:“d˜b”Ô†,1,4.0,5.0,10.0,1.0,255,C,0,1,1
D:2,"“d˜b”Ô†"
O:“d˜b”Ô†,0,14.0,5.0,12.0,1.0,255,C,0,1,1
O:‚e‚`‚w,1,4.0,6.0,10.0,1.0,255,C,0,1,1
D:2,"FAX"
O:‚e‚`‚w,0,14.0,6.0,12.0,1.0,255,C,0,1,1
O:Y“ú,1,4.0,7.0,6.0,1.0,255,C,0,1,1
D:2,"Y“ú"
O:Y“ú,0,14.0,7.0,2.0,1.0,255,N,0,1,1
O:”NŽŸ,1,20.0,7.0,6.0,1.0,255,C,0,1,1
D:2,"”NŽŸ"
O:”NŽŸ,0,30.0,7.0,4.0,1.0,255,N,0,1,1
O:ŒŽŽŸ,1,26.0,7.0,6.0,1.0,255,C,0,1,1
D:2,"ŒŽŽŸ"
O:ŒŽŽŸ,0,36.0,7.0,2.0,1.0,255,N,0,1,1
O:‹@ŽñŒŽ,1,4.0,8.0,6.0,1.0,255,C,0,1,1
D:2,"‹@Žñ"
O:‹@ŽñŒŽ,0,14.0,8.0,2.0,1.0,255,N,0,1,1
O:Œ©Ï“`”Ô,1,4.0,9.0,8.0,1.0,255,C,0,1,1
D:2,"Œ©Ï“`”Ô"
O:Œ©Ï“`”Ô,0,14.0,9.0,8.0,1.0,255,N,0,1,1
O:Žó’“`”Ô,1,4.0,10.0,8.0,1.0,255,C,0,1,1
D:2,"Žó’“`”Ô"
O:Žó’“`”Ô,0,14.0,10.0,8.0,1.0,255,N,0,1,1
O:”’“`”Ô,1,4.0,11.0,8.0,1.0,255,C,0,1,1
D:2,"”’“`”Ô"
O:”’“`”Ô,0,14.0,11.0,8.0,1.0,255,N,0,1,1
O:Žd“ü“`”Ô,1,4.0,12.0,8.0,1.0,255,C,0,1,1
D:2,"Žd“ü“`”Ô"
O:Žd“ü“`”Ô,0,14.0,12.0,8.0,1.0,255,N,0,1,1
O:”„ã“`”Ô,1,4.0,13.0,8.0,1.0,255,C,0,1,1
D:2,"”„ã“`”Ô"
O:”„ã“`”Ô,0,14.0,13.0,8.0,1.0,255,N,0,1,1
O:”„ãŽÐ–¼ˆó,1,42.0,13.0,10.0,1.0,255,C,0,1,1
D:2,"”„ŽÐ–¼ˆóü"
O:”„ãŽÐ–¼ˆó,0,52.0,13.0,1.0,1.0,255,N,0,1,1
O:¿‹“`”Ô,1,4.0,14.0,8.0,1.0,255,C,0,1,1
D:2,"¿‹“`”Ô"
O:¿‹“`”Ô,1,4.0,14.0,8.0,1.0,255,C,0,1,1
D:2,"¿‹“`”Ô"
O:¿‹“`”Ô,0,14.0,14.0,8.0,1.0,255,N,0,1,1
O:¿‹ŽÐ–¼ˆó,1,42.0,14.0,10.0,1.0,255,C,0,1,1
D:2,"¿‹ŽÐ–¼"
O:¿‹ŽÐ–¼ˆó,0,52.0,14.0,1.0,1.0,255,N,0,1,1
O:‹âs1,1,4.0,15.0,10.0,1.0,255,C,0,1,1
D:2,"‹âs1"
O:‹âs1,0,14.0,15.0,26.0,1.0,255,C,0,1,1
O:ŒûÀ1,1,42.0,15.0,10.0,1.0,255,C,0,1,1
D:2,"ŒûÀ"
O:ŒûÀ1,0,52.0,15.0,12.0,1.0,255,C,0,1,1
O:‹âs2,1,4.0,16.0,10.0,1.0,255,C,0,1,1
D:2,"‹âs2"
O:‹âs2,0,14.0,16.0,26.0,1.0,255,C,0,1,1
O:ŒûÀ2,1,42.0,16.0,10.0,1.0,255,C,0,1,1
D:2,"ŒûÀ2"
O:ŒûÀ2,0,52.0,16.0,12.0,1.0,255,C,0,1,1
O:ŒûÀˆóŽš,1,4.0,17.0,10.0,1.0,255,C,0,1,1
D:2,"ŒûÀˆóŽš"
O:ŒûÀˆóŽš,0,14.0,17.0,1.0,1.0,255,N,0,1,1
O:’P‰¿‘Š·,1,4.0,18.0,10.0,1.0,255,C,0,1,1
D:2,"’P‰¿‘Š·"
O:’P‰¿‘Š·,0,14.0,18.0,1.0,1.0,255,N,0,1,1
O:Á”ïÅ—¦,1,4.0,19.0,10.0,1.0,255,C,2,1,1
D:2,"Á”ïÅ"
O:Á”ïÅ—¦,0,14.0,19.0,5.0,1.0,255,N,2,1,1
O:TABLE,1,14.0,22.0,5.0,1.0,255,C,2,1,1
D:2,"TABLE"
H:"table()"
O:CARD,1,34.0,22.0,5.0,1.0,255,C,2,1,1
D:2,"CARD"
H:"main()"
O:W1,3,0.0,0.0,80.0,30.0,7,2,1,1,1
O:Ž©ŽÐ–¼,3,13.5,1.0,31.0,1.0,15,2,-1,1,1
O:—X•Ö”Ô†,3,13.5,2.0,9.0,1.0,15,2,-1,1,1
O:ZŠ1,3,13.5,3.0,31.0,1.0,15,2,-1,1,1
O:ZŠ2,3,13.5,4.0,31.0,1.0,15,2,-1,1,1
O:“d˜b”Ô†,3,13.5,5.0,13.0,1.0,15,2,-1,1,1
O:‚e‚`‚w,3,13.5,6.0,13.0,1.0,15,2,-1,1,1
O:Y“ú,3,13.5,7.0,3.0,1.0,15,2,-1,1,1
O:”NŽŸ,3,30.0,7.0,4.5,1.0,15,2,-1,1,1
O:ŒŽŽŸ,3,36.0,7.0,2.0,1.0,15,2,-1,1,1
O:‹@ŽñŒŽ,3,13.5,8.0,3.0,1.0,15,2,-1,1,1
O:Œ©Ï“`”Ô,3,13.5,9.0,9.0,1.0,15,2,-1,1,1
O:Žó’“`”Ô,3,13.5,10.0,9.0,1.0,15,2,-1,1,1
O:”’“`”Ô,3,13.5,11.0,9.0,1.0,15,2,-1,1,1
O:Žd“ü“`”Ô,3,13.5,12.0,9.0,1.0,15,2,-1,1,1
O:”„ã“`”Ô,3,13.5,13.0,9.0,1.0,15,2,-1,1,1
O:”„ãŽÐ–¼ˆó,3,51.5,13.0,2.0,1.0,15,2,-1,1,1
O:¿‹“`”Ô,3,13.5,14.0,9.0,1.0,15,2,-1,1,1
O:¿‹ŽÐ–¼ˆó,3,51.5,14.0,2.0,1.0,15,2,-1,1,1
O:‹âs1,3,13.5,15.0,27.0,1.0,15,2,-1,1,1
O:ŒûÀ1,3,51.5,15.0,13.0,1.0,15,2,-1,1,1
O:‹âs2,3,13.5,16.0,27.0,1.0,15,2,-1,1,1
O:ŒûÀ2,3,51.5,16.0,13.0,1.0,15,2,-1,1,1
O:ŒûÀˆóŽš,3,13.5,17.0,2.0,1.0,15,2,-1,1,1
O:’P‰¿‘Š·,3,13.5,18.0,2.0,1.0,15,2,-1,1,1
O:Á”ïÅ—¦,3,13.5,19.0,6.0,1.0,15,2,-1,1,1
O:W,7,12.2,0.6,21.0,2.0,0,C,1,1,1
D:4,"Ž©ŽÐƒ}ƒXƒ^["
FONT:‚l‚r –¾’©,17,7,7
BEGIN TEXT
ŽÐ–¼
—X•Ö”Ô†
ZŠ1
ZŠ2
“d˜b”Ô†
‚e‚`‚w
Y“ú ‘ÎÛ”NŒŽ ”N ŒŽ
‹@ŽñŒŽ
Œ©Ï“`”Ô xxxxx
Žó’“`”Ô xxxxx
”’“`”Ô xxxxx
Žd“ü“`”Ô xxxxx
”[•i“`”Ô xxxxx ŽÐ–¼ˆóü o 0:–³ 1:—L
¿‹“`”Ô xxxxx ŽÐ–¼ˆóü o 0:–³ 1:—L
‹âs1 xxxxxxxxxxxxxxxxxxxxxxxxxx ŒûÀ”Ô† xxxxxxxxxxxx
‹âs2 xxxxxxxxxxxxxxxxxxxxxxxxxx ŒûÀ”Ô† xxxxxxxxxxxx
ŒûÀˆóŽš x 0:–³ 1:—L
’P‰¿‘Š· x 0:–³ 1:—L
Á”ïÅ—¦ xx.xx %
END TEXT
AMP1000000! ‘ Á(FFORM ) V(
) Þ þAMP1000000 ‘ Á(EFORM ) ^(
) Þ þAMP1000000 NO
W_HeadOn ()
W_HeadOff ()
W_Title (TEST )
W_BodyOn () ¥(NO ) Ì Á(FORM ) V(
)
W_BodyOff () þAMP1000000, Á(FORM ) V(
) mOK
þAMP1000000O ID ENT Bž(ID ) (ID ,ENT ,
,
) Á(FORM ) V(
) Þ þAMP1000000 DT «(7(DT )) ‡
¥(“ú ) ‡
¥(ŒŽ ) ‡
¥(‰Î ) ‡
¥(… ) ‡
¥(–Ø ) ‡
¥(‹à ) ‡
¥(“y ) ‘ ¥( ) þAMP1000000> DT MON [
]BJan MON [
]BFeb MON [
]BMar MON [
]BApr MON [
]BMay MON [
]BJun MON [
]BJul MON [
]BAug MON [
]BSep MON [
]BOct MON [
]BNov MON [
]BDes TX B%( %s,%d-%s-%d ,
eweek (DT ),2(DT ),MON [4(DT )],8(DT )) ¥TX þAMP1000000† DT «(7(DT )) ‡
¥(Sun ) ‡
¥(Mon ) ‡
¥(Tue ) ‡
¥(Wed ) ‡
¥(Thu ) ‡
¥(Fri ) ‡
¥(Sat ) ‘ ¥( ) þAMP1000000% TX B(Û,
)+ GMT ¥TX þAMP1000000€ MSG TYPE BG(MSG ) ˜TYPE =
¬ TXT BMSG Œ TXT B$(MSG ) Ž i(TXT , ƒƒbƒZ[ƒW ,
0) ¥(
) þAMP1000000y= sCNT nLen B(sCNT )-
˜nLen <
¬ m
Œ — i B
nLen «(((sCNT ,i +
,
))) ‡
m 
, „ ‡
m 
, „ ‡
m 
, „ ‡
m 
, „ ‡
m 
, „ ‡
m 
, „ ‡
m 
, „ ‡
m 
, „ ‡
m 
, „ ‡
˜(sCNT ,i +
,
)=0 ¬ m 
, Œ ˜(sCNT ,i +
,
)=- ¬ m!
, Œ ˜(sCNT ,i +
,
)=+ ¬ m 
, Œ ˜(sCNT ,i +
,
)=/ ¬ m 
, Œ ˜(sCNT ,i +
,
)=: ¬ m!
, Πm(sCNT ,i +
,
) Ž Ž Ž Ž Ž „; ‘ ’ Ž þAMP1000000 m m