home *** CD-ROM | disk | FTP | other *** search
RISC OS BBC BASIC V Source | 1995-03-06 | 1.1 KB | 45 lines |
- (v1.0) When run, the parameter text will be sent to Impression Style/Publisher at the caret of a page area.
- "OS_GetEnv"
- command%
- l%=0:c%=0
- ?(command%+l%) = 34
- c%+=1
- l%+=1
- c%>=2
- pointer%=l%+1+command%
- l%=0:f%=
- l%+=1
- ?(pointer%+l%) = 0
- endpointer%=pointer%+l%
- dest_hd% = -1
- sendmessage
- "OS_Exit"
- "Wimp_Poll",0,q%
- reason%
- sendmessage
- text$="Enter "
- buffer%!0=256
- buffer%!16=&80E18
- buffer%!24=taskhandle%
- buffer%!20=0
- buffer%?24=36
- buffer%!25=0
- buffer%!29=0
- buffer%!33=0
- l%=1
- (text$)
- -!buffer%?(35+l%)=
- text$,l%,1)
- offset%=
- (text$)+36
- 2( buffer%?(offset%+l%)=?(pointer%+l%)
- l%+=1
- (pointer%+l%) > endpointer%
- "Wimp_SendMessage",17,buffer%,dest_hd%
- SYS "Wimp_SendMessage",17,buffer%,0
- q% &400,buffer% 256
- "Wimp_Initialise",200,&4B534154,"SendText"
- ,taskhandle%
- "Wimp_GetCaretPosition",,buffer%
- dest_hd%=buffer%!0
-