1 MEMORY &A4FF:PRINT"CPC V.E.":FOR a=0 TO 85:POKE &A500+a,VAL("&"+MID$("0109A521F7BDC3D1BC17A5C32FA5C343A5C357A5C38CA5505553C8504FD0564543544555D25245C70001061AC338BCB7280D2100BE7DFE3730EF7323722C7D3233A5C93D20E32A33A57DB728DC2D2D2233A5EDA0EDA0",a*2+1,2))
2 POKE &A556+a,VAL("&"+MID$("C9FE0520CE3A33A5FE3930C7DD6609DD6E082279A5CDA5A5EBDD4605DD4E04DD7E06CD0000223EBEED533CBEED433ABEF5E12238BEC93D3D20992138BE577BFE083090EE015F195ECDA5A5732372C9DD6603DD6E02C9",a*2+1,2)):NEXT:PRINT"OK":SAVE"cpcve",b,&A500,172