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
--------------------------------------------
