10 MEMORY &9DFE:FOR a=0 TO 88:POKE a+&A500,VAL("&"+MID$("3E20CDA5BBCD06B911FF9D012007EDB021F7BD0119A5C3D1BC21A5C342A5C32CA553504545C4434F4C4FD2002E10DD7E02CB3F300185677BCB3F3001856F2278A5C9EB4E235E2356DD6604DD6E02FE0328053DC0CD78BB252D",1+a*2,2))
20 POKE a+&A559,VAL("&"+MID$("CD1ABCCB48C81A13D5E511FF9C26006F29292919EBE1E50608C51A4F13D511001006027ACB2138017B87CB2130038218018387CB2130038218018387CB21300382180183772310DB2B2B7CC60867D1C110C7E12323D10D20ADC900",1+a*2,2)):NEXT:SAVE"speed",b,&A500,&B4