FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Calculatrice
par papydall Hier à 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Hier à 21:32

» Planétarium virtuel.
par Pedro Alvarez Hier à 17:07

» Demande pour Jack concernant PanExpress
par Minibug Hier à 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Autocrash

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 865
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Autocrash   Dim 2 Sep 2018 - 12:15

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"

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Autocrash
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: