[Edit] Find the bug, this code is desing to run with a unneeded header (BC+6 at start)
i had to remove this jump... it put compressed array without this header is the REM !
Code: Select all
# VB81 XuR [PuCrunch.bas]
0 REM [HEX:\
2A,0C,40,23,22,7B,40,18,06,2A,32,40,22,7B,40,CD,\
23,0F,E7,CD,92,0D,CD,F5,0B,68,61,CD,D8,09,01,05,\
00,09,ED,5B,7B,40,CD,B1,40,CD,2B,0F,C3,5B,00,ED,\
53,38,41,01,06,00,09,7E,23,32,4D,41,23,23,7E,23,\
32,41,41,47,3E,08,90,32,32,41,7E,23,32,28,42,3D,\
47,3E,08,90,32,7D,41,7E,23,32,77,41,87,3D,32,C4,\
41,7E,23,32,C8,41,23,23,7E,23,4F,11,FB,40,D5,DD,\
E1,13,06,00,ED,B0,16,00,18,44,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,47,3A,4D,41,32,6B,41,\
3A,41,41,5F,78,1C,CD,39,42,32,4D,41,3A,6B,41,1E,\
00,1C,CD,39,42,01,00,00,02,03,ED,43,38,41,3E,00,\
5F,AF,32,6B,41,1C,CD,39,42,47,3E,00,B8,78,20,DF,\
CD,18,42,32,F5,41,CB,3F,20,63,CD,2F,42,CB,3F,30,\
6D,CD,2F,42,CB,3F,30,B1,3E,00,3C,32,6B,41,CD,18,\
42,32,F5,41,06,00,B8,38,11,47,3E,00,5F,78,CD,30,\
42,32,F5,41,CD,18,42,32,6B,41,CD,18,42,5F,32,97,\
41,FE,20,DD,7E,00,38,06,7B,1E,03,CD,30,42,E5,F5,\
3A,F5,41,5F,43,04,3A,6B,41,4F,2A,38,41,F1,77,23,\
05,20,FB,0D,20,F8,22,38,41,E1,C3,40,41,CD,18,42,\
47,3E,00,B8,C8,3E,00,5F,78,3D,1C,CD,39,42,32,F6,\
41,1E,08,CD,30,42,47,3A,F5,41,5F,3A,38,41,80,32,\
F5,41,3A,F6,41,47,3A,39,41,3F,98,32,F6,41,1C,43,\
D5,E5,21,00,00,ED,5B,38,41,78,B7,28,15,3C,CB,3F,\
30,02,ED,A0,ED,A0,3D,20,F9,ED,53,38,41,E1,D1,C3,\
40,41,3E,80,18,EC,3E,01,5F,CB,22,20,04,56,23,CB,\
12,30,14,1C,47,3E,00,BB,78,20,EE,18,0A,1C,CB,22,\
20,04,56,23,CB,12,17,1D,20,F4,B7,C9,F4,B7,C9 ]
1 REM [HEX:\
22,04,70,75,77,04,03,58,02,02,08,80,00,FF,FF,07,\
80,00,03,83,88,81,85,DA,6F,79,DA,6E,E0,03,7D,B2,\
ED,F0,6F,E7,0C,24,0E,D8,80,05,FC,ED,FC,E0,DD,03,\
81,02,7C,57,BB,93,E4,DF,87,80,82,CD,CC,E2,83,85,\
04,F8,38,20,41,E0,BE,4D,F8,5D,90,B0,70,30,B0,50,\
7F,04,E6,DB,06,80,00,F8,B7,C0,B2,0B,37,C1,80,33,\
7E,1B,DA,30,16,0A,12,03,EC,9D,00,87,00,85,00,02,\
86,F0,36,00,06,81,D9,F3,3E,01,02,80,C2,ED,80,30,\
18,78,3E,37,78,78,87,86,E1,37,E8,3A,05,E3,F8,0B,\
72,C3,80,E7,6F,16,60,BB,80,0F,93,7F,29,01,77,CA,\
65,8E,28,EE,01,7E,29,D0,0E,20,C0,7E,4D,EC,5F,DC,\
64,D8,27,B1,D6,7D,E3,74,17,C9,C1,93,3B,00,C1,E1,\
61,20,61,00,3C,37,F3,BF,84,E0,7F,83,7B,32,20,60,\
C1,E1,33,EB,0D,F0,97,AD,FE,C9,AD,D6,04,C1,F5,C3,\
9C,99,A1,B8,04,E1,B3,1E,01,7A,9D,CF,8D,E9,05,87,\
70,40,FB,88,4E,BF,20,B8,AF,D9,E0,F9,95,FE,97,FB,\
36,C4,3E,7D,02,80,F1,23,C1,EC,36,74,02,F9,6F,EF,\
60,6E,36,80,F8,F2,C9,BF,0C,DE,2C,F1,DF,C3,7E,13,\
7B,40,81,F1,F9,84,5B,6B,D9,B3,D9,F3,3B,E2,37,A6,\
75,C3,41,6F,60,7D,D0,07,86,F8,3E,FC,6F,29,80,4E,\
B7,C0,BF,4B,83,27,3A,DF,E1,A2,07,F3,38,3D,37,F8,\
5A,82,DF,46,D4,17,CA,A4,1F,A7,CF,29,C8,20,60,3F,\
4C,4D,AF,24,37,25,06,ED,DA,73,FF,F0 ]
2 REM [HEX:\
E8,03,70,75,78,04,03,58,02,02,08,80,00,FF,FF,0A,\
80,03,00,83,02,82,84,86,89,8A,80,05,81,80,00,83,\
84,8A,88,DF,46,F3,60,B3,9E,01,DA,00,07,64,14,0C,\
2C,07,D1,BE,0F,E5,BF,0B,98,9C,6F,80,6C,05,06,85,\
88,8A,EB,A0,06,13,8F,B0,3E,3B,C0,01,3A,DF,CE,0E,\
B7,C1,38,F0,80,CB,EE,B7,F3,A0,02,13,36,C0,00,B3,\
DC,08,17,AD,FD,D6,6F,C1,67,14,14,36,5F,6F,08,3E,\
BA,61,F8,6B,87,82,F4,DF,85,CD,F0,6E,30,73,3F,6E,\
5B,A0,3F,08,6D,99,3E,05,D7,B6,47,81,C0,F1,7C,07,\
9D,D0,B0,DE,97,DB,B8,81,F6,B5,85,CD,F8,7E,27,71,\
3B,8D,F8,4D,F2,78,6F,66,46,5D,42,83,C3,65,EB,B6,\
EA,13,22,72,D3,7E,04,17,85,BB,B6,F2,03,84,03,86,\
84,DE,78,EE,CE,2B,E0,80,BC,2A,B1,F0,17,66,D2,0F,\
7D,1B,9A,CA,0E,94,38,DD,CB,EC,B7,86,F6,BB,DF,10,\
1F,A2,C8,18,2E,6F,83,F9,61,03,E3,CC,18,17,B7,0E,\
D8,04,CD,D8,2E,B7,78,BE,F4,C0,E3,E6,20,17,79,72,\
21,60,58,24,2F,80,98,10,2B,B6,F4,EB,08,1F,3A,C1,\
F8,97,F0,D8,05,85,F0,72,CB,DF,6D,FC,4B,E2,6B,C4,\
B6,01,E3,D7,C4,E3,DD,02,7A,6F,83,F1,BD,C9,C1,05,\
0F,8D,F8,EB,0B,0C,09,07,8D,C0,3E,A7,A7,96,F8,2E,\
F4,E3,26,1C,17,6E,1C,73,C3,00,FA,73,BB,7C,0F,B9,\
87,05,D9,57,C4,D0,08,28,30,28,08,07,92,26,2D,E2,\
BE,DB,E3,5B,28,FD,49,48,3E,88,B6,CF,A3,E6,68,BB,\
78,9E,1B,48,2F,53,64,1F,72,78,BD,7C,34,75,ED,E5,\
BF,D6,64,10,1E,F0,01,F2,F1,04,81,F2,D8,F8,B7,F9,\
4F,60,E1,3D,DF,70,08,10,7E,B5,FE,AD,F0,2F,01,6C,\
DC,86,F1,73,81,37,C2,F3,FF,F0 ]
3 REM [HEX:\
07,04,70,75,79,04,03,58,02,02,08,80,00,FF,FF,09,\
80,88,89,8A,03,09,00,81,84,DA,41,6F,7B,DA,C1,C1,\
6E,A0,E2,7D,BB,A1,E0,20,9D,B7,24,27,96,EE,70,EF,\
82,08,13,C3,87,6B,B4,76,DE,20,3F,1E,3C,70,83,ED,\
C4,1F,7A,75,98,0E,0D,B4,F2,DF,80,01,EB,82,26,5F,\
72,67,E4,4F,C1,BD,09,13,F0,6F,F5,83,D7,94,BE,EC,\
F6,BC,83,02,8A,F6,DF,82,07,CE,A0,7F,0B,FE,B7,37,\
C1,13,BB,1D,B8,DA,85,82,05,88,DB,80,3E,F1,9C,3D,\
81,DE,C0,F0,3E,1B,F0,A0,BB,B0,0B,3C,40,7C,0D,40,\
E1,01,A1,37,B6,E4,CC,97,60,2D,C7,44,10,31,5D,12,\
C3,ED,80,88,5D,ED,C5,1C,00,2B,B0,07,85,3F,47,10,\
99,FB,03,D7,CF,C1,BE,00,05,B6,40,1D,BA,C9,C8,9E,\
1F,E0,33,7E,1F,AF,90,3F,AC,D1,E3,7F,38,62,3C,4E,\
88,5C,CE,05,EB,44,07,E0,7C,C8,4F,0D,F8,5E,CD,68,\
6D,B0,02,0D,86,00,9B,68,18,23,E2,5B,85,E3,7C,13,\
AD,F8,1E,8F,F3,E0,13,C2,2B,E4,DF,CA,E8,77,68,1C,\
96,84,CB,EF,21,DF,30,F7,E2,DF,CE,98,18,87,68,9C,\
C1,02,CF,6E,9C,42,73,FB,EC,DF,82,F1,0C,B7,31,9B,\
FD,6F,62,0E,D7,A5,3F,92,77,CC,74,EC,9C,01,84,EA,\
F3,8F,8F,9B,7F,8E,78,9F,11,4E,0F,A5,EC,2D,83,F4,\
7D,F8,37,C1,61,E0,7C,C3,28,9E,49,AF,11,76,0B,77,\
50,3F,19,AF,F0,BE,11,38,63,E5,59,C6,0C,2E,F9,37,\
67,AB,9F,E1,BE,0E,0B,D4,FF,E3,6F,83,C3,EC,03,84,\
C8,C8,5E,15,82,01,F7,C0,0B,05,ED,BE,07,E2,F9,72,\
37,81,41,40,61,8F,D5,7D,CF,FF,C0 ]
100 FOR A=1 TO 3
110 PRINT USR 16514,A
112 LET T=SIN PI+SIN PI+SIN PI
114 NEXT A
130 GOTO 100
140 REM UNCOMPRESS A LINE TO MEMORY
150 REM RAND +TARGET MEMORY
160 RAND 24500
170 PRINT USR 16523,VAL "3"
9900 SAVE "PUCRUNCH"
9999 RUN
Have Fun.