If I paste the following into a newly created program on my new G2, via the connectivity kit, it crashes the G2.
It this a bug, or is it just bad use of a list? I.e. is the List too long?
Code:
EXPORT ball()
BEGIN
LOCAL COL:={#FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FCEBEBEBh, #CFE6E6E6h, #74E4E4E5h, #2BE3E3E4h, #4E3E2E4h, #26E2E2E4h, #6DE4E4E6h, #D5E7E7E8h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FEF2F2F2h, #B9E2E2E3h, #D9D9DAh, #E1E1E2h, #EBEBECh, #F0F0F2h, #F3F4F5h, #F2F3F4h, #EDEEEFh, #E7E7E8h, #E3E3E4h, #CDE6E6E7h, #FEEFEFF0h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #E8F5F4F5h, #5E5E5E5h, #DEDDDEh, #EBEAEBh, #F4F4F5h, #F8F8FAh, #FBFBFCh, #FDFDFEh, #FEFEFFh, #FEFEFFh, #FDFEFEh, #F6F6F8h, #E6E6E7h, #9DFDFE1h, #F8EBEBEBh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #D1F6F6F6h, #E1DFE1h, #D4D3D5h, #E8E8E9h, #F1F1F2h, #F5F4F7h, #F8F8F9h, #FAFAFCh, #FDFDFEh, #FDFDFDh, #FDFEFDh, #FDFEFDh, #FCFDFDh, #FBFCFEh, #E8E8E8h, #DDDDDEh, #F0E8E8EAh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #E0F7F7F7h, #DFDFDFh, #989799h, #D7D7D8h, #E7E8E9h, #F0F0F1h, #F5F5F6h, #F8F8F9h, #FBFBFCh, #FDFDFDh, #FDFDFCh, #FDFDFCh, #FEFEFCh, #FCFEFEh, #FBFCFDh, #F9FAFBh, #E1E1E2h, #DCDCDDh, #F7E7E7E9h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FAF3F3F3h, #4E5E4E5h, #222626h, #626363h, #DDDCDDh, #E4E4E6h, #EDECEEh, #F2F2F3h, #F6F6F8h, #FAF9FBh, #FCFCFDh, #FDFEFEh, #FDFDFEh, #FDFDFEh, #FBFCFDh, #FAFAFBh, #F6F7F8h, #F0EFF1h, #CBCACCh, #8E2E2E2h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #AEE6E4E6h, #7C7D7Dh, #0h, #4F5050h, #D5D5D5h, #DFDFDFh, #E7E7E8h, #ECEDEDh, #F3F2F3h, #F8F7F9h, #FBFAFBh, #FBFCFDh, #FBFCFDh, #FAFBFCh, #F9FAFBh, #F7F8FAh, #F3F4F5h, #F0EFF2h, #C0BFC0h, #D2D1D2h, #CCE6E6E7h, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FCECEBECh, #D1D0D1h, #313130h, #20202h, #2C2D2Eh, #BCBDBCh, #D9D9D9h, #E1E1E1h, #E7E8E7h, #EFF0EFh, #F5F5F6h, #F7F8F8h, #F9F8F9h, #F9F8F9h, #F8F7FAh, #F7F7F9h, #F5F6F7h, #F0F0F1h, #E9E8EAh, #B4B3B4h, #C1BFC1h, #E3E3E4h, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #E5DEDDDEh, #BBBBBBh, #1F1F1Fh, #30404h, #C0F10h, #797978h, #D4D5D4h, #DADBDAh, #E4E4E4h, #EBECEBh, #F0F0F0h, #F4F4F4h, #F5F5F5h, #F4F4F5h, #F2F3F3h, #F1F1F3h, #F0EFF1h, #EBEAECh, #D9D7D9h, #A8A6A8h, #BBB9BBh, #DEDCDEh, #F3E8E7E8h, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #A9D4D4D4h, #B3B3B3h, #1F1F1Fh, #10101h, #60707h, #202222h, #A7A8A7h, #CDCDCDh, #D6D6D6h, #DEDEDEh, #E6E6E6h, #EEEEEEh, #F4F4F4h, #F7F7F8h, #F5F5F5h, #EFEEEFh, #EAE8EAh, #E0DFE1h, #B7B6B7h, #A2A0A1h, #B8B6B8h, #D7D6D7h, #B7E5E4E5h, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #4ECFCFCFh, #BABABAh, #343434h, #0h, #30303h, #20202h, #1F1F1Fh, #2A2A2Ah, #272728h, #302F2Fh, #393838h, #424242h, #525252h, #6B6B6Bh, #89898Ah, #A09FA0h, #B5B3B5h, #B3B1B3h, #969596h, #A5A4A4h, #B4B1B3h, #D3CFD3h, #58E2E1E2h, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #8CECECEh, #BFBFBFh, #656565h, #0h, #10101h, #0h, #70001h, #1F1719h, #171011h, #C0606h, #10000h, #0h, #0h, #0h, #0h, #50607h, #323230h, #908E8Ch, #989698h, #9F9E9Fh, #B7B6B7h, #CFCECEh, #9DDDBDDh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #54D0D0D0h, #C1C1C1h, #A0A1A1h, #2B2A2Ah, #30000h, #191112h, #424141h, #5E5F5Fh, #686868h, #696969h, #5E5E5Eh, #4C4C4Ch, #4C4C4Ch, #59595Ah, #686868h, #79797Ah, #8D8B8Ah, #9E9B9Ah, #969495h, #9F9D9Eh, #BFBDBEh, #CDCBCCh, #5AD9D7D9h, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #B6D5D6D6h, #C2C2C2h, #ABACACh, #7C7D7Dh, #2B2929h, #404040h, #616161h, #717171h, #7E7E7Eh, #898989h, #8E8E8Eh, #929292h, #999999h, #9F9F9Fh, #A1A0A1h, #9E9D9Eh, #9D9C9Dh, #979496h, #918E8Fh, #B2AFAFh, #C4C1C1h, #CBC8CAh, #C0D6D4D6h, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #EFDFDFDFh, #C5C5C5h, #B2B2B2h, #A8A9A9h, #898989h, #5D5D5Dh, #666666h, #787877h, #838382h, #8D8D8Dh, #909090h, #929292h, #999798h, #A2A0A1h, #A5A2A3h, #A2A1A2h, #9D9C9Dh, #949294h, #ACA8A8h, #C0BCBCh, #C4C1C2h, #CCC9CCh, #F3DDDADDh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FEE7E7E7h, #CECECEh, #C2C2C2h, #B4B4B4h, #AEAFAFh, #9D9E9Eh, #858585h, #7C7C7Ch, #808081h, #8D8C8Ch, #8F8D8Eh, #908E8Fh, #959293h, #9B9899h, #9F9C9Ch, #9E9C9Dh, #A4A1A2h, #B5B0B1h, #C2BCBDh, #C3BFBFh, #C5C3C4h, #CFCDCFh, #FEECEBECh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #C8D8D8D8h, #CBCACAh, #BDBDBDh, #B6B6B6h, #B4B3B3h, #AFAFAFh, #A4A3A3h, #999698h, #959293h, #949192h, #959394h, #9A9798h, #9F9B9Bh, #A6A3A3h, #B0ACACh, #BBB6B7h, #C0BCBCh, #C2BEBEh, #C3C1C0h, #C8C6C7h, #BED8D6D9h, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FCE6E6E5h, #8D2D1D2h, #C9C7C7h, #BCBABAh, #B7B5B5h, #B6B4B4h, #B8B5B5h, #B5B1B1h, #B3ADAEh, #B0ABABh, #B0ACACh, #B2AEAEh, #B7B1B2h, #BAB5B5h, #BDB9B9h, #C1BBBCh, #C1BEBEh, #C3C0C1h, #C7C4C5h, #8CCCACCh, #FBE9E9E9h, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #E5DEDDDDh, #D2D1D2h, #C9C7C8h, #BEBCBCh, #BAB7B7h, #B9B6B6h, #B6B4B3h, #B8B4B4h, #B9B4B5h, #BAB5B6h, #BCB7B8h, #BCB8B8h, #BEB8B9h, #C0BABBh, #C2BCBDh, #C3BFBFh, #C6C4C5h, #CBC9CBh, #EADBDADAh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #D3D7D6D7h, #D5D5D5h, #D2D1D2h, #C9C7C7h, #BEBBBBh, #BAB6B6h, #BAB7B7h, #BBB6B7h, #BBB7B7h, #BDB8B8h, #BCB7B7h, #BDB8B7h, #BEB9B9h, #C1BCBDh, #C5C2C2h, #CAC8C9h, #E7D6D5D5h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #E5DBDADAh, #7D3D3D3h, #D4D3D3h, #D0CECEh, #CAC7C6h, #C7C4C3h, #C7C3C2h, #C7C3C3h, #C6C2C2h, #C5BFC0h, #C5C1C1h, #C8C5C5h, #CAC8C9h, #CCDCBCCh, #F5DAD9D8h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FBDCDCDCh, #B9CCCCCBh, #CAC9C9h, #C8C6C6h, #C6C3C3h, #CECACAh, #CECBCBh, #CECBCBh, #C9C8C8h, #C8C6C6h, #C8C5C6h, #E2CBCACAh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FDE0E0DFh, #EAC9C8C8h, #AEB2B1B2h, #55BCBCBBh, #9D0D0D0h, #5FD2D2D2h, #C6C7C7C6h, #F7CCCBCBh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FFFFFFFFh, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h, #FF000000h};
DIMGROB_P(G1,26,26,RGB(255,255,255,255));
DIMGROB_P(G2,320,240);
DIMGROB_P(G3,320,240);
BLIT_P(G2,0,0,320,240,G0,0,0,320,240);
BLIT_P(G3,0,0,320,240,G0,0,0,320,240);
//BLIT_P(G4,0,0,320,240,G0,0,0,320,240);
LOCAL J,K,S,J1,K1,X,Y,T;
LOCAL VX,VOY,AOY,MOXH;
J:=160;
K:=120;
J1:=J;
K1:=K;
X:=15;
Y:=210;
MOXH:=0;
VX:=50;
VOY:=20;
AOY:=0.7;
T:=1;
// G1:=AFiles("b3l.png");
//AVars("g3"):=G1;
FOR Y FROM 0 TO 25 DO
FOR X FROM 0 TO 25 DO
//RECT_P(25,25,100,110);
//TEXTOUT_P(GETPIX_P(G1,X,Y),30,30);
//TEXTOUT_P(X,50,50);
//TEXTOUT_P(Y,70,70);
PIXON_P(G1,X,Y,COL(T));
T:=T+1;
END;
END;
REPEAT
VOY:=VOY+AOY;
X:=X+VX;
Y:=Y+VOY;
IF Y<MOXH THEN MOXH:=Y; END;
IF Y>216 THEN MOXH:=216; VOY:=-VOY*0.95; VX:=VX*0.95; END;
IF MOXH=216 THEN Y:=216;END;
IF X>296 THEN VX:=-VX*0.95; X:=296;END;
IF X<0 THEN X:=0; VX:=-VX*0.95; END;
//TEXTOUT_P(MOUSE(1),0,30);
//TEXTOUT_P(MOUSE(2),0,60);
J:=X;
K:=Y;
BLIT_P(G2,J1,K1,J1+25,K1+25,G3,J1,K1,J1+25,K1+25);
BLIT_P(G2,J,K,G1,0,0,25,25);
//BLIT_P(G2,J1,K1);
BLIT_P(G2);
// TEXTOUT_P(VX,0,0);
//TEXTOUT_P(Y,50,50);
J1:=J;
K1:=K;
//Y:=Y-1;
WAIT(0.04);
//IF VX<0.3 AND Y=216 THEN BREAK(3);END;
// WAIT(0.001);
// REPEAT
// IF ISKEYDOWN(7) THEN J:=J-2;S:=1; END;
// IF ISKEYDOWN(8) THEN J:=J+2;S:=1; END;
// IF ISKEYDOWN(2) THEN K:=K-2;S:=1; END;
// IF ISKEYDOWN(12) THEN K:=K+2;S:=1; END;
//S:=1;
// J:=MOUSE(0);
// K:=MOUSE(1);
IF ISKEYDOWN(4) THEN BREAK(3); END;
// UNTIL S=1;
// S:=0;
UNTIL 0;
END;