REM @COMPILE --no-line-numbers --modern
REM A ship, a rock and what they hit

DIM SHIP$(8),ROCK$(6)
RESTORE #SHAPES
FOR I=1 TO 8:READ B:SHIP$(I)=CHR$(B):NEXT I
FOR I=1 TO 6:READ B:ROCK$(I)=CHR$(B):NEXT I

GRAPHICS 0
POSITION 2,2:? "XXXXXXXXXXXXXXXXXXXXXXXX"
PMGRAPHICS 2
PMCREATE 0,SHIP$,1,120,90
PMCREATE 1,ROCK$,2,116,24
PMCOLOR 0,1,10:PMCOLOR 1,3,6

FOR Y=24 TO 86
  PMWAIT
  PMMOVE 1,116,Y
NEXT Y
PMWAIT:HITCLR:PMWAIT:PMWAIT
POSITION 2,10:? "Rock hits the text: ";PMHIT(1,6)
? "Rock hits the ship: ";PMHIT(1,0)
? "Ship is at ";PMX(0);",";PMY(0)
END

# SHAPES
DATA 24,60,126,255,219,255,36,66
DATA 60,126,255,255,126,60