     ************************************************************************  
         I N T E R P R E T E D    B A S I C    R E V I S I T E D     6. 
     ************************************************************************ 
     SPILGUTS.BAS  returns  to  the  screen the contents of the first sixteen 
     offsets  of  any or all of the 65535 segments of  conventional  RAM.  If 
     your machine is an IBM  XT or AT, the displayed  DEF SEG  value  is  the  
     value of the current segment.   If your machine is a later model IBM  or 
     an IBM  clone, this figure may not be valid.   On my IBM 286, the  BASIC 
     error  messages  begin  with segment 63035, the function key assignments 
     with segment 64202.  The segments from 45055 to 47088 return the current 
     state  of the screen, which itself is always changing, giving the effect 
     of the computer vainly trying to catch its tail.  
  
              10  DEF SEG=0: PRINT "DEF SEG="PEEK(1296)+256*PEEK(1297)   
              20  INPUT "BEGINNING SEGMENT "; A   
              30  DEF SEG=A: PRINT,,,," PRESS ANY KEY": PRINT " TO EXIT"   
              40  FOR N=1 TO 16: PRINT "SEGMENT"A;: PRINT" OFFSET"N   
              50  PRINT," DECIMAL"PEEK(N);: PRINT, " ASCII "CHR$(PEEK(N))   
              60  NEXT N: A=A+1: IK$=INKEY$: IF IK$="" THEN 30 ELSE 70   
              70  SOUND 659.26,3: SOUND 440,15: DEF SEG: END   
