JeuxOnLineForumsPlusConnectés : 367 (sites) | 764 (forums)Créer un compte
Ultima Online
Les Huit Vertus
Les forums JOL > Ultima Online > UO - Les Huit Vertus > *a spawned gob of virtues* RSS
   
Répondre
Partager Outils Rechercher
Avatar de Bouldegom *azuré*
Bouldegom *azuré*
Roi
 
Avatar de Bouldegom *azuré*
 

*a spawned gob of virtues*

Putain que ca fait du bien, rahhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh bon alor sdeja un chtit coup de massue a tous *sbaf* *viole une grenouille au passage* bon c'est pas l'tout mais mes AS400 m'attendent (je hait le mainframe le cobol et ce genre de c@"`\!) /D
Lien direct vers le message - Vieux
Avatar de Joe BarTender
Joe BarTender
Alpha & Oméga
 
Avatar de Joe BarTender
 
**/** out of cheese error **\**

***reseting universe***

*redo from start*
Lien direct vers le message - Vieux
Avatar de Yeuse
Yeuse [RPz]
Alpha & Oméga
 
Avatar de Yeuse
 
Re: *a spawned gob of virtues*
Citation:
Provient du message de Bouldegom *azuré*
*viole une grenouille au passage*




Bah s'il en est réduit à ça on risque pas grand chose


Ca fait du bien de te revoir le gob ...



ps a pas trouvé le code en rab sorry
Lien direct vers le message - Vieux
Avatar de Joe BarTender
Joe BarTender
Alpha & Oméga
 
Avatar de Joe BarTender
 
000 * *** COBOL ***
001 identification division.
002 program-id. rebooting universe.
003 * ceci est un commentaire, ca vous dérange ?
004 environnement division.
005 configuration section.
006 source-computer. IBM-AS4000
007 object-computer. IBM-AS4000
008
009 input-output section.
010 file-control.
011 select ficarte assign to disk-ficarte
012 select ficedit assign to printer-ficedit
013
014 data division.
015 file section.
....
020 working-storage section.
021 01 indices.
022 02 k pic 99 comp value 1
...
040 procedure division.
041 debut
042 display 'bonjour' upon screen
043 move 15 to i
044 if i>10 perform boucle thru finB until k>i-1
045 else ....
....
080 boucle.
081 compute j=j+1
082 finB
....
666 perform universe(reconstruction) until complete


:complete
Lien direct vers le message - Vieux
Avatar de DMZ
DMZ
Alpha & Oméga
 
Avatar de DMZ
 
En Cobol sur un AS400 ?

Un AS400 est fait pour faire du RPG pas du Cobol (voir ses indicateurs et ses variables systèmes).

Spèce d'une masochiste va
Lien direct vers le message - Vieux
Avatar de Lecram
Lecram
Roi
 
Avatar de Lecram
 
Nomdetjuuuu, du Cobol, j'ai pris un sacré coup d'vieux en voyant ton source, Joe!
Lien direct vers le message - Vieux
Avatar de Bouldegom *azuré*
Bouldegom *azuré*
Roi
 
Avatar de Bouldegom *azuré*
 
DMZ en fait actuellement on s'amuse a torturer un beowulf constitué de 4 AS400 avec environ 250 linux de lancé par becane *sort le bouclier en plexiglas* si jamais ca pete faudra se plaindre a la rainette -(aucun rapport mais ca rime - .
Lien direct vers le message - Vieux
Avatar de DMZ
DMZ
Alpha & Oméga
 
Avatar de DMZ
 
Comme je suppose que tout le monde ne comprend pas de quoi on parle, voici une image d'un AS400 50 litres

http://www.doctorcomp.it/AS_400_50.htm
Lien direct vers le message - Vieux
Avatar de Yeuse
Yeuse [RPz]
Alpha & Oméga
 
Avatar de Yeuse
 


Joe ça te gêne pas de me coller du COBOL pendant que je suis au taff ?



Bon d'accord là je suis dans de l'assembleur
Lien direct vers le message - Vieux
Avatar de DMZ
DMZ
Alpha & Oméga
 
Avatar de DMZ
 
c'est spacieux un assembleur ?
Lien direct vers le message - Vieux
Avatar de DMZ
DMZ
Alpha & Oméga
 
Avatar de DMZ
 
Data Segment
Message DB "Bonjour Vertusiens !$"
Data EndS


Code Segment
Assume Cs : Code, Ds : Data

Main Proc
Mov Ah, 09h
Mov Dx, Offset Message
Int 21h

Mov Ax, 0C00h
Int 21h
Main EndP
Code EndS
End Main
Lien direct vers le message - Vieux
Avatar de Thadeus Magna
Thadeus Magna [EC]
Alpha & Oméga
 
Avatar de Thadeus Magna
 
*sors du COBOL*

*se dit que quelque chose ne tourne pas rond*

*va vérifier si la matrice des 8v est toujours en état*



vite un élu! ca urge! joe t'a tout tranfiquer a coup de basic de base! help!
Lien direct vers le message - Vieux
Avatar de Joe BarTender
Joe BarTender
Alpha & Oméga
 
Avatar de Joe BarTender
 
ben j'y peux rien, le source initial des 8V est sur un floppy 8" un peu poussiéreux ...

Vous plaignez pas , il y a des rumeurs de reprogrammation de l'univers en Cobol-Objet interfacé Java

Mais pour le faire faut d'abord reprogrammer le boot-strap en ADA ou en LISP parce que sinon on pourra pas lancer la recompil du noyau qui est en gruyère (d'où les out of cheese error)
Lien direct vers le message - Vieux
Avatar de Thadeus Magna
Thadeus Magna [EC]
Alpha & Oméga
 
Avatar de Thadeus Magna
 
alors on fait un simple scan disk suivi d'une défragmentation et une fois que tout parait a peu pres réparer on reformat et on demande a des ingénieurs d'ibm de tout refaire sous dvd... vi paske les 8" oula ca commence a dater...
Lien direct vers le message - Vieux
Avatar de Yeuse
Yeuse [RPz]
Alpha & Oméga
 
Avatar de Yeuse
 
del *.*
Lien direct vers le message - Vieux
Répondre
Les forums JOL > Ultima Online > UO - Les Huit Vertus > *a spawned gob of virtues*
   

Outils Rechercher
Rechercher:

Recherche avancée

Les vidéos d'Ultima Online RSS
Thème visuel : Fuseau horaire GMT +1. Il est actuellement 01h25.
   

© JeuxOnLine, le site des MMO, MMORPG et MOBA. Tous droits réservés. - Conditions générales d'utilisation - Conditions d'utilisation des forums - Traitement des données personnelles - ! Signaler un contenu illicite