10
20
30
40
50 :
60 MODE 6
70 PRINT TAB(9,7)"BBC Acorn User DROPKICK"
80 PRINT TAB(13,9)"by Jeff Tullin"
90 REPEAT
100 PRINT TAB(7,14)"Name of file to be appended?"
110 PRINT TAB(16,15)"....... "
120 INPUT TAB(16,15)N$
130 N$=LEFT$(N$,7)
140 dummy=OPENIN(N$)
150 IF dummy=0 PRINT TAB(9,20)"File not found (any key)":A=GET:PRINT TAB(9,20)" "
160 UNTIL dummy
170 IF EXT#dummy>&3200 PRINT TAB(9,20)"File too long (any key)":A=GET:PRINT TAB(9,20)" ":GOTO 90
180 CLOSE#dummy
190 PRINT TAB(7,14)" Name of output file? "
200 PRINT TAB(16,15)"....... "
210 INPUT TAB(16,15)O$
220 PRINT TAB(16,17)"OK (Y/N)?"
230 *FX15
240 REPEAT
250 A=INSTR("YyNn",GET$)
260 UNTIL A
270 IF A>2 PRINT TAB(16,17)" ":GOTO 190
280 *L.header 2800
290 OSCLI ("L. "+N$+" 3000")
300 OSCLI ("S. "+O$+" 2800 +4000 D9CD 8000")