     ************************************************************************  
          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     7. 
     ************************************************************************ 
     ASCII.BAS  displays on the screen all of the ASCII characters except for 
     the ones that would cause a disruption of the display.   
   
        10  KEY OFF:  CLS: FOR J=8 TO 255    
        20  IF J>8 AND J<14 OR J>26 AND J<33 THEN 40 ELSE 30    
        30  PRINT SPACE$(2);: PRINT J;: PRINT CHR$(J);    
        40  NEXT J: IP$=INPUT$(1): CLS: END   
                                                                            
     
     VIDEO.BAS  creates a checkerboard  design and saves it as the video file 
     SCREEN.PIX. In direct or in program mode, the  expression  DEF SEG=45056: 
     BLOAD "SCREEN.PIX"  will return the display to the screen. This is an ex- 
     cellent  technique  but  will  work  only  when the receiver's video RAM 
     begins at the location specified by the sender, in this case 45056:00000. 
           
        10 CLS: FOR Y=8 TO 15: FOR X=2 TO 78:IF Y MOD 2=0 THEN YY=Y:YYY=Y-1    
        20 IF X MOD 2=0 THEN XX=X: XXX=XX+1: LOCATE YY,XX: PRINT CHR$(219)    
        30 LOCATE YYY,XXX: PRINT CHR$(219): NEXT X: NEXT Y    
        40 DEF SEG=45056!: BSAVE "SCREEN.PIX",0,4000: IP$=INPUT$(1): CLS     
