HP-75 Catalog

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Répondre
hp41cx
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 211
Inscription : 09 déc. 2012 21:51

HP-75 Catalog

Message par hp41cx » 21 janv. 2013 19:26

Un de mes équipements que j'aime est le HP-75
Longtemps j'ai développé cet utilitaire.
Toutes les questions ou d'amélioration, n'hésitez pas à le faire.

CATALOG B 1683 15:39 18\01\13 ( 1683 bytes)

24/02/13 10:19:51

1 DELAY 0 @ B=1 @ I=1 @ A$(1)="1:75" @ A$(2)="2:Xmem" @ A$(3)="3:DR" @ PWIDTH INF
2 WIDTH 32 @ ASSIGN # 1 TO "c"&STR$(B)&":xmem",TEXT @ GOSUB 33
3 READ # 1,I ; A$ @ IF A$="*" THEN I=I-1 @ GOTO 3 ELSE DISP A$
4 D$=WKEY$ @ IF D$="…" THEN I=I+1
5 IF D$="„" AND I-1#0 THEN I=I-1 @ GOTO 3
6 IF D$='u' THEN C$="1:Purge" @ GOSUB 24 @ PURGE A$[1,POS(A$," ")-1]&B$ @ GOSUB 32 @ GOTO 3
7 IF D$="s" THEN ASSIGN IO ":pr,:dr" @ PRINTER IS ":pr" @ GOTO 3
8 IF D$="a" THEN C$="Print Catalog" @ PRINT C$[7,13]&":"&A$(I) @ I=1 @ GOSUB 29 @ GOTO 27
9 IF D$='e' AND POS("BT",A$[12,12])#0 THEN C$="1:Edit" @ GOSUB 24 @ EDIT A$ @ END
10 IF D$='r' AND A$[12,12]="B" THEN C$="Run" @ RUN A$
11 IF D$='c' THEN C$="Copy to" @ GOTO 18
12 IF D$="x" THEN B=GETMSG("1:75 2:Xmem 3:DR ?","123") @ GOSUB 30 @ GOTO 3
13 IF D$="b" THEN BYE
14 IF D$='p' AND POS("BT",A$[12,12])#0 THEN C$="1:Print" @ D$=A$ @ GOTO 16
15 GOTO 3
16 GOSUB 24 @ GOSUB 28 @ IF A$="keys" THEN PLIST KEYS ELSE PLIST A$
17 PRINT @ GOTO 3
18 IF B=1 THEN B$=A$(2)&" "&A$(3)
19 IF B=2 THEN B$=A$(1)&" "&A$(3)
20 IF B=3 THEN B$=A$(1)&" "&A$(2)
21 C$=C$&" "&B$ @ GOSUB 24
22 IF A$="keys" THEN COPY KEYS TO B$ ELSE COPY A$ TO B$
23 BEEP @ GOTO 3
24 DISP C$&" or 0:exit?" @ C=VAL(WKEY$) @ IF C=0 THEN GOTO 3
25 B$="" @ IF C#1 THEN B$=A$(C)[2,LEN(A$(C))]
26 RETURN
27 READ # 1,I ; A$ @ IF A$="" THEN I=1 @ GOTO 3 ELSE PRINT A$ @ I=I+1 @ GOTO 27
28 PRINT A$;' (';D$[13,18];'bytes)'
29 PRINT @ C$=DATE$ @ PRINT C$[7,8]&C$[3,6]&C$[1,2]&" "&TIME$ @ PRINT @ RETURN
30 D$="c"&STR$(B)&":xmem" @ ASSIGN # 1 TO D$
31 A$=A$(B)[3,LEN(A$(B))] @ A=GETMSG("Create cat ("&A$&") y/n?","yn") @ IF A=2 THEN RETURN
32 PURGE D$ @ ASSIGN # 1 TO D$,TEXT
33 DISP "Update catalog..." @ D=1
34 IF B=1 THEN A$=CAT$(D)
35 IF B=2 THEN A$=XCAT$(D)
36 IF B=3 THEN A$=TCAT$(':dr',D)
37 IF A$="" THEN PRINT # 1 ; "*" @ RETURN
38 PRINT # 1 ; A$ @ D=D+1 @ GOTO 34

a = Print Catalog
c = Copy File to
e = Edit Basic File
r = Run Basic File
p = Print Basic File
r = Run Basic File
s = Assign IO
b = Bye (Off)
x = exchange media
u = Purge File
Up = Next File
Down = Previous File

KEYLEX75 - UNLOCK
- SHLOCK
- CTLOCK
- GETMSG($,$)
- GETKEY$($)
- WKEY$

:Xmem=82718A

Update

Enjoy :-)
--------------------------------------------
Analyst of Systems
HP41CY / TI59 / HP85B / VX-8DR
Facebook:http://migre.me/cUyaS
Droid CyanogenMod 7 / VB6
--------------------------------------------
Dernière édition par hp41cx le 05 mars 2013 21:39, édité 1 fois.

Avatar de l’utilisateur
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 450
Inscription : 13 janv. 2013 20:44
Localisation : Toulon-ouest

Re: HP-75 Catalog

Message par babaorhum » 21 janv. 2013 20:02

Salut hp41cx,

un truc à mettre dans mon 75, super, je teste dès que j'ai le temps de rentrer tout ca !
(tu as dû te faire suer à tout retapper ...)

@ bientôt
BaBaoRhum
HP J728,200LX,1000CX,75C,71B, 48GX,42s,41CX,35s,32E,32Sii,28S,22s,21,16C,11C,12Cp
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74&92 ; Canon X-07 ; Panasonic HHC RL-H1400 ; TANDY EC-4026

Répondre

Revenir vers « Tous les Pockets »