It's a 18kb program.
Code: Select all
# REM CORE V3.00
0 REM [HEX:\
A8,B4,B7,AA,80,BB,9F,9B,\
9C,9C,76,76,ED,4F,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,DD,E9,\
CD,2B,0F,FD,46,34,3A,34,\
40,B8,28,FA,C9,CD,B2,40,\
3E,1E,ED,47,DD,21,81,02,\
C9,FD,CB,78,86,18,04,FD,\
CB,78,C6,CD,B2,40,DD,21,\
DD,40,C9,F3,FD,CB,00,7E,\
0E,F3,3E,01,20,08,FD,CB,\
78,C6,0E,F5,3E,01,47,00,\
10,FD,81,3C,20,FD,06,C0,\
FD,CB,78,46,28,02,06,B0,\
11,20,00,21,00,20,DD,21,\
0E,41,18,08,11,20,00,05,\
CA,1D,41,19,7C,ED,47,7D,\
C3,8E,C0,ED,52,00,2A,0C,\
40,11,F7,82,19,3E,1E,ED,\
47,3E,F5,01,07,02,FD,CB,\
78,46,C4,B5,02,CD,92,02,\
CD,20,02,DD,21,DD,40,C3,\
A4,02,F5,7E,FE,1A,28,02,\
CF,18,F1,C9,E7,CD,55,0F,\
E5,CD,CD,15,E1,C9,E7,CD,\
55,0F,C3,A7,0E,CD,4E,41,\
F5,CD,44,41,23,CD,4E,41,\
47,F1,4F,C9,E7,FE,76,28,\
03,FE,19,C0,22,16,40,C9,\
DF,18,F2,3E,1F,91,30,02,\
CF,10,3E,BF,90,D0,CF,1E,\
CD,5F,41,CD,44,41,18,EE,\
CD,5F,41,18,AD,CD,5F,41,\
18,E4,21,00,00,22,FE,3F,\
26,20,54,5D,13,01,FF,17,\
36,00,ED,B0,C9,26,00,54,\
68,06,05,CB,25,CB,14,10,\
FA,09,01,00,20,09,C9,CD,\
8A,41,47,79,CB,3F,CB,3F,\
CB,3F,51,4F,D5,CD,AF,41,\
F1,2F,E6,07,3C,47,C9,CD,\
92,41,48,47,CD,7D,41,C5,\
CD,4E,41,C1,CD,AF,41,77,\
C9,1E,FF,18,02,1E,00,D5,\
CD,97,41,D1,ED,43,FC,3F,\
CD,C4,41,50,7E,0F,10,FD,\
CB,1B,17,42,05,20,02,06,\
08,07,10,FD,77,C9,3E,FF,\
18,01,AF,FD,CB,78,8E,32,\
3C,40,CD,97,41,7E,FE,1A,\
20,07,ED,43,FC,3F,CD,97,\
41,60,69,ED,4B,FC,3F,22,\
FC,3F,C5,7D,91,16,01,30,\
04,ED,44,16,FF,20,02,16,\
00,E5,67,FD,72,3E,F1,90,\
1E,01,30,04,ED,44,1E,FF,\
20,02,1E,00,FD,73,3D,6F,\
BC,38,06,6C,67,16,00,18,\
02,1E,00,ED,53,3F,40,24,\
20,01,25,22,41,40,7C,A7,\
1F,6F,26,00,22,43,40,C1,\
C5,3E,BF,90,FD,5E,3C,FD,\
CB,78,4E,20,05,CD,FA,41,\
18,03,CD,23,4D,FD,4E,41,\
06,00,FD,6E,43,60,09,FD,\
75,43,ED,5B,3F,40,FD,4E,\
42,ED,42,38,07,FD,75,43,\
ED,5B,3D,40,C1,79,82,4F,\
78,83,47,FD,34,44,3A,42,\
40,FD,BE,44,20,BA,C9,CD,\
58,41,CD,20,15,EF,30,F1,\
0D,B2,2D,0F,04,34,C3,8A,\
15,06,10,4A,7B,EB,21,00,\
00,CB,39,CB,1F,30,01,19,\
EB,29,EB,10,F4,C9,3E,FF,\
18,01,AF,32,3C,40,FD,CB,\
78,96,23,CD,92,41,21,95,\
01,22,4D,40,2E,00,22,43,\
40,65,22,41,40,ED,43,FC,\
3F,ED,43,49,40,E5,CD,4E,\
41,E1,69,22,45,40,22,47,\
40,CD,7A,41,28,27,CD,44,\
41,CD,4E,41,32,47,40,CD,\
7A,41,28,19,CD,44,41,CD,\
C1,42,ED,43,4B,40,DF,CD,\
44,41,CD,C1,42,FD,CB,78,\
D6,ED,43,4D,40,2A,4D,40,\
E5,2A,41,40,ED,5B,43,40,\
06,06,CB,2A,CB,1B,10,FA,\
ED,52,22,41,40,EB,2A,43,\
40,06,06,CB,2A,CB,1B,10,\
FA,ED,5A,22,43,40,ED,5B,\
47,40,CD,D3,42,3A,4A,40,\
47,5D,CB,15,8C,F5,CB,13,\
9C,32,40,40,2A,41,40,ED,\
5B,45,40,CD,D3,42,3A,49,\
40,47,5D,CB,15,8C,32,3F,\
40,57,78,CB,13,9C,C1,4F,\
FD,CB,78,56,28,11,2A,4B,\
40,7C,B5,28,06,2B,22,4B,\
40,18,0F,FD,CB,78,96,3E,\
BF,90,38,06,FD,5E,3C,CD,\
FA,41,E1,2B,7C,B5,20,80,\
C9,FD,36,3D,01,CD,6E,41,\
C8,CD,4F,41,32,3D,40,CD,\
7A,41,C8,CD,92,41,CD,44,\
41,B8,38,03,78,41,4F,CD,\
84,41,50,41,CD,84,41,7A,\
42,ED,43,3E,40,91,3C,F5,\
CD,5F,41,B8,30,03,78,41,\
4F,ED,43,40,40,90,3C,20,\
01,3D,D1,5F,ED,53,42,40,\
FD,4E,41,FD,46,3F,CD,84,\
41,CD,C4,41,22,44,40,FD,\
70,4F,FD,4E,40,FD,46,3F,\
CD,84,41,CD,C4,41,22,46,\
40,FD,70,50,C9,ED,5B,44,\
40,2A,46,40,FD,46,4F,AF,\
37,17,10,FC,32,4E,40,FD,\
46,50,AF,05,28,04,37,17,\
10,FC,2F,FD,46,43,05,C9,\
79,A6,EB,47,79,2F,A6,B0,\
77,EB,C9,4F,C5,01,20,00,\
54,5D,09,4F,CD,5A,44,79,\
C1,10,F1,AF,A1,18,E4,CD,\
CB,43,20,17,11,00,20,21,\
20,20,01,E0,17,ED,B0,06,\
20,2B,71,10,FC,FD,35,3D,\
20,EA,C9,CD,37,44,E5,A7,\
ED,52,E1,28,0E,E5,C5,D5,\
CD,65,44,3E,FF,D1,C1,E1,\
2B,18,EB,FD,A6,4E,CD,65,\
44,FD,35,3D,20,DD,C9,C5,\
21,00,00,11,20,00,19,10,\
FD,EB,2A,44,40,19,E5,2A,\
46,40,19,D1,C1,C9,4F,C5,\
01,20,00,54,5D,A7,ED,42,\
4F,CD,5A,44,79,C1,10,EF,\
AF,C3,5D,44,CD,CB,43,20,\
17,11,FF,37,21,DF,37,01,\
E0,17,ED,B8,06,20,23,71,\
10,FC,FD,35,3D,20,EA,C9,\
CD,37,44,CD,B9,44,E5,A7,\
ED,52,E1,28,0E,E5,C5,D5,\
CD,D0,44,3E,FF,D1,C1,E1,\
2B,18,EB,FD,A6,4E,CD,D0,\
44,FD,35,3D,20,DA,C9,CD,\
CB,43,20,15,21,FF,37,06,\
20,78,A7,CB,16,2B,10,FB,\
A4,20,F4,FD,35,3D,20,EC,\
C9,CD,37,44,4F,04,3A,4E,\
40,C5,F5,E5,D5,41,4F,F5,\
E5,A7,ED,52,E1,28,15,7E,\
A0,47,F1,78,CB,17,F5,78,\
2F,A6,47,F1,F5,B0,77,06,\
FF,2B,18,E4,79,A0,47,7E,\
4F,F1,79,CB,17,A0,F5,78,\
2F,A6,47,F1,B0,77,D1,E1,\
01,20,00,EB,09,EB,09,F1,\
C1,10,BE,FD,35,3D,20,B1,\
C9,CD,CB,43,20,16,21,00,\
20,A7,06,20,CB,1E,23,10,\
FB,3E,38,BC,20,F3,FD,35,\
3D,20,EB,C9,CD,37,44,4F,\
04,3A,4E,40,EB,C5,F5,E5,\
D5,47,F5,E5,A7,ED,52,E1,\
28,15,7E,A0,47,F1,78,CB,\
1F,F5,78,2F,A6,47,F1,F5,\
B0,77,06,FF,23,18,E4,79,\
A0,47,7E,4F,F1,79,CB,1F,\
A0,F5,78,2F,A6,47,F1,B0,\
77,D1,E1,01,20,00,EB,09,\
EB,09,F1,C1,10,BF,FD,35,\
3D,20,B1,C9,4F,7E,47,3E,\
BF,90,D5,C5,F5,CD,FA,41,\
F1,C1,D1,C9,1E,FF,18,02,\
1E,00,D5,CD,DD,43,D1,FD,\
56,43,3A,41,40,21,3F,40,\
F5,E5,CD,FE,45,15,28,06,\
3C,CD,04,46,18,F7,FD,56,\
42,E1,F1,2B,E5,CD,FE,45,\
15,28,06,0C,CD,04,46,18,\
F7,FD,56,43,E1,3A,40,40,\
F5,E5,CD,FE,45,15,28,06,\
3D,CD,04,46,18,F7,FD,56,\
42,E1,F1,23,CD,FE,45,15,\
C8,0D,CD,04,46,18,F8,4F,\
79,A6,5F,79,2F,57,7E,2F,\
A2,B3,77,11,20,00,19,10,\
EF,C9,CD,CB,43,20,15,21,\
00,20,01,00,18,7E,2F,77,\
23,3E,38,BC,20,F7,FD,35,\
3D,20,EC,C9,CD,37,44,04,\
2F,E5,A7,ED,52,E1,28,0E,\
E5,C5,D5,CD,69,46,3E,FF,\
D1,C1,E1,2B,18,EA,3A,4E,\
40,2F,CD,69,46,FD,35,3D,\
20,DA,C9,27,0D,10,00,CD,\
AF,41,E5,DF,E5,21,BD,46,\
22,16,40,CD,1C,11,C1,ED,\
43,16,40,30,02,CF,22,23,\
23,23,7E,FE,02,20,F6,23,\
56,3E,C0,92,38,EF,23,23,\
4E,3E,20,91,38,E7,23,23,\
FD,72,3D,06,00,D1,C9,CD,\
92,41,48,47,3E,20,91,32,\
3E,40,CD,7D,41,E7,32,BD,\
46,E7,FE,0D,20,C7,C3,6E,\
41,C5,AF,47,EB,ED,42,EB,\
C1,C9,CD,F9,46,F5,CD,C1,\
46,F1,06,7E,E5,28,1C,FE,\
1A,20,AA,E7,FE,26,06,A6,\
28,0C,FE,34,06,B6,28,06,\
FE,3D,06,AE,20,97,CD,6E,\
41,20,FB,78,32,5D,47,E1,\
3A,3E,40,41,0E,20,C5,F5,\
D5,3E,38,BA,20,04,D1,16,\
20,D5,1A,7E,12,23,13,FD,\
35,3E,CC,13,47,10,EA,EB,\
E1,09,EB,F1,C1,32,3E,40,\
FD,35,3D,20,D9,C9,3E,00,\
18,02,3E,12,32,A0,47,CD,\
F9,46,20,B8,CD,C1,46,3A,\
3E,40,41,0E,20,C5,F5,D5,\
3E,38,BA,20,04,D1,16,20,\
D5,7E,F5,1A,77,F1,00,23,\
13,FD,35,3E,CC,13,47,10,\
E7,EB,E1,09,EB,F1,C1,32,\
3E,40,FD,35,3D,20,D6,C9,\
23,7E,FE,1C,30,02,CF,1D,\
FE,2C,30,FA,D6,1C,C9,CD,\
BA,47,47,CB,20,CB,20,CB,\
20,CB,20,CD,BA,47,80,47,\
23,7E,FE,0B,78,C9,E7,FE,\
0B,C2,25,4E,23,7E,CB,7F,\
28,02,D6,40,11,00,00,23,\
23,E5,06,08,63,6F,EB,19,\
10,FD,EB,21,00,38,19,EB,\
E1,C9,CD,E0,47,23,CD,C9,\
47,12,20,03,C3,4C,00,13,\
18,F4,4F,7E,A7,20,47,71,\
FD,34,3E,FD,CB,3E,6E,20,\
18,23,7E,A7,28,F1,CB,7F,\
20,0F,06,FF,A7,17,38,04,\
CB,18,18,F8,78,2F,A1,B6,\
77,EB,2B,FD,35,3F,FD,CB,\
3F,7E,C0,7E,A7,20,03,71,\
18,F0,CB,47,C0,06,FF,A7,\
CB,1F,38,04,CB,10,18,F7,\
78,2F,A1,B6,77,C9,C5,4E,\
3E,09,90,47,CB,11,38,05,\
10,FA,C1,18,B5,C1,4E,78,\
CB,19,38,18,10,FA,FD,4E,\
3C,CD,45,48,FD,34,3E,FD,\
CB,3E,6E,C0,23,FD,4E,3C,\
54,5D,18,96,FD,CB,78,D6,\
4E,47,C5,CB,19,10,FC,C1,\
D8,FD,CB,78,96,FD,56,3C,\
C5,3E,09,90,47,AF,5F,CB,\
12,CB,13,CB,01,3C,10,F7,\
CB,12,CB,13,CB,01,3C,30,\
F7,CB,1B,CB,09,3D,CB,1B,\
CB,19,3D,20,F9,59,C1,3E,\
09,57,90,CB,19,15,10,FB,\
CB,09,15,30,FB,4E,42,CB,\
13,CB,01,10,FA,42,CB,19,\
CB,1B,10,FA,73,C9,CD,8A,\
41,C5,F5,CD,1D,15,3E,08,\
CD,1D,15,CD,37,1C,CD,CD,\
15,CD,A7,0E,3E,07,91,4F,\
ED,43,49,40,F1,C1,51,CB,\
3A,CB,3A,CB,3A,21,3E,40,\
72,23,72,23,72,CD,C4,41,\
E5,C5,CD,4E,41,32,41,40,\
CD,44,41,CD,E0,47,7E,CD,\
6F,41,C2,17,4E,EB,01,07,\
00,09,22,44,40,ED,4B,49,\
40,ED,42,22,42,40,C1,D1,\
FD,CB,78,96,FD,4E,49,3E,\
08,91,4F,18,02,0E,08,D5,\
C5,2A,42,40,7E,2B,22,42,\
40,32,3C,40,FD,CB,78,56,\
C2,A6,02,62,6B,CD,14,48,\
FD,35,41,CA,A6,02,C1,E1,\
A7,11,20,00,ED,52,7C,FE,\
1F,C8,3A,40,40,32,3E,40,\
32,3F,40,0D,EB,20,C8,2A,\
44,40,22,42,40,18,BE,CD,\
58,41,50,59,01,01,C8,FD,\
CB,3B,46,C0,10,F9,0D,20,\
F6,1B,7A,B3,20,EE,C9,E7,\
FE,76,20,09,CD,09,4A,CD,\
1C,4B,18,30,E7,FE,1A,28,\
12,FE,19,28,2C,FE,76,28,\
46,FE,C1,28,48,FE,C2,28,\
5B,18,6C,ED,4B,FE,3F,79,\
E6,F0,C6,10,FE,40,C4,E5,\
49,CC,E0,49,18,D6,78,C6,\
08,47,AF,4F,ED,43,FE,3F,\
C9,06,FF,E7,FE,76,C8,FE,\
1A,20,04,3E,04,18,0B,FE,\
19,20,C6,04,78,FE,03,CA,\
25,4E,32,FB,3F,18,E4,ED,\
4B,FE,3F,18,D1,CD,5F,41,\
48,47,FE,B9,D2,88,41,79,\
FE,40,D2,82,41,ED,43,FE,\
3F,DF,18,91,CD,4E,41,E6,\
3F,ED,4B,FE,3F,B9,4F,30,\
EC,3E,08,80,47,18,E6,CD,\
55,0F,FD,CB,01,76,C4,D5,\
1B,CD,F8,13,78,B1,28,D9,\
1A,C5,D5,CD,56,4A,D1,C1,\
13,0B,18,F0,FE,C0,20,04,\
3E,0B,18,3A,F5,E6,7F,FE,\
40,30,07,F1,FD,CB,01,C6,\
18,2C,FD,CB,01,46,28,0A,\
AF,FD,CB,01,86,CD,98,4A,\
18,04,FD,CB,01,C6,F1,CD,\
75,09,0A,F5,C5,E6,7F,CD,\
98,4A,C1,03,F1,FE,80,38,\
F1,FD,CB,01,86,AF,ED,4B,\
FE,3F,F5,3E,3F,91,DC,E0,\
49,CD,1C,4B,F1,C5,32,49,\
40,A7,17,A7,17,17,16,00,\
CB,12,5F,21,00,1E,19,E5,\
CB,39,CD,AF,41,D1,3A,FB,\
3F,FE,04,CA,19,53,FE,02,\
28,42,FE,01,28,2A,3E,08,\
F5,D5,1A,F5,3A,FB,3F,A7,\
20,0A,FD,CB,49,7E,28,04,\
F1,2F,18,01,F1,77,11,20,\
00,19,D1,F1,13,3D,20,E0,\
C1,0C,0C,ED,43,FE,3F,C9,\
3A,49,40,FE,26,38,CF,FE,\
A6,30,CB,E5,21,00,1E,19,\
EB,E1,18,C2,3A,49,40,07,\
E5,21,00,1C,38,F1,26,1A,\
18,ED,FD,CB,78,46,3E,B8,\
28,02,3E,A8,B8,D0,57,78,\
E6,07,82,47,C5,11,00,20,\
21,00,21,CB,38,CB,38,CB,\
38,4B,ED,B0,2B,71,10,FC,\
C1,C9,01,00,C0,CD,1C,4B,\
C3,E6,49,F5,E7,CD,1C,11,\
DA,4B,0D,CA,25,4E,23,E5,\
06,05,AF,77,23,10,FC,D1,\
F1,C9,CD,C1,41,7E,0F,10,\
FD,CD,4D,4B,D0,3E,81,12,\
C9,CD,C1,41,44,4D,CD,20,\
15,E5,CD,4D,4B,E1,CD,F6,\
19,C3,8A,15,CD,C1,41,4E,\
06,00,18,EA,DD,7E,00,F5,\
CD,E7,02,1E,C0,FD,CB,78,\
46,28,02,1E,B0,21,00,20,\
AF,D3,FB,CD,46,0F,D2,85,\
08,DB,FB,17,30,FB,16,20,\
06,08,4E,DB,FB,1F,30,FB,\
79,E6,80,D3,FB,CB,11,10,\
F2,23,15,20,EB,DB,FB,1F,\
30,FB,1D,20,D3,3E,04,D3,\
FB,F1,FE,ED,CA,07,02,C3,\
D5,40,CD,6E,41,3E,17,28,\
03,CD,4F,41,11,00,00,3C,\
2A,FE,3F,E5,ED,53,FE,3F,\
ED,5B,0C,40,13,F5,06,20,\
1A,C5,D5,CD,98,4A,D1,C1,\
13,10,F5,F1,3D,20,ED,E1,\
22,FE,3F,C9,CD,6E,41,28,\
CC,CD,4F,41,3C,F5,47,3E,\
C0,D6,08,10,FC,57,58,F1,\
18,C6,11,90,40,CD,6E,41,\
28,12,D5,CD,4F,41,47,CD,\
7D,41,04,D1,1A,C6,80,12,\
13,10,F9,C9,06,20,AF,12,\
13,10,FC,C9,CD,4E,41,FE,\
20,11,00,06,30,06,CD,F3,\
47,C3,07,48,CF,1B,01,20,\
00,09,7C,FE,38,D8,61,C9,\
CD,4E,41,FE,20,30,ED,CD,\
44,41,A7,17,17,17,16,00,\
5F,21,00,3E,19,22,52,40,\
C3,5F,41,CD,62,4C,ED,43,\
FC,3F,3E,BF,90,30,02,D6,\
40,67,69,CB,3C,CB,1D,CB,\
3C,CB,1D,CB,3C,CB,1D,CB,\
EC,22,E9,3F,79,2F,E6,07,\
3C,32,50,40,11,EB,3F,ED,\
4B,52,40,3E,08,F5,7E,12,\
0A,C5,4F,3A,50,40,FE,05,\
38,11,2F,C6,09,A7,47,79,\
0E,00,28,0E,1F,CB,19,10,\
FB,18,07,47,AF,CB,11,17,\
10,FB,B6,77,23,13,7E,12,\
79,B6,77,2B,CD,58,4C,13,\
C1,03,F1,3D,20,C7,C9,CD,\
6E,41,C2,17,4E,2A,E9,3F,\
11,EB,3F,06,08,C5,1A,77,\
23,13,1A,77,CD,58,4C,2B,\
13,C1,10,F1,C9,FD,CB,78,\
CE,CD,62,4C,DF,FE,1A,20,\
06,CD,80,4C,CD,5F,41,2A,\
FC,3F,A7,ED,42,C8,C3,2B,\
42,C5,CD,46,0F,D2,88,08,\
21,34,40,46,7E,B8,28,FC,\
FD,96,E8,32,4F,40,CD,EF,\
4C,C1,CD,84,4C,3A,4F,40,\
FD,BE,34,20,FB,C9,CD,6E,\
41,3E,00,28,03,CD,4F,41,\
32,E8,3F,C9,ED,4B,FC,3F,\
78,FE,FF,20,04,06,BF,18,\
06,FE,C0,20,02,06,00,3E,\
BF,90,ED,43,FC,3F,C9,CD,\
FA,41,11,A0,00,1B,7A,B3,\
20,FB,C9,CD,8A,41,ED,43,\
FC,3F,CD,4E,41,32,76,4D,\
FD,CB,78,D6,CD,56,4D,C5,\
F5,CD,C4,41,56,1E,FF,F1,\
C1,D5,C5,F5,CD,71,4D,F1,\
C1,CD,71,4D,D1,72,2A,25,\
40,44,4D,2C,28,DE,CD,BD,\
07,7E,0E,0C,11,C5,4E,C3,\
32,4E,FD,CB,78,D6,18,CC,\
FD,36,3C,FF,FD,CB,78,96,\
18,C2,FD,36,3C,00,18,F4,\
FD,34,FD,FD,35,FC,CD,56,\
4D,FD,5E,3C,FD,CB,78,56,\
20,AA,CD,FA,41,18,A5,FD,\
34,FD,18,EA,FD,34,FC,18,\
F6,FD,34,FC,18,E0,FD,35,\
FD,18,F6,FD,35,FD,18,D6,\
FD,35,FC,18,F6,FD,35,FC,\
18,CC,00,00,DF,FE,19,28,\
32,FE,76,28,02,CF,15,E1,\
01,00,00,C3,4D,00,DF,FE,\
DE,28,02,CF,11,E5,E7,11,\
19,4E,D5,0E,10,11,1A,4F,\
06,00,EB,ED,A1,28,05,23,\
23,EA,35,4E,4E,23,46,EB,\
C5,C9,D1,11,0E,4E,D5,0E,\
0F,11,EB,4E,E7,47,E7,FE,\
76,28,D0,FE,19,20,F7,2B,\
7E,23,FE,0D,28,01,78,18,\
CF,0E,05,11,9B,4E,2B,7E,\
23,18,C5,0E,04,11,AC,4E,\
18,F4,2B,2B,7E,23,23,0E,\
03,11,BA,4E,18,B2,3E,3D,\
0E,00,ED,B9,23,23,7E,0E,\
03,11,90,4E,18,A2,28,EC,\
42,29,14,42,37,12,46,25,\
4E,29,46,4C,2A,E9,4C,32,\
07,4D,35,7D,4C,38,48,4D,\
25,4E,29,E6,44,31,29,45,\
37,93,45,3A,79,44,25,4E,\
2C,78,47,35,1C,47,38,7C,\
47,25,4E,28,BC,4D,29,C2,\
4D,2A,CC,4D,37,70,4D,1D,\
D2,4D,1E,EE,4D,1F,F8,4D,\
20,02,4E,21,07,4E,22,FD,\
4D,23,E9,4D,24,F3,4D,8E,\
4D,3D,80,4E,26,73,4B,27,\
D9,41,28,E8,42,29,10,42,\
2B,E8,48,2E,81,46,31,86,\
4B,35,64,4B,37,0E,46,38,\
63,4E,39,7D,4D,3A,04,48,\
3C,6D,4E,0D,74,4E,25,4E,\
E1,44,4E,E2,0E,4C,E7,44,\
4B,EF,B1,50,F0,DC,4B,F2,\
91,49,F5,A9,49,F6,EB,41,\
F7,CB,40,F8,14,50,F9,24,\
4C,FB,9C,41,FC,EF,41,FD,\
D1,40,FE,BF,40,FF,8E,4B,\
25,4E,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00 ]
# REM ___
1 REM [HEX:\
E5,F8,EF,76,76,06,07,CB,\
21,DC,99,4F,D4,88,4F,3E,\
03,3D,20,FD,ED,5F,05,C2,\
6C,4F,CB,21,DC,99,4F,D4,\
88,4F,C9,DB,FE,3E,1A,3D,\
20,FD,D3,FF,3E,12,3D,20,\
FD,C3,AD,4F,C3,9C,4F,DB,\
FE,3E,29,3D,20,FD,D3,FF,\
3E,20,3D,20,FD,2B,23,37,\
C9,01,00,80,C5,00,CD,6A,\
4F,C1,05,C2,B1,4F,03,ED,\
5F,CD,6A,4F,CD,ED,4F,0D,\
CD,6A,4F,FD,E5,F1,7E,0E,\
AA,CD,6A,4F,CD,ED,4F,4A,\
CD,6A,4F,CD,ED,4F,4B,CD,\
6A,4F,FD,E5,F1,7E,4E,CD,\
6A,4F,23,1B,7A,B3,20,F6,\
00,00,C9,CD,E7,02,23,22,\
16,40,CD,55,0F,E5,CD,F8,\
13,E1,23,79,B0,28,0E,FE,\
21,30,0A,7E,FE,38,C8,FE,\
3B,C8,FE,35,C8,CF,1C,CD,\
F0,4F,F5,62,6B,C5,11,00,\
02,CD,96,49,D1,CD,AE,4F,\
F1,2A,14,40,FE,38,20,07,\
21,00,20,54,5D,18,10,FE,\
35,20,05,11,09,40,18,04,\
ED,5B,10,40,ED,52,EB,CD,\
AE,4F,C3,07,02,DB,FE,17,\
38,FB,0E,00,0C,DB,FE,17,\
30,FA,79,C6,E7,CB,13,C9,\
1E,00,06,08,CD,4A,50,10,\
FB,C9,16,00,14,D3,FF,7A,\
FE,40,30,11,1E,00,CD,4A,\
50,CD,46,0F,D2,88,08,7B,\
A7,20,E7,18,E7,1E,00,D3,\
FF,CD,4A,50,7B,A7,28,F5,\
CD,5D,50,1C,20,D6,CD,5D,\
50,7B,FE,AA,20,CE,CD,5D,\
50,53,CD,5D,50,D5,D3,FF,\
CD,5D,50,73,D1,23,1B,7A,\
B3,20,F2,C9,E5,CD,F0,4F,\
F5,D5,C5,21,3C,40,E5,CD,\
67,50,C1,AF,ED,42,C1,ED,\
42,D1,28,09,16,02,CD,96,\
49,F1,E1,18,DF,21,3C,40,\
1A,BE,20,F0,23,13,0B,78,\
B1,20,F5,F1,E1,FE,38,20,\
09,21,00,20,CD,67,50,C3,\
07,02,FE,3B,20,12,2A,10,\
40,CD,67,50,2B,CD,9D,14,\
D1,E1,CD,07,02,C3,76,06,\
21,09,40,18,EC ]
# REM 64-COL_
2 REM [HEX:\
A2,A0,96,A8,B4,B1,F5,76,\
76,F0,F0,F0,F0,F0,F0,F0,\
F0,3C,3C,3C,3C,F0,F0,F0,\
F0,C3,C3,C3,C3,F0,F0,F0,\
F0,0F,0F,0F,0F,F0,F0,F0,\
F0,F0,F0,F0,F0,3C,3C,3C,\
3C,3C,3C,3C,3C,3C,3C,3C,\
3C,C3,C3,C3,C3,3C,3C,3C,\
3C,0F,0F,0F,0F,3C,3C,3C,\
3C,5A,A5,5A,A5,5A,A5,5A,\
A5,F0,F0,F0,F0,5A,A5,5A,\
A5,5A,A5,5A,A5,F0,F0,F0,\
F0,00,4A,4A,40,00,40,40,\
40,00,A0,2A,4E,4A,8E,AA,\
00,00,44,6E,88,6E,82,6E,\
44,00,40,24,00,00,04,00,\
00,00,44,4A,42,44,00,44,\
00,00,22,44,44,C4,44,42,\
20,00,84,42,42,62,42,44,\
80,00,08,04,52,A4,08,00,\
00,00,02,04,08,04,02,00,\
F0,00,60,4E,40,4E,40,60,\
00,00,64,D4,BE,84,64,00,\
00,00,60,20,2E,20,20,60,\
00,00,2A,44,EE,44,2A,00,\
00,00,82,82,44,44,28,28,\
00,00,40,A4,40,40,44,04,\
08,00,40,80,00,00,04,04,\
08,00,00,00,00,00,0C,4C,\
00,10,16,1A,1A,1A,1A,1C,\
10,80,84,8C,84,84,84,8E,\
80,F0,04,0A,02,04,08,0E,\
00,F0,8E,82,84,82,8A,84,\
80,F0,12,16,1A,1E,12,12,\
10,80,8E,88,8C,82,8A,84,\
F0,10,14,18,1C,1A,1A,14,\
F0,80,8E,42,42,24,28,18,\
10,10,14,2A,24,4A,4A,84,\
80,00,04,8A,FA,A6,A2,A4,\
00,00,40,A4,A2,E6,AA,A6,\
00,00,C8,A8,CC,AA,AA,CC,\
00,00,60,84,8A,88,88,66,\
00,00,C2,A2,A6,AA,AA,C6,\
00,00,E0,84,CA,8E,88,E6,\
00,00,E2,84,CE,84,84,84,\
00,00,40,A4,8A,AA,A6,62,\
0C,00,A8,A8,EC,AA,AA,AA,\
00,00,E4,40,44,44,44,E4,\
00,00,62,20,26,22,A2,4A,\
04,00,A8,A8,CA,CC,AA,AA,\
00,00,84,84,84,84,84,E2,\
00,00,A0,EA,EE,AE,AA,AA,\
00,00,C0,AC,AA,AA,AA,AA,\
00,00,40,A4,AA,AA,AA,44,\
00,00,C0,AC,AA,CA,8C,88,\
08,00,40,A6,AA,AA,A6,42,\
23,00,C0,AC,AA,C8,A8,A8,\
00,00,60,86,48,24,22,CC,\
00,00,E4,4E,44,44,44,42,\
00,00,A0,AA,AA,AA,AA,66,\
00,00,A0,AA,AA,AA,44,44,\
00,00,A0,AA,AA,AA,EE,AA,\
00,00,A0,AA,4A,44,AA,AA,\
00,00,A0,AA,4A,46,42,42,\
04,00,E0,2E,42,44,88,EE,\
00,E5,21,19,33,19,EB,E1,\
3A,49,40,E6,80,3A,FE,3F,\
0F,06,08,C5,F5,1A,46,28,\
2C,38,1C,E6,F0,F5,78,E6,\
0F,47,F1,B0,77,13,D5,11,\
20,00,19,D1,F1,C1,10,E3,\
C1,0C,ED,43,FE,3F,C9,CB,\
3F,CB,3F,CB,3F,CB,3F,F5,\
78,E6,F0,18,DC,38,0A,CB,\
27,CB,27,CB,27,CB,27,18,\
CC,E6,0F,18,EA ]
10 GOTO VAL "1E3"
42 PRINT "how«many«ptsŠ"
46 INPUT M
50 LET DP=M
54 DIM P(M)
58 DIM U(M)
62 DIM V(M)
66 DIM Y(M)
70 PRINT "INPUT X THEN Y VAL "
78 FOR I=A TO M
82 PRINT TAB TR;I;" ";
86 INPUT P(I)
90 INPUT Y(I)
94 PRINT P(I),Y(I)
98 IF I>VAL "18" THEN GOSUB SC
102 NEXT I
106 GOTO VAL "672"
110 PRINT ,,"INPUT START /STOP FOR X THEN Y"
114 DIM E(D)
118 DIM E$(D,D)
122 FOR I=A TO D
126 IF I=A OR I=TR THEN PRINT ("X " AND I=A)+("Y " AND I=TR)
129 INPUT E$(I)
134 PRINT E$(I),
138 NEXT I
142 RETURN
146 FOR I=A TO D
150 LET E(I)=VAL E$(I)
154 NEXT I
158 RETURN
162 PRINT ,,"title‰";
166 INPUT T$
170 PRINT T$
174 PRINT ,,"x«label",
178 INPUT X$
182 PRINT X$
186 PRINT ,,"y",
190 INPUT Y$
194 PRINT Y$
198 RETURN
202 PRINT ,,"x«log“lin«˜“—"
206 INPUT XL
210 PRINT ,,"y"
214 INPUT YL
218 RETURN
222 LET E(A)=LN E(A)/K
226 LET E(TW)=LN E(TW)/K
230 RETURN
234 LET E(TR)=LN E(TR)/K
238 LET E(D)=LN E(D)/K
242 RETURN
250 DIM O(M)
254 DIM Q(M)
258 CLS
262 PRINT "labelsŠ"
266 INPUT SL
270 IF SL THEN GOSUB VAL "162"
274 CLS
278 PRINT ,,"set«scaleŠ"
282 INPUT SS
286 IF SS THEN GOSUB VAL "202"
290 PRINT ,,"set«limitsŠ"
294 INPUT SSL
298 IF SSL THEN GOSUB VAL "110"
302 PRINT ,,"connect«ptsŠ"
306 INPUT CN
310 PRINT "plot«fitŠ"
314 INPUT CF
318 PRINT ,,"okŠ"
322 INPUT Z
330 IF NOT Z THEN GOTO VAL "246"
331 FAST
335 IF USR M2 THEN CLS
338 GOSUB VAL "146"
342 LET K=LN VAL "10"
346 IF NOT XL THEN GOTO VAL "366"
350 GOSUB VAL "222"
354 FOR I=A TO M
358 LET U(I)=LN P(I)/K
362 NEXT I
366 IF XL THEN GOTO VAL "382"
370 FOR I=A TO M
374 LET U(I)=P(I)
378 NEXT I
382 IF NOT YL THEN GOTO VAL "402"
386 GOSUB VAL "234"
390 FOR I=A TO M
394 LET V(I)=LN Y(I)/K
398 NEXT I
402 IF YL THEN GOTO 418
406 FOR I=A TO M
410 LET V(I)=Y(I)
414 NEXT I
422 LET DX=(E(TW)-E(A))/VAL "220"
426 LET DY=(E(D)-E(TR))/VAL "180"
430 LET PL=A
434 FOR I=A TO M
438 LET TX=(U(I)-E(A))/DX
442 IF TX<ZO OR TX>220 THEN GOTO 466
446 LET TY=(V(I)-E(TR))/DY
450 IF TY<ZO OR TY>180 THEN GOTO 466
454 LET O(PL)=INT (TX+12.5)
458 LET Q(PL)=INT (TY+18.5)
462 LET PL=PL+A
466 NEXT I
468 IF USR M2 THEN RUN
470 IF USR M2 THEN LPRINT D;12,18,254,18
475 IF USR M2 THEN LPRINT D;12,18,12,191
486 IF NOT SL THEN GOTO 518
490 LET T=VAL "80"-D*LEN Y$
494 FOR I=A TO LEN Y$
498 IF USR M2 THEN PRINT AT T,A;Y$(I)
502 LET T=T+D+D
506 NEXT I
514 IF USR M2 THEN PRINT AT VAL "176",VAL "32"-LEN X$/TW;X$
518 IF USR M2 THEN PRINT AT 176,TR;E$(A);AT 176,58;E$(TW)
522 IF USR M2 THEN PRINT AT ZO,ZO;E$(D, TO TR);AT VAL "168",ZO;E$(TR, TO TR)
530 FOR I=A TO PL-A
534 IF USR M2 THEN PLOT O(I),Q(I)
538 NEXT I
542 IF NOT CF THEN GOTO VAL "558"
546 FOR I=A TO PF-A
550 IF USR M2 THEN PLOT CODE H$(I),CODE G$(I)
554 NEXT I
558 IF NOT CN THEN GOTO 622
562 FOR I=A TO PL-TW
565 IF USR M2 THEN LPRINT D;O(I),Q(I),O(I+A),Q(I+A)
618 NEXT I
619 IF NOT SL THEN GOTO VAL "622"
621 IF USR M2 THEN PRINT AT VAL "183",VAL "32"-LEN T$/TW;T$
622 FOR I=A TO PL-A
626 IF USR M2 THEN UNPLOT O(I),Q(I)
630 IF USR M2 THEN PLOT O(I),Q(I)
634 IF INKEY$<>"" THEN GOTO 646
638 NEXT I
642 GOTO 622
646 IF INKEY$<>"Z" THEN GOTO 669
650 IF USR M2 THEN COPY
655 IF NOT CF THEN GOTO 622
656 IF USR M2 THEN CLS
658 IF USR M2 THEN PRINT ,,,,"function«is‰ ";F$
660 IF NOT R THEN GOTO 665
662 IF USR M2 THEN PRINT "CORR. COEFF.= ";R
664 IF USR M2 THEN PRINT "RESIDUALS:","SUM OF Y:",RY,,,"SUM OF XY:",RXY
665 IF USR M2 THEN PRINT AT VAL "168",ZO;"INPUT ANY KEY - ÀZÀ TO COPY "
666 IF USR M2 THEN PAUSE VAL "4E4"
669 IF USR M2 THEN CLS
670 IF USR M2 THEN RETURN
672 CLS
674 PRINT "0.RETURN TO MENU","1.PLOT (RESCALE?)","2. (RE)FIT DATA",,"3. SCALE FIT",,"4.PRINT VAL ",,,,
678 INPUT Z
682 GOTO (VAL "722" AND (Z=TR OR Z=D))+(VAL "1E3" AND NOT Z)+(VAL "246" AND Z=A)+(VAL "686" AND Z=TW)
686 CLS
690 PRINT "TYPE?",,,,"0. INTERP.",,,,"LEAST SQUARES:",,,,"1. LINEAR",,"2. EXP.",,"3. LOG.",,"4. POWER",,,,"5. POLYNOMIAL"
694 INPUT Z
696 LET R=ZO
698 IF Z AND Z<5 THEN GOTO 714
702 IF NOT Z OR Z=5 THEN PRINT ,,"DEGREE?","enter",,,("**1 LINE " AND NOT Z),("™ PT." AND NOT Z),"**2 PARABOLA","š","**3 CUBIC","›","**NINPUT ","n˜"
706 INPUT DEG
710 CLS
714 GOSUB (VAL "4980" AND Z)+(VAL "4400" AND NOT Z)
718 GOTO VAL "672"
722 GOSUB (VAL "5540" AND Z=TR)+(VAL "4000" AND Z=D)
726 CLS
730 IF Z=TR THEN PRINT "RESCALE DONE",,
734 GOTO VAL "674"
910 SCROLL
920 PRINT AT 21,31;" ";AT 21,ZO;
930 RETURN
990 SAVE "SE-Hr"
999 LET F$=""
1000 LET ZO=NOT PI
1002 LET A=NOT ZO
1003 LET TW=A+A
1004 LET TR=INT PI
1005 LET D=TR+A
1006 LET AL=ZO
1007 LET LS=ZO
1008 LET SC=VAL "910"
1009 LET M2=VAL "2E4"
1010 LET CR=ZO
1012 LET IP=CR
1020 LET DE=CR
1030 LET GS=DE
1040 LET S=A
1050 LET IL=DE
1059 CLS
1060 SLOW
1070 PRINT AT A,D;"---COMPUTER MATH---",TAB D;"DEVELOPMENT PROGRAM";AT D,TR*D;"BY THOMAS BENT"
1080 PRINT AT PI*PI,A;"1) ADD 2 MATR. "," 2) SUB. 2 MATR."," 3) MULT. 2 MATR."," 4) EVAL. DETERM."," 5) SIM. LIN. EQU."," 6) PRINT/PLOT AND FIT DATA"," 7) INTEGRATION"
1090 INPUT Z
1095 CLS
1120 GOTO (VAL "5998" AND Z=VAL "7")+(VAL "1160" AND Z=VAL "5")+(VAL "38" AND Z=VAL "6")+(VAL "1130" AND Z<VAL "5")
1130 GOSUB (VAL "2730" AND Z<TR)+(VAL "2950" AND Z=TR)+(VAL "3200" AND Z=D)
1140 SLOW
1150 GOTO VAL "1220"
1160 PRINT ,,"METHOD?",,,,"1. CRAMERS RULE 2X3","2. CR ANY SIZE",,"3. GAUSS ELIM. ANY SIZE","4. GAUSS SEIDEL ANY SIZE","5. COMPARE 3 AND 4","6. CHECKFOR ILL-COND.","7. 5 AND 6",,"8. 3 AND 6"
1180 INPUT Z
1190 CLS
1200 GOSUB (VAL "3680" AND Z=TW)+(VAL "1350" AND Z=D+D)+(VAL "1310" AND Z=D+TR)+(VAL "1270" AND Z=D+A)+(VAL "2620" AND Z=A)+(VAL "1730" AND Z=TR)+(VAL "2200" AND Z=D)+(VAL "3350" AND Z=D+TW)
1210 SLOW
1220 IF INKEY$="" THEN GOTO 1220
1230 FAST
1240 IF INKEY$="Z" THEN COPY
1260 GOTO VAL "1E3"
1280 GOSUB VAL "2200"
1290 GOSUB VAL "1750"
1300 RETURN
1320 GOSUB VAL "2200"
1330 GOTO VAL "1360"
1350 GOSUB VAL "1400"
1360 GOSUB VAL "3350"
1370 GOSUB VAL "1750"
1380 GOTO VAL "3500"
1420 PRINT ,,"HOW MANY ROWS? ";
1430 INPUT M
1440 PRINT M
1450 PRINT TAB VAL "9";"COLS? ";
1460 INPUT N
1470 PRINT N
1480 DIM A(M,N)
1490 DIM Z(M,N)
1495 FAST
1500 FOR I=A TO M
1510 GOSUB SC
1520 PRINT AT VAL "20",ZO;"row col","VAL ",I;
1530 FOR J=A TO N
1540 PRINT TAB D;J,
1550 INPUT A(I,J)
1560 PRINT A(I,J)
1570 LET Z(I,J)=A(I,J)
1580 GOSUB SC
1590 NEXT J
1600 NEXT I
1610 CLS
1620 RETURN
1640 DIM A(M,N)
1650 FAST
1660 FOR I=A TO M
1670 FOR J=A TO N
1680 LET A(I,J)=Z(I,J)
1690 NEXT J
1700 NEXT I
1710 SLOW
1720 RETURN
1740 GOSUB VAL "1400"
1750 DIM X(M)
1770 FAST
1780 FOR I=A TO M-A
1790 LET B=ZO
1800 FOR J=I TO M
1810 LET P=ABS A(J,I)
1820 IF P>B THEN LET L=J
1830 IF P>B THEN LET B=P
1840 NEXT J
1850 IF NOT B THEN STOP
1860 IF IL OR I=L THEN GOTO VAL "1930"
1870 LET S=-S
1880 FOR J=A TO N
1890 LET T=A(I,J)
1900 LET A(I,J)=A(L,J)
1910 LET A(L,J)=T
1920 NEXT J
1930 IF GS THEN NEXT I
1940 IF GS THEN RETURN
1960 LET NLINE=I+A
1970 FOR J=NLINE TO M
1980 LET C=A(J,I)/A(I,I)
1990 FOR K=I TO N
2000 LET A(J,K)=A(J,K)-C*A(I,K)
2010 NEXT K
2020 NEXT J
2030 NEXT I
2040 IF DE OR IL THEN RETURN
2060 FOR I=M TO A STEP -A
2070 LET BK=A(I,N)
2080 IF I=M THEN GOTO 2120
2090 FOR J=M TO I STEP -A
2100 LET BK=BK-A(I,J)*X(J)
2110 NEXT J
2120 LET X(I)=BK/A(I,I)
2130 NEXT I
2135 IF IP THEN RETURN
2140 PRINT ,,"G.E. RESULTS:"
2150 SLOW
2160 FOR I=A TO M
2170 PRINT TAB D;"X ";I,X(I)
2180 NEXT I
2190 RETURN
2210 PRINT "INPUT ACCURACY"
2220 INPUT ER
2230 CLS
2240 GOSUB VAL "1400"
2250 LET GS=A
2260 PRINT AT VAL "19",D;"G-S ITERATIONS"
2270 GOSUB VAL "1760"
2280 LET GS=NOT GS
2290 DIM X(M)
2300 DIM Y(M)
2310 FAST
2320 FOR K=A TO VAL "100"
2330 GOSUB SC
2340 FOR I=A TO M
2350 LET T=ZO
2360 LET X(I)=T
2370 FOR J=A TO M
2380 LET T=T+A(I,J)*X(J)
2390 NEXT J
2400 LET X(I)=(A(I,N)-T)/A(I,I)
2410 NEXT I
2420 LET T=ZO
2430 PRINT K;
2440 FOR I=A TO M
2450 PRINT TAB D;"X ";I,X(I)
2460 GOSUB SC
2470 LET Y(I)=X(I)-Y(I)
2480 IF ABS Y(I)<=ER THEN LET T=T+A
2490 LET Y(I)=X(I)
2500 NEXT I
2510 PAUSE PI**D
2520 IF T<>M THEN GOTO VAL "2580"
2530 CLS
2540 PRINT ,,"G-S CONVERGED",,"IN ";K;" ITERATIONS."
2550 GOSUB VAL "2160"
2560 SLOW
2570 RETURN
2580 NEXT K
2590 PRINT "G-S DIDNT CONVERGE"
2600 SLOW
2610 RETURN
2630 LET M=TW
2640 LET N=TR
2650 GOSUB VAL "1480"
2660 LET CR=A(A,A)*A(TW,TW)-A(TW,A)*A(A,TW)
2670 IF NOT CR THEN GOTO VAL "3990"
2675 DIM X(M)
2680 LET X(A)=(A(A,TR)*A(TW,TW)-A(TW,TR)*A(A,TW))/CR
2690 LET X(TW)=(A(A,A)*A(TW,TR)-A(TW,A)*A(A,TR))/CR
2700 PRINT ,,"CR RESULTS:"
2710 PRINT ,,"X= ";X(A),"Y= ";X(TW)
2720 RETURN
2740 GOSUB VAL "1400"
2750 PRINT "INPUT MATRIX ÀBÀ"
2760 DIM B(M,N)
2770 FOR I=A TO M
2780 PRINT "INPUT ROW ";I
2790 FOR J=A TO N
2800 INPUT B(I,J)
2810 NEXT J
2820 NEXT I
2830 CLS
2840 DIM C(M,N)
2850 PRINT "ROW COL";TAB 13;"MATRICES"
2860 PRINT "I J";TAB 9;"A";TAB 16;"B";TAB 25;"C"
2870 FOR I=A TO M
2880 FOR J=A TO N
2890 IF Z=A THEN LET C(I,J)=A(I,J)+B(I,J)
2900 IF Z=TW THEN LET C(I,J)=A(I,J)-B(I,J)
2910 PRINT I;TAB D;J;TAB TR*TR;A(I,J);TAB D*D;B(I,J);TAB 25;C(I,J)
2920 NEXT J
2930 NEXT I
2940 RETURN
2960 GOSUB VAL "1400"
2970 PRINT "COLSFOR B?"
2980 INPUT P
2990 DIM B(N,P)
3000 FOR I=A TO N
3010 PRINT "INPUT ROW ";I
3020 FOR J=A TO P
3030 INPUT B(I,J)
3040 NEXT J
3050 NEXT I
3060 CLS
3070 DIM C(M,P)
3075 PRINT "MATRIX A * B"
3080 FOR I=A TO M
3090 FOR J=A TO P
3100 FOR K=A TO N
3110 LET C(I,J)=C(I,J)+A(I,K)*B(K,J)
3120 NEXT K
3130 NEXT J
3140 FOR J=A TO P
3150 PRINT C(I,J);" ";
3160 NEXT J
3170 PRINT
3180 NEXT I
3190 RETURN
3210 GOSUB VAL "1400"
3220 LET DE=A
3230 GOSUB VAL "1760"
3240 LET DE=NOT DE
3250 FOR I=A TO M
3260 LET S=S*A(I,I)
3270 NEXT I
3280 IF CR THEN RETURN
3290 PRINT "DETERMINANT=";S
3300 RETURN
3310 GOSUB VAL "1400"
3320 LET GS=NOT GS
3330 GOSUB VAL "1760"
3340 LET GS=NOT GS
3360 DIM C(M,M)
3370 FOR I=A TO M
3380 LET T=ZO
3390 FOR J=A TO M
3400 LET C(I,J)=A(I,J)
3410 LET T=T+C(I,J)*C(I,J)
3420 NEXT J
3430 LET T=SQR T
3440 FOR J=A TO M
3450 LET C(I,J)=C(I,J)/T
3460 NEXT J
3470 NEXT I
3480 IF Z=D+TW THEN GOTO VAL "3510"
3490 RETURN
3510 FOR I=A TO M
3520 FOR J=A TO M
3530 LET A(I,J)=C(I,J)
3540 NEXT J
3550 NEXT I
3560 LET N=M
3570 LET IL=NOT IL
3580 GOSUB VAL "1760"
3590 LET N=M+A
3600 LET IL=NOT IL
3610 FOR I=A TO M
3620 LET S=ABS (S*A(I,I))
3630 NEXT I
3645 PRINT ,,"CONDITIONING:",S,,,"THE SYSTEM IS ";("ILL CONDITIONED" AND S<A/D);("OK" AND S>=A/D)
3670 RETURN
3690 PRINT "INPUT NEW DATA?"
3700 INPUT X
3710 IF X THEN GOSUB VAL "1400"
3720 LET CR=A
3730 CLS
3740 GOSUB VAL "1630"
3750 LET N=M
3760 FAST
3770 GOSUB VAL "3220"
3780 LET DEN=S
3790 PRINT "DENOM.=";S
3800 IF NOT S THEN GOTO VAL "3990"
3810 DIM X(M)
3820 FOR V=A TO M
3830 LET S=A
3840 LET N=M+A
3850 GOSUB 1630
3860 FOR U=A TO M
3870 LET A(U,V)=A(U,N)
3880 NEXT U
3890 LET N=M
3900 GOSUB 3220
3910 LET X(V)=S/DEN
3920 NEXT V
3930 LET N=M+A
3940 LET CR=NOT PI
3950 SLOW
3960 PRINT ,,"CR RESULTS:"
3970 GOTO VAL "2160"
3990 PRINT "NO SOLUTION BY CR"
3995 RETURN
4010 PRINT "PRINT FROM:",,,,"0.INPUT DATA",,"1. CURVE FIT",,"2. OTHER FUNCTION"
4020 SLOW
4030 INPUT Z
4040 GOTO (VAL "4050" AND NOT Z)+(VAL "4140" AND Z=A)+(VAL "4120" AND Z=TW)
4050 GOSUB SC
4060 PRINT "no–«x","f‹xŒ"
4070 FOR I=A TO DP
4080 GOSUB SC
4090 PRINT I;TAB D;P(I),Y(I)
4100 NEXT I
4110 GOTO VAL "4300"
4120 PRINT "INPUT F(X)"
4130 INPUT F$
4140 PRINT "INPUT X START";
4150 INPUT XS
4160 PRINT XS
4170 PRINT "INPUT XSTOP ";
4180 INPUT XP
4190 PRINT XP
4200 PRINT "INPUT STEP VAL "
4210 INPUT INC
4220 CLS
4230 IF LS OR Z THEN PRINT AT D*D,D;"F(X)=",F$
4240 GOSUB SC
4250 PRINT "x","f‹xŒ"
4260 FOR X=XS TO XP STEP INC
4270 GOSUB SC
4280 PRINT X,VAL F$
4290 NEXT X
4300 GOSUB SC
4309 SCROLL
4310 PRINT AT VAL "20",VAL "30";,"INPUT ANY KEY-ÀZÀ TO COPY "
4320 PAUSE VAL "4E4"
4330 FAST
4340 IF INKEY$="Z" THEN COPY
4350 IF LS THEN RETURN
4360 LET M=DP
4370 LET AL=ZO
4380 LET LS=ZO
4390 RETURN
4410 PRINT "INPUT POSN. OF 1ST X TERM TO BE EVALUATED"
4420 INPUT POS
4430 PRINT ,,"FIT REST OF THE POINTS?"
4440 INPUT AL
4445 IF NOT AL THEN GOTO VAL "4500"
4450 IF AL THEN PRINT "YOU CANTPLOT DIRECTLY.","HERES ALIST :"
4480 PRINT "INPUT STEP VAL "
4490 INPUT INC
4500 FAST
4510 LET POS=POS-A
4520 LET LAST=POS+DEG
4530 IF LAST>DP THEN LET DEG=DP-POS
4540 LET M=DEG
4550 LET IP=PI
4560 LET N=M+A
4570 DIM A(M,N)
4580 FOR I=A TO M
4590 LET A(I,N)=Y(I+POS)
4600 FOR J=A TO M
4610 LET A(I,J)=A
4620 NEXT J
4630 NEXT I
4640 FOR J=M-A TO A STEP -A
4650 LET DE=DE+A
4660 FOR I=A TO M
4670 FOR K=A TO DE
4680 LET A(I,J)=A(I,J)*P(I+POS)
4690 NEXT K
4700 NEXT I
4710 NEXT J
4720 LET DE=ZO
4730 GOSUB VAL "1750"
4740 LET IP=ZO
4750 LET L=M
4760 FOR I=A TO M/TW
4770 LET T=X(I)
4780 LET X(I)=X(L)
4790 LET X(L)=T
4800 LET L=L-A
4810 NEXT I
4820 LET F$=""
4830 FOR I=A TO M
4840 PRINT "X";I;" = ";X(I)
4850 LET F$=F$+STR$ X(I)+"*X**"+STR$ (I-1)+" "
4860 IF I<>M THEN LET F$=F$+"+"
4870 NEXT I
4880 IF NOT AL THEN GOTO VAL "5486"
4890 LET XS=P(POS+A)
4900 LET XP=P(LAST)
4910 SLOW
4920 GOSUB VAL "4230"
4930 LET POS=LAST
4940 IF POS=DP THEN GOTO VAL "4360"
4950 CLS
4960 GOTO VAL "4500"
4990 CLS
5000 FAST
5010 FOR I=A TO M
5020 IF Z=A OR Z=TW OR Z=A+D THEN LET U(I)=P(I)
5030 IF Z=TR OR Z=D AND P(I)>ZO THEN LET U(I)=LN P(I)
5040 IF Z=A OR Z=TR OR Z=A+D THEN LET V(I)=Y(I)
5050 IF Z=TW OR Z=D AND Y(I)>ZO THEN LET V(I)=LN Y(I)
5060 NEXT I
5090 IF Z AND Z<A+D THEN LET DEG=TW
5100 LET M=DEG
5110 LET N=M+A
5120 DIM A(M,N)
5130 DIM C(DP,M)
5140 LET Y2=ZO
5150 FOR I=A TO DP
5160 LET C(I,A)=A
5170 LET Y2=Y2+V(I)*V(I)
5180 NEXT I
5190 FOR J=TW TO M
5200 FOR I=A TO DP
5210 LET C(I,J)=C(I,J-A)*U(I)
5220 NEXT I
5230 NEXT J
5240 FOR I=A TO M
5250 FOR J=A TO M
5260 FOR K=A TO DP
5270 LET A(I,J)=A(I,J)+C(K,I)*C(K,J)
5280 NEXT K
5290 NEXT J
5300 NEXT I
5310 FOR I=A TO M
5320 FOR J=A TO DP
5330 LET A(I,N)=A(I,N)+C(J,I)*V(J)
5340 NEXT J
5350 NEXT I
5360 DIM C(A)
5380 LET R=A(TW,N)-(A(TW,A)*A(A,N))/DP
5390 LET R=R*R
5400 LET R=R/(((A(TW,TW)-(A(TW,A)*A(TW,A))/DP)*(Y2-(A(A,N)*A(A,N))/DP)))
5410 LET IP=A
5420 GOSUB (VAL "2660" AND M=TW)+(VAL "1750" AND M>TW)
5430 LET IP=ZO
5440 IF M>TW THEN GOTO VAL "4820"
5450 LET F$=""
5460 IF Z=A THEN LET F$=STR$ X(A)+"+X*"+STR$ X(TW)
5470 IF Z=TW THEN LET F$=STR$ (EXP X(A))+"*EXP (X*"+STR$ X(TW)+")"
5480 IF Z=TR THEN LET F$=STR$ X(A)+"+LN X*"+STR$ X(TW)
5485 IF Z=D THEN LET F$=STR$ (EXP X(A))+"*X**"+STR$ X(TW)
5487 LET RXY=ZO
5488 LET RY=ZO
5489 FOR I=A TO DP
5490 LET X=P(I)
5491 LET Y=Y(I)
5492 LET T=VAL F$
5495 LET RY=RY+(T-Y)*(T-Y)
5496 LET RXY=RXY+X*(T-Y)*(T-Y)
5498 NEXT I
5500 CLS
5510 PRINT ,,"F(X)= ";F$
5520 IF Z THEN PRINT ,,"CORR. COEFF.= ";R
5522 IF Z THEN PRINT ,,"RESIDUALS",,"YÀS",RY,"XYÀS",RXY
5530 GOTO VAL "4309"
5550 PRINT "INPUT START VAL FOR X FIT: ";
5560 INPUT XS
5565 PRINT XS
5570 PRINT "INPUT STOP VAL FOR X FIT: ";
5580 INPUT XP
5585 PRINT XP
5590 PRINT ,,"INPUT POINT DENSITY"
5600 INPUT PD
5605 PRINT PD
5610 FAST
5620 LET K=LN VAL "10"
5630 GOSUB VAL "146"
5640 LET TXE=(E(A) AND NOT XL)+(LN E(A)/K AND XL)
5650 LET TYE=(E(TR) AND NOT YL)+(LN E(TR)/K AND YL)
5680 LET PF=A
5690 DIM H$(PD+A)
5700 DIM G$(PD+A)
5710 LET DF=(XP-XS)/PD
5720 FOR X=XS TO XP STEP DF
5730 LET FX=VAL F$
5740 IF FX<E(TR) OR FX>E(D) THEN GOTO 5860
5750 LET TX=(X AND NOT XL)+(LN X/K AND XL)
5770 IF YL THEN LET FX=LN FX/K
5780 LET TX=(TX-TXE)/DX+12.5
5790 LET FX=(FX-TYE)/DY+18.5
5820 IF TX>=254 OR FX>=191 THEN GOTO 5860
5830 LET H$(PF)=CHR$ TX
5840 LET G$(PF)=CHR$ FX
5850 LET PF=PF+A
5860 NEXT X
5880 SLOW
5890 RETURN
5998 PRINT ,,"1) GAUSS QUAD",,"2) SIMP.-DATA",,"3) SIMP.-FUNC.",,"4) ROMBERG"
6000 INPUT Z
6001 FAST
6002 GOSUB (VAL "6060" AND Z=A)+(VAL "6500" AND Z=TW)+(VAL "6600" AND Z=TR)+(VAL "7200" AND Z=D)
6003 PAUSE VAL "4E4"
6004 GOTO VAL "1E3"
6005 PRINT "INPUT F(X)?"
6006 INPUT F$
6007 LET X=(F$<>"")
6010 PRINT "INTEGRATION",,"INPUT START THEN STOP LIMITS"
6020 INPUT L
6030 PRINT L,
6040 INPUT H
6050 PRINT H
6051 RETURN
6070 GOSUB VAL "6005"
6080 DIM S(TR,D)
6090 DIM T(TR,D)
6100 LET S(A,A)=A
6102 LET S(A,TW)=A
6104 LET S(TW,A)=(A+D)/(TR*TR)
6106 LET S(TW,TW)=(D+D)/(TR*TR)
6108 LET S(TW,TR)=S(TW,A)
6110 LET S(TR,A)=VAL ".65214516"
6112 LET S(TR,TR)=S(TR,A)
6114 LET S(TR,TW)=VAL ".34785485"
6116 LET S(TR,D)=S(TR,TW)
6120 LET T(A,TW)=A/SQR TR
6122 LET T(A,A)=-T(A,TW)
6124 LET T(TW,TR)=SQR (TR/(D+A))
6126 LET T(TW,A)=-T(TW,TR)
6128 LET T(TR,TR)=VAL ".33998104"
6130 LET T(TR,A)=-T(TR,TR)
6132 LET T(TR,D)=VAL ".86113631"
6134 LET T(TR,TW)=-T(TR,D)
6135 PRINT "INPUT NO. OF POINTS 2 TO 4"
6136 INPUT DEG
6140 LET DX=(H-L)/TW
6142 LET FX=ZO
6150 LET K=DEG-A
6160 FOR I=A TO DEG
6180 LET X=((H-L)*T(K,I)+H+L)/TW
6190 LET FX=FX+S(K,I)*VAL F$
6210 NEXT I
6220 LET FX=FX*DX
6230 PRINT "GAUSS QUAD= ",FX
6250 RETURN
6510 LET FX=ZO
6520 LET DX=U(TW)-U(A)
6550 FOR I=A TO DP-TW STEP TW
6560 LET FX=FX+DX/TR*(Y(I)+D*Y(I+A)+Y(I+TW))
6570 NEXT I
6590 PRINT "SIMPSONS AREA = ";FX
6599 RETURN
6610 GOSUB VAL "6005"
6630 PRINT "INPUT MAX ITERATIONS.(<=8)"
6635 INPUT IT
6640 CLS
6650 FOR I=A TO IT
6660 LET DIV=TW**I
6670 LET AR=ZO
6680 LET DX=(H-L)/DIV
6683 LET T=DX/TR
6690 LET SIM=DIV/TW
6700 FOR J=A TO SIM
6705 LET FX=ZO
6720 LET X=L+TW*(J-A)*DX
6725 LET FX=VAL F$
6730 LET X=X+DX
6732 LET FX=FX+D*VAL F$
6735 LET X=X+DX
6740 LET AR=AR+(FX+VAL F$)*T
6810 NEXT J
6820 PRINT "FOR ";DIV;" DIVISIONS, AREA =",AR,,
6830 PAUSE PI**D
6835 IF Z>TR THEN RETURN
6840 NEXT I
6900 RETURN
7210 GOSUB VAL "6005"
7300 PRINT "INPUT MAX ITERATIONS. (<=6)"
7310 INPUT IT
7320 DIM A(IT,IT)
7325 CLS
7330 FOR I=A TO IT
7340 LET DIV=TW**(I-A)
7350 LET AR=ZO
7360 LET DX=(H-L)/DIV
7365 LET T=DX/TW
7370 FOR J=A TO DIV
7375 LET FX=ZO
7380 LET X=L+(J-A)*DX
7390 LET FX=FX+VAL F$
7400 LET X=L+J*DX
7410 LET AR=AR+(FX+VAL F$)*T
7420 NEXT J
7425 LET A(I,A)=AR
7430 GOSUB 6820
7450 NEXT I
7505 CLS
7530 FOR J=TW TO IT
7535 LET T=D**(J-A)
7540 FOR I=J TO IT
7560 LET A(I,J)=(T*A(I,J-A)-A(I-A,J-A))/(T-A)
7570 NEXT I
7580 NEXT J
7585 SLOW
7590 FOR I=A TO IT
7595 PRINT
7600 FOR J=A TO I
7610 PRINT A(I,J);" ";
7620 NEXT J
7625 PRINT
7630 NEXT I
7640 FAST
7650 RETURN