Tombola gratuite

[leglatin]

La seule fois où j'ai gagné le premier prix d'une tombola, c'était un bélier. Vivant. J'avais 10 ans...

Inutile de dire que, désormais, je me méfie des tombolas

PS sérieux : Bonne chance aux participants !

[badaze]

Salut,

Quelques précisions : à la clôture de la tombola, fin mai, ManiB effectuera un tirage au sort à l'aide d'un programme BASIC sur PCE-500 et postera les noms des trois heureux élus ici

Hello Pocket Computer Fans,
the SHARP PC-E500 Tombola Basic Program is ready for use.
Check it out, here is the sourcecode of the version 1.0:

If anyone find any bugs, or has any suggestions - please let me know;)

Ciao,
ManiB

Bug report : In order to make your program work fine you must remove lines from 1001 to 1030 and replace with the followings. I repeat. It will work fine only at this condition ! Don't thank me. It was my pleasure.

Code : Tout sélectionner

1001 DATA "badaze "
1002 DATA "badaze" 
1003 DATA "badaze " 
1004 DATA "badaze " 
1005 DATA "badaze " 
1006 DATA "badaze" 
1007 DATA "badaze" 
1008 DATA "badaze "
1009 DATA "badaze " 
1010 DATA "badaze "
1011 DATA "badaze "
1012 DATA "badaze " 
1013 DATA "badaze" 
1014 DATA "badaze" 
1015 DATA "badaze " 
1016 DATA "badaze " 
1017 DATA "badaze " 
1018 DATA "badaze " 
1019 DATA "badaze " 
1020 DATA "badaze " 
1030 DATA "badaze "

[leglatin]

A best optimization would be :

270 RESTORE : READ USER$(I)
& remove lines 1000 to 1003 and 1005 to 1030

[spacemax]

Hello,

Cool, je m'inscris également. Pas pour les Sharps mais pour l'IPAQ !!!

[Pocket]

Salut,

Je pense qu'il vaut mieux faire une tombola à part pour l'Ipaq.
On mettra la liste des intéressés Ipaq à jour après celle-ci.

A+

[ManiB]

Hello Pocket Computer Fans,

now it takes only a few hours;)

Here briefly the information about the exact procedure:
1. I will on 01/06/2016 at 00:00 o'clock update the list of participants and start my Basic program.
2. The draw will be recorded by me and published in youtube during the morning. At the same time I post the link to the video here.
3. The first three winners will each receive one USB interface for the SHARP PC-E500/E500S Pocket Computer.
4. Please contact Pocket and send him your delivery address.
5. Pocket sends the packets
6. Please let us know if the parcel has arrived to you.
7. A description of the start-up can be found here.
8. We would love to hear some feedback in the forum.

We wish you good luck!

Ciao,
Pocket and Manfred

[ledudu]

Salut

Salut,
Je pense qu'il vaut mieux faire une tombola à part pour l'Ipaq.
On mettra la liste des intéressés Ipaq à jour après celle-ci.
A+

ok, merci.

[ManiB]

... and the winners are:
https://youtu.be/C03Gt_Dr6fY

[rogeroge]

... and the winners are:
https://youtu.be/C03Gt_Dr6fY

Bravo aux gagnants !
Amusant le défilé rapide des pseudos à chaque tirage !

[jojo]

... and the winners are: https://youtu.be/C03Gt_Dr6fY

Félicitations aux trois gagnants ! M'semblait bien que je n'étais pas parti pour gagner quoi que ce soit !

Hello, Cool, je m'inscris également. Pas pour les Sharps mais pour l'IPAQ !!!

Salut, Je pense qu'il vaut mieux faire une tombola à part pour l'Ipaq. On mettra la liste des intéressés Ipaq à jour après celle-ci.A+

Je me remets sur les rangs pour l'IPaq ! Ya bien quelqu'un d'autre qui le gagnera !

[remy]

Superbe réalisation.
félicitations aux gagnants.

[jvernet]

Excellent

Bon, me reste à sortir des sous pour ça (j'ai une version port COM quelque part, mais où....).


JV

[gege]

Bonjour,
Le module HP41 a été gagné par hp41cx.
J'ai fait moins beau mais plus simple :

Bonne idée cette tombola !
G.E.

[badaze]

Waouh. Quel suspens !

Bravo aux gagnants. Et merci aux organisateurs.

[doum-doum]

Bravo aux gagnants et merci aux organisateurs pour cette amusante tombola