SQUEEZE
DATA
001HEADER OR DATA OR OUTPUT OR TYPE OR END:?6:HEADERDATA  OUTPUTTYPE  END     
002FIELD NUMBER<1-999>:Z3:001999
003PROMPT MESSAGE:?40:
004BLANK FOR CONSTANT, - OR Q-MARK FOR STRING, + OR Z FOR NUMBER:-1:0-?+Z
005NUMBER OF CHARACTERS IN FORMAT<0-80>:Z2:0080
006ENTER CHECK FIELDS:?80:
007COLON IS CONSTANT:0::
008ENTER STRING:?80:
OUTPUT
1,1,1
7,2,1,3,4,7,44,4,45,5,46,7,48,6,49
1,8,1
TYPE
A 1,1
B 5,2,3,4,5,6
C 1,8
A B
END