10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED.
20 IFA<>1THENA=1:LOAD"POINTER",8,1
30 SYS52992
40 DIMC(39)
50 PRINT"[147]";:GOSUBg(null)(null)(null)(null)(null)(null)(null)&(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)r(null)(null)(null)(null)(null)(null)(null)@TANDIMSTR$JDIMSTR$IFORCMD(null)(null)LET(null)(null)@(null)(null)`(null)(null)D@J@(null)@(null)(null)DIM(null)`(null)(null)D@JMID$(null)@STR$@(null)(null)(null)@MID$(null)(null)LET(null)(null)(null)LET(null)(null)@(null)`(null)(null)D@JD(null)MID$(null)(null)(null)X(null)L=40*Y%+X%
100 PRINT"X=";X%;"Y=";Y%;"SL=";SL
110 GETA$:IFA$=""THEN110
120 IFA$="Q"THENPRINT"[147]":END
130 IFA$<>" "THEN110
140 FORI=0TO39:POKE1024+I,C(I):NEXT
150 GOTO70
160 PRINT"[147][144]"TAB(13)"COPYRIGHT 1988"
170 PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
180 PRINTTAB(10)"ALL RIGHTS RESERVED."
190 RETURN