(defun char-to-code ()
       (prefix-argument-loop
	(insert-string (following-char))
	(insert-string " ")
	(delete-next-character)
	)
       (delete-previous-character)
       )

(defun convert-cell () c
       (prefix-argument-loop
	(setq c (following-char))
	(delete-next-character)
	(if (= c '^@')
	    (insert-string "__,")
	    (= c '^A')
	    (insert-string "CY,")
	    (= c '^B')
	    (insert-string "CB,")
	    (= c '^C')
	    (insert-string "CF,")
	    (= c '^D')
	    (insert-string "MU,")
	    (= c '^E')
	    (insert-string "TL,")
	    (= c '^F')
	    (insert-string "PL,")
	    (= c '^G')
	    (insert-string "WL,")
	    (= c '^H')
	    (insert-string "QY,")
	    (= c '^I')
	    (insert-string "QB,")
	    (= c '^J')
	    (insert-string "RY,")
	    (= c '^K')
	    (insert-string "RB,")
	    (= c '^L')
	    (insert-string "PY,")
	    (= c '^M')
	    (insert-string "PB,")
	    (= c '^N')
	    (insert-string "DY,")
	    (= c '^O')
	    (insert-string "DB,")
	    (= c '^P')
	    (insert-string "MW,")
	    (= c '^Q')
	    (insert-string "SA,")
	    (= c '^R')
	    (insert-string "SB,")
	    (= c '^S')
	    (insert-string "SC,")
	    (= c '^T')
	    (insert-string "SD,")
	    (= c '^U')
	    (insert-string "SE,")
	    (= c '^V')
	    (insert-string "SF,")
	    (= c '^W')
	    (insert-string "SG,")
	    (progn (insert-string "<<<")
		   (insert-string c)
		   (insert-string ">>>,")
		   )
	    )
	)
       )

(defun convert-row ()
       (prefix-argument-loop
	(insert-string "\t")
	(provide-prefix-argument 15 (convert-cell))
	(insert-string " /* ")
	(provide-prefix-argument 1 (char-to-code))
	(insert-string " */")
	(newline)
	)
       )

(defun convert-scene () nlen
       (setq nlen (following-char))
       (delete-next-character)
       (insert-string "\t/* ")
       (goto-character (+ (dot) nlen))
       (insert-string " (")
       (goto-character (+ (dot) (- 20 nlen)))
       (insert-string ") */")
       (newline)
       (insert-string "\t/* ")
       (provide-prefix-argument 3 (char-to-code))
       (insert-string " */")
       (newline)
       (provide-prefix-argument 9 (convert-row))
       (insert-string "\t/* ")
       (provide-prefix-argument 16 (char-to-code))
       (insert-string " */")
       (newline)
       )