The Museum of HP Calculators

HP Forum Archive 20

[ Return to Index | Top of Index ]

HP-75 Catalog 2.1
Message #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 :-)


[ Return to Index | Top of Index ]

Go back to the main exhibit hall