100 DATA 162,1,32,198,255,32,228,255,164,144,8,72
110 DATA 32,204,255,104,32,210,255,170,169,31
120 DATA 224,13,240,35,138,56,233,64,144,12
130 DATA 224,96,144,25,224,160,144,4,224,192
140 DATA 144,17,138,48,7,56,233,32,224,96
150 DATA 176,7,138,224,192,144,2,233,128
160 DATA 72,162,2,32,201,255,104,32,210,255
170 DATA 32,204,255,32,225,255,240,4
180 DATA 40,240,174,96,40,96
200 FOR J=8192 TO 8276
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>11106 THEN STOP
300 PRINT "[147][205]AKESS - [205]AKE [211]PEED[211]CRIPT"
310 PRINT "BY [202]IM [194]UTTERFIELD"
320 INPUT "TEXT FILE";F$
330 OPEN 15,8,15
340 OPEN 1,8,2,F$
350 INPUT#15,E,E$:IF E<>0 THEN PRINT E$:CLOSE 15:END
360 INPUT "OUTPUT SS FILE";S$
370 OPEN 2,8,3,"0:"+S$+",P,W"
380 INPUT#15,E,E$:IF E<>0 THEN PRINT E$:CLOSE 15:END
390 PRINT#2,CHR$(0);CHR$(37);
400 SYS 8192
410 CLOSE 2:CLOSE 1:CLOSE 15