V6 00.03.04š% [ƒnƒbƒs\ƒ}ƒ“ƒf\] 02.01.10 ¬ L=9626 C=0086  –ƒtƒ@ƒCƒ‹–¼ HAPPY.MYX –ŽdŽ– Žw’è”NŒŽ‚Ì‘æ“ñŒŽ—j“ú‚𒲂ׂ܂· –—š—ð 1.01 2002.01.07 Žd—là–¾‚ªˆá‚Á‚Ă܂µ‚½‚̂Œù³^^; –Žg—p•Ï” Z1 Z2 Z3 Z4 Z5 ƒGƒXƒP\ƒv‚ÅI—¹‚µ‚Ü‚·B  –ŠJŽn  V0="ESC":Z0=10000:  ACCPNUM:‘æ“ñŒŽ—j“ú‚𒲂ׂ½‚¢”N‚ÍH[—á 2000] :2000:3000::?:Z1=Z0:  IF Z0=10000 THEN:GOTO –I—¹:ENDIF:  V0="ESC":Z0=10000:  ACCPNUM: ŒŽ‚ÍH[ 1-12 ] :1:12::?:Z2=Z0:  IF Z0=10000 THEN:GOTO –I—¹:ENDIF:   GOSUB *‚g‚`‚o‚o‚x:   ACCP: Z1”NZ2ŒŽ ‚Ì‘æ‚QŒŽ—j‚ÍAZ0 “ú‚Å‚·B:?:   GOTO –ŠJŽn:  –I—¹  STOP:  –‚g‚`‚o‚o‚x *--------------------------------------------------------------------------*  Z3=Z1*10000+Z2*100+1:YMD[Z3-10101]=Z4: –¼—ï010101‚©‚ç‚Ì“ú”‚ðo‚·  IF Z4=0 THEN:STOP:ENDIF: –‚ ‚蓾‚È‚¢“ú•t‚ÌŽž‚ÍI—¹  Z4MOD7=Z5: –‚»‚ÌŒŽ‚P“ú ‚Ì—j“ú‚ðŒvŽZ  IF Z5=0 THEN:Z0=8:ELSE:Z0=15-Z5:ENDIF: –‘æ‚QŒŽ—j“ú‚ÌŒvŽZ  RETURN: *--------------------------------------------------------------------------*   ƒTƒuƒ‚ƒWƒ…\ƒ‹‚ÌŽd—l   ðŒ Z1 ‚É”N Z2 ‚ÉŒŽ‚ª“ü‚Á‚Ă鎞A  –ß‚è’l Z0 ‚É‘æ“ñŒŽ—j‚Ì“ú‚ð“ü‚ê‚ÄA•Ô‚µ‚Ü‚·B   ã‹LŒvŽZ‚ÌŒ´—  F=12,16,12 €~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  ‚P“ú‚Ì—j“ú‚Ì’l ‘æ“ñŒŽ—j“ú €~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  ŒŽ 0 8  ‰Î 1 14  … 2 13  –Ø 3 12  ‹à 4 11  “y 5 10  “ú 6 9 €~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   ‚‚܂èA‚P“ú‚ªŒŽ—j“ú‚Ìꇂ𜂢‚ÄA‚P‚T \ —j“ú‚Ì’l ‘æ“ñŒŽ—j“ú