900 OPEN #1,8,0,"D1:CLEAR.SUB"›910 FOR I=1 TO 33:READ N:PUT #1,N:NEXT I:CLOSE #1:? I:END ›1000 DATA 104,104,104,133,208,104,104,101›1008 DATA 208,133,209,169,0,133,207,160›1016 DATA 255,145,207,136,208,251,145,207›1024 DATA 230,208,165,208,197,209,208,235›1032 DATA 96›