10 FORI=679TO733:READA:X=X+A:POKEI,A:NEXT
20 IFX<>7836THENPRINT"DATA STATEMENT ERROR.":STOP
30 DATA 120,169,180,141,20,3,169,2,141,21
40 DATA 3,88,96,198,162,165,162,201,255,208
50 DATA 28,198,161,165,161,201,255,208,20,198
60 DATA 160,165,160,201,255,208,12,169,79,133
70 DATA 160,169,25,133,161,169,255,133,162,32
80 DATA 188,246,76,52,234
90 PRINT"[147]"
100 SYS 679
110 TI$="000100"
120 PRINT"";TI$
130 IF TI$<>"000000" THEN 120