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
» Exemple d'une nouvelle version d'un GRID
par Minibug Mer 16 Jan 2019 - 18:23

» Peut-être un bug de l'éditeur pour Jack
par jjn4 Lun 14 Jan 2019 - 17:45

» Wordpic.2
par jjn4 Sam 12 Jan 2019 - 16:34

» Fichier <-> Datas
par jjn4 Sam 12 Jan 2019 - 16:23

» Version instantanée V 0.9.29i6 du 08/01/2019
par Jack Mer 9 Jan 2019 - 7:50

» Make_Exe avec la version V 0.9.29i6
par Jack Mar 8 Jan 2019 - 20:14

» caret_yb_position
par jjn4 Mar 8 Jan 2019 - 19:34

» Problème avec l'analyseur syntaxique de Panoramic.
par jjn4 Lun 7 Jan 2019 - 14:44

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Dim 6 Jan 2019 - 18:39

» Bonne année 2019
par silverman Sam 5 Jan 2019 - 12:02

» Blocage Editeur
par Minibug Mar 1 Jan 2019 - 15:54

» Un texte clignotant
par JL35 Mar 1 Jan 2019 - 13:50

» Bonnes fêtes de fin d'année !
par JL35 Mar 1 Jan 2019 - 0:04

» ON_CLICK sur HVIEWER
par JL35 Lun 31 Déc 2018 - 16:56

» Logiciel de soutien scolaire.
par Pedro Alvarez Lun 31 Déc 2018 - 7:51

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2019
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Autocrash

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 994
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: