� Basic Loader (Convertor)
� Written by DJ Gillett
*FX200,0
(4��26,12,7:�''"�Error!":�:�''"�Hit any key";:B=�
2*FX229,1
<S�22,7,23;8,144,0;0;0;23;9,9,0;0;0;23;10,&69,0;0;0;23;8202;0;0;0;23;10,64;0;0;0;
FX%=&900 �256:Y%=&900 �256
P.�L=0�1:�&8D;�6"Screen-Basic Convertor":�L
Z[�'" Note: This will convert any ordinary"'" screen into a BASIC program.":�28,0,23,39,5
d�''"Enter filename:�"F$
n8�F$=""�7:�Dd@ ��''"Enter drive number:�";:D$=�:�D$;
x$&900="DIR :"+D$:�&FFF7
�#$&900="LOAD "+F$+" 7C00":�&FFF7
�$&900="/Data":�&FFF7
��
�

00000000  0d 00 0a 1e f4 20 42 61  73 69 63 20 4c 6f 61 64  |..... Basic Load|
00000010  65 72 20 28 43 6f 6e 76  65 72 74 6f 72 29 0d 00  |er (Convertor)..|
00000020  14 1b f4 20 57 72 69 74  74 65 6e 20 62 79 20 44  |... Written by D|
00000030  4a 20 47 69 6c 6c 65 74  74 0d 00 1e 0c 2a 46 58  |J Gillett....*FX|
00000040  32 30 30 2c 30 0d 00 28  34 ee 85 ef 32 36 2c 31  |200,0..(4...26,1|
00000050  32 2c 37 3a f1 27 27 22  81 45 72 72 6f 72 21 22  |2,7:.''".Error!"|
00000060  3a f6 3a f1 27 27 22 83  48 69 74 20 61 6e 79 20  |:.:.''".Hit any |
00000070  6b 65 79 22 3b 3a 42 3d  a5 0d 00 32 0c 2a 46 58  |key";:B=...2.*FX|
00000080  32 32 39 2c 31 0d 00 3c  53 ef 32 32 2c 37 2c 32  |229,1..<S.22,7,2|
00000090  33 3b 38 2c 31 34 34 2c  30 3b 30 3b 30 3b 32 33  |3;8,144,0;0;0;23|
000000a0  3b 39 2c 39 2c 30 3b 30  3b 30 3b 32 33 3b 31 30  |;9,9,0;0;0;23;10|
000000b0  2c 26 36 39 2c 30 3b 30  3b 30 3b 32 33 3b 38 32  |,&69,0;0;0;23;82|
000000c0  30 32 3b 30 3b 30 3b 30  3b 32 33 3b 31 30 2c 36  |02;0;0;0;23;10,6|
000000d0  34 3b 30 3b 30 3b 30 3b  0d 00 46 1d 58 25 3d 26  |4;0;0;0;..F.X%=&|
000000e0  39 30 30 20 83 32 35 36  3a 59 25 3d 26 39 30 30  |900 .256:Y%=&900|
000000f0  20 81 32 35 36 0d 00 50  2e e3 4c 3d 30 b8 31 3a  | .256..P..L=0.1:|
00000100  f1 bd 26 38 44 3b 89 36  22 53 63 72 65 65 6e 2d  |..&8D;.6"Screen-|
00000110  42 61 73 69 63 20 43 6f  6e 76 65 72 74 6f 72 22  |Basic Convertor"|
00000120  3a ed 4c 0d 00 5a 5b f1  27 22 20 4e 6f 74 65 3a  |:.L..Z[.'" Note:|
00000130  20 54 68 69 73 20 77 69  6c 6c 20 63 6f 6e 76 65  | This will conve|
00000140  72 74 20 61 6e 79 20 6f  72 64 69 6e 61 72 79 22  |rt any ordinary"|
00000150  27 22 20 73 63 72 65 65  6e 20 69 6e 74 6f 20 61  |'" screen into a|
00000160  20 42 41 53 49 43 20 70  72 6f 67 72 61 6d 2e 22  | BASIC program."|
00000170  3a ef 32 38 2c 30 2c 32  33 2c 33 39 2c 35 0d 00  |:.28,0,23,39,5..|
00000180  64 1b e8 27 27 22 45 6e  74 65 72 20 66 69 6c 65  |d..''"Enter file|
00000190  6e 61 6d 65 3a 83 22 46  24 0d 00 6e 38 e7 46 24  |name:."F$..n8.F$|
000001a0  3d 22 22 ef 37 3a e5 8d  44 64 40 20 8b f1 27 27  |="".7:..Dd@ ..''|
000001b0  22 45 6e 74 65 72 20 64  72 69 76 65 20 6e 75 6d  |"Enter drive num|
000001c0  62 65 72 3a 83 22 3b 3a  44 24 3d be 3a f1 44 24  |ber:.";:D$=.:.D$|
000001d0  3b 0d 00 78 1b 24 26 39  30 30 3d 22 44 49 52 20  |;..x.$&900="DIR |
000001e0  3a 22 2b 44 24 3a d6 26  46 46 46 37 0d 00 82 23  |:"+D$:.&FFF7...#|
000001f0  24 26 39 30 30 3d 22 4c  4f 41 44 20 22 2b 46 24  |$&900="LOAD "+F$|
00000200  2b 22 20 37 43 30 30 22  3a d6 26 46 46 46 37 0d  |+" 7C00":.&FFF7.|
00000210  00 96 18 24 26 39 30 30  3d 22 2f 44 61 74 61 22  |...$&900="/Data"|
00000220  3a d6 26 46 46 46 37 0d  00 a0 05 e0 0d ff        |:.&FFF7.......|
0000022e