� mode 0 screen editor

*FX3,4

*FX4,1
(K�7:�=&2FBF:A=0:B=0:�"20k Mode 0 screen editor":�:�"Enter filename: ";F$
2=�:�"Final will be saved as $.OUTPUT on the  program disk"
<`��=214 � �=204 � �=222 �A=1:� �Dx@:� 214 is 'not found',204 is 'bad name',222 is 'channel'
F
*TV255
P*FX12,8
Z]�:�"Insert source disk and replace program  disk when prompted by a bleep   <RETURN>":B=�
d4� Try to open the file to test whether it exists
nF=� F$:B=�#F:�#F
xQ�A=0 ��"Now loading ";F$:�=0:�:B=�(0):��>500 � B<>-1:�0:�("LOAD "+F$+" 3000")
�P�A=1 ��"Source not found - creating new file":�=0:�:B=�(0):��>500 � B<>-1:�0
�H:�23,0,10,22,0,0,0,0,0,0:?&3000=?&3000 �128:� pixel at TLHC (0,0)
�]�1,-10,150,2:�=0:�:B=�(0):��>500 � B<>-1:�"EDITCRE":� Bleep - insert program disk and run
�

00000000  0d 00 0a 1a f4 20 6d 6f  64 65 20 30 20 73 63 72  |..... mode 0 scr|
00000010  65 65 6e 20 65 64 69 74  6f 72 0d 00 14 0a 2a 46  |een editor....*F|
00000020  58 33 2c 34 0d 00 1e 0a  2a 46 58 34 2c 31 0d 00  |X3,4....*FX4,1..|
00000030  28 4b eb 37 3a d3 3d 26  32 46 42 46 3a 41 3d 30  |(K.7:.=&2FBF:A=0|
00000040  3a 42 3d 30 3a f1 22 32  30 6b 20 4d 6f 64 65 20  |:B=0:."20k Mode |
00000050  30 20 73 63 72 65 65 6e  20 65 64 69 74 6f 72 22  |0 screen editor"|
00000060  3a f1 3a e8 22 45 6e 74  65 72 20 66 69 6c 65 6e  |:.:."Enter filen|
00000070  61 6d 65 3a 20 22 3b 46  24 0d 00 32 3d f1 3a f1  |ame: ";F$..2=.:.|
00000080  22 46 69 6e 61 6c 20 77  69 6c 6c 20 62 65 20 73  |"Final will be s|
00000090  61 76 65 64 20 61 73 20  24 2e 4f 55 54 50 55 54  |aved as $.OUTPUT|
000000a0  20 6f 6e 20 74 68 65 20  20 70 72 6f 67 72 61 6d  | on the  program|
000000b0  20 64 69 73 6b 22 0d 00  3c 60 ee 85 e7 9f 3d 32  | disk"..<`....=2|
000000c0  31 34 20 84 20 9f 3d 32  30 34 20 84 20 9f 3d 32  |14 . .=204 . .=2|
000000d0  32 32 20 8c 41 3d 31 3a  e5 20 8d 44 78 40 3a f4  |22 .A=1:. .Dx@:.|
000000e0  20 32 31 34 20 69 73 20  27 6e 6f 74 20 66 6f 75  | 214 is 'not fou|
000000f0  6e 64 27 2c 32 30 34 20  69 73 20 27 62 61 64 20  |nd',204 is 'bad |
00000100  6e 61 6d 65 27 2c 32 32  32 20 69 73 20 27 63 68  |name',222 is 'ch|
00000110  61 6e 6e 65 6c 27 0d 00  46 0a 2a 54 56 32 35 35  |annel'..F.*TV255|
00000120  0d 00 50 0b 2a 46 58 31  32 2c 38 0d 00 5a 5d f1  |..P.*FX12,8..Z].|
00000130  3a f1 22 49 6e 73 65 72  74 20 73 6f 75 72 63 65  |:."Insert source|
00000140  20 64 69 73 6b 20 61 6e  64 20 72 65 70 6c 61 63  | disk and replac|
00000150  65 20 70 72 6f 67 72 61  6d 20 20 64 69 73 6b 20  |e program  disk |
00000160  77 68 65 6e 20 70 72 6f  6d 70 74 65 64 20 62 79  |when prompted by|
00000170  20 61 20 62 6c 65 65 70  20 20 20 3c 52 45 54 55  | a bleep   <RETU|
00000180  52 4e 3e 22 3a 42 3d a5  0d 00 64 34 f4 20 54 72  |RN>":B=...d4. Tr|
00000190  79 20 74 6f 20 6f 70 65  6e 20 74 68 65 20 66 69  |y to open the fi|
000001a0  6c 65 20 74 6f 20 74 65  73 74 20 77 68 65 74 68  |le to test wheth|
000001b0  65 72 20 69 74 20 65 78  69 73 74 73 0d 00 6e 14  |er it exists..n.|
000001c0  46 3d 8e 20 46 24 3a 42  3d 9a 23 46 3a d9 23 46  |F=. F$:B=.#F:.#F|
000001d0  0d 00 78 51 e7 41 3d 30  20 8c f1 22 4e 6f 77 20  |..xQ.A=0 .."Now |
000001e0  6c 6f 61 64 69 6e 67 20  22 3b 46 24 3a d1 3d 30  |loading ";F$:.=0|
000001f0  3a f5 3a 42 3d a6 28 30  29 3a fd 91 3e 35 30 30  |:.:B=.(0):..>500|
00000200  20 84 20 42 3c 3e 2d 31  3a eb 30 3a ff 28 22 4c  | . B<>-1:.0:.("L|
00000210  4f 41 44 20 22 2b 46 24  2b 22 20 33 30 30 30 22  |OAD "+F$+" 3000"|
00000220  29 0d 00 82 50 e7 41 3d  31 20 8c f1 22 53 6f 75  |)...P.A=1 .."Sou|
00000230  72 63 65 20 6e 6f 74 20  66 6f 75 6e 64 20 2d 20  |rce not found - |
00000240  63 72 65 61 74 69 6e 67  20 6e 65 77 20 66 69 6c  |creating new fil|
00000250  65 22 3a d1 3d 30 3a f5  3a 42 3d a6 28 30 29 3a  |e":.=0:.:B=.(0):|
00000260  fd 91 3e 35 30 30 20 84  20 42 3c 3e 2d 31 3a eb  |..>500 . B<>-1:.|
00000270  30 0d 00 8c 48 ee 85 87  3a ef 32 33 2c 30 2c 31  |0...H...:.23,0,1|
00000280  30 2c 32 32 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |0,22,0,0,0,0,0,0|
00000290  3a 3f 26 33 30 30 30 3d  3f 26 33 30 30 30 20 82  |:?&3000=?&3000 .|
000002a0  31 32 38 3a f4 20 70 69  78 65 6c 20 61 74 20 54  |128:. pixel at T|
000002b0  4c 48 43 20 28 30 2c 30  29 0d 00 96 5d d4 31 2c  |LHC (0,0)...].1,|
000002c0  2d 31 30 2c 31 35 30 2c  32 3a d1 3d 30 3a f5 3a  |-10,150,2:.=0:.:|
000002d0  42 3d a6 28 30 29 3a fd  91 3e 35 30 30 20 84 20  |B=.(0):..>500 . |
000002e0  42 3c 3e 2d 31 3a d7 22  45 44 49 54 43 52 45 22  |B<>-1:."EDITCRE"|
000002f0  3a f4 20 42 6c 65 65 70  20 2d 20 69 6e 73 65 72  |:. Bleep - inser|
00000300  74 20 70 72 6f 67 72 61  6d 20 64 69 73 6b 20 61  |t program disk a|
00000310  6e 64 20 72 75 6e 0d ff                           |nd run..|
00000318