5 PRINT"[147][154]":POKE53280,14:POKE53281,6
10 IFPEEK(49152)<>76THENLOAD"POINTER.ML",8,1
20 PRINT"[147]";TAB(12)"COPYRIGHT 1990"
30 PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
40 PRINTTAB(10)"ALL RIGHTS RESERVED"
50 FOR JF=1TO2000:NEXT
60 GOSUB470:EN=100
70 PRINT"[147]"
80 A$="[144][218][218][218][159][218][156][218][218][218][158][218][129][218][149][218][150][218][151][218][152][218][153][218][154][218][155][218]":DIMA$(15)
90 FORI=0TO15:A$(I)=MID$(A$,(I+1)*2-1,1):NEXT:C=PEEK(646)AND15
100 GOTO200
110 PRINTTAB(13)A$(C)"SELECT COLORS"
120 PRINT"                      111111"
130 PRINT"            0123456789012345"
140 PRINT"           [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
150 PRINT" FOREGROUND[194]"A$A$(C)"[194]"
160 PRINT"     BORDER[194]"A$A$(C)"[194]"
170 PRINT"  CHARACTER[194]"A$A$(C)"[194]"
180 PRINT"       QUIT[194]       [209][209]       [221]"
190 PRINT"           [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":RETURN
200 TB%=146:LB%=120:RB%=247:RH%=0:BB%=177:GOSUB760:GOSUB110
210 POKE 53269,128:POKE53262,120:POKE53263,146:POKE2047,254:SYS 49152
220 GOSUB730
230 ONPEEK(PY)-11GOTO240,250,260,270
240 POKE53281,PEEK(PX)-12:GOTO220
250 POKE53280,PEEK(PX)-12:GOTO220
260 C=PEEK(PX)-12:PRINT"":GOSUB110:GOTO220
270 I=PEEK(PX)-12:IFI<7ORI>8THEN220
280 POKE 53269,0:TB%=98:BB%=201:LB%=104:RB%=111:RH%=0:GOSUB760:POKE53262,104
290 POKE53263,114:POKE53269,128:POKESP,2:POKEBS,0
300 SYS49155:PRINT"[147]";:POKE53269,0:END
310 DATA128,000,000,096,000,000,088,000
320 DATA000,038,000,000,033,128,000,017
330 DATA000,000,017,000,000,014,128,000
340 DATA009,064,000,000,160,000,000,080
350 DATA000,000,032,000,000,000,000,000
360 DATA000,000,000,000,000,000,000,000
370 DATA000,000,000,000,000,000,000,000
380 DATA000,000,000,000,000,000,000,000
390 DATA128,000,000,096,000,000,120,000
400 DATA000,062,000,000,063,128,000,031
410 DATA000,000,031,000,000,015,128,000
420 DATA009,192,000,000,224,000,000,112
430 DATA000,000,032,000,000,000,000,000
440 DATA000,000,000,000,000,000,000,000
450 DATA000,000,000,000,000,000,000,000
460 DATA000,000,000,000,000,000,000,000
470 FORI=0TO15:FORT=0TO7:READA:POKE254*64+I*8+T,A:NEXT:NEXT
480 DATA 000
490 DATA 255
500 DATA 000,000
510 DATA 001,255
520 DATA 001
530 DATA 004
540 DATA 0,1,16
550 DATA 000
560 TB=49619:READA:POKETB,A
570 BB=49620:READA:POKEBB,A
580 LH=49621:READA:POKELH,A
590 LB=49622:READA:POKELB,A
600 RH=49623:READA:POKERH,A
610 RB=49624:READA:POKERB,A
620 SP=49649:READA:POKESP,A
630 FL=49651:READA:POKEFL,A
640 CL=49657:I=0
650 READA:POKECL+I,A:I=I+1:IFA<>16THENGOTO650
660 BS=49653:READA:POKEBS,A
670 PX=49654:REM POINTER COLUMN (X)
680 PY=49655:REM POINTER ROW (Y)
690 CH=49656:REM CHARACTER POINTED TO
700 LL=49409:REM SCRN POS (LOW BYTE)
710 LH=49410:REM SCRN POS (HIGH BYTE)
720 RETURN
730 WAIT56320,16,16:WAIT56320,16
740 CH%=PEEK(CH)
750 RETURN
760 POKERH,RH%:POKELH,LH%
770 POKETB,TB%:POKEBB,BB%:POKERB,RB%:POKELB,LB%:POKE53269,128:RETURN