Tweet
Code:
#BREAK ON '
'
FUNCTION PBMAIN () AS LONG '
t$ = "The quick brown fox." '
CLIPBOARD SET TEXT t$ ' Copy to clipboard
COLOR 14,1 '
CLS '
'
LOCATE 5,20 '
u$ = KeyClip ' Read from key/clip
LOCATE 7,20 ' board and verify.
PRINT;u$; '
WAITKEY$ '
'
'
'
END FUNCTION '
'
'
REM *************************************************** '
REM * * '
REM * Save this file as "KeyClip.inc" * '
REM * * '
REM *************************************************** '
REM * Written in CC 5.01. * '
REM * Text only. * '
REM * Enter text from the keyboard and/or clipboard * '
REM * or any combination thereof. * '
REM *************************************************** '
REM * Combine INKEY$ with CLIPBOARD GET TEXT into one * '
REM * routine. * '
REM * * '
REM * This can come in handy if, for example, you want* '
REM * to store a partial password in a file. When * '
REM * needed, copy the incomplete password to the * '
REM * clipboard, go to your web page then manually * '
REM * type in what is not stored then paste the rest * '
REM * of the password into the web page. (or visa-vis)* '
REM * * '
REM * ENTER or TAB out of the routine at any time. * '
REM *************************************************** '
REM * Couldn't really figure out a "proper" name for * '
REM * this. * '
REM * * '
REM * Taken from KEYboard and CLIPboard. * '
REM *************************************************** '
'
FUNCTION KeyClip AS STRING '
LOCAL c, r, x AS LONG '
LOCAL srow, sCol AS LONG ' Starting row/col
sRow = CURSORY '
sCol = CURSORX '
DO '<-:
WHILE INSTAT = 0 ' | Do other things here
' | if you like.
WEND ' |
an$ = INKEY$ ' |
IF an$ = CHR$(13) OR an$ = CHR$(9) THEN EXIT LOOP ' | Return/Tab exits
' |
IF an$ = CHR$(0,82) OR an$ = CHR$(22) THEN '<:| Shift/Insert or Control-V
CLIPBOARD GET TEXT TO t$ ' || read from clipboard
PRINT;t$; ' ||
te$ = te$ + t$ ' ||
END IF '<:|
' |
IF an$ = CHR$(8) THEN '<:| BackSpace
te$ = LEFT$(te$,LEN(te$) - 1) ' ||
r = CURSORY ' ||
c = CURSORX - 1 ' ||
IF c < sCol THEN c = sCol ' ||
LOCATE sRow, c ' ||
PRINT;" "; ' ||
LOCATE r, c ' ||
END IF '<:|
' |
IF LEN(an$) = 2 THEN '<:| Function key
' || routine(s) here.
END IF '<:|
' |
IF LEN(an$) = 1 AND ASC(an$) > 31 THEN '<:| Printable ASCII
PRINT;an$; ' || characters.
te$ = te$ + an$ ' ||
END IF '<:|
LOOP '<-:
'
FUNCTION = te$ '
END FUNCTION '
'