 The Museum of HP Calculators

HP Forum Archive 20

 HP-75 Catalog 2.1Message #1 Posted by robertoataulfo on 2 Dec 2011, 5:41 p.m. ```HP-75 CATALOG 2.1 ( 769 bytes) 1 DELAY 0 @ I=1 2 A\$=CAT\$(I) @ 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 13 @ PURGE A\$ @ GOTO 1 6 IF B\$='e' AND A\$[12,12]="B" THEN C\$="Edit" @ GOSUB 13 @ EDIT A\$ @ END 7 IF B\$='r' AND A\$[12,12]="B" THEN C\$="Run" @ GOSUB 13 @ RUN A\$ 8 IF B\$='c' THEN C\$="Copy to card" @ GOSUB 13 @ COPY A\$ TO CARD @ GOTO 2 9 IF B\$='d' THEN C\$="Copy to drive" @ GOSUB 13 @ GOTO 18 10 IF B\$="b" THEN BYE 11 IF B\$='p' THEN C\$="Print" @ D\$=A\$ @ GOSUB 13 @ GOTO 15 12 GOTO 2 13 A\$=A\$[1,POS(A\$," ")-1] 14 A=GETMSG(A\$&" "&C\$&"? [YN]:","yn") @ IF A=2 THEN GOTO 2 ELSE DISP CHR\$(27);"J" @ RETURN 15 PWIDTH INF @ PRINT A\$;' (';VAL(D\$[13,18]);'bytes)' 16 PRINT @ B\$=DATE\$ @ PRINT B\$[7,8]&B\$[3,6]&B\$[1,2]&" "&TIME\$ @ PRINT 17 PLIST A\$ @ PRINT @ GOTO 2 18 IF A\$="keys" THEN COPY KEYS TO A\$&":dr" ELSE COPY A\$ TO A\$&":dr" 19 GOTO 2 u = Purge File e = Edit Basic File r = Run Basic File c = Copy File to Card d = Copy File to Drive ":d1" p = Print Basic File b = Bye (Off) Up = Next File Down = Previous File KEYLEX75 - UNLOCK - SHLOCK - CTLOCK - GETMSG(\$,\$) - GETKEY\$(\$) - WKEY\$ Enjoy :-) ``` Go back to the main exhibit hall