HP-75 CATALOG 2.5

[robertoataulfo]

CATALOG ( 1309 bytes)

15/12/11  20:59:38

1 DELAY 0 @ B=1 @ I=1 @ A$(1)="1:75" @ A$(2)="2:Xmem" @ A$(3)="3:DR" @ PWIDTH INF

2 GOSUB 27 @ IF A$="" THEN I=I-1 @ GOTO 2 ELSE DISP A$

3 B$=WKEY$ @ IF B$="…" THEN I=I+1

4 IF B$="„" AND I-1#0 THEN I=I-1 @ GOTO 2

5 IF B$='u' THEN C$="Purge" @ GOSUB 14 @ GOSUB 25 @ PURGE A$&B$ @ GOTO 1

6 IF B$="a" THEN I=1 @ GOTO 31

7 IF B$='e' AND A$[12,12]="B" THEN C$="Edit" @ GOSUB 14 @ GOSUB 25 @ EDIT A$&B$ @ END

8 IF B$='r' AND A$[12,12]="B" THEN C$="Run" @ GOSUB 14 @ RUN A$

9 IF B$='c' THEN C$="Copy to" @ GOSUB 14 @ GOTO 19

10 IF B$="x" THEN B=GETMSG("1:75 2:Xmem 3:DR ?","123") @ I=1 @ GOTO 2

11 IF B$="b" THEN BYE

12 IF B$='p' THEN C$="Print" @ D$=A$ @ GOSUB 14 @ GOSUB 25 @ GOTO 16

13 GOTO 2

14 A$=A$[1,POS(A$," ")-1]

15 A=GETMSG(A$&" "&C$&"? [YN]:","yn") @ IF A=2 THEN GOTO 2 ELSE DISP CHR$(27);"J" @ RETURN

16 PRINT A$;' (';VAL(D$[13,18]);'bytes)'

17 PRINT @ C$=DATE$ @ PRINT C$[7,8]&C$[3,6]&C$[1,2]&"  "&TIME$ @ PRINT

18 PLIST A$&B$ @ PRINT @ GOTO 2

19 D$=" or " @ IF B=1 THEN B$=A$(2)&D$&A$(3)

20 IF B=2 THEN B$=A$(1)&D$&A$(3)

21 IF B=3 THEN B$=A$(1)&D$&A$(2)

22 DISP C$&" "&B$&" ?" @ B=VAL(WKEY$) @ GOSUB 25

23 IF A$="keys" THEN COPY KEYS TO B$ ELSE COPY A$ TO B$

24 GOTO 2

25 B$="" @ IF B#1 THEN B$=A$(B)[2,LEN(A$(B))]

26 RETURN

27 IF B=1 THEN A$=CAT$(I)

28 IF B=2 THEN A$=XCAT$(I)

29 IF B=3 THEN A$=TCAT$(':dr',I)

30 RETURN

31 GOSUB 27 @ IF A$="" THEN I=1 @ GOTO 2 ELSE PRINT A$ @ I=I+1 @ GOTO 31

a    = Print Catalog

e    = Edit Basic File

r    = Run Basic File

c    = Copy File to

p    = Print Basic File

b    = Bye (Off)

x    = exchange media

u    = Purge File

Up   = Next File

Down = Previous File 

KEYLEX75 - UNLOCK

	 - SHLOCK

	 - CTLOCK

	 - GETMSG($,$)

	 - GETKEY$($)

	 - WKEY$

:Xmem=82718A



Enjoy :-)