J6 93.08.22÷ß3_åWß3‰Êwm [HIGAN.MYX] AUTO ”ÞŠÝŽZo] 00.07.23 ¬ L=0109 C=0074– 1993/08/22 ‚«‚傤‚±  –Z1 ‚É”NAZ2 ‚ÉŒŽ‚ª“ü‚Á‚Ä‚¢‚鎞AH•ªEt•ª‚Ì“ú‚ðAZ0 ‚É“ü‚ê‚ĕԂµ‚Ü‚·B –Z0 ‚ª 0 ‚È‚ç‚ÎA“n‚³‚ꂽ Z1 Z2 ‚Ì‘o•ûA‚Ü‚½‚͂ǂ¿‚ç‚©‚ª”͈͊O‚Å‚·B  –‚±‚̃I\ƒg‚ª‘–‚Á‚Ä‚éŠÔAV50 ‚Éu”ÞŠÝŽZov‚ð“ü‚ê‚Ü‚·B –Šô‚‚©‚̃I\ƒg‚ð˜A“®‚³‚¹‚Ä‚¢‚éê‡A‚Ç‚ê‚̉½s–Ú‚©‚ð’m‚éŽè‚ª‚©‚è‚Å‚·B –—Ⴆ‚΃I\ƒg‚ªƒGƒ‰\I—¹‚µAs”Ô†‚X‚Æo‚½‚Æ‚µ‚Ü‚·B –uŽdŽ–‚ÍvV50 ‚Æ“ü‚ê‚ÄAu”ÞŠÝŽZov‚Æo‚ê‚ÎA”ÞŠÝŽZoƒI\ƒgŽá‚µ‚­‚Í –”ÞŠÝŽZo‚Ɉø‚«“n‚³‚ꂽ‰½‚©A‚ªˆá‚Á‚Ä‚¢‚邯”»‚è‚Ü‚·B  –Z1,Z2 V50   V50="”ÞŠÝŽZo":Z0=0:  IF Z1>1851 AND Z1<2150 THEN:  IF Z2=3 THEN:GOTO –t•ª‚Ì“ú:ENDIF:  IF Z2=9 THEN:GOTO –H•ª‚Ì“ú:ENDIF:  ELSE:STOP:  ENDIF:  –t•ª‚Ì“ú  IF Z1>=1851 AND Z1=<1899 THEN:  Z0=19.8277+0.242194*(Z1-1980)-INT[(Z1-1983)/4]:  ELSE:  IF Z1>=1900 AND Z1=<1979 THEN:  Z0=20.8357+0.242194*(Z1-1980)-INT[(Z1-1983)/4]:  ELSE:  IF Z1>=1980 AND Z1=<2099 THEN:  Z0=20.8431+0.242194*(Z1-1980)-INT[(Z1-1980)/4]:  ELSE:  IF Z1>=2100 AND Z1=<2150 THEN:  Z0=21.8510+0.242194*(Z1-1980)-INT[(Z1-1980)/4]:  ENDIF:ENDIF:ENDIF:ENDIF:   STOP:  –H•ª‚Ì“ú  IF Z1>=1851 AND Z1=<1899 THEN:  Z0=22.2588+0.242194*(Z1-1980)-INT[(Z1-1983)/4]:  ELSE:  IF Z1>=1900 AND Z1=<1979 THEN:  Z0=23.2588+0.242194*(Z1-1980)-INT[(Z1-1983)/4]:  ELSE:  IF Z1>=1980 AND Z1=<2099 THEN:  Z0=23.2488+0.242194*(Z1-1980)-INT[(Z1-1980)/4]:  ELSE:  IF Z1>=2100 AND Z1=<2150 THEN:  Z0=24.2488+0.242194*(Z1-1980)-INT[(Z1-1980)/4]:  ENDIF:ENDIF:ENDIF:ENDIF:   IF Z1=1991 THEN:Z0=22:ENDIF:   V50="":STOP: