HP-75 CATALOG 2.6



#2

CATALOG ( 1426 bytes)

19/12/11 14:14:54

1 DELAY 0 @ B=1 @ I=1 @ A$(1)="1:75" @ A$(2)="2:Xmem" @ A$(3)="3:DR" @ PWIDTH INF
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 30
7 IF B$='e' AND POS("BT",A$[12,12])#0 THEN C$="Edit" @ GOSUB 14 @ GOSUB 24 @ 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 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 @ GOSUB 24 @ 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 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)
29 RETURN
30 GOSUB 33
31 GOSUB 26 @ IF A$="" THEN I=1 @ GOTO 2 ELSE PRINT A$ @ I=I+1 @ GOTO 30
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 :-)


Possibly Related Threads...
Thread Author Replies Views Last Post
  HP-41 CATALOG Siegfried (Austria) 3 218 05-22-2013, 02:20 PM
Last Post: Ángel Martin
  [hp41] reading the catalog under program control Wolfgang 3 229 02-25-2013, 01:32 PM
Last Post: Dan Grelinger
  HP 75 Assembly Language Michael Fehlhammer 7 340 10-01-2012, 08:32 AM
Last Post: Michael Fehlhammer
  Lovely old catalog picture (Commodore) Gene Wright 4 241 06-07-2012, 11:31 PM
Last Post: Bruce Bergman
  [WP34s] expert's catalog? fhub 28 865 05-13-2012, 02:15 PM
Last Post: Marcus von Cube, Germany
  ODS Data utilities (HP-75) Raymond Wiker 2 180 03-13-2012, 08:19 PM
Last Post: Paul Berger (Canada)
  Information that may be of interest to HP-75 users posted Paul Berger (Canada) 1 162 02-04-2012, 08:03 PM
Last Post: Geir Isene
  HP-75 CATALOG 2.8 robertoataulfo 0 91 12-30-2011, 04:24 PM
Last Post: robertoataulfo
  HP-75 CATALOG 2.7 robertoataulfo 0 95 12-26-2011, 07:03 PM
Last Post: robertoataulfo
  HP-75 CATALOG 2.5 robertoataulfo 0 105 12-17-2011, 09:41 AM
Last Post: robertoataulfo

Forum Jump: