Jump to content
IGNORED

XB Text box entry routine


dhe
 Share

Recommended Posts

But if you are "missing the link" ;)  what could you do?

 

You would need to make an editor loop like one does in other language I guess.

You would put KEY() in a loop with control key values doing GOSUBs to various cursor control routines and placing valid ascii chars on the screen at the cursor position.

The most difficult thing for XB would probably be inserting and deleting although you might be able to use SEG$() and DISPLAY AT()  to good effect but it might still be painful on a really long string.

 

It's pretty good with this string length.


100 A$="NOW IS THIS TIME FOR ALL GOOD MEN TO COME TO THE AID OF THEIR COUNTRY. I don't know what happens when the string gets very long? "
110 CALL CLEAR
120 FOR I=LEN(A$)TO 1 STEP -1
130 DISPLAY AT(1,1):SEG$(A$,I,LEN(A$)-I)
140 NEXT I
150 GOTO 110

 

  • Like 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...