670 DEF FN P1(X)=X+128+128*(X>31)+64*(X>63)-32*(X>95)-96*(X>127)+128*(X>159)
675 DEF FN PS(X)=FN P1(X)+64*(X>191)+33*(X>254)
680 DEF FN SP(X)=X+64+64*(X>31)-128*(X>63)+64*(X>95)+192*(X>127)-64*(X>191)
685 DEF FN A1(X)=X+(X*(X>127))-126*(X>127)
690 DEF FN A2(X)=X-32*(X>64 AND X<91)+32*(X>96 AND X<123)+128*(X>192 AND X<219)
695 DEF FN CV(X)=FN A1(FN A2(X))
698 REM"[192][192][192][192][192][192][192]CHOP HERE[192][192][192][192][192]
700 [153]"LOADSTOP*** INPUT FILE ***":[141]900:[159]2,8,2,X$[170]","[170]Y$[170]",R":F[178]X
710 [153]"*** OUTPUT FILE ***":[141]900:[159]3,8,3,X$[170]","[170]Y$[170]",W":T[178]X
720 [161]#2,X$:X[178][198](X$[170][199](0)):[139] ST [175] 64 [167]790
730 [139]F[178]1[175]T[178]2[167]X[178][165] CV(X)
735 [139]F[178]1[175]T[178]3[167]X[178][165] PS(X)
740 [139]F[178]2[175]T[178]1[167]X[178][165] CV(X)
750 [139]F[178]2[175]T[178]3[167]X[178][165] PS([165] CV(X))
760 [139]F[178]3[175]T[178]1[167]X[178][165] SP(X)
770 [139]F[178]3[175]T[178]2[167]X[178][165] CV([165] SP(X))
780 [152]3,[199](X);:[153]".";:[137]720
790 [160]2:[160]3:[153]"DONE":[128]
900 [133]"FILENAME";X$:[133]"FILE TYPE: SEQ, PRG, USR (S,P,U)";Y$
910 [153]"FILE CONTENTS:":[153]"1-PET ASCII 2-TRUE ASCII 3-SCREEN POKES"
920 [133]X:[142]