Interlisp.medley/lispusers/PICK.TEDIT

Medley	PICK
2

4

1

PICK
1

By: Larry Masinter (lmm@iacm.org)
Uses: GITFNS
This document last edited on 10ug 2022
INTRODUCTION
When I get frustrated trying to decide what to work on, I use 'pick' to choose a project. It has a bunch of different choices. 
MODULE EXPLANATIONS

(PICK  option choices)	[Function]
pick option choice1 choice2 ...	[Command]  
Examples

pick	choose something to work on
pick oneof chicken beef tofu pork	choosee one of the named items 
pick issue	choose an issue and display it
pick issue 23	if youu give an issue number, just displays it
pick file 	choose a file at random: is it where it belongs? can you load it? use it?
pick file lispusers	pick a file on the given (medleydir) directory
pick project	choose a project / repo to work on (from GITFNS GITPROJECTS)
pick file notecards	chooses a notecards repo subdirectoory
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))5
<01>


<01>

T4
<01>

<01>
4
<01>


<01>
.<00><00>
8.<00><00>
8J
<01>

<01>
PAGEHEADINGRUNNINGHEAD	HELVETICA

CLASSIC	HELVETICA
MODERN
MODERN
MODERNMODERNMODERN



HRULE.GETFN
MODERN


HRULE.GETFN
MODERN


HRULE.GETFN
MODERN


HRULE.GETFN
MODERN

"
'
<00>





	
!B*=UCJ;
VEz<45>