        JSR     >$AA87
        JSR     >UtilCopyBXtoU	; do copy
        JSR     >BasPrintStr
        JSR     >BasPrintStr
        JSR     <BasChrGetCurr		; Get current basic char
        JSR     >VarCKComma		; check for comma
	JSR     <BasChrGetCurr
        JSR     >Get8BitorError
	JSR     <BasChrGetCurr	; Get current character from basic
	JSR     <BasChrGet	; Get next char, skip over "TO"
        JSR     >Get8BitorError	; Get dest drive in B
	JSR     >TextCls	; clear screen
        JSR     >BasPrintStr	; Print message (insert source/insert dest)
        JSR     >BasPrintStr	; Print press any key
        JSR     >TextWaitKey	; Wait for a kepress
        JSR     >TextCls
        JSR     >VarGet8Bit	; Get 8 bit value into B
	JSR     >VarGet8Bit	; Get 8 bit var
        JSR     >BasResetStack	; reset basic stack
LC6DF   JSR     >TextOutCRLF	; Output a return
        JSR     >CasMotorOff	; turn off cassette motor
        JSR     >SndDisable	; disable cassette sound
        JSR     >TextOutQuestion ; output '?'
        JSR     <BasChrGetCurr		; scan current char from params
        JSR     <BasChrGet		; Get next character
        JSR     >$83FF
        JSR     >$831C
        JSR     >$85EE
LD4F5   JSR     >$8514
        JSR     >$8434
        JSR     >$8331
        JSR     >$83ED
        JSR     <$A5
        JSR     >$8887
        JSR     >$8877
        JSR     <$A5
LD5A4   JSR     >$89AA
        JSR     <$A5
        JSR     >$89AA
        JSR     >$869A
        JSR     >$85E7
        JSR     >$8331
        JSR     >$8CB3
        JSR     >UtilCopyBXtoU
        JSR     >VarGetStr	; get string into temp variable
        JSR     >VarGetExpr	; Get address of string in FAC
        JSR     >VarDelVar	; Delete tempory variable
        JSR     <$A5
        JSR     >$89AA
        JSR     >$8887
	JSR     <$9F
        JSR     >$89AC
        JSR     >$877A
LD825   JSR     >$9C76
LD83E   JSR     <$A5
        JSR     >$89AA
        JSR     <$9F
        JSR     >$8887
        JSR     <$9F
        JSR     >Get8BitorError
        JSR     <$9F
        JSR     >$903D
        JSR     >$8887
        JSR     >$8DEA
        JSR     >$B7D4
        JSR     >$851B
        JSR     >$B54A
        JSR     >$90F5
        JSR     >BasPrintStr
        JSR     >$852B
        JSR     >$BA77
        JSR     >$B54A
        JSR     <BasChrGetCurr		; Fetch current char pointed to by basic
        JSR     >VarGet16Bit		; get start line no
        JSR     <BasChrGetCurr		; Fetch current char pointed to by basic
        JSR     >VarCKComma		; check for comma
        JSR     >VarGet16Bit		; Get Line increment
        JSR     <BasChrGetCurr		; Fetch current char pointed to by basic
        JSR     >$957A
        JSR     >$B54A
LDB64   JSR     >$B505
        JSR     >$B54A
LDB98   JSR     >CasByteOut	; Output A to cassette
        JSR     >Get8BitorError	; get beep count 
        JSR     >SndDTOAOn	; switch dound to D to A
        JSR     >$851B
        JSR     >$8E83
LDBCA   JSR     >$851B
	JSR     >$8A94
        JSR     >$89AA
        JSR     >$8A94
        JSR     <$9F
        JSR     <$9F
        JSR     >$869A
LDC79   JSR     >$89AA
        JSR     >$8A94
        JSR     >$8C52
        JSR     >$8877
        JSR     >$8D9A
        JSR     >LD2A2
        JSR     >UtilCopyBXtoU
        JSR     >$8D9F
        JSR     UtilCopyBXtoU
LDD1B   JSR     $89AA
LDD26   JSR     $8E7E
        JSR     $8E7E
        JSR     <$A5
        JSR     $8CD7
