The Museum of HP Calculators

HP Forum Archive 16

 I Love my 75C - Catalog+ 1.0Message #1 Posted by gileno on 22 Jan 2007, 3:04 p.m. ```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!! :-)) ```

Go back to the main exhibit hall