THE FOLLOWING CODE WILL REMOVE A PRINTER TABLE FROM IDDBD:                    
                                                                              
                                                                              
00010 REM "PROGRAM TO REMOVE PRINTER TABLE CSPPRNTR                           
00020 BEGIN                                                                   
00030 OPEN (5) "IDDBD"                              ! OPENS IDDBD FILE        
00040 PRINT 'CS'                                                              
00050 INPUT (0,LEN=5) "ENTER TABLE TO REMOVE: ",A$  ! ALLOWS USER TO CHOOSE   
                                                    ! WHICH PRINTER TO        
                                                    ! REMOVE                  
00060 A$=PAD(A$,6)                      ! PADS VARIABLE TO KEY SIZE           
00070 READ RECORD (5,KEY="p"+A$) B$     ! READS RECORD USING VARIABLE         
00080 PRINT B$(2,6)                     ! REAFFIRMS USER CHOICE               
00090 INPUT (0,LEN=1) "IS THIS CORRECT?",C$                                   
00100 IF C$="y" OR C$="Y" THEN          ! IF CHOICE IS CORRECT                
         REMOVE (5,KEY="p"+A$);         ! THEN REMOVE HEADER                  
         READ RECORD (5,KEY=$FF$+"p"+A$+"A",DOM=00110) E$ ! READ TEXT RECORD  
      ELSE                              ! ELSE                                
         GOTO 00050                     ! CHOOSE CORRECT PRINTER              
      FI                                                                      
00110 D$=KEY(5);                        ! SET D$ EQUAL TO KEY                 
      WHILE D$(3,6)=A$;                 ! WHILE PRINTER NAME PART OF KEY      
         REMOVE (5,KEY=D$);             ! REMOVE RECORD                       
         D$=KEY(5);                                                           
      WEND;                                                                   
      PRINT "YOUR TABLE HAS BEEN REMOVED"                                     
                                                                              
                                                                              
                                                                              
                                                                              
THE FOLLOWING CODE WILL COPY A PRINTER TABLE FROM IDDBD TO A FILE:            
                                                                              
                                                                              
00010 REM "PROGRAM TO COPY PRINTER TABLE TO A FILE CSPRNTF                    
00020 BEGIN                                                                   
00030 OPEN (5) "IDDBD"                 ! OPENS IDDBD FILE                     
00040 A$=FID(5)                        ! PLACES THE FILE ID DATA INTO A$      
00050 PRINT 'CS'                                                              
00060 PRINT "WHAT FILE NAME DO YOU WISH TO COPY THE PRINTER TO? ",N$          
00070 INPUT (0,LEN=8) "(PLEASE USE 8 CHARACTERS OR LESS)",N$ ! GET FILE NAME  
00080 A$(4,6)=N$(1,6)                  ! PLACE FILE NAME INTO A$              
00090 A$(21,2)=N$(7,2)                                                        
00100 FILE A$                          ! DEFINES A$ AS A FILE                 
00110 OPEN (6) N$                      ! OPEN NEW FILE                        
00120 INPUT (0,LEN=5) "ENTER TABLE TO COPY: ",B$ ! CHOOSE PRINTER TABLE       
00130 B$=PAD(B$,6)                     ! PADS VARIABLE TO KEY SIZE            
00140 READ RECORD (5,KEY="p"+B$) C$    ! READS RECORD USING VARIABLE          
00150 PRINT C$(2,6)                    ! REAFFIRMS USER CHOICE                
00160 INPUT (0,LEN=1) "IS THIS CORRECT? ",D$                                  
00170 IF D$="y"OR D$="Y"               ! IF CHOICE IS CORRECT                 
         WRITE RECORD (6,KEY="p"+B$) C$; ! WRITE TO FILE                      
         READ RECORD (5,KEY=$FF$+"p"+B$+"A",DOM=00180) E$ ! READ TEXT RECORD  
      ELSE                             ! ELSE                                 
         GOTO 00120                    ! CHOOSE CORRECT PRINTER               
      FI                                                                      
00180 F$=$FF$ +"p"+B$+"A";             ! SET F$ EQUAL TO KEY                  
      WHILE F$(1,8)=$FF$+"p"+B$;       ! WHILE PRINTER NAME PART OF KEY       
         WRITE RECORD (6,KEY=F$) E$;   ! WRITE TEXT RECORD TO FILE            
         F$=KEY(5);                    ! SET F$ EQUAL TO KEY                  
         READ RECORD (5) E$;           ! READ NEXT RECORD                     
      WEND;                                                                   
      PRINT "YOUR TABLE HAS BEEN COPIED"                                      
                                                                              
                                                                              
THE FOLLOWING CODE WILL TAKE A PRINTER TABLE THAT HAS BEEN COPIED TO A FILE   
AND RETURN IT TO IDDBD:                                                       
                                                                              
                                                                              
00010 REM "PROGRAM TO COPY A FILE INTO THE PRINTER TABLE CSPPRNTT             
00020 BEGIN                                                                   
00030 OPEN (5) "IDDBD"                 ! OPENS IDDBD                          
00050 PRINT 'CS'                                                              
00060 PRINT "WHAT FILE NAME DO YOU WISH TO COPY TO THE PRINTER PRINTER?"      
00070 INPUT (0,LEN=8) "(PLEASE USE 8 CHARACTERS OR LESS) ",N$ ! GET FILE NAME 
00080 OPEN (6) N$                      ! OPEN FILE WITH DATA                  
00090 B$=FKY(6)                        ! PLACES THE KEY INTO B$               
00100 READ RECORD (6,KEY=B$) A$        ! READS THE FIRST RECORD IN THE FILE   
00110 WRITE RECORD (5,KEY=B$) A$       ! WRITES THE RECORD TO A PRINTER TABLE 
00120 B$=KEY(6)                        ! SETS B$ TO THE NEXT KEY              
00130 READ RECORD (6) C$               ! READ THE NEXT RECORD                 
00150 D$=B$(3,6)                       ! SETS D$ TO THE TABLE NAME            
00160 IF B$(3,6)=D$                    ! IF PRINTER NAME PART OF KEY          
         WRITE RECORD (5,KEY=B$) C$;   ! WRITE NEXT RECORD                    
         B$=KEY(6,END=00170);          ! SET B$ EQUAL TO KEY GOTO 170 ON EOF  
         READ RECORD (6) C$;           ! READ THE NEXT RECORD                 
         D$=B$(3,6);                   ! SET PRINTER NAME TO B$(3,6)          
         GOTO 00160                    ! GO TO BEGINNING OF LINE              
      FI                               ! ENDIF                                
00170 PRINT "YOUR TABLE HAS BEEN ADDED" ! PRINTER HAS BEEN ADDED              
                                                                              
00010 REM "PROGRAM TO COPY A FILE INTO THE PRINTER TABLE DGPPRNTT             
00020 BEGIN                                                                   
00030 OPEN (5) "IDDBD"                 ! OPENS IDDBD                          
00050 PRINT 'CS'                                                              
00060 PRINT "WHAT FILE NAME DO YOU WISH TO COPY TO THE PRINTER PRINTER?"      
00070 INPUT (0,LEN=8) "(PLEASE USE 8 CHARACTERS OR LESS) ",N$ ! GET FILE NAME 
00080 OPEN (6) N$                      ! OPEN FILE WITH DATA                  
00090 B$=FKY(6)                        ! PLACES THE KEY INTO B$               
00100 READ RECORD (6,KEY=B$) A$        ! READS THE FIRST RECORD IN THE FILE   
00110 WRITE RECORD (5,KEY=B$) A$       ! WRITES THE RECORD TO A PRINTER TABLE 
00120 B$=KEY(6)                        ! SETS B$ TO THE NEXT KEY              
00130 READ RECORD (6) C$               ! READ THE NEXT RECORD                 
00150 D$=B$(3,6)                       ! SETS D$ TO THE TABLE NAME            
00160 IF B$(3,6)=D$                    ! IF PRINTER NAME PART OF KEY          
         WRITE RECORD (5,KEY=B$) C$;   ! WRITE NEXT RECORD                    
         B$=KEY(6,END=00170);          ! SET B$ EQUAL TO KEY GOTO 170 ON EOF  
         READ RECORD (6) C$;           ! READ THE NEXT RECORD                 
         D$=B$(3,6);                   ! SET PRINTER NAME TO B$(3,6)          
         GOTO 00160                    ! GO TO BEGINNING OF LINE              
      FI                               ! ENDIF                                
00170 PRINT "YOUR TABLE HAS BEEN ADDED" ! PRINTER HAS BEEN ADDED