 The Museum of HP Calculators

HP Forum Archive 20

 HP-75 CATALOG 2.7Message #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 :-) ``` Go back to the main exhibit hall