HP-75 Catalog 2.1



#2

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 :-)


Possibly Related Threads...
Thread Author Replies Views Last Post
  HP-41 CATALOG Siegfried (Austria) 3 287 05-22-2013, 02:20 PM
Last Post: Ángel Martin
  [hp41] reading the catalog under program control Wolfgang 3 334 02-25-2013, 01:32 PM
Last Post: Dan Grelinger
  HP 75 Assembly Language Michael Fehlhammer 7 471 10-01-2012, 08:32 AM
Last Post: Michael Fehlhammer
  Lovely old catalog picture (Commodore) Gene Wright 4 337 06-07-2012, 11:31 PM
Last Post: Bruce Bergman
  [WP34s] expert's catalog? fhub 28 1,242 05-13-2012, 02:15 PM
Last Post: Marcus von Cube, Germany
  ODS Data utilities (HP-75) Raymond Wiker 2 271 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 257 02-04-2012, 08:03 PM
Last Post: Geir Isene
  HP-75 CATALOG 2.8 robertoataulfo 0 134 12-30-2011, 04:24 PM
Last Post: robertoataulfo
  HP-75 CATALOG 2.7 robertoataulfo 0 136 12-26-2011, 07:03 PM
Last Post: robertoataulfo
  HP-75 CATALOG 2.6 robertoataulfo 0 176 12-21-2011, 07:02 AM
Last Post: robertoataulfo

Forum Jump: