I Love my 75C - Catalog+ 1.0



#2

That program allows to manage the files in a 75C.

Catalog+ 1.0

10 DELAY 0 @ I=1
20 A$=CAT$(I) @ IF A$="A"
THEN I=I-1 @ GOTO 20 EL
SE DISP A$
30 GOSUB 110 @ IF B$="…"
THEN I=I+1
40 IF B$="Q" THEN I=I-1
@ GOTO 120
50 IF B$='P' THEN DISP A
$[1,11]&"Purge?"; @ GOSU
B 140 @ GOTO 160
60 IF B$='E' THEN DISP A
$[1,11]&"Edit?"; @ GOSUB
140 @ GOTO 210
70 IF B$='R' AND A$[12,1
2]="B" THEN DISP A$[1,11
]&"Run?"; @ GOSUB 140 @
GOTO 220
80 IF B$='C' THEN DISP A
$[1,11]&"Copy to card?";
@ GOSUB 140 @ GOTO 170
90 IF B$='D' THEN DISP A
$[1,11]&"Copy to drive?"
; @ GOSUB 140 @ GOTO 190
95 IF B$='I' THEN DISP A
$[1,11]&"Print?"; @ GOSU
B 140 @ GOTO 1000
100 GOTO 20
110 B$=KEY$ @ IF B$="" T
HEN GOTO 110 ELSE B$=UPR
C$(B$) @ RETURN
120 IF I=0 THEN I=1
130 GOTO 20
140 DISP " [YN]:"
150 GOSUB 110 @ IF POS("
YN",B$)=0 THEN 150 ELSE
RETURN
160 IF B$="Y" THEN PURGE
A$ @ GOTO 10 ELSE GOTO
20
170 IF B$="Y" THEN COPY
A$ TO CARD
180 GOTO 20
190 IF B$="Y" THEN COPY
A$ TO ":d0"
200 GOTO 20
210 IF B$="Y" THEN EDIT
A$ @ END ELSE GOTO 20
220 IF B$="Y" THEN RUN A
$ ELSE GOTO 20
1000 IF B$="N" THEN GOTO
20 ELSE B$=CHR$(27)&"&k
" @ A$=A$[1,POS(A$," ")-
1]
1010 PRINT B$&"1S";TAB((
12-LEN(A$))/2);A$;B$&"0S
"
1020 FOR I=0 TO 99 @ C$=
CAT$(I)
1030 IF POS(C$,A$)>0 THE
N PRINT TAB(5);C$[13,18]
&'bytes' @ GOTO 1060
1050 NEXT I
1060 PRINT @ B$=DATE$ @
PRINT B$[7,8]&B$[3,6]&B$
[1,2]&" "&TIME$ @ PRINT
1070 PLIST A$ @ PRINT @
GOTO 20

Q - Move pointer Up
A - Move pointer Down

I - Print ':PR'
C - Copy to card
D - Copy to ':D0'
E - Edit
P - Purge
R - Run

Begin the final battle!!! :-))
Death for 71B!! Live to 75C!! :-))


Possibly Related Threads...
Thread Author Replies Views Last Post
  [HP-41][HP-71B][HP-75C/D][HP-IL] Found a mother-lode of programs on ftp.stak.tk rdj 2 650 11-26-2013, 05:31 PM
Last Post: rdj
  TED Talk: Adam Spencer: Why I fell in love with monster prime numbers Les Bell 3 637 09-05-2013, 12:54 PM
Last Post: Ken Shaw
  One thing I really love on HP PRIME... dg1969 0 295 07-31-2013, 06:50 AM
Last Post: dg1969
  HP-41 CATALOG Siegfried (Austria) 3 504 05-22-2013, 02:20 PM
Last Post: Ángel Martin
  [hp41] reading the catalog under program control Wolfgang 3 577 02-25-2013, 01:32 PM
Last Post: Dan Grelinger
  HP 75C 75D Olivier De Smet 2 420 02-04-2013, 08:49 AM
Last Post: Paul Berger (Canada)
  Lovely old catalog picture (Commodore) Gene Wright 4 596 06-07-2012, 11:31 PM
Last Post: Bruce Bergman
  [WP34s] expert's catalog? fhub 28 2,087 05-13-2012, 02:15 PM
Last Post: Marcus von Cube, Germany
  HP-75 CATALOG 2.8 robertoataulfo 0 251 12-30-2011, 04:24 PM
Last Post: robertoataulfo
  HP-75 CATALOG 2.7 robertoataulfo 0 238 12-26-2011, 07:03 PM
Last Post: robertoataulfo

Forum Jump: