# � STRIPPER by D. Walker Mar.94
�0
�19,0,1;0;
(*LOAD OVERLAY
2:�16,1)"STOP PRESS SCREEN ICON STRIPPER by D. Walker."
<S�4,30)"For White paper & Black ink Invert before SAVING Screen in Stop Press."
F(�25,12)"File to be stripped ",name$
P%�25,14)"New File Name ",name1$  
Z�19,0,0;0;
d
X=3000
n
Y=8000
x� "LOAD "+name$+" "+�X
� �topbot:�sides
�"� "SAVE "+name1$+" "+�X+" "+�Y
� � �TT@
��
�
 ��topbot
�\�0,0)"                                                                                "
�\�0,1)"                                                                                "
�\�0,2)"                                                                                "
�]�0,31)"                                                                                "
��
���sides
�N=0
��0,N)"   ":�75,N)"     "

	N=N+1

 � N=30 � � � �dz@
�

00000000  0d 00 0a 23 20 f4 20 53  54 52 49 50 50 45 52 20  |...# . STRIPPER |
00000010  62 79 20 44 2e 20 57 61  6c 6b 65 72 20 4d 61 72  |by D. Walker Mar|
00000020  2e 39 34 0d 00 14 06 eb  30 0d 00 1e 0e ef 31 39  |.94.....0.....19|
00000030  2c 30 2c 31 3b 30 3b 0d  00 28 11 2a 4c 4f 41 44  |,0,1;0;..(.*LOAD|
00000040  20 4f 56 45 52 4c 41 59  0d 00 32 3a f1 8a 31 36  | OVERLAY..2:..16|
00000050  2c 31 29 22 53 54 4f 50  20 50 52 45 53 53 20 53  |,1)"STOP PRESS S|
00000060  43 52 45 45 4e 20 49 43  4f 4e 20 53 54 52 49 50  |CREEN ICON STRIP|
00000070  50 45 52 20 62 79 20 44  2e 20 57 61 6c 6b 65 72  |PER by D. Walker|
00000080  2e 22 0d 00 3c 53 f1 8a  34 2c 33 30 29 22 46 6f  |."..<S..4,30)"Fo|
00000090  72 20 57 68 69 74 65 20  70 61 70 65 72 20 26 20  |r White paper & |
000000a0  42 6c 61 63 6b 20 69 6e  6b 20 49 6e 76 65 72 74  |Black ink Invert|
000000b0  20 62 65 66 6f 72 65 20  53 41 56 49 4e 47 20 53  | before SAVING S|
000000c0  63 72 65 65 6e 20 69 6e  20 53 74 6f 70 20 50 72  |creen in Stop Pr|
000000d0  65 73 73 2e 22 0d 00 46  28 e8 8a 32 35 2c 31 32  |ess."..F(..25,12|
000000e0  29 22 46 69 6c 65 20 74  6f 20 62 65 20 73 74 72  |)"File to be str|
000000f0  69 70 70 65 64 20 22 2c  6e 61 6d 65 24 0d 00 50  |ipped ",name$..P|
00000100  25 e8 8a 32 35 2c 31 34  29 22 4e 65 77 20 46 69  |%..25,14)"New Fi|
00000110  6c 65 20 4e 61 6d 65 20  22 2c 6e 61 6d 65 31 24  |le Name ",name1$|
00000120  20 20 0d 00 5a 0e ef 31  39 2c 30 2c 30 3b 30 3b  |  ..Z..19,0,0;0;|
00000130  0d 00 64 0a 58 3d 33 30  30 30 0d 00 6e 0a 59 3d  |..d.X=3000..n.Y=|
00000140  38 30 30 30 0d 00 78 1a  ff 20 22 4c 4f 41 44 20  |8000..x.. "LOAD |
00000150  22 2b 6e 61 6d 65 24 2b  22 20 22 2b c3 58 0d 00  |"+name$+" "+.X..|
00000160  82 13 20 f2 74 6f 70 62  6f 74 3a f2 73 69 64 65  |.. .topbot:.side|
00000170  73 0d 00 8c 22 ff 20 22  53 41 56 45 20 22 2b 6e  |s...". "SAVE "+n|
00000180  61 6d 65 31 24 2b 22 20  22 2b c3 58 2b 22 20 22  |ame1$+" "+.X+" "|
00000190  2b c3 59 0d 00 96 0b 20  e5 20 8d 54 54 40 0d 00  |+.Y.... . .TT@..|
000001a0  a0 05 e0 0d 00 aa 0d 20  dd f2 74 6f 70 62 6f 74  |....... ..topbot|
000001b0  0d 00 b4 5c f1 8a 30 2c  30 29 22 20 20 20 20 20  |...\..0,0)"     |
000001c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000200  20 20 20 20 20 20 20 20  20 20 20 22 0d 00 be 5c  |           "...\|
00000210  f1 8a 30 2c 31 29 22 20  20 20 20 20 20 20 20 20  |..0,1)"         |
00000220  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000260  20 20 20 20 20 20 20 22  0d 00 c8 5c f1 8a 30 2c  |       "...\..0,|
00000270  32 29 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |2)"             |
00000280  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000002c0  20 20 20 22 0d 00 d2 5d  f1 8a 30 2c 33 31 29 22  |   "...]..0,31)"|
000002d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000320  22 0d 00 dc 05 e1 0d 00  e6 0b dd f2 73 69 64 65  |"...........side|
00000330  73 0d 00 f0 07 4e 3d 30  0d 00 fa 1e f1 8a 30 2c  |s....N=0......0,|
00000340  4e 29 22 20 20 20 22 3a  f1 8a 37 35 2c 4e 29 22  |N)"   ":..75,N)"|
00000350  20 20 20 20 20 22 0d 01  04 09 4e 3d 4e 2b 31 0d  |     "....N=N+1.|
00000360  01 0e 16 20 e7 20 4e 3d  33 30 20 8c 20 e1 20 8b  |... . N=30 . . .|
00000370  20 8d 64 7a 40 0d ff                              | .dz@..|
00000377