Wierd error:

[whitetiger0990]

Ive never seen this one before O.O

[KiZ]

uh... um.. er... uhhhhhhh.......... eh?

That has to be a joke, Wt? Yes?

Are they anagrams? "etsps" look suspiciously like "steps"...

[PlayGGY]

No, I have gotton lots of those too before. QBasic just screws up. Restart your program, and if that doesn't work, close and then reopen QB.

[KiZ]

Oh right, POKEing to the wrong segment, Wt? Lol. Quite interesting what you can change...

[whitetiger0990]

Oh right, POKEing to the wrong segment, Wt? Lol. Quite interesting what you can change...

nope, i didn't even use poke. :???: It's wierd. what i did was i mispelt a type name like

Code:

blarg(blah1).blay

blay should be blah. i accidently did something like that and BOOM hello error.

[KiZ]

Nice! Thats never happened to me?!

Although, with the wonders of POKE... heh heh heh

[whitetiger0990]

did you do that??????? thats so funny!
I want a new penguin

[KiZ]

Yup, pure, fresh, homegrown Dark-Code.

Taken from my earlier thread a while back: http://forum.qbasicnews.com/viewtopic.php?t=4206

Code:

DIM results(100) 'allow up to 100 results
smem = 0
emem = 10000
find$ = "xxxxx"
msg$ = "xxxxx"
menu:
DO
COLOR 7, 1
CLS
COLOR 0, 7
PRINT "                            EditMem  Ver 2                                      "
COLOR 15, 4
PRINT "  (S)earch Memory     Edit (M)emory     (E)xit                                  "
COLOR 7, 1
LOCATE 5
PRINT "   EditMem is a program that allows powerful access to change"
PRINT "   values stored in memory. This program allows you to search,"
PRINT "   change and replace data in memory."
PRINT
PRINT "   You can:"
PRINT "   > Search for a data string, in a defined range"
PRINT "   > Replace data that you have searched for easily"
PRINT "   > Easily edit memory"
PRINT : PRINT : PRINT "   (c) 2003 --- Dark_prevail"

DO
key$ = INKEY$
LOOP UNTIL key$ <> ""
SELECT CASE key$
CASE "S", "s"
res = 0
COLOR 7, 1
CLS
COLOR 0, 7
PRINT "                            EditMem  Ver 2                                      "
COLOR 15, 4
PRINT "  (E)xit to menu                                                                "
COLOR 15, 3
PRINT "  < S E A R C H >  Press X to execute the search                                "
PRINT " Press Q to change the Search string, and W to change the search range          "
COLOR 7, 1
DO
LOCATE 6, 5: PRINT "Find:"
LOCATE 7, 5: PRINT "`" + find$ + "'                    "
LOCATE 8, 5: PRINT "From"; smem; "-"; emem; "     "
DO
skey$ = INKEY$
LOOP UNTIL skey$ <> ""
SELECT CASE skey$
CASE "Q", "q"
LOCATE 7, 5: PRINT "                                                       "
LOCATE 7, 5: INPUT find$
CASE "W", "w"
LOCATE 8, 5: PRINT "                                                       "
LOCATE 8, 5: INPUT "From"; smem
LOCATE 8, 5: PRINT "From"; smem; "-";
INPUT emem
CASE "E", "e"
GOTO menu
CASE "X", "x"
EXIT DO
END SELECT
LOOP

length = LEN(find$)
REDIM search$(length)
FOR i = smem TO emem
a = 0
FOR j = i TO i + (length - 1)
a = a + 1
search$(a) = CHR$(PEEK(j))
NEXT
FOR j = 1 TO length
full$ = full$ + search$(j)
NEXT
IF full$ = find$ THEN res = res + 1: results(res) = i
full$ = ""
NEXT

COLOR 7, 1
CLS
COLOR 0, 7
PRINT "                            EditMem  Ver 2                                      "
COLOR 15, 4
PRINT "  (E)xit to menu                                                                "
COLOR 15, 3
PRINT "  < S E A R C H > Press a result number to edit that memory string or E to exit "
COLOR 7, 1
PRINT
PRINT "Results:"
FOR disp = 1 TO res
PRINT "Result"; disp; ": Found `" + find$ + "' at"; results(disp); "in memory"
NEXT
DO
DO: skey$ = INKEY$: LOOP UNTIL skey$ <> ""

SELECT CASE skey$
CASE "E", "e"
EXIT DO
CASE ELSE
IF VAL(skey$) >= 0 AND VAL(skey$) <= res THEN
mempos = results(VAL(skey$))
GOTO edit
END IF
END SELECT

LOOP

CASE "M", "m"
edit:

COLOR 7, 1
CLS
COLOR 0, 7
PRINT "                            EditMem  Ver 2                                      "
COLOR 15, 4
PRINT "  (E)xit to menu                                                                "
COLOR 15, 3
PRINT "  < E D I T >      Press X to execute the edit                                  "
PRINT " Press Q to change the insert string, and W to change the memory location       "
COLOR 7, 1
DO
LOCATE 6, 5: PRINT "Insert:"
LOCATE 7, 5: PRINT "`" + msg$ + "'                    "
LOCATE 8, 5: PRINT "To"; mempos; "in memory           "
DO
ekey$ = INKEY$
LOOP UNTIL ekey$ <> ""
SELECT CASE ekey$
CASE "Q", "q"
LOCATE 7, 5: PRINT "                                                       "
LOCATE 7, 5: INPUT msg$
CASE "W", "w"
LOCATE 8, 5: PRINT "                                                       "
LOCATE 8, 5: INPUT "To"; mempos
CASE "E", "e"
GOTO menu
CASE "X", "x"
EXIT DO
END SELECT
LOOP

FOR ins = mempos TO mempos + LEN(msg$) - 1
wrte = wrte + 1
POKE ins, ASC(MID$(msg$, wrte, 1))
NEXT
wrte = 0
COLOR 7, 1
CLS
COLOR 0, 7
PRINT "                            EditMem  Ver 2                                      "
COLOR 15, 4
PRINT "  (E)xit to menu                                                                "
COLOR 15, 3
PRINT "  < E D I T >                                                                   "
COLOR 7, 1
LOCATE 6, 5
PRINT "Edit completed successfully"
DO: skey$ = INKEY$: LOOP UNTIL skey$ = "E" OR skey$ = "e"

CASE "E", "e"
CLS : END
END SELECT
LOOP

[Zack]

Doing that kind of thing is pretty simple.
Open up qb.exe in Notepad, search for the words "DOS Shell" and change them (make sure the new string is the same length, though). Save your changes. Voila.

[PlayGGY]

Doing that kind of thing is pretty simple.
Open up qb.exe in Notepad, search for the words "DOS Shell" and change them (make sure the new string is the same length, though). Save your changes. Voila.

I remember trying this with other programs, and I just tried it with QB. It doesn't work. QB opens up, then closes immediately. All I did was change the 'e' in Save to 's'.