10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED.
20 PRINT"[147]":POKE53280,14:POKE53281,6
30 SA=832:IS=52:IE=252
40 T=SA:CK=0
50 READA:IF A=-1 THEN 70
60 POKE T,A:T=T+1:CK=CK+A:GOTO50
70 IF CK<>11204 THEN PRINT"ERROR IN DATA":END
80 T=SA+35:H=INT(T/256):L=T-H*256
90 POKE SA+24,L:POKESA+29,H
100 POKE SA+63,IE:POKE SA+12,IS:POKE SA+78,IS
110 SYS SA:PRINT"COPYRIGHT 1989"
120 PRINT"COMPUTE! PUBLICATIONS, INC.":PRINT"ALL RIGHTS RESERVED."
130 DATA 120,169,127,141,13,220,169,1,141,26
140 DATA 208,169,52,133,176,141,18,208,169,27
150 DATA 141,17,208,169,99,141,20,3,169,3
160 DATA 141,21,3,88,96,169,1,141,25,208
170 DATA 173,22,208,201,201,208,7,169,204,141
180 DATA 22,208,208,3,206,22,208,165,176,24
190 DATA 105,2,201,252,176,11,133,176,141,18
200 DATA 208,104,168,104,170,104,64,169,52,133
210 DATA 176,141,18,208,169,204,141,22,208,76
220 DATA 49,234,-1