10 NMEMTOP=PEEK(106)-4›20 POKE 106,NMEMTOP›30 GRAPHICS 0›40 LIST ›50 POKE 756,NMEMTOP›60 REM READ IN CHARMOVE SUBROUTINE›70 FOR I=0 TO 49›80 READ A:POKE 1664+I,A:NEXT I›90 A=USR(1664,NMEMTOP,1,4)›100 REM MODIFY CHARACTERS a,b,c,d INTERNAL 97-100›110 START=NMEMTOP*256+(8*97)›120 FOR I=0 TO 31›130 READ A:POKE START+I,A:NEXT I›140 REM PRINT PUMPKIN ON SCREEN›150 PRINT "ab"›160 PRINT "cd"›890 REM DATA FOR MACHINE LANGUAGE MOVE ROUTINE›900 DATA 104,169,224,133,206,104,104,133,204,104,104,201,1,240,4,230›910 DATA 206,230,204,104,104,141,176,6,169,0,133,205›920 DATA 133,203,168,177,205,145,203,200,208,249,230›930 DATA 206,230,204,206,176,6,208,240,96,0,0›990 REM DATA FOR 4 PUMPKIN CHARACTERS›1000 DATA 0,0,16,60,63,103,66,230›1010 DATA 0,0,8,56,252,230,66,103›1020 DATA 252,255,245,112,120,63,31,7›1030 DATA 63,255,175,14,30,252,248,224›