HP-75 Catalog



#2

HP-75 Catalog v2

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$="„" THEN I=I-1 @ GOTO 13
5 IF B$='p' THEN C$="Purge" @ GOSUB 15 @ GOTO 16
6 IF B$='e' AND A$[12,12]="B" THEN C$="Edit" @ GOSUB 15 @ GOTO 21
7 IF B$='r' AND A$[12,12]="B" THEN C$="Run" @ GOSUB 15 @ GOTO 22
8 IF B$='c' THEN C$="Copy to card" @ GOSUB 15 @ GOTO 17
9 IF B$='d' THEN C$="Copy to drive" @ GOSUB 15 @ GOTO 19
10 IF B$="b" THEN BYE
11 IF B$='i' THEN C$="Print" @ GOSUB 15 @ GOTO 23
12 GOTO 2
13 IF I=0 THEN I=1
14 GOTO 2
15 A=GETMSG(A$[1,11]&C$&"? [YN]:","yn") @ RETURN
16 IF A=1 THEN PURGE A$ @ GOTO 1 ELSE GOTO 2
17 IF A=1 THEN COPY A$ TO CARD
18 GOTO 2
19 IF A=1 THEN A$=A$[1,POS(A$," ")-1] @ GOTO 30
20 GOTO 2
21 IF A=1 THEN EDIT A$ @ END ELSE GOTO 2
22 IF A=1 THEN RUN A$ ELSE GOTO 2
23 IF A=2 THEN GOTO 2 ELSE B$=CH
R$(27)&"&k" @ A$=A$[1,POS(A$," ")-1]
24 PRINT B$&"1S";TAB((13-LEN(A$))/2);A$;B$&"0S"
25 FOR I=0 TO 99 @ C$=CAT$(I)
26 IF POS(C$,A$)>0 THEN PRINT TAB(6);C$[13,18]&'bytes' @ GOTO 28
27 NEXT I
28 PRINT @ B$=DATE$ @ PRINT TAB(3);B$[7,8]&B$[3,6]&B$[1,2]&" "&
TIME$ @ PRINT
29 PLIST A$ @ PRINT @ GOTO 2
30 IF A$="keys" THEN COPY KEYS TO A$&":d1" ELSE COPY A$ TO A$&":d1"
31 GOTO 2

p = Purge File
e = Edit Basic File
r = Run Basic File
c = Copy File to Card
d = Copy File to Drive ":d1"
i = Print Basic File
b = Bye (Off)
Up = Next File
Down = Previous File

KEYLEX75 - UNLOCK
- SHLOCK
- CTLOCK
- GETMSG($,$)
- GETKEY$($)
- WKEY$


Enjoy :-)


Edited: 28 Nov 2011, 6:50 p.m. after one or more responses were posted


#3

What lex file or ROM do I need for the GETMSG function? I tried to enter your program and my 75 does not seem to like that function.


#4

KEYLEX75


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

Forum Jump: