Autocrash

Bonjour à tous !

Voici quelques lignes de code qui auraient pu s’écrire en une seule et unique ligne...
C'est juste pour le plaisir de programmer !

Je vous laisse découvrir Autocrash...

Citation :

' Autocrash - Humour trouvé sur le Net
' Panoramisé par Marc - Septembre 2018
DIM t$,h$,a$,i%,j%,k%
LEFT 0,(SCREEN_X-WIDTH(0))/2
TOP 0,(SCREEN_Y-HEIGHT(0))/2
COLOR 0, 0,0,0
FOR k% = 1 to 2
   FOR j%=1 to 3
       READ a$
       FOR i% = 1 to LEN(a$) STEP 2
           h$=MID$(a$,i%,2)
           t$=t$+CHR$(HEX(h$))
       NEXT i%
   NEXT j%
   t$=t$+CHR$(13)
NEXT k%  
IF MESSAGE_WARNING_OK(t$)=1 THEN TERMINATE
DATA "566F747265206F7264696E6174657572206E27"
DATA "612070617320706C616E74E920646570756973"
DATA "20706C7573206465203220686575726573"
DATA "4175746F4372617368207661206D61696E74656E"
DATA "616E742065666665637475657220756E20706C"
DATA "616E7461676520646520726F7574696E6520"