0 POKE53280,5:POKE53281,13:POKE646,5
1 REM******************
2 REM*                *
3 REM*   AUTO-APPEND  *
4 REM*                *
5 REM*       BY       *
6 REM*  WILLIAM BRAUN *
7 REM*      1984      *
8 REM******************
10 POKE55,225:POKE56,PEEK(56)-1:A=PEEK(56)*256+226:FORX=0TO27:READD:POKEA+X,D:NEXT
15 PRINT"[147]     INSTRUCTIONS":PRINT" 1. LOAD 1ST PROGRAM":PRINT" 2. SYS"A
20 PRINT" 3. LOAD 2ND PROGRAM":PRINT" 4. SYS"A+19:PRINT" 5. SAVE AND VERIFY
25 [131]165,43,133,251,165,44,133,252,166,45,202,202,134,43,165,46,133,44,96
30 [131]165,251,133,43,165,252,133,44,96