The Museum of HP Calculators

HP Forum Archive 20

[ Return to Index | Top of Index ]

HP-75 CATALOG 2.7
Message #1 Posted by robertoataulfo on 26 Dec 2011, 7:03 p.m.

CATALOG ( 1437 bytes)

21/12/11 11:07:31

1 DELAY 0 @ B=1 @ I=1 @ A$(1)="1:75" @ A$(2)="2:Xmem" @ A$(3)="3:DR" @ PWIDTH INF @ WIDTH 32 2 GOSUB 26 @ 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 24 @ PURGE A$&B$ @ GOTO 1 6 IF B$="a" THEN C$="Print Catalog" @ GOSUB 15 @ PRINT C$[7,13]&":"&A$(I) @ I=1 @ GOTO 31 7 IF B$='e' AND POS("BT",A$[12,12])#0 THEN C$="Edit" @ GOSUB 14 @ GOSUB 24 @ EDIT A$ @ 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 18 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' AND POS("BT",A$[12,12])#0 THEN C$="Print" @ D$=A$ @ GOSUB 14 @ GOTO 16 13 GOTO 2 14 A$=A$[1,POS(A$," ")-1] @ INPUT "File ?",A$;A$ 15 A=GETMSG(A$&" "&C$&"? [YN]:","yn") @ IF A=2 THEN GOTO 2 ELSE DISP B$ @ RETURN 16 GOSUB 24 @ GOSUB 32 @ IF A$="keys" THEN PLIST KEYS ELSE PLIST A$ 17 PRINT @ GOTO 2 18 D$=" or " @ IF B=1 THEN B$=A$(2)&D$&A$(3) 19 IF B=2 THEN B$=A$(1)&D$&A$(3) 20 IF B=3 THEN B$=A$(1)&D$&A$(2) 21 DISP C$&" "&B$&" ?" @ B=VAL(WKEY$) @ GOSUB 24 22 IF A$="keys" THEN COPY KEYS TO B$ ELSE COPY A$ TO B$ 23 GOTO 2 24 B$="" @ IF B#1 THEN B$=A$(B)[2,LEN(A$(B))] 25 RETURN 26 IF B=1 THEN A$=CAT$(I) 27 IF B=2 THEN A$=XCAT$(I) 28 IF B=3 THEN A$=TCAT$(':dr',I) 30 RETURN 31 GOSUB 33 @ GOSUB 26 @ IF A$="" THEN I=1 @ GOTO 2 ELSE PRINT A$ @ I=I+1 @ GOTO 31 32 PRINT A$;' (';VAL(D$[13,18]);'bytes)' 33 PRINT @ C$=DATE$ @ PRINT C$[7,8]&C$[3,6]&C$[1,2]&" "&TIME$ @ PRINT @ RETURN

a = Print Catalog c = Copy File to e = Edit Basic File r = Run Basic File 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 :-)


[ Return to Index | Top of Index ]

Go back to the main exhibit hall