Coffeehouse Post

Single Post Permalink

View Thread: How Long Have You Been in Tech?
  • User profile image
    jsrfc58

    How long? Too many years, that's how long.

    thumbtacks wrote:

    10 GR
    20 POKE-16368,0
    30 FOR C=1 TO 10000
    40 A=INT(RND(1)*3)+1
    50 ON A GOSUB 100,150,200,250
    60 IF PEEK (-16384)>127 THEN END
    70 NEXT C
    80 END
    I have a suggestion for this code. On line 60, you check to see if the user if pressing a key (as a means of escape). Then, if they are pressing a key with an ASCII value greater than 127, it ends. That leaves the user with a lo-res screen in the middle of a "wipe". Shouldn't you rewrite it like this?

    60 IF PEEK (-16384)>127 THEN TEXT: HOME: END

    The same thing should probably be added to line 80.