0 DATA110000CD31427E23D620FA28FD8247D2E1FC1C7BFE40FAE1FC2B1EFFC316FD507E23D620
1 DATAFA28FDCAC8FC477AFE08DA05FDFEF8D205FDE5D5C57AD60857CD4C74C1D1E114C20AFD1C
2 DATA05C2EDFC7BFE40FAC8FC1E00E5D5CD28FDD1E13E1FBEF023BEF02BC3C5FC214376CD31FD
3 DATA214D7622B7FDAF4732B6FDC52AC0FC7E23B7CA49FDCD7214C33DFDC12AB7FD0E05E5C5F3
4 DATACD3B7521C9FDC1C51E32CDF574FBC1C506320DC26AFD062821C9FD11B9FD3AB6FDB77EC2
5 DATA7DFDE60FC383FDE6F00F0F0F0F835F1AE5C500CD7214CD7214C1E12305C26DFDC1E12323
6 DATA0DC24FFD3E0DCD70143AB6FD2F32B6FDB7C239FD78C64047C239FDC9F912FA00C030F00C
7 DATACC3CFC03C333F30FCF3FFF
8 Z$="0123456789ABCDEF":I=64706:FORK=1TO8:READA$:FORJ=1TOLEN(A$)STEP2
9 POKEI,16*(INSTR(1,Z$,MID$(A$,J,1))-1)-1+INSTR(1,Z$,MID$(A$,J+1,1))
10 E=E+PEEK(I):I=I+1:NEXT:NEXT:IFE<>37298THENPRINT"Checksum Error":END
11 PRINT"PICTUR.CO created.":SAVEM"PICTUR",64706,64968