100	X$=""\X%=1%\T2%,T4%=0%\DIM N$(257%)
110		Z$=SYS(CHR$(6%)+CHR$(-7%))
120	ON ERROR GOTO 410
130		OPEN "KB:" AS FILE #1%
132	INPUT #1%,"Do you want to continue a command file? [/H for help] ";A4$
	\IF LEFT(A4$,2%)="/H" then gosub 401 ELSE 140
135		goto 132
140	IF LEFT(A4$,1%)="Y" THEN 300
150	INPUT #1%,"Do you have a command file to be printed? (Y or N) ";A2$
	\INPUT #1%,"Type in the name of your picture---";A$
	\IF LEFT(A$,2%)="KB" AND INSTR(0%,A$,":")>0% THEN 170
155	if a$="" then a$="comand.dat"\goto 170
160		A$=FNA$(A$)
170		OPEN A$ AS FILE #2%
180	IF LEFT(A2$,1%)="Y" THEN 330
190		OPEN "COMAND.DAT" AS FILE #3%
	\&"Your command file will be 'COMAND.DAT'.  Now enter"
	\&"each line of programming, the number of  the  line"
	\&"will appear to the right (^C to exit)."
200	D$=STRING$(6%,35%)\& USING D$,X%;\&") ";
\		INPUT LINE #1%,S$\S$=CVT$$(S$,4%)
\			& #3%, USING D$,X%;\&#3%,") ";S$
210		IF T6%=1% THEN X%=X%+1%\GOTO 200
220		IF S$="" THEN 290
230	FOR T%=1% TO LEN(S$)
\		N$(T%)=NUM1$(ASCII(MID(S$,T%,1%)))
\	IF VAL(N$(T%))>47% AND VAL(N$(T%))<59% THEN S%=1% ELSE S%=0%
240	IF S%=1% THEN X$=X$+CHR$(VAL(N$(T%)))\GOTO 270
250		IF X$="" THEN X$="1"
260		B$=STRING$(VAL(X$),VAL(N$(T%)))
\		&#2%,B$;\X$=""
270	NEXT T%
280		IF T2%=1% THEN T4%=1%\GOTO 350
290	&#2%\X%=X%+1%\GOTO 200
300	t6%=1%\input #1%,"Enter command file name---";a5$
	\input #1%,"At which line---";a6$
	\if a5$="" then a5$="comand.dat"
	\goto 310
305		a5$=fna$(a5$)
310		OPEN A5$ AS FILE #4%
	\	OPEN "TEMP.TMP" AS FILE #3%
	\FOR T5%=1% TO VAL(A6$)-1%
	\	INPUT LINE #4%,S$\S$=CVT$$(S$,4%)\&#3%,S$
	\NEXT T5%
320		X%=VAL(A6$)\CLOSE #4%\KILL A5$
	\	NAME "TEMP.TMP" AS A5$\GOTO 200
330	t2%=1%\input #1%,"Enter the name of the command file---";a3$
	\if a3$="" then a3$="comand.dat"
	\goto 340
335		a3$=fna$(a3$)
340	OPEN A3$ AS FILE #3%
350		INPUT LINE #3%,S$\S1$=MID(S$,9%,1%)
\	IF ASCII(S1$)=13% OR ASCII(S1$)=10% THEN T4%=1% ELSE T4%=0%
360	IF T4%=1% THEN &#2% ELSE S$=RIGHT(S$,9%)\GOTO 230
370			GOTO 350
380	DEF FNA$(A$)
390	IF INSTR(0%,A$,".")=0% THEN FNA$=A$+".DAT" ELSE FNA$=A$
400		FNEND
401	OPEN "PICTRE.HLP" AS FILE #5%\&"NOTE:"
	\&"	FOR YOUR FILES, THESE INSTRUCTIONS CAN"
	\&"BE OBTAINED USING 'PIP' (SHOULD YOU  DESIRE"
	\&"A CLEAN COPY). MERELY TYPE 'PIP !PICTRE.HLP'"
402	INPUT LINE #5%,S$\S$=CVT$$(S$,4%)\&S$\GOTO 402
403	CLOSE #5%\RETURN
410	IF ERR=47% AND ERL=200% THEN &"LINE TOO LONG"\RESUME 200
420	IF ERR=2% AND ERL=170% THEN RESUME 150 ELSE
	IF ERR=2% AND ERL=310% THEN RESUME 300 ELSE
	IF ERR=2% AND ERL=340% THEN RESUME 330
430	IF ERR=11% AND ERL=310% THEN RESUME 320 ELSE
	IF ERR=11% AND ERL=402% THEN RESUME 403
440	&"Finished"\CLOSE #1%,#2%,#3%
450			END