10 MODE 0:SYMBOL AFTER 32:z=HIMEM-255:INK 0,0:INK 8,0:INK 15,2:INK 7,26:BORDER 0:PEN 14:PRINT"  *PATIENTEZ SVP *"CHR$(23)+CHR$(1):FOR a=1 TO 4:d=z+ASC(MID$("2023",a,1))*8:FOR l=0 TO 7:p$=BIN$(PEEK(d+l),8):FOR c=0 TO 7:i=VAL(MID$(p$,c+1,1))
20 WHILE i:x=c*20+a*172-196:FOR r=0 TO 4:MOVE x+r*4,318-l*48:DRAWR 0,42,8:NEXT:i=0:WEND:NEXT c,l,a:PEN 3:LOCATE 4,1:PRINT " BONNE  ANNEE":LOCATE 5,25:PRINT"BYE BYE 2022":WHILE 1:MOVE u,20:DRAWR 0,350,15:MOVE u-168,20:DRAWR 0,350:u=u+8:u=u MOD 820:WEND