HP Forums

Full Version: I Love my 75C - Catalog+ 1.0
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

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