Qbasicnews.com › QBasic › QB Discussion & Programming Help v
Changing letters

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Linear Mode
Changing letters
Neo Offline
Posting Freak
*****
Posts: 1,845
Threads: 44
Joined: Aug 2002
#8
02-03-2003, 04:04 PM
I think I have a more efficient piece of code.

Code:
MyText$="abc"
DEF SEG = VARSEG(MyText$)
FOR I = SADD(MyText$) TO SADD(MyText$) + LEN(MyText$) - 1
   y% = PEEK(I)
   IF y% = 255 THEN y% = -1
   POKE I, y% + 1
NEXT I
DEF SEG

Hope you can do something with it Smile
Find
Reply


Messages In This Thread
Changing letters - by Lanzaa - 02-01-2003, 11:14 AM
Changing letters - by toonski84 - 02-01-2003, 11:26 AM
Changing letters - by Lanzaa - 02-01-2003, 08:00 PM
Changing letters - by Lanzaa - 02-03-2003, 06:16 AM
Changing letters - by toonski84 - 02-03-2003, 07:04 AM
Changing letters - by Lanzaa - 02-03-2003, 09:55 AM
Changing letters - by toonski84 - 02-03-2003, 03:22 PM
Changing letters - by Neo - 02-03-2003, 04:04 PM
Changing letters - by LooseCaboose - 02-04-2003, 02:02 AM
Changing letters - by toonski84 - 02-04-2003, 04:56 AM
Changing letters - by Lanzaa - 02-04-2003, 07:27 AM
Changing letters - by toonski84 - 02-04-2003, 08:14 AM
Changing letters - by Neo - 02-04-2003, 04:31 PM
Changing letters - by Lanzaa - 02-05-2003, 09:01 PM

Forum Jump:


Users browsing this thread: 1 Guest(s)