j'ai essayé en Fortran le plus ringard possible avec du goto indexé

[fcalvay]

movaicode/18.

ça se compile avec gfortran -std=legacy signe.f

signe.txt

program osigne
read(5,99)  ijour, imois

99 format(I2,1X,I2) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois 3 if((ijour.ge.21).and.(ijour.le.32)) write(6,) 'Bélier' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois 4 if((ijour.ge.21) .and.(ijour.le.32)) write(6,) 'Taureau' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 5 if((ijour.ge.21).and.(ijour.le.32)) write(6,) 'Gémeaux' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 6 if((ijour.ge.22).and.(ijour.le.32)) write(6,) 'Cancer' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 7 if((ijour.ge.23).and.(ijour.le.32)) write(6,) 'Lion' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 8 if((ijour.ge.23) .and.(ijour.le.32)) write(6,) 'Vierge' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 9 if((ijour.ge.23) .and.(ijour.le.32)) write(6,) 'Balance' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 10 if((ijour.ge.23).and.(ijour.le.32)) write(6,) 'Scorpion' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 11 if((ijour.ge.21).and.(ijour.le.32)) write(6,) 'Sagittaire' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 12 if((ijour.ge.22).and.(ijour.le.32)) write(6,) 'Capricorne' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 1 if((ijour.ge.21).and.(ijour.le.32)) write(6,) 'Verseau' if(ijour.eq.32) goto 999 ijour=32 imois=12 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois goto 999 2 if((ijour.ge.19).and.(ijour.le.32)) write(6,) 'Poissons' if(ijour.eq.32) goto 999 ijour=32 imois=imois-1 if(ijour.eq.32) goto (1,2,3,4,5,6,7,8,9,10,11,12),imois

999 continue stop end