Je n'en reviens pas !!!

[febed01]

Comment ai-je pu être tout seul sur ça !!!
http://cgi.ebay.fr/ws/eBayISAPI.dll?Vie ... 1199714785

J'avais enchéri surtout pour les câbles et les modules mémoire, les Psions en eux-mêmes je suis déjà servi.

Ça me consolera du HP200lx que j'ai raté ce week-end ^^

Content

[MUMU21]

Comment ai-je pu être tout seul sur ça !!!
http://cgi.ebay.fr/ws/eBayISAPI.dll?Vie ... 1199714785

J'avais enchéri surtout pour les câbles et les modules mémoire, les Psions en eux-mêmes je suis déjà servi.

Ça me consolera du HP200lx que j'ai raté ce week-end ^^

Content

Joli lot ! On dirait que les psions n ont pas la cote ... J ai choppé un psion 2 avec deux modules pour moins de 5€ sur eBay UK il y a 3 semaines , pour le fun

[cgh]

Ah oui ! Joli lot ! Et bien felicitations... Au plaisir de decouvrir tes nouvelles creations sur PSION

[FlyingNono]

Comment ai-je pu être tout seul sur ça !!!

Salut,
Xp, Lz, Série3, les Psion n'ont jamais étés vraiment appréciés à leur juste valeur

J'avais enchéri surtout pour les câbles et les modules mémoire, les Psions en eux-mêmes je suis déjà servi.

Je ne sais plus si j'ai un module Rs232, mais en attendant de vérifier, peux-tu me quelle est la vitesse basse du programme de com (des Xp) et si il gère le baudot ?

Ça me consolera du HP200lx que j'ai raté ce week-end ^^

Bah, il y en aura d'autres ...
a+

[bernouilli92]

Comment ai-je pu être tout seul sur ça !!!
http://cgi.ebay.fr/ws/eBayISAPI.dll?Vie ... 1199714785

J'avais enchéri surtout pour les câbles et les modules mémoire, les Psions en eux-mêmes je suis déjà servi.

J'ai vu cette enchère cet après midi et je trouvais justement que c'était une bonne affaire à ce prix là.
Comme tu dis, ne serai-ce que pour les câbles.

Ça me consolera du HP200lx que j'ai raté ce week-end ^^

Content

Il y en a un en ce moment sur LBC à 60 euros. La semaine dernière il était encore dispo. Il l'est peut être encore.

[febed01]

Pas grave pour le 200LX, en attendant je vais essayer XTM sur le Psion 5, il semblerait que question clavier il n'y a pas photo.

Et puis je m'apprête à "batailler" plus ferme sur un appareil Minidisc ce soir
[EDIT : Même pas eu besoin de batailler, il n'y avait personne non plus. Tant mieux pour moi. Demain je joue au loto ]

[febed01]

Ayé, tout reçu, et ce que j'ai testé fonctionne :
* Un XP en français (un connecteur de la pile est un peu oxydé et je me demande si ce n'est pas la cause de quelques resets intempestifs. A voir)
* Un câble COMMLINK avec "Psi2Win"
* Les deux Datapack Flash 128K

Reste à tester :
* L'autre XP
* L'autre câble COMMLINK
* Les adaptateurs secteur

À oublier :
* La "sacoche" de protection, car la mousse qui est à l'intérieur se décompose et en met partout.

J'ai pu formater les Datapacks, y transférer ce que j'avais de mon ancien pack 8K presque plein (et non reformatable sans appareil à UV), sauvegarder mes progs sur le PC au format texte.

Marrant sinon de voir que le manuel de l'organiseur consacre ses 2/3 à la programmation.

Du coup je ne résiste pas à l'envie de partager avec vous mon code pour ma version Organizer II de mini calculette RPN avec sauvegarde de la pile :

Code : Tout sélectionner

Notes :
* Saisir chaque proc séparément (et non pas dans un seul fichier comme les séries 3 et +)
* Le programme lanceur est  RPN:  que l'on peut insérer dans le menu de l'organiseur en tapant [MODE] RPN [EXE] dans l'accueil
* Le PEEKW(-24) sert à déterminer le modèle de l'organiseur (utilisé ici pour adapter l'affichage de la pile (variables lim% et ti%) selon si c'est un XP ou un LZ). Pour mon XP c'était 566 mais à chacun de vérifier sur [url]http://archive.psion2.org/org2/cmxplz.htm[/url]
* Touche [haut] : swap ; touche [bas] : drop ; touches [EXE] et [ESPACE] : Enter/Dup ; [ON] : sauver+quitter

RPN:
global pile(50),pp%,lim%,ti%
local i%
cls
print "Init..."
print "Modele : ";
if peek(-24)=566
	mo%="XP" :lim%=2 :ti%=-14
else
	mo%="LZ" :lim%=4 :ti%=-17
endif
print mo%
pp%=0
IF EXIST("RPNDATA")
 open "RPNDATA",a,nb
 first
 while not eof
  ppush:(a.nb)
  next
 endwh
 close
 delete "RPNDATA"
 create "RPNDATA",a,nb
ELSE
 create "RPNDATA",a,nb
ENDIF
-------------------------------------------
RPKB:
local c$(17),d%,e$(1),etat%
c$="" :etat%=1
bclk:: d%=get :e$=chr$(d%)
if loc("+-*/%",e$)>0 and c$<>""
 PPUSH:(val(c$))
endif
if (d%>=%0 and d%<=%9) or e$="."
 c$=c$+e$
 pcmd:: at 1,2 :print ">";c$;" ";
 goto bclk::
elseif d%=13 or d%=32
 if c$=""
  PPUSH:(pile(pp%))
 else
  PPUSH:(val(c$))
 endif
elseif d%=1
 etat%=0
elseif d%=3
 PSWAP:
elseif d%=4
 PDROP:
elseif d%=8
 c$=left$(c$,len(c$)-1)
 goto pcmd::
elseif d%=2
 c$=""
 goto pcmd::
ELSEIF e$="S"
 BEEP 100,800
OFF
elseif e$="+"
 PPUSH:(PPOP:+PPOP:)
elseif e$="*"
 PPUSH:(PPOP:*PPOP:)
elseif e$="-"
 PSWAP:
 PPUSH:(PPOP:-PPOP:)
elseif e$="/"
 if pile(pp%)<>0
  PSWAP:
  PPUSH:(PPOP:/PPOP:)
 else
  beep 400,0.5
 endif
elseif d%=37
 if pile(pp%)<>0
  PPUSH:(1/PPOP:)
 else
  beep 400,0.5
 endif
else
 beep 800,0.5
endif
return etat%
-------------------------------------------
AFFPILE:
local i%
cls :i%=1
while i%<=pp%
 if i%<lim%
  at 1,lim%-i%
  print i%;":";gen$(pile(1+pp%-i%),ti%);
 endif
 i%=i%+1
endwh
-------------------------------------------
PPUSH:(n)
if pp%<50
 pp%=pp%+1
 pile(pp%)=n
else
 beep 400,0.5
endif
-------------------------------------------
PPOP:
if pp%>0
 pp%=pp%-1
 return pile(pp%+1)
else
 beep 400,0.5
endif
-------------------------------------------
PDROP:
local w
w=PPOP:
-------------------------------------------
PSWAP:
local s
if pp%>1
 s=pile(pp%)
 pile(pp%)=pile(pp%-1)
 pile(pp%-1)=s
else
 beep 400,0.5
endif
-------------------------------------------

[/size]

[Marge]

Trop fort, le code ! comme dit mon neveu.

Bravo !

XTM, pourquoi ? tu veux te faire un Duke Nukem?

[badaze]

J'avais vu l'annonce mais comme je suis déjà servi je me suis abstenu.

[FlyingNono]

Salut,
Est-ce que le psion-link des Xp-Lz gère le baudot et les vitesses 100/110/150 Bauds ? (voire 50 & 75 )
a+

[febed01]

@Marge : Non, je voulais faire tourner Lotus 1-2-3 ou mieux Framework 3 ou 4 d'Ashton Tate (suite avec le seul tableur que je connaisse à permettre les scripts dans les cellules, je n'ai jamais revu ça depuis)

@Flying Nono : Oui, il gère : 9600 4800 2400 1200 600 300 150 110 75 50

[FlyingNono]

Oui, il gère : 9600 4800 2400 1200 600 300 150 110 75 50

Super, et quel format ? baudot/ascii ? ce serait pour émuler un teletype
a+