1 READP:CLEAR256,P:READP,Q,R,A$:C=P+Q+R 2 PRINT"Working..." 3 FORJ=PTOQ:READX:C=C+X:POKEJ,X:NEXT:READZ 4 IFC<>ZTHENSOUND9394,9:PRINT"Checksum is wrong":END 5 BEEP:PRINT"Done.":SAVEMA$,P,Q,R 10 DATA55000,55239,55000,"packer" 11 DATA205,49,66,33,153,215,205,177,39,205,58,31,6,8,33,36 12 DATA91,205,224,27,205,68,70,17,133,246,205,169,90,202,107,215 13 DATA205,227,90,235,26,254,0,200,254,26,202,106,215,254,34,202 14 DATA27,215,254,39,202,74,215,254,32,202,63,215,205,32,0,19 15 DATA195,252,214,205,32,0,19,26,254,0,200,254,26,202,106,215 16 DATA254,34,202,56,215,254,13,202,56,215,205,32,0,195,30,215 17 DATA19,205,32,0,195,252,214,235,1,1,0,205,159,107,235,195 18 DATA252,214,19,205,32,0,26,254,0,200,254,26,202,106,215,254 19 DATA13,204,32,0,202,252,214,235,1,1,0,205,159,107,235,195 20 DATA78,215,201,205,49,66,33,120,215,205,177,39,205,47,95,201 21 DATA70,105,108,101,32,78,111,116,32,70,111,117,110,100,13,10 22 DATA80,114,101,115,115,32,83,112,97,99,101,32,66,97,114,32 23 DATA0,27,112,32,32,32,80,65,67,75,69,82,32,32,32,32 24 DATA32,32,32,32,66,121,32,80,97,117,108,32,74,32,76,97 25 DATA110,99,97,115,116,101,114,32,32,32,27,113,13,10,0,65 26 DATA192119