function get_example(num) {
if (num==0) {
dat='FUNCTION ReadDiskInfo:\n'+
'/* Make sure Args were given */\n'+
'IF arg(1)=="" THEN DO\n'+
'SAY "No Disk Given"\n'+
'RETURN(0)\n'+
'END\n'+
'\n'+
'/* Attempt to open the pipe using `xi` for icon reading */\n'+
'/* Note: device must have a "disk.info" file */\n'+
'\n'+
'IF OPEN("FH","awnpipe:readicon/xi"arg(1)":disk") THEN DO\n'+
'/* Read the information returned */\n'+
'/* Here you would add the things you need to do */\n'+
' DO COUNT=1 WHILE ~EOF("FH")\n'+
' LINE=READLN("FH")\n'+
' SAY COUNT" "LINE\n'+
' END\n'+
'END\n'+
'\n'+
'/* Or report an opening failure */\n'+
'ELSE DO\n'+
' SAY "Error opening "Arg(1)":disk.info"\n'+
' RETURN(0)\n'+
'END\n'+
'RETURN(1)\n'
return(dat)
}

if (num==1) {
dat='/* reads the clipboard and fills DATA.n lines */\n'+
'/*\n'+
'Example Usage:\n'+
' IF ReadClip(0) then do\n'+
'  DO c=1 to DATA.0\n'+
'  say DATA.C\n'+
'  END\n'+
' END\n'+
' ELSE; SAY "Nothing found for ClipUnit 0"\n'+
'*/\n'+
'\n'+
'ReadClip:\n'+
'/* see if another unit is needed */\n'+
'PARSE ARG UNIT .\n'+
'IF (UNIT == "" | (DATATYPE(UNIT)~="NUM")) THEN UNIT=0\n'+
'\n'+
'/* Attempt to open the pipe */\n'+
'IF OPEN("FH","awnpipe:clip/v"UNIT) THEN DO\n'+
'/* Read the data */\n'+
'DROP DATA. /* Clear any existing data */\n'+
' DO C=1 UNTIL EOF("FH")\n'+
' DATA.C=Readln("FH")\n'+
' DATA.0=c\n'+
' END\n'+
'CALL CLOSE("FH")\n'+
'RETURN(1)\n'+
'END\n'+
'/* Or failure */\n'+
'ELSE RETURN(0)\n'

return(dat)
}

if (num==2) {
dat='; This can be set as a wb Alias\n'+
'alias awinfo "Type >con://///WAIT/CLOSE awnpipe:awi/xi[]"'
return(dat)
}
}