From: usenet@vk3heg.net   
      
   Hello all,   
      
   I've been trying to construct a cool program as a visual like a screen saver   
   in basic. I'm not very good at basic, but I'm having fun with it.   
      
   I was going for something that kinda looks like a display in movies like   
   bladerunner, or outland. Those older late 80's sci-fi films.   
      
   I thought a listing of a running basic program would be a cool part to GOTO   
   with a maze type program.   
      
   I wanted to get your thoughts on the way I listed a running program. My code   
   snip doesn't include my entire program but I attached this snip to the end of   
   my maze program to try and create a need look.   
      
      
   5 print "initializing...": dim k$(255): rp=41111   
   6 for t=124 to 255: w$="": rem --- fill the cache ---   
   7 b=peek(rp): w$=w$+chr$(b and 127): rp=rp+1   
   8 if b<128 goto 7   
   9 k$(t)=w$+" ": if rp < 41581 then next t   
   10 ad = 2049: print chr$(147)   
   20 nx = peek(ad) + 256 * peek(ad+1)   
   30 if nx = 0 then end   
   40 ln = peek(ad+2) + 256 * peek(ad+3)   
   50 print ln; " ";   
   60 for i = ad + 4 to nx - 2   
   70 c = peek(i): if c < 128 then print chr$(c);: goto 100   
   80 print k$(c);   
   100 next i: print: ad = nx: goto 20   
      
      
      
   The array is initialized with the rom key words to list the program running   
   program.   
   If I had just put:   
      
   10 list   
   20 goto 10   
      
   it wouldn't work because list executes something like a run-stop first.   
      
   try it out.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)